From 803256138cb21a236dbc94e390d7fbb822798208 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:28:38 +0000
Subject: [PATCH] wip track

---
 generate-board | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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));
-- 
2.30.2