[imager.git] / transbench.perl

#!perl -w
use Imager;
use Benchmark;

$img = Imager->new();
$img->open(file=>'testimg/penguin-base.jpg', type=>'jpeg')
	|| die "Cannot open penguin-base.jpg";

timethese(-10,
	{ old=><<'EOS',
$im2 = $img->transform(xexpr=>'x', yexpr=>'y+10*sin((x+y)/10)');
EOS
	new=><<'EOS'
$im2 = Imager::transform2({rpnexpr=>'x y 10 x y + 10 / sin * + getp1'}, $img);
EOS
}
);
timethese(-10,
	{ old=><<'EOS',
$im2 = $img->transform(xexpr=>'x', yexpr=>'y+(x+y)/10');
EOS
	new=><<'EOS'
$im2 = Imager::transform2({rpnexpr=>'x y x y + 10 / + getp1'}, $img);
EOS
}
);
Commit	Line	Data
02d1d628 AMH	1	#!perl -w
	2	use Imager;
	3	use Benchmark;
	4
	5	$img = Imager->new();
	6	$img->open(file=>'testimg/penguin-base.jpg', type=>'jpeg')
	7	\|\| die "Cannot open penguin-base.jpg";
	8
	9	timethese(-10,
	10	{ old=><<'EOS',
	11	$im2 = $img->transform(xexpr=>'x', yexpr=>'y+10*sin((x+y)/10)');
	12	EOS
	13	new=><<'EOS'
	14	$im2 = Imager::transform2({rpnexpr=>'x y 10 x y + 10 / sin * + getp1'}, $img);
	15	EOS
	16	}
	17	);
	18	timethese(-10,
	19	{ old=><<'EOS',
	20	$im2 = $img->transform(xexpr=>'x', yexpr=>'y+(x+y)/10');
	21	EOS
	22	new=><<'EOS'
	23	$im2 = Imager::transform2({rpnexpr=>'x y x y + 10 / + getp1'}, $img);
	24	EOS
	25	}
	26	);
	27