chiark / gitweb /
experiment with cards in circles
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 15:41:43 +0000 (15:41 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 15:41:43 +0000 (15:41 +0000)
generate-board

index cb04748c2be92673eb0c1c5a6938547a2c2bb5f8..6def5c30c0e853e788ba2451ffb9bb2bcab8500b 100755 (executable)
@@ -583,7 +583,7 @@ sub sea_track(){
     o("  $prepline\n");
     o("  gsave ",
       psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," translate\n");
-    if (#0 &&
+    if (1 ||
        $i >= 1 &&
        $track->[$i] == $track->[$i-1] &&
        ($i == 1 ||
@@ -591,6 +591,8 @@ 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("      0.8 .8 scale \n");
       o("      ",0.6 * $dx, " ", -0.28 * $dy," translate\n");
       o("      gsave");
       o("        $shrink dup scale -90 rotate\n");