@{ $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 {