- Add ImageMagick 6.8.3-1 sources
This commit is contained in:
parent
b8db71063c
commit
615ec83706
3424 changed files with 1398702 additions and 0 deletions
15
ImageMagick-6.8.3-1/PerlMagick/demo/shadow-text.pl
Normal file
15
ImageMagick-6.8.3-1/PerlMagick/demo/shadow-text.pl
Normal file
|
@ -0,0 +1,15 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Make simple text with a shadow.
|
||||
#
|
||||
use Image::Magick;
|
||||
|
||||
$image=Image::Magick->new(size=>'500x120');
|
||||
$image->Read('xc:white');
|
||||
$image->Annotate(font=>'Generic.ttf',fill=>'rgba(100,100,100,0.8)',
|
||||
pointsize=>60, text=>'Works like magick!',geometry=>'+30+90');
|
||||
$image->Blur('0x1');
|
||||
$image->Annotate(font=>'Generic.ttf',fill=>'red',stroke=>'blue',pointsize=>60,
|
||||
text=>'Works like magick!',geometry=>'+26+86');
|
||||
$image->Write('shadow.gif');
|
||||
$image->Write('win:');
|
Loading…
Add table
Add a link
Reference in a new issue