bench/scalebench

   1 #!/bin/sh
   2 mkdir med_res_imager
   3 mkdir icon_imager
   4 mkdir med_res_pnm
   5 mkdir icon_pnm
   6 if perl -Mblib -MImager -e '$im = Imager->new()->read(file=>"kscdisplay.png")->convert(preset=>"noalpha")->write(file=>"kscdisplay.jpg") or die' ; then
   7   time perl -Mblib=.. scale.perl kscdisplay.jpg
   8   time perl scale.sh.perl kscdisplay.jpg
   9 fi