push @ffs, my $ff = [$_];
my $r = $opt{$_};
push @{$ff}, -quality => $1 if $r =~ s/@(\d+)//;
- push @{$ff}, -resize => "$r^", -extent => $r;
+ push @{$ff}, -resize => !/\dx\d+$/ ? $_ : ("$_^", -extent => $_)
+ for split / /, $r;
}
+my $target = '..';
+$target = pop @ARGV if @ARGV >= 2 and -d $ARGV[-1];
+
my $failcount = 0;
for my $src (@ARGV) {
for (@ffs) {
my ($ff, @ffcmds) = @{$_};
print " $ff";
- $image->convert("../$name.$ff", [@cmds, @ffcmds]);
+ $image->convert("$target/$name.$ff", [@cmds, @ffcmds]);
}
1;
} or do {