From e9f9ccef2b103fda9e8e453fd13aaa955d064f5b Mon Sep 17 00:00:00 2001 From: anthony Date: Mon, 1 Nov 2010 04:46:33 +0000 Subject: [PATCH] Added a settings example for perlmagick --- PerlMagick/demo/settings.pl | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 PerlMagick/demo/settings.pl diff --git a/PerlMagick/demo/settings.pl b/PerlMagick/demo/settings.pl new file mode 100755 index 000000000..408cc71ee --- /dev/null +++ b/PerlMagick/demo/settings.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl +# +# An example of applying many settings in preparation for image creation. +# +# Extracted from PerlMagick Discussion forums.. +# Gravity center, caption and wrapped text +# http://www.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; -- 2.50.1