From: Arnar Mar Hrafnkelsson <addi@cpan.org>
Date: Fri, 18 May 2001 07:52:30 +0000 (+0000)
Subject: Removed bench/* from MANIFEST (but not CVS).  Also moved transbench.perl
X-Git-Tag: Imager-0.48^2~622
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/0b0ac1cc879d6088e78a3f3af7d024d940a78bbd?ds=sidebyside

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

diff --git a/MANIFEST b/MANIFEST
index 93fda1cf..77a591e3 100644
--- 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
index 00000000..08d6cf7f
--- /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
index 08d6cf7f..00000000
--- 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
-}
-);
-