granicus.if.org Git - imagemagick/blob - PerlMagick/demo/button.pl

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