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:'); 16
