From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 20:01:19 +0000 (+0000)
Subject: move into misc-data.pl: PA HS wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=6fd1c5cbd601a104eb7aedce48d99744cf789a3d;p=pandemic-rising-tide.git

move into misc-data.pl: PA HS wip

NFC
---

diff --git a/generate-board b/generate-board
index 7137c20..ae1568a 100755
--- a/generate-board
+++ b/generate-board
@@ -684,11 +684,12 @@ END
     }
     if ($hs{$rr->{Name}}) {
       #print STDERR "adjust hs $rr->{Name}\n";
-      my $posadj = $c{PA}{HS}{$rr->{Colour}};
+      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(@$posadj) * $hs_sz;
       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 9624aac..647ed24 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -66,8 +66,8 @@ END
    BoundingsA1dy => [ 35, -7 ],
    Overall => [ 34, -15 ],
    OverallOn => { a4 => [ 0, -17 ] },
-   HS => { green => [0,0] },
  },
+ PA_HS_HS => { green => [0, 0] },
  PA_Outercoast_Vertices => [
    { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },
  ],