From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 21:59:41 +0000 (+0000)
Subject: move into misc-data.pl: AP SeaTrack
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d66b3e3cba342abc6da6a9fef4d9f2349b7eee69;p=pandemic-rising-tide.git

move into misc-data.pl: AP SeaTrack

NFC
---

diff --git a/generate-board b/generate-board
index 79c2588..7159e48 100755
--- a/generate-board
+++ b/generate-board
@@ -248,8 +248,8 @@ sub transform_coordinates () {
 sub pos_plus_dy_adjunct ($) {
   my ($cval) = @_;
   my ($x,$y,$whadjunct) = @$cval;
-  my $adjunct = $adjuncts_dy_from_boundings{ $whadjunct };
-  return "$x $y ".( defined $adjunct and "$adjunct add translate" );
+  my $adjunct = $adjuncts_dy_from_boundings{ $whadjunct//'' };
+  return "$x $y".( defined $adjunct and " $adjunct add translate" );
 }
 
 sub adjust_sea() {
@@ -794,7 +794,7 @@ sub decks(){
 
 sub sea_track(){
   o("% sea level track\n");
-  o("  gsave 11 700 translate\n");
+  o("  gsave ",pos_plus_dy_adjunct($c{PA}{SeaTrack})," translate\n");
   my $track = $c{SeaTrack};
   my $token_sz = $hs_sz;
   my $dy = $token_sz * 1.25;
diff --git a/misc-data.pl b/misc-data.pl
index c7d218e..47ed3d1 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -67,6 +67,7 @@ END
    Overall => [ 34, -15 ],
    OverallOn => { a4 => [ 0, -17 ] },
    HS1_initials => [ 550, 1705, 'Top' ],
+   SeaTrack => [ 11, 700 ],
  },
  PlayHintdyAdjunct => 'Top',
  PA_HS_HS => { green => [0, -0.40] },