git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr/macos: describe exceptions in nl language variant
[sheet.git]
/
Shiar_Sheet
/
ImagePrep.pm
diff --git
a/Shiar_Sheet/ImagePrep.pm
b/Shiar_Sheet/ImagePrep.pm
index 04a4270f5ac20cb87ce2be362bbfdd8d81bf3473..328cb4f361b3bd69387cf7fe80edd45ffd639eed 100644
(file)
--- a/
Shiar_Sheet/ImagePrep.pm
+++ b/
Shiar_Sheet/ImagePrep.pm
@@
-4,7
+4,7
@@
use 5.020;
use warnings;
use experimental 'signatures';
use warnings;
use experimental 'signatures';
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
sub new ($class, $target) {
bless \$target, $class;
sub new ($class, $target) {
bless \$target, $class;
@@
-43,7
+43,7
@@
sub generate ($imgpath, $thumbpath, $opt) {
);
}
);
}
-sub convert ($imgpath, $thumbpath, $cmds, $xyres) {
+sub convert ($imgpath, $thumbpath, $cmds, $xyres
= 0
) {
#my ($w, $h) = $imgpath->dimensions;
#my $aspect = 3/2; # $xyres
my @cmds = @{$cmds};
#my ($w, $h) = $imgpath->dimensions;
#my $aspect = 3/2; # $xyres
my @cmds = @{$cmds};
@@
-72,7
+72,7
@@
sub convert ($imgpath, $thumbpath, $cmds, $xyres) {
'-strip', -quality => '60%', -interlace => 'plane',
-gravity => defined $cmds ? 'northwest' : 'center',
@cmds,
'-strip', -quality => '60%', -interlace => 'plane',
-gravity => defined $cmds ? 'northwest' : 'center',
@cmds,
-
-resize => "$xyres^", -extent => $xyres
,
+
$xyres ? (-resize => "$xyres^", -extent => $xyres) : ()
,
$thumbpath
);
$thumbpath
);