From 18a2abcddbf329373ffc8ec0b6b2ca54734cf998 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Mar 2019 19:47:32 +0000
Subject: [PATCH] move into misc-data.pl: PA BoundingsA1dy

NFC
---
 generate-board | 5 +++--
 misc-data.pl   | 1 +
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index 03d5ae7..015cbdc 100755
--- a/generate-board
+++ b/generate-board
@@ -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;
   }
diff --git a/misc-data.pl b/misc-data.pl
index f15b605..967d568 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -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 ] },
-- 
2.30.2