...

diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index 425acf7711520117b5411f33de4ab9d5081c3de5..6c204f65cbbc045ef9db5597c16557ecf3a2723b 100644 (file)
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -79,6 +79,12 @@ $example->Label('Auto Level');
 $example->AutoLevel();
 push(@$images,$example);
 
+print "Auto-threshold...\n";
+$example=$model->Clone();
+$example->Label('Auto Threshold');
+$example->AutoThreshold();
+push(@$images,$example);
+
 print "Blur...\n";
 $example=$model->Clone();
 $example->Label('Blur');