root/ImageMagick/trunk/PerlMagick/demo/button.pl

Revision 1, 335 bytes (checked in by cristy, 7 months ago)


Line 
1#!/usr/bin/perl
2#
3# Make simple beveled button.
4#
5use Image::Magick;
6
7$q=Image::Magick->new;
8$q->Set(size=>'30x106');
9$q->Read('gradient:#00f685-#0083f8');
10$q->Rotate(-90);
11$q->Raise('6x6');
12$q->Annotate(text=>'Push Me',font=>'Generic.ttf',fill=>'black',
13  gravity=>'Center',pointsize=>18);
14$q->Write('button.gif');
15$q->Write('win:');
Note: See TracBrowser for help on using the browser.