From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 01:06:27 +0000 (+0000)
Subject: layout-test-a1m
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=f34a3c2e011eb59cbbed4e8287b2ea4fefab4c7b;p=pandemic-rising-tide.git

layout-test-a1m
---

diff --git a/.gitignore b/.gitignore
index a92ba0a..487a62b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -10,7 +10,7 @@ minprintable-*.ps
 board-*.ps
 boundings-*.ps
 layout-test.ps
-layout-test-?.ps
+layout-test-*.ps
 a4-test-?.ps
 *.tmp.[0-9]
 cmyk.pdf
diff --git a/generate-board b/generate-board
index 940235a..dc29773 100755
--- a/generate-board
+++ b/generate-board
@@ -361,6 +361,9 @@ sub computeboundings() {
       @hrect = @{ $submargins->($a1m_pasteedge, \@hrect) };
       $bb{Cutout} = $submargins->($a1m_pasteedge, $bb{Entire});
     }
+    my $w_stroke = $xopts =~ m/W/ ?
+	' gsave 3 setlinewidth stroke grestore '
+	: '';
     $preamble_from_boundings = <<END;
 	 $offx $offy translate
          1 setlinewidth
@@ -381,7 +384,7 @@ sub computeboundings() {
           $surroundw 0         rlineto
           0 $surroundh         rlineto
           -$surroundw 0        rlineto
-                 closepath clip
+                 closepath $w_stroke clip
 END
     $top_adjuncts_dy_from_boundings = 35;
     $bottom_adjuncts_dy_from_boundings = -7;
diff --git a/layout-test-prefix-a1.ps b/layout-test-prefix-a1.ps
new file mode 100644
index 0000000..0c946a0
--- /dev/null
+++ b/layout-test-prefix-a1.ps
@@ -0,0 +1,3 @@
+%!
+0.35355339059327376220 dup scale
+/setpagedevice { } def