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

wip track
---

diff --git a/generate-board b/generate-board
index 3f9cc94..e032d64 100755
--- 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));