Removed bench/* from MANIFEST (but not CVS). Also moved transbench.perl
authorArnar Mar Hrafnkelsson <addi@cpan.org>
Fri, 18 May 2001 07:52:30 +0000 (07:52 +0000)
committerArnar Mar Hrafnkelsson <addi@cpan.org>
Fri, 18 May 2001 07:52:30 +0000 (07:52 +0000)
into bench subdirectory.

MANIFEST
bench/transbench.perl [new file with mode: 0644]
transbench.perl [deleted file]

index 93fda1c..77a591e 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
-transbench.perl
 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
-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
@@ -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
+++ /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
-}
-);
-