add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / bench / scale.sh.perl
CommitLineData
47344604
TC
1#!perl -w
2use strict;
3
4print "$0\n";
5my @allfiles = (@ARGV) x 120;
6my $srcdir = '.';
7
8for my $file (@allfiles) {
9 # print STDERR "djpeg $srcdir/$file | pnmscale 0.33334 | cjpeg >med_res_pnm/$file\n";
10 system("djpeg $srcdir/$file | pnmscale 0.33334 | cjpeg > med_res_pnm/$file");
11 # print STDERR "djpeg med_res_pnm/$file | pnmscale 0.25 | cjpeg -quality 60 >icon_pnm/$file\n";
12 system("djpeg med_res_pnm/$file | pnmscale 0.25 | cjpeg -quality 60 >icon_pnm/$file");
13}