| cristy | 3ed852e | 2009-09-05 21:47:34 +0000 | [diff] [blame^] | 1 | #!/usr/bin/perl |
| 2 | # | ||||
| 3 | # Make simple beveled button. | ||||
| 4 | # | ||||
| 5 | use 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:'); | ||||