]> granicus.if.org Git - imagemagick/commitdiff
(no commit message)
authorcristy <urban-warrior@git.imagemagick.org>
Mon, 6 Feb 2012 17:07:50 +0000 (17:07 +0000)
committercristy <urban-warrior@git.imagemagick.org>
Mon, 6 Feb 2012 17:07:50 +0000 (17:07 +0000)
PerlMagick/demo/compose_specials.pl

index 325ca53fc2c952e4c10714eaa67f0679368d4fe4..c98fac9be9e555dc6e40b1a26f766ce6a1f142ee 100755 (executable)
@@ -37,9 +37,9 @@ my $offset="+10+10";
 
 # Circle Mask Image (same size as Destination)
 my $circle=Image::Magick->new();
-$circle->Set(size=>'100x100');
+$circle->Set(size=>'80x80');
 $circle->Read('xc:black');
-$circle->Draw(fill=>'white',primitive=>'circle',points=>'49.5,49.5 10,49.5');
+$circle->Draw(fill=>'white',primitive=>'circle',points=>'39.5,39.5 10,39.5');
 
 my $texture=Image::Magick->new();
 $texture->Read('pattern:checkerboard');