view release on metacpan or  search on metacpan

examples/draw-lab-colorspace.pl  view on Meta::CPAN

#!/usr/bin/perl

# draw a RGB gamut in Lab space (uses Adobe RGB)

$space = $ARGV[0] || 'Adobe';

use Graphics::ColorObject;
use Image::Magick;

$img = Image::Magick->new;
($w, $h, $z) = (200, 200, 10);
$img->Set(size=>$w .'x'. $h);
$img->ReadImage('xc:black');

my ($r, $g, $b);
my ($hx, $hx_old);

foreach my $x (0..$w-1)
{
	foreach my $y (0..$h-1)