wip sea track

[pandemic-rising-tide.git] / generate-board

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