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:'); 16
