1#!/usr/bin/perl
2#
3# An example of applying many settings in preparation for image creation.
4#
5# Extracted from PerlMagick Discussion forums..
6# Gravity center, caption and wrapped text
7#   http://www.imagemagick.org/discourse-server/viewtopic.php?f=7&t=17282
8#
9use strict;
10use warnings;
11use Image::Magick;
12
13my $im = new Image::Magick;
14my $e = $im->Set(
15        background => 'none',
16        fill => 'white',
17        stroke => 'black',
18        strokewidth => 2,
19        Gravity => 'East',
20        pointsize => 48,
21        size => '200x300',
22);
23die $e if $e;
24
25$e = $im->Read("caption:Lorem ipsum etc etc");
26die $e if $e;
27
28$e = $im->Trim();
29die $e if $e;
30
31$e = $im->Write('settings.png');
32die $e if $e;
33