[imager.git] / bench / scalebench

#!/bin/sh
mkdir med_res_imager
mkdir icon_imager
mkdir med_res_pnm
mkdir icon_pnm
if perl -Mblib -MImager -e '$im = Imager->new()->read(file=>"kscdisplay.png")->convert(preset=>"noalpha")->write(file=>"kscdisplay.jpg") or die' ; then
  time perl -Mblib=.. scale.perl kscdisplay.jpg
  time perl scale.sh.perl kscdisplay.jpg
fi
Commit	Line	Data
47344604 TC	1	#!/bin/sh
	2	mkdir med_res_imager
	3	mkdir icon_imager
	4	mkdir med_res_pnm
	5	mkdir icon_pnm
d18c80f5 TC	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