From 1ab3c66050fdb37acf8ecf00c83807aa214111d9 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:48:43 +0000
Subject: [PATCH] words

---
 generate-board | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generate-board b/generate-board
index be03bdf..e6ed5c9 100755
--- a/generate-board
+++ b/generate-board
@@ -313,18 +313,22 @@ sub label_faces() {
   o("  1 setgray  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
+    o("  /words {\n");
     my $words = $rr->{DisplayName};
     my $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
     foreach my $word (@$words) {
       $pos += mkvec(0,-$sz);
       o("   ", psvec($pos), " moveto");
       o(<<END);
+   2 copy rmoveto
    ($word) dup stringwidth pop     % word xw
      -0.5 mul 0 rmoveto             % word
      show
    0 -$sz rmoveto
 END
     }
+    o("  } bind def\n");
+    o("  0 0 words pop pop\n");
   }
 }
 
-- 
2.30.2