From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:38:19 +0000 (+0000)
Subject: sea track lines
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=eaddb68915cab916f1d892a51b08efe10e9e5e41;p=pandemic-rising-tide.git

sea track lines
---

diff --git a/generate-board b/generate-board
index 61504c1..23e3952 100755
--- 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");
 }