X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=blobdiff_plain;f=svg-render.pl;h=6eeb4f9b69c64c3faa7710986d4af25ded60c4a4;hp=e73ae0e4d94c119f9509c69b16396e49e248484f;hb=d2e9320e3ab2e4028557a42a3bddca31b89c22e1;hpb=5cbd12f3fb5fe5f264051495f0eb7adc1b049433

diff --git a/svg-render.pl b/svg-render.pl
index e73ae0e..6eeb4f9 100755
--- a/svg-render.pl
+++ b/svg-render.pl
@@ -12,18 +12,15 @@ my $w = 832;
 my $density = $w / 5166 * 1000;
 warn "# density = $density\n";
 
+my $args = join(' ', @ARGV);
+die "usage: $0 1301272944 callnumber\n" unless $args;
 
-my $barcode = shift @ARGV || die "usage: $0 1301272944 callnumber\n";
-
-my $call1 = shift @ARGV;
-my $call2 = shift @ARGV;
-my $call3 = shift @ARGV;
-my $call4 = join(' ', @ARGV);
+my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $args, 5);
 
 my $pbm = "/tmp/$barcode.pbm";
 
 open(my $from, '<',  "templates/$size.svg");
-open(my $to,   '|-', "convert -density $density - $pbm");
+open(my $to,   '|-', "convert -units PixelsPerInch -density $density - $pbm");
 while(<$from>) {
 	s/1301272944/$barcode/gs && warn "# barcode $barcode\n";
 	s/##call1##/$call1/gs    && warn "# 1: $call1\n";