wip track

diff --git a/generate-board b/generate-board
index 3f9cc941c230658a95ef0f83f281aa3eda8ee44c..e032d64f5fa44387ffd0344426fe5fba06a65190 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -463,13 +463,13 @@ END
 }
 
 sub sea_track(){
-  o("% sea level track");
-  o("  gsave 200 200 translate\n");
+  o("% sea level track\n");
+  o("  gsave 10 660 translate\n");
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
-  my $dy = $token_sz * 1.5;
+  my $dy = $token_sz * 1.25;
   for my $i (0..$#$track) {
-    my $pos = mkvec(0, $i*$dy);
+    my $pos = mkvec(0, ($i - 0.5 * @$track) * $dy);
     token_circle("SL $i", $pos,
                 darkerpscolour('sea', 0.75),
                 darkerpscolour('sea', 0.25));