File manager - Edit - /usr/share/doc/ImageMagick-perl-6.9.10.68/demo/button.pl
Back
#!/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:');
| ver. 1.4 |
Github
|
.
| PHP 8.3.31 | Generation time: 0 |
proxy
|
phpinfo
|
Settings