From f7ca32809f8eb48fa1659994893f6fcd56d89529 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 09:33:31 +0000
Subject: [PATCH] adjust hs placement esp in R.e.o.M

---
 generate-board | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/generate-board b/generate-board
index a4c6c25..8525735 100755
--- 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
-- 
2.30.2