projects
/
Printer-Zebra.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6624066f1a2f907a6b925b5dc590ed65043a2287
[Printer-Zebra.git]
/
svg-render.pl
1
#!/usr/bin/perl
2
use warnings;
3
use strict;
4
5
# 5166 px = 1000 dpi
6
7
my $w = 832;
8
9
my $density = $w / 5166 * 1000;
10
warn "# density = $density\n";
11
12
my $from = shift @ARGV || die "usage: $0 template.svg\n";
13
14
system "convert -density $density $from $from.pbm";
15
16