(no commit message)

diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index 17d95a381c1adffae84c635d3f6d10dfd755d2cc..62c6b12259ba039474444e89016a5d23bfb73d15 100644 (file)
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -253,6 +253,12 @@ $example->Level('20%x');
 $example->Clamp();
 push(@$images,$example);
 
+print "Linear stretch...\n";
+$example=$model->Clone();
+$example->Label('Linear Stretch');
+$example->LinearStretch('5x5');
+push(@$images,$example);
+
 print "Median Filter...\n";
 $example=$model->Clone();
 $example->Label('Median Filter');