(no commit message)

diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index adc33f4fc1eab6806c7183744e9f1a7f35978420..40f698020b63d50445c5d648af5bfd53d42ba9e8 100644 (file)
--- 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');