chiark / gitweb /
fix afsluitdijk colour
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:04:40 +0000 (16:04 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:04:40 +0000 (16:04 +0000)
generate-board

index 6be2225a8a325a173e86461c04a71ee69323586d..6f18fde58ced1be3617f544cdd749e3dd355fe77 100755 (executable)
@@ -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");