Legacy ImageMagick Discussions Archive

Hi,

I'm just starting out with perlmagick and am having
some trouble getting it to display colors.

I was expecting this to show a black image with a
gradient line of blue pixels through the middle.
Can anyone please help me spot the error and
suggest a more efficient way to access colors as RGB values?

Code: Select all

#!/usr/bin/perl -w
use Image::Magick;

# Create a new image
my $image = new Image::Magick;
$image->Set(size => '600x600');
my $status = $image->Read(filename => 'xc:black');
warn "$status" if $status;

for($i=0;$i<255;$i++)
{
      $name = $image->QueryColorname('rgba(255,255,' . $i . ',0)');      
      $image->Set('pixel[' . $i . ',300]'=>$name);                                 
}   

$image->Write('jpeg:out.jpg');
undef $image;

The best get-me-started page I have found so far is:
http://www.imagemagick.org/script/perl-magick.php
Is there something else like this for the beginner that
goes into more detail?

Many Thanks,
Adrian.

It looks like PerlMagick recognizes color names but not of the form rgba(). We will get a patch for the problem into the next point release. This is a work around for now:

Code: Select all

for($i=0;$i<255;$i++)
{
      $image->Set('pixel[' . $i . ',300]'=>'65535,65535,' . (257*$i));
}

Legacy ImageMagick Discussions Archive

question about colors

question about colors

Re: question about colors