From 69c0d8ebfa09a69deef73387acdd041321a0c022 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:32:20 +0000
Subject: [PATCH] sea track

---
 generate-board | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

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