From 243d39ae71be38e71f96be47a4e2f959b6be75e5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 01:27:02 +0000
Subject: [PATCH] wordshow

---
 generate-board | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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
   }
 }
-- 
2.30.2