#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);