From 3178459f99af42918bfb8ff918987da26e9c2544 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:19:40 +0000
Subject: [PATCH] wip sea track

---
 generate-board | 19 ++++++++++++++++++-
 misc-data.pl   |  1 +
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/generate-board b/generate-board
index 8f5c6c1..f2ba528 100755
--- a/generate-board
+++ b/generate-board
@@ -453,6 +453,23 @@ END
   }
 }
 
+sub sea_track(){
+  o("% sea level track");
+  o("  gsave 200 200 translate\n");
+  my $track = $c{SeaTrack};
+  my $token_sz = $hs_sz;
+  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.
+  }
+  o("  grestore\n");
+}
+
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
@@ -471,7 +488,7 @@ edge_faces();
 # xxx dykes
 # xxx dyke spots
 label_faces();
-# xxx water track
+sea_track();
 # xxx HS initial locations
 # xxx HS instructions
 # xxx overall instructions
diff --git a/misc-data.pl b/misc-data.pl
index 3c1a905..559a04c 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -16,4 +16,5 @@ our %c =
      ZZ => 'Zuiderzee',
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en Ijssel' ],
+ SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
 );
-- 
2.30.2