wordshow

diff --git a/generate-board b/generate-board
index ad02a3c50deae155095998a92d275bb6408a8050..0bf4bf6ac451cf62dbccadfd80d661da772c3d44 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -438,6 +438,16 @@ our $cube_lw = ($cube_sz * 0.1);
 sub label_faces() {
   my $sz = 18;
   my $shadow = $sz * 0.1;
+  o(<<END);
+  /wordshow {
+    0 setgray 0 10 359 {
+      dup  cos $shadow mul
+      exch sin $shadow mul
+      words pop pop
+    } bind for
+    1 setgray 0 0 words pop pop
+  } def
+END
   o("  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   my %hs = map { $_ => 1 } @{ $c{HS} };
   foreach my $rr (values %region) {
@@ -488,12 +498,7 @@ END
     }
     o(<<END);
   } bind def
-    0 setgray 0 10 359 {
-      dup  cos $shadow mul
-      exch sin $shadow mul
-      words pop pop
-    } bind for
-    1 setgray 0 0 words pop pop
+  wordshow
 END
   }
 }