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

wip sea track
---

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)],
 );