move into misc-data.pl: PA HS

NFC

diff --git a/generate-board b/generate-board
index ae1568a3c5eaeea93068ab2ffd2cd815ff59d43b..109e84dd28dc6bb6489d4526d17b9b2cc90b6945 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -686,9 +686,7 @@ END
       #print STDERR "adjust hs $rr->{Name}\n";
       my $posadj = $c{PA_HS_HS}{$rr->{Colour}};
       $posadj //= [0,0];
-      $pos -= mkvec(0, -$hs_sz * 0.65
-                   -$hs_sz * 
-                   ( $rr->{Colour} eq 'green' ? -0.40 : 0.0 ));
+      $pos -= mkvec(0, -$hs_sz * 0.65);
       $pos += &mkvec(@$posadj) * $hs_sz;
       my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw
                               + $hs_sz*0.15);

diff --git a/misc-data.pl b/misc-data.pl
index 647ed24385bb483ce4405b414745f12e50556845..65b528574695a31763d01561c280b72d7e392241 100644 (file)
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -67,7 +67,7 @@ END
    Overall => [ 34, -15 ],
    OverallOn => { a4 => [ 0, -17 ] },
  },
- PA_HS_HS => { green => [0, 0] },
+ PA_HS_HS => { green => [0, -0.40] },
  PA_Outercoast_Vertices => [
    { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },
  ],