chiark / gitweb /
ready for background
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 13:49:22 +0000 (13:49 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Fri, 1 Mar 2019 13:49:22 +0000 (13:49 +0000)
generate-board

index e6ed5c979f276c3785ad82056302d669324f3054..8844941ed06cf3229576334ee7c0ad98eda2a538 100755 (executable)
@@ -310,7 +310,7 @@ sub edge_faces() {
 
 sub label_faces() {
   my $sz = 18;
-  o("  1 setgray  /Helvetica-Bold findfont  $sz scalefont setfont\n");
+  o("  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
     o("  /words {\n");
@@ -328,7 +328,7 @@ sub label_faces() {
 END
     }
     o("  } bind def\n");
-    o("  0 0 words pop pop\n");
+    o("  1 setgray 0 0 words pop pop\n");
   }
 }