X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=render.pl;h=df7c73e78fd1b970055eb5b3154b6db2829fd5f3;hb=c7d649ae912f8f2d339bc3448f9d1199cc65c296;hp=df021545896b78f33b1318f3ad84b328ba17103e;hpb=afde56934798cc02274d28cea0619d44892b94e9;p=Printer-EVOLIS.git

diff --git a/render.pl b/render.pl
index df02154..df7c73e 100755
--- a/render.pl
+++ b/render.pl
@@ -20,8 +20,14 @@ sub mapping { $mapping->{ $_[0] } }
 
 my $re = join('|', keys %$mapping);
 
+mkdir 'out' unless -d 'out';
 my $out = 'out/' . $nr;
 
+foreach my $existing ( glob $out . '*' ) {
+	warn "# remove $existing ", -s $existing, " bytes\n";
+	unlink $existing;
+}
+
 open(my $in,     '<', 'template.svg');
 open(my $print,  '>', "$out.print.svg");
 open(my $screen, '>', "$out.screen.svg");
@@ -50,10 +56,19 @@ close($in);
 close($print);
 close($screen);
 
-system "inkscape --file $out.print.svg  --export-pdf $out.pdf";
-system "inkscape --file $out.screen.svg --export-png $out.png --export-dpi 180";
+#system "inkscape --file $out.print.svg  --export-pdf $out.pdf";
+
+system "inkscape --file $out.print.svg --export-area-page --export-pdf $out.print-front.pdf --export-id print-front";
+system "inkscape --file $out.print.svg --export-area-page --export-pdf $out.print-back.pdf --export-id print-back";
+system "pdftk  $out.print-front.pdf $out.print-back.pdf cat output $out.print-duplex.pdf";
+
+#system "inkscape --file $out.screen.svg --export-png $out.png --export-dpi 180";
+
+#system "inkscape --file $out.screen.svg --export-png $out.300.png --export-dpi 300";
+
+system "inkscape --file $out.print.svg --export-area-page --export-png $out.print-front.png --export-dpi 150 --export-id print-front --export-id-only";
+system "inkscape --file $out.print.svg --export-area-page --export-png $out.print-back.png --export-dpi 150 --export-id print-back --export-id-only";
 
-system "inkscape --file $out.screen.svg --export-png $out.300.png --export-dpi 300";
 
 #system "qiv $out.png";
 #system "xpdf $out.pdf";