chiark / gitweb /
wip sea track
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:24:10 +0000 (16:24 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:24:10 +0000 (16:24 +0000)
generate-board

index c807be0c9c7ac28d3a9e0147b8c20140c0934cf3..3f9cc941c230658a95ef0f83f281aa3eda8ee44c 100755 (executable)
@@ -470,11 +470,9 @@ sub sea_track(){
   my $dy = $token_sz * 1.5;
   for my $i (0..$#$track) {
     my $pos = mkvec(0, $i*$dy);
-#    token_circle("SL $i", $pos,
-#               pscolour($c{Colours}{sea},
-#                        map { 
-#                       ),
-#               '0.
+    token_circle("SL $i", $pos,
+                darkerpscolour('sea', 0.75),
+                darkerpscolour('sea', 0.25));
   }
   o("  grestore\n");
 }