PATH:
usr
/
share
/
doc
/
ImageMagick-perl-6.9.10.68
/
demo
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # # An example of applying many settings in preparation for image creation. # # Extracted from PerlMagick Discussion forums.. # Gravity center, caption and wrapped text # https://imagemagick.org/discourse-server/viewtopic.php?f=7&t=17282 # use strict; use warnings; use Image::Magick; my $im = new Image::Magick; my $e = $im->Set( background => 'none', fill => 'white', stroke => 'black', strokewidth => 2, Gravity => 'East', pointsize => 48, size => '200x300', ); die $e if $e; $e = $im->Read("caption:Lorem ipsum etc etc"); die $e if $e; $e = $im->Trim(); die $e if $e; $e = $im->Write('settings.png'); die $e if $e;
[-] steganography.pl
[edit]
[-] Turtle.pm
[edit]
[-] composite.pl
[edit]
[-] src.png
[edit]
[-] shadow-text.pl
[edit]
[-] model.gif
[edit]
[-] demo.pl
[edit]
[+]
..
[-] piddle.pl
[edit]
[-] README
[edit]
[-] shapes.pl
[edit]
[-] pink-flower.gif
[edit]
[-] yellow-flower.gif
[edit]
[-] dst.png
[edit]
[-] tree.pl
[edit]
[-] annotate.pl
[edit]
[-] compose-specials.pl
[edit]
[-] pixel-fx.pl
[edit]
[-] button.pl
[edit]
[-] tile.gif
[edit]
[-] single-pixels.pl
[edit]
[-] settings.pl
[edit]
[-] annotate_words.pl
[edit]
[-] Makefile
[edit]
[-] red-flower.gif
[edit]
[-] lsys.pl
[edit]
[-] smile.gif
[edit]