From f34a3c2e011eb59cbbed4e8287b2ea4fefab4c7b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 01:06:27 +0000
Subject: [PATCH] layout-test-a1m

---
 .gitignore               | 2 +-
 generate-board           | 5 ++++-
 layout-test-prefix-a1.ps | 3 +++
 3 files changed, 8 insertions(+), 2 deletions(-)
 create mode 100644 layout-test-prefix-a1.ps

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
-- 
2.30.2