Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (21 sloc) 0.727 kB
#!perl -w
use strict;
use Imager;
print "$0\n";
my @allfiles = (@ARGV) x 120;
my $srcdir = '.';
my %opts1 = (scalefactor=>.333334, qtype => 'mixing');
my %opts2 = (scalefactor=>.25, qtype => 'mixing');
my %exopts=();
for my $file (@allfiles) {
# print STDERR "reading $srcdir/$file\n";
my $img=Imager->new();
$img->read(file=>"$srcdir/$file") or die "error on \"$srcdir/$file\":
".$img->{ERRSTR}."\n";
# print STDERR "making med_res_imager/$file\n";
my $scale=$img->scale(%opts1) or die "error on scale: ".$img->{ERRSTR};
$scale->write(file=>"med_res_imager/$file",%exopts);
# print STDERR "making icon_imager/$file\n";
my $scale2=$scale->scale(%opts2);
$scale2->write(file=>"icon_imager/$file",%exopts);
}
Jump to Line
Something went wrong with that request. Please try again.