chiark / gitweb /
move to TextAdjust
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 00:51:38 +0000 (00:51 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 00:51:38 +0000 (00:51 +0000)
generate-board
misc-data.pl

index 3587aa5d1bc7a8fe7832e66c6dc100fdcfa3db7e..1c86a7f2bf6f6c630539868462152b6df50adfca 100755 (executable)
@@ -452,8 +452,9 @@ sub label_faces() {
                               + $hs_sz*0.15);
       one_hs($rr->{Colour}, $hspos);
     }
-    if ($rr->{Name} eq 'Zeeuws-Vlaanderen') {
-      $pos += $sz * mkvec(0.5, 0);
+    my $adjust = $c{TextAdjust}{$rr->{Name}};
+    if ($adjust) {
+      $pos += $sz * &mkvec(@$adjust);
     }
     if ($rr->{Name} eq 'Walcheren') {
       $pos += $sz * mkvec(0.6, 0.5);
index e11bc38d4d33a45394a30ecfd7aff601427c6874..cfdab9b2b245b51ecd4accb58046e2e5fef2a604 100644 (file)
@@ -18,4 +18,7 @@ our %c =
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en Ijssel' ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
+ TextAdjust => {
+   'Zeeuws-Vlaanderen' => [0.5, 0],
+ }
 );