sea track lines

diff --git a/generate-board b/generate-board
index 61504c1dc4ee463f2ab46ffddab8bf0ef0377e94..23e3952ea080824bca53dd3ca10eecfb0b530bc2 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -473,13 +473,20 @@ sub sea_track(){
   for my $i (0..$#$track) {
     $pos[$i] = mkvec(0, ($i - 0.5 * @$track) * $dy);
   }
-  o("  $linecolour $hs_lw setlinewidth newpath\n");
+  my $prepline = "$linecolour $hs_lw setlinewidth newpath";
+  o("  $prepline\n");
   o("    ",psvec($pos[0])," moveto ",psvec($pos[-1])," lineto stroke\n");
   for my $pos (@pos) {
     token_circle("SL", $pos,
                 darkerpscolour('sea', 0.75),
                 $linecolour);
   }
+  for my $i (0..$#pos-1) {
+    next if $track->[$i] == $track->[$i+1];
+    o("  $prepline\n");
+    o("  ",psvec($pos[$i] + mkvec(-0.0 * $token_sz, $dy/2))," moveto",
+      " ",psvec(mkvec( $token_sz * 1.25, 0 )), " rlineto stroke\n");
+  }
   o("  grestore\n");
 }