/usr/share/doc/ImageMagick-perl/demo/
/usr/share/doc/ImageMagick-perl/demo
NameSizeModeActions
annotate.pl15890644editdlrm
annotate_words.pl19670644editdlrm
button.pl3590644editdlrm
compose-specials.pl54730644editdlrm
composite.pl15250644editdlrm
demo.pl120970644editdlrm
lsys.pl23360644editdlrm
Makefile3600644editdlrm
model.gif234330644editdlrm
piddle.pl19080644editdlrm
pink-flower.gif5440644editdlrm
pixel-fx.pl15450644editdlrm
README1240644editdlrm
red-flower.gif6940644editdlrm
settings.pl6970644editdlrm
shadow-text.pl5050644editdlrm
shapes.pl12400644editdlrm
single-pixels.pl11290644editdlrm
smile.gif13490644editdlrm
steganography.pl6640644editdlrm
tile.gif15660644editdlrm
tree.pl7440644editdlrm
Turtle.pm8680644editdlrm
yellow-flower.gif5650644editdlrm
Edit: /usr/share/doc/ImageMagick-perl/demo/button.pl (359B)
#!/usr/bin/perl # # 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(font=>'Generic.ttf',text=>'Push Me',fill=>'black', gravity=>'Center',pointsize=>18); $q->Write('button.pam'); $q->Write(magick=>'SHOW',title=>"Button");