From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 01:27:02 +0000 (+0000)
Subject: wordshow
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=243d39ae71be38e71f96be47a4e2f959b6be75e5;p=pandemic-rising-tide.git

wordshow
---

diff --git a/generate-board b/generate-board
index ad02a3c..0bf4bf6 100755
--- 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
   }
 }