projects
/
Printer-EVOLIS.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix rendering size
[Printer-EVOLIS.git]
/
scripts
/
inkscape-render.pl
diff --git
a/scripts/inkscape-render.pl
b/scripts/inkscape-render.pl
index
8733a56
..
3745678
100755
(executable)
--- a/
scripts/inkscape-render.pl
+++ b/
scripts/inkscape-render.pl
@@
-8,6
+8,8
@@
die "unsage: $0 card/template.svg 201008159999 login Ime Prezime\n" unless @ARGV
my ($card_svg,$nr,$login,$ime,$prezime) = @ARGV;
my ($card_svg,$nr,$login,$ime,$prezime) = @ARGV;
+my $png = $ENV{PNG} || 0;
+
warn "# svg: $card_svg nr: $nr $ime $prezime\n";
my $mapping = {
warn "# svg: $card_svg nr: $nr $ime $prezime\n";
my $mapping = {
@@
-56,14
+58,14
@@
sub inkscape_export {
$part =~ s/print-//; # FIXME change svg files
print $inkscape "$shell --export-pdf $out.$part.pdf\n";
$part =~ s/print-//; # FIXME change svg files
print $inkscape "$shell --export-pdf $out.$part.pdf\n";
- print $inkscape "$shell --export-png $out.$part.png --export-dpi 150\n";
+ print $inkscape "$shell --export-png $out.$part.png --export-dpi 150\n"
if $png
;
}
inkscape_export 'print-front';
inkscape_export 'print-back';
# export visible
}
inkscape_export 'print-front';
inkscape_export 'print-back';
# export visible
-print $inkscape "$out.svg --export-png $out.png --export-dpi 300\n";
+print $inkscape "$out.svg --export-png $out.png --export-dpi 300\n"
if $png
;
close($inkscape);
close($inkscape);
@@
-71,10
+73,10
@@
foreach my $pdf ( glob "$out*.pdf" ) {
my $pbm = $pdf;
$pbm =~ s/pdf$/pbm/;
warn "# rendering $pdf => $pbm using ghostscript\n";
my $pbm = $pdf;
$pbm =~ s/pdf$/pbm/;
warn "# rendering $pdf => $pbm using ghostscript\n";
- system "gs -dNOPAUSE -dBATCH -q -r300x300 -dDEVICEWIDTHPOINTS=243 -dDEVICEHEIGHTPOINTS=155 -sDEVICE=pbmraw -sOutputFile=$pbm -f $pdf";
+ system "gs -dNOPAUSE -dBATCH -q -r300x300 -dDEVICEWIDTHPOINTS=243 -dDEVICEHEIGHTPOINTS=155 -
dPDFFitPage -
sDEVICE=pbmraw -sOutputFile=$pbm -f $pdf";
}
}
-system "pdftk $out.front.pdf $out.back.pdf cat output $out.duplex.pdf";
+system "pdftk $out.front.pdf $out.back.pdf cat output $out.duplex.pdf"
if $ENV{DUPLEX}
;
__END__
__END__