move into misc-data.pl: PA HS wip

[pandemic-rising-tide.git] / generate-board

diff --git a/generate-board b/generate-board
index 7137c201182e8852f5e93049882d410cd2156585..ae1568a3c5eaeea93068ab2ffd2cd815ff59d43b 100755 (executable)
--- 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);