diff options
-rwxr-xr-x | sheetprint | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -56,13 +56,14 @@ for ( my $i = 1; $i < 210; $i++) { } } +my $skip = 2; my $x = mm2dots(25); -my $y = mm2dots(30); +my $y = mm2dots(32) + $skip * mm2dots(25); for my $filename ( `ls label-??????????.png` ) { my $label = GD::Image->newFromPng($filename); $a4->copy($label, $x, $y, 0, 0, $label->width(), $label->height()); - $y += mm2dots(30); + $y += mm2dots(25); } open(PNGFILE, ">a4.png"); |