From 979e2db351209462b42a0fb5624a09db1438cd36 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 3 Mar 2019 00:44:29 +0000 Subject: [PATCH] invert cube and text in Wieringermeer --- generate-board | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/generate-board b/generate-board index 6cc6334..2d5b371 100755 --- a/generate-board +++ b/generate-board @@ -457,9 +457,15 @@ sub label_faces() { print STDERR " water $w in $rr->{Name}\n"; my $down = water_cubes_sz(2) - water_cubes_sz(1) + $cube_gap; $pos -= mkvec(0, -0.5 * $down); + my $cube_y = -($sz * @$words); + if ($rr->{Name} eq 'Wieringermeer') { + $pos -= mkvec(0,+$sz); + $cube_y = 0; + $down = 0; + } o(" gsave\n"); o(" ", psvec($pos), " translate\n"); - o(" 0 ", -($sz * @$words), " translate\n"); + o(" 0 ", $cube_y, " translate\n"); o(" ", -0.5 * water_cubes_sz($w)," ", -$down, " translate\n"); water_cubes($w); o(" grestore\n"); -- 2.30.2