Removed bench/* from MANIFEST (but not CVS). Also moved transbench.perl

into bench subdirectory.

diff --git a/MANIFEST b/MANIFEST
index 93fda1cf0e4a5fb202028c0de58e304d06a35daf..77a591e396cac4c5488ee8c74a48cb2c240370e7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -97,7 +97,6 @@ doco.perl
 errep.perl
 regops.perl
 spot.perl      For making an ordered dither matrix from a spot function
 errep.perl
 regops.perl
 spot.perl      For making an ordered dither matrix from a spot function

-transbench.perl

 transform.perl Shell interface to Imager::Transform
 bigtest.perl   Library selection tester
 dynfilt/pluginst.h
 transform.perl Shell interface to Imager::Transform
 bigtest.perl   Library selection tester
 dynfilt/pluginst.h


@@ -107,8 +106,3 @@ dynfilt/mandelbrot.c
 dynfilt/flines.c
 dynfilt/compile.txt
 dynfilt/Makefile.PL
 dynfilt/flines.c
 dynfilt/compile.txt
 dynfilt/Makefile.PL

-bench/quantone.perl    One round of benchmarking image quantization.
-bench/quantbench.perl  Benchmark various quantization methods
-bench/makegrad.perl    Builds regular images for quantization.
-bench/kscdisplay.png   Photo test for quantization.
-bench/benchform.perl   Formats the benchmark results

diff --git a/bench/transbench.perl b/bench/transbench.perl
new file mode 100644 (file)
index 0000000..08d6cf7
--- /dev/null
+++ b/bench/transbench.perl
@@ -0,0 +1,27 @@
+#!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
+}
+);
+

diff --git a/transbench.perl b/transbench.perl
deleted file mode 100644 (file)
index 08d6cf7..0000000
--- a/transbench.perl
+++ /dev/null
@@ -1,27 +0,0 @@
-#!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
-}
-);
-