chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
16eeb84
)
fix afsluitdijk colour
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:04:40 +0000
(16:04 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:04:40 +0000
(16:04 +0000)
generate-board
patch
|
blob
|
history
diff --git
a/generate-board
b/generate-board
index 6be2225a8a325a173e86461c04a71ee69323586d..6f18fde58ced1be3617f544cdd749e3dd355fe77 100755
(executable)
--- 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($c
olour
,
+ , 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");