[magick-users] Perlmagick question (UNCLASSIFIED)

[Ron Savage]

Konkle, Daniel T AMRDEC/Dynetics wrote:

Hi Dan

> after 
> $image = Image::Magick->new()
> what can I do to put that data into '$image' so that I can use
> ImageMagick to manipulate it?

Tested code:
-----><8-----
#!/usr/bin/perl

use strict;
use warnings;

use Image::Magick;

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

my($image)	= Image::Magick -> new(size => '200 x 100');
my($result)	= $image -> Read('gradient:white-blue');

die $result if ($result);

$result = $image -> Write('image_1.png');

die $result if ($result);

undef $image;

$image	= Image::Magick -> new(size => '200 x 100');
$result	= $image -> Read('gradient:#20a0ff-#ffff00');

die $result if ($result);

$result = $image -> Write('image_2.png');

die $result if ($result);

undef $image;

$image	= Image::Magick -> new(size => '200 x 100');
$result	= $image -> Read('granite:');

die $result if ($result);

$result = $image -> Write('image_3.png');

die $result if ($result);

undef $image;

$image	= Image::Magick -> new(size => '200 x 100');
$result	= $image -> Read('netscape:');

die $result if ($result);

$result = $image -> Write('image_4.png');

die $result if ($result);
-----><8-----

-- 
Ron Savage
ron at savage.net.au
http://savage.net.au/