sea track

diff --git a/generate-board b/generate-board
index e032d64f5fa44387ffd0344426fe5fba06a65190..61504c1dc4ee463f2ab46ffddab8bf0ef0377e94 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -468,11 +468,17 @@ sub sea_track(){
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;
+  my $linecolour = darkerpscolour('sea', 0.25);
+  my @pos;
   for my $i (0..$#$track) {
-    my $pos = mkvec(0, ($i - 0.5 * @$track) * $dy);
-    token_circle("SL $i", $pos,
+    $pos[$i] = mkvec(0, ($i - 0.5 * @$track) * $dy);
+  }
+  o("  $linecolour $hs_lw setlinewidth newpath\n");
+  o("    ",psvec($pos[0])," moveto ",psvec($pos[-1])," lineto stroke\n");
+  for my $pos (@pos) {
+    token_circle("SL", $pos,
                 darkerpscolour('sea', 0.75),
-                darkerpscolour('sea', 0.25));
+                $linecolour);
   }
   o("  grestore\n");
 }