From 42290db1cb3d37fb67df614429bc80a48382b107 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 2 Mar 2019 16:04:40 +0000 Subject: [PATCH] fix afsluitdijk colour --- generate-board | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/generate-board b/generate-board index 6be2225..6f18fde 100755 --- a/generate-board +++ b/generate-board @@ -399,7 +399,7 @@ sub one_hs ($$) { newpath %s %s %f 0 360 arc closepath gsave fill grestore 0 setgray $hs_lw setlinewidth stroke END - , pscolour($colour, + , pscolour($c{Colours}{$colour}, sub { $_ = 0.75 * $_ foreach @_ }), psvec($hspos), $hs_sz/2); } @@ -419,7 +419,7 @@ sub label_faces() { ( $rr->{Colour} eq 'green' ? 0.25 : 0.65 )); my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw + $hs_sz*0.15); - one_hs($c{Colours}{$rr->{Colour}}, $hspos); + one_hs($rr->{Colour}, $hspos); } # xxx water cubes o(" /words {\n"); -- 2.30.2