projects
/
Printer-EVOLIS.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f40aad6
)
update for new inkscape --actions
master
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 17 Jun 2020 08:58:08 +0000
(10:58 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 17 Jun 2020 08:58:08 +0000
(10:58 +0200)
scripts/inkscape-render.pl
patch
|
blob
|
history
diff --git
a/scripts/inkscape-render.pl
b/scripts/inkscape-render.pl
index
3745678
..
4184719
100755
(executable)
--- a/
scripts/inkscape-render.pl
+++ b/
scripts/inkscape-render.pl
@@
-48,26
+48,23
@@
while(<$svg_template>) {
close($svg_template);
close($svg);
close($svg_template);
close($svg);
-open(my $inkscape, '|-', 'inkscape --shell --without-gui');
-
sub inkscape_export {
my $part = shift;
sub inkscape_export {
my $part = shift;
- my $
shell = "$out.svg --export-area-page --export-id $part
";
+ my $
actions = "file-open:$out.svg ; export-area-page ; export-id:$part ;
";
$part =~ s/print-//; # FIXME change svg files
$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
" if $png;
+
system qq{inkscape --actions="$actions ; export-type:pdf ; export-filename:$out.$part.pdf ; export-do ;"}
;
+
# print $inkscape "$actions ; export-type:png ; export-filename:$out.$part.png ; export-dpi 150 ; export-do ;
" 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" if $png;
+
#
print $inkscape "$out.svg --export-png $out.png --export-dpi 300\n" if $png;
-close($inkscape);
foreach my $pdf ( glob "$out*.pdf" ) {
my $pbm = $pdf;
foreach my $pdf ( glob "$out*.pdf" ) {
my $pbm = $pdf;