From: cristy <urban-warrior@git.imagemagick.org>
Date: Sat, 3 Apr 2010 02:14:20 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~9700
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8f1dc514e849e344a6882ba81704c9acc93b71d1;p=imagemagick

---

diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index adc33f4fc..40f698020 100644
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -103,6 +103,12 @@ $example->Label('Charcoal');
 $example->Charcoal('0x1');
 push(@$images,$example);
 
+print "ColorMatrix...\n";
+$example=$model->Clone();
+$example->Label('ColorMatrix');
+$example->ColorMatrix([1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0.5, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1]);
+push(@$images,$example);
+
 print "Composite...\n";
 $example=$model->Clone();
 $example->Label('Composite');
@@ -319,12 +325,6 @@ $example->Label('Raise');
 $example->Raise('10x10');
 push(@$images,$example);
 
-print "Recolor...\n";
-$example=$model->Clone();
-$example->Label('Recolor');
-$example->Recolor([1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0.5, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1]);
-push(@$images,$example);
-
 print "Reduce Noise...\n";
 $example=$model->Clone();
 $example->Label('Reduce Noise');