From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:12:04 +0000 (+0000)
Subject: wip face labelling
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=394eb40087b29672fa0f592333aff91c877d85b3;p=pandemic-rising-tide.git

wip face labelling
---

diff --git a/generate-board b/generate-board
index 5aac4ec..23d626f 100755
--- a/generate-board
+++ b/generate-board
@@ -304,6 +304,15 @@ sub edge_faces() {
   }
 }
 
+sub label_faces() {
+  o("  1 setgray  /Helvetica-Bold findfont  18 scalefont setfont\n");
+  foreach my $rr (values %region) {
+    next if $rr->{Special};
+    o("   ", psvec($rr->{Centre}), " moveto");
+    o("   (",$rr->{Name},") show");
+  }
+}
+
 #----- main program -----
 
 ($facesf, @ARGV) = @ARGV or die;
@@ -318,6 +327,7 @@ o("%!\n");
 o(" 0.52 dup scale\n"); # xxx bodge, want boundingbox or something
 fill_faces();
 edge_faces();
+label_faces();
 
 print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};