chiark / gitweb /
tiny adjustments to track symbols
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:20:21 +0000 (21:20 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:20:21 +0000 (21:20 +0000)
generate-board

index ac38bc5d01e7be08f3e700c75063eba2ce33f197..a6d00c51a0c6eb037f6ede6f0babe43786110e9b 100755 (executable)
@@ -590,7 +590,7 @@ sub sea_track(){
     my $t_sz = 24;
     my $shrink = ($hs_sz * 0.75 / $deck_h);
     o("    gsave % T M $i\n");
-    o("      -44 -6.5 translate\n");
+    o("      -43.5 -6.5 translate\n");
     o("      0.8 .8 scale \n");
     o("      ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
     o("      gsave");
@@ -599,7 +599,7 @@ sub sea_track(){
     o("         deck1path stroke\n");
     o("      grestore");
     o("      /Helvetica-Bold findfont $t_sz scalefont setfont\n");
-    o("      12 -22 moveto ($track->[$i]) show");
+    o("      12 -21.5 moveto ($track->[$i]) show");
     o("    grestore\n");
 
     if ($i > 0) {