wip face labelling

diff --git a/generate-board b/generate-board
index 5aac4ec40456fd7b02904ceabcb7d392c05d2e33..23d626f224751b16961f6b45d6ffe00812726de6 100755 (executable)
--- 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'};