| cristy | 3ed852e | 2009-09-05 21:47:34 +0000 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | # |
| 3 | # Make simple text with a shadow. |
| 4 | # |
| 5 | use Image::Magick; |
| 6 | |
| 7 | $image=Image::Magick->new(size=>'500x120'); |
| 8 | $image->Read('xc:white'); |
| 9 | $image->Annotate(font=>'Generic.ttf',fill=>'rgba(100,100,100,0.8)', |
| 10 | pointsize=>60, text=>'Works like magick!',geometry=>'+30+90'); |
| 11 | $image->Blur('0x1'); |
| 12 | $image->Annotate(font=>'Generic.ttf',fill=>'red',stroke=>'blue',pointsize=>60, |
| 13 | text=>'Works like magick!',geometry=>'+26+86'); |
| 14 | $image->Write('shadow.gif'); |
| 15 | $image->Write('win:'); |