Disable Functions: Path : /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/ |
Current File : //usr/share/doc/ImageMagick-perl-6.9.10.68/demo/button.pl |
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # 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',fill=>'black',gravity=>'Center',pointsize=>18); $q->Write('button.gif'); $q->Write('win:');