- \@item_size, $rotate_paper, \@eff_paper_size,
- \@laycount);
+ \@item_size, \@eff_paper_size,
+ $lp_y);
+}
+
+sub prf { printf @_ or die $!; }
+
+sub write_output () {
+ prf "%%!\n";
+ my @cnr;
+ my $c;
+ prf "gsave\n";
+ for ($cnr[0]=0; $cnr[0]<2; $cnr[0]++) {
+ for ($cnr[1]=0; $cnr[1]<2; $cnr[1]++) {
+ foreach my $cnrc (qw(0 1)) {
+ prf "newpath ";
+ prf "%s ", $cnr[$_] ? $paperpts[$_] : 0 foreach qw(0 1);
+ prf "moveto ";
+ prf "%s ", ($cnrc!=$_ ? 0 : $cnr[$_] ? -1 : +1) * $borders[$_]
+ foreach qw(0 1);
+ prf "rlineto stroke\n";
+ }
+ }
+ }
+ prf "grestore gsave\n";
+ prf "%s ", -$borders[$_] foreach qw(0 1);
+ prf "translate\n";
+ prf "90 rotate\n" if $lp_y->{rotate_paper};
+ prf "grestore\n";