- Modifications to compile ImageMagick
This commit is contained in:
parent
615ec83706
commit
83522c16c3
3442 changed files with 57 additions and 412926 deletions
15
ImageMagick/PerlMagick/demo/button.pl
Normal file
15
ImageMagick/PerlMagick/demo/button.pl
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Make simple beveled button.
|
||||
#
|
||||
use Image::Magick;
|
||||
|
||||
$q=Image::Magick->new;
|
||||
$q->Set(size=>'30x106');
|
||||
$q->Read('gradient:#00f685-#0083f8');
|
||||
$q->Rotate(-90);
|
||||
$q->Raise('6x6');
|
||||
$q->Annotate(text=>'Push Me',font=>'Generic.ttf',fill=>'black',
|
||||
gravity=>'Center',pointsize=>18);
|
||||
$q->Write('button.gif');
|
||||
$q->Write('win:');
|
||||
Loading…
Add table
Add a link
Reference in a new issue