view release on metacpan or  search on metacpan

scripts/test.image.magick.pl  view on Meta::CPAN

#!/usr/bin/env perl
#
# I'm using V 6.9.3.
# See http://savage.net.au/ImageMagick/html/Installation.html.

use strict;
use warnings;

use Image::Magick;

# ----------------

my($out_file_name)	= shift || die "Usage: $0 output_file_name \n";
my($font_file)		= '/usr/share/fonts/truetype/freefont/FreeMono.ttf';
my($font_size)		= 16;
my($frame_color)	= 'purple';
my($title)			= 'The diversity of hesperornithiforms. From Bell and Chiappe, 2015';
my($maximum_x)		= 1000;
my($maximum_y)		= 100;

# Warning:
# o new(geometry => "${maximum_x}x$maximum_y") does not work.
# o new(width => $maximum_x, height => $maximum_y) does not work.
# o new() and Set(geometry => "${maximum_x}x$maximum_y") does not work.
# o new() and Set (width => $maximum_x, height => $maximum_y) does not work.
# But:
# o new(size => "${maximum_x}x$maximum_y") does work.
# o new() and Set(size => "${maximum_x}x$maximum_y") does work.

my($image) = Image::Magick -> new(size => "$maximum_x x $maximum_y");

print "Created image of size ($maximum_x, $maximum_y). \n";

my(@formats) = $image -> QueryFormat;

print "Image formats supported (Count: @{[$#formats + 1]}): \n", join("\n", @formats), ". \n";

# Warning:
# The following line is mandatory before the code below will work.
# Of course, the color does not have to be white.
# Without this line, the image has a size of (0, 0) or, perhaps, (1, 1).

my($result) = $image -> Read('canvas:white');

die $result if $result;

# Try Draw instead of Border. The problem will the latter is that
# it adds the border to the outsize of the image, changing its size.

#$result = $image -> Border(geometry => '2x2', fill => 'purple');

my(@x) = (0, ($maximum_x - 1), ($maximum_x - 1), 0);
my(@y) = (0, 0, ($maximum_y - 1), ($maximum_y - 1) );

$result = $image -> Draw
			(
				fill		=> 'none',
				points		=> "$x[0],$y[0] $x[1],$y[1] $x[2],$y[2] $x[3],$y[3] $x[0],$y[0]",
				primitive	=> 'polyline',
				stroke		=> $frame_color,
				strokewidth	=> 2,
			);

die $result if $result;

# Put a rectangle across the middle.

@x = (100, ($maximum_x - 100) );
@y = (30, 40);

$result = $image -> Draw
			(
				fill		=> 'green',
				method		=> 'replace',
				points		=> "$x[0],$y[0] $x[1],$y[1]",
				primitive	=> 'rectangle',
			);

die $result if $result;

# Put tic marks down the left of that rectangle.

@x = (90, 91);

for (my $y = 0; $y <= $maximum_y; $y += 10)
{
	@y = ($y, $y + 1);

	$result = $image -> Draw
				(