my ($tile_string_off) = @_;
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 "grestore gsave\n";
prf "%s ", $borders[$_] foreach qw(0 1);
prf "translate\n";
if ($lp_y->{rotate_paper}) {
}
}
}
- prf "grestore\n";
}
sub write_output () {