(no commit message)

diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
index b0be4dbea04751b33d515ff37e4ef426dc719656..76671b010d226fb0c077113242ac1195b096e200 100644 (file)
--- a/PerlMagick/demo/demo.pl
+++ b/PerlMagick/demo/demo.pl
@@ -113,6 +113,7 @@ print "Composite...\n";
 $example=$model->Clone();
 $example->Label('Composite');
 $example->Composite(image=>$smile,compose=>'over',geometry=>'+35+65');
+$example->Clamp();
 push(@$images,$example);
 
 print "Contrast...\n";
@@ -249,6 +250,7 @@ print "Level...\n";
 $example=$model->Clone();
 $example->Label('Level');
 $example->Level('20%x');
+$example->Clamp();
 push(@$images,$example);
 
 print "Median Filter...\n";