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

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

diff --git a/generate-board b/generate-board
index ea160dd..2561cbd 100755
--- a/generate-board
+++ b/generate-board
@@ -311,10 +311,17 @@ sub label_faces() {
   o("  1 setgray  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
-    o("   ", psvec($rr->{Centre}), " moveto");
-    foreach my $word (@{ $rr->{DisplayName} }) {
-      o("   (",$word,") show");
-      o("   0 -$sz rmoveto");
+    my $words = $rr->{DisplayName};
+    my $pos = $rr->{Centre} + Math::GSL::Vector->new([ 0, 0.5 * $sz * @$words ]);
+    foreach my $word (@$words) {
+      $pos += Math::GSL::Vector->new([0,-$sz]);
+      o("   ", psvec($pos), " moveto");
+      o(<<END);
+   ($word) dup stringwidth pop     % word xw
+     -0.5 mul 0 rmoveto             % word
+     show
+   0 -$sz rmoveto
+END
     }
   }
 }
-- 
2.30.2