adjust hs placement esp in R.e.o.M

diff --git a/generate-board b/generate-board
index a4c6c25a3d45d00cb9c06fb06aa3e85c930f14af..85257356ae5c95c1dd81a70d6b20f8c7308fe209 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -366,10 +366,10 @@ sub label_faces() {
     my $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
     if ($hs{$rr->{Name}}) {
       print STDERR "adjust hs $rr->{Name}\n";
-      # xxx HS placements in regions >=5 sides, further
-      # xxx or maybe something involving total edge length
-      $pos -= mkvec(0, -$hs_sz/2);
-      my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw);
+      $pos -= mkvec(0, -$hs_sz*
+                   ( $rr->{Colour} eq 'green' ? 0.25 : 0.65 ));
+      my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw
+                              + $hs_sz*0.15);
       o(sprintf <<END
    %% HS
    newpath %s %s %f 0 360 arc closepath gsave fill grestore