chiark / gitweb /
sort out track, wip, nfc
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:17:26 +0000 (21:17 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 21:17:26 +0000 (21:17 +0000)
generate-board

index 078b67c49de46cc8725928e118a1b18fa5f52da3..ac38bc5d01e7be08f3e700c75063eba2ce33f197 100755 (executable)
@@ -586,24 +586,22 @@ sub sea_track(){
     o("  $prepline\n");
     o("  gsave ",
       psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," translate\n");
-    if ($i >= 0 &&
-       ($i == 0 ||
-        $track->[$i] != $track->[$i-1])) {
-      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("      0.8 .8 scale \n");
-      o("      ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
-      o("      gsave");
-      o("        $shrink dup scale -90 rotate\n");
-      o("        newpath ", ($hs_lw / $shrink)," setlinewidth\n");
-      o("         deck1path stroke\n");
-      o("      grestore");
-      o("      /Helvetica-Bold findfont $t_sz scalefont setfont\n");
-      o("      12 -22 moveto ($track->[$i]) show");
-      o("    grestore\n");
-    }
+
+    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("      0.8 .8 scale \n");
+    o("      ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
+    o("      gsave");
+    o("        $shrink dup scale -90 rotate\n");
+    o("        newpath ", ($hs_lw / $shrink)," setlinewidth\n");
+    o("         deck1path stroke\n");
+    o("      grestore");
+    o("      /Helvetica-Bold findfont $t_sz scalefont setfont\n");
+    o("      12 -22 moveto ($track->[$i]) show");
+    o("    grestore\n");
+
     if ($i > 0) {
       o("  0 -$dy moveto",
        " ",psvec(mkvec( $dx + $cube_sz, 0 )),