chiark / gitweb /
move into misc-data.pl: PA BoundingsA1dy
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 19:47:32 +0000 (19:47 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 20:48:21 +0000 (20:48 +0000)
NFC

generate-board
misc-data.pl

index 03d5ae72ae5b7b13b17815e896f0ecc57f422e98..015cbdcdcb897805c0cd663568c6f61cf02fa3e1 100755 (executable)
@@ -388,8 +388,9 @@ sub computeboundings() {
           -$surroundw 0        rlineto
                  closepath $w_stroke clip
 END
-    $top_adjuncts_dy_from_boundings = 35;
-    $bottom_adjuncts_dy_from_boundings = -7;
+    ($top_adjuncts_dy_from_boundings,
+     $bottom_adjuncts_dy_from_boundings) = @{ $c{PA}{BoundingsA1dy} };
+    # ^ if we are doing it all in one go we lose less printable area
   } else {
     confess;
   }
index f15b60526b6e5982d4268bb430fb30e6435765ef..967d5688c3bde3def13aa9a818b020064bf5a842 100644 (file)
@@ -63,6 +63,7 @@ Hand limit 7 at all times
 END
  PA => {
    OuterCoastDelta => [ -1000, 0 ],
+   BoundingsA1dy => [ 35, -7 ],
  },
  PA_Outercoast_Vertices => [
    { Re => qr{Noorderzijlvest}, PA => [ 100,-50 ] },