From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 00:46:46 +0000 (+0000)
Subject: wip hairs
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=90f22de9fd0a976c2f97ae20833d53b0420d6544;p=pandemic-rising-tide.git

wip hairs
---

diff --git a/generate-board b/generate-board
index 8aef0df..a6699d4 100755
--- a/generate-board
+++ b/generate-board
@@ -345,25 +345,42 @@ sub computeboundings() {
 			 @{ $bb{PrintableT} }[2..3],
 			];
   } elsif ($maxpaper =~ m/^a1/) {
+    my $hairs = 30 * MM2PT;
+    my $hairsw = $bb{Entire}[2];
+    my $hairsh = $bb{Entire}[3];
     my $surround = 5 * MM2PT;
     my $surroundw = $bb{Entire}[2] + $surround*2;
     my $surroundh = $bb{Entire}[3] + $surround*2;
     $somepage->('P', 0,0, $a1_w, $a1_h);
     my $offx = 0.5*($bb{PageP}[2] - $bb{Entire}[2]);
     my $offy = 0.5*($bb{PageP}[3] - $bb{Entire}[3]);
-    $bb{Entire}[0] += $offx;  $bb{Entire}[1] += $offy;
-    $bb{Entire}[2] += $offx;  $bb{Entire}[3] += $offy;
+    if ($maxpaper eq 'a1m') {
+      $bb{Cutout} = $submargins->($a1m_pasteedge, $bb{Entire});
+    }
     $preamble_from_boundings = <<END;
 	 $offx $offy translate
+         1 setlinewidth
+         0 setgray
+         /a1hairs {
+             newpath moveto
+             $hairs 0        rmoveto
+             $hairs -2 mul 0 rlineto
+             $hairs $hairs   rmoveto
+             0 $hairs -2 mul rlineto
+             stroke
+         } def
+         0       0       a1hairs
+         $hairsw 0       a1hairs
+         0       $hairsh a1hairs
+         $hairsw $hairsh a1hairs
          -$surround -$surround moveto
           $surroundw 0         rlineto
           0 $surroundh         rlineto
           -$surroundw 0        rlineto
                  closepath clip
 END
-    if ($maxpaper eq 'a1m') {
-      $bb{Cutout} = $submargins->($a1m_pasteedge, $bb{Entire});
-    }
+    $bb{Entire}[0] += $offx;  $bb{Entire}[1] += $offy;
+    $bb{Entire}[2] += $offx;  $bb{Entire}[3] += $offy;
     $top_adjuncts_dy_from_boundings = 35;
     $bottom_adjuncts_dy_from_boundings = -7;
   } else {