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
[EMAIL PROTECTED]
http://savage.net.au/
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
