add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / bench / scale.sh.perl
1 #!perl -w
2 use strict;
3
4 print "$0\n";
5 my @allfiles = (@ARGV) x 120;
6 my $srcdir = '.';
7
8 for 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 }