layout-test-a1m

diff --git a/.gitignore b/.gitignore
index a92ba0ae9e81965277eaed4773bd4deebb216e00..487a62b06ff903ad32b779ed966bff7c16101f50 100644 (file)
--- 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 940235a93678e1991bc3b245692c9dbdc2e583a2..dc29773a275d0abaf69bc099b22428cbc6baa1bd 100755 (executable)
--- 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 (file)
index 0000000..0c946a0
--- /dev/null
+++ b/layout-test-prefix-a1.ps
@@ -0,0 +1,3 @@
+%!
+0.35355339059327376220 dup scale
+/setpagedevice { } def