15 lines
335 B
Perl
15 lines
335 B
Perl
#!/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:');
|