repeat previous line : is now supported
[Printer-Zebra.git] / svg-render.pl
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use autodie;
5
6 # 5166 px = 1000 dpi
7
8 my $size = $ENV{SIZE} || '105x40';
9
10 my $w = 832;
11
12 my $density = $w / 5166 * 1000;
13 warn "# density = $density\n";
14
15 my $args = join(' ', @ARGV);
16 die "usage: $0 1301272944 callnumber\n" unless $args;
17
18 my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $args, 5);
19
20 my $pbm = "/tmp/$barcode.pbm";
21
22 open(my $from, '<',  "templates/$size.svg");
23 open(my $to,   '|-', "convert -units PixelsPerInch -density $density - $pbm");
24 while(<$from>) {
25         s/1301272944/$barcode/gs && warn "# barcode $barcode\n";
26         s/##call1##/$call1/gs    && warn "# 1: $call1\n";
27         s/##call2##/$call2/gs    && warn "# 2: $call2\n";
28         s/##call3##/$call3/gs    && warn "# 3: $call3\n";
29         s/##call4##/$call4/gs    && warn "# 4: $call4\n";
30
31         print $to $_;
32 }
33 close($from);
34 close($to);
35
36 warn "$pbm ", -s $pbm, " bytes\n";
37
38