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