move into misc-data.pl: AP SeaTrack

NFC

diff --git a/generate-board b/generate-board
index 79c258824ae61ed0272fc1627074594839b60e51..7159e48633176cd731ba9fa9d7265e6dabb7395f 100755 (executable)
--- 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 c7d218e89a2980b68859543fea8dbebcecf87d47..47ed3d1690512c205b0384bd515842c8b185a5d5 100644 (file)
--- 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] },