From: anthony <anthony@git.imagemagick.org>
Date: Mon, 1 Nov 2010 04:46:33 +0000 (+0000)
Subject: Added a settings example for perlmagick
X-Git-Tag: 7.0.1-0~8586
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=e9f9ccef2b103fda9e8e453fd13aaa955d064f5b;p=imagemagick

Added a settings example for perlmagick
---

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;