move into misc-data.pl: PA HS wip

NFC

diff --git a/generate-board b/generate-board
index 54f2e5ebe1429cb3254d25200c70fdb6d2e828df..7137c201182e8852f5e93049882d410cd2156585 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -684,8 +684,11 @@ END
     }
     if ($hs{$rr->{Name}}) {
       #print STDERR "adjust hs $rr->{Name}\n";
-      $pos -= mkvec(0, -$hs_sz*
-                   ( $rr->{Colour} eq 'green' ? 0.25 : 0.65 ));
+      my $posadj = $c{PA}{HS}{$rr->{Colour}};
+      $posadj //= [0,0];
+      $pos -= mkvec(0, -$hs_sz * 0.65
+                   -$hs_sz * 
+                   ( $rr->{Colour} eq 'green' ? -0.40 : 0.0 ));
       my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw
                               + $hs_sz*0.15);
       one_hs($rr->{Colour}, $hspos);

diff --git a/misc-data.pl b/misc-data.pl
index b00c2c4eb5abba9d31fa7540c3946fc1bc658328..9624aacb15ff84403948fc528ea29da3d4293a1d 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -66,6 +66,7 @@ END
    BoundingsA1dy => [ 35, -7 ],
    Overall => [ 34, -15 ],
    OverallOn => { a4 => [ 0, -17 ] },
+   HS => { green => [0,0] },
  },
  PA_Outercoast_Vertices => [
    { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },