wip sea track

diff --git a/generate-board b/generate-board
index 8f5c6c176706ea1b22aaf317c7b807e891ba6db7..f2ba52886a5898457bb59df2cf027948b36593d8 100755 (executable)
--- 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 3c1a905d927ab4e0295de21593d86076cc4d12ad..559a04c1ad3d4b59fe76f8599fb7c622ef95541e 100644 (file)
--- 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)],
 );