From: Ian Jackson Date: Sat, 2 Mar 2019 16:04:40 +0000 (+0000) Subject: fix afsluitdijk colour X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=42290db1cb3d37fb67df614429bc80a48382b107;p=pandemic-rising-tide.git fix afsluitdijk colour --- 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");