# Rotpunkte mit verschiedener Intensität
$image = Image::Magick -> new;
$image -> Set(size => '10x10');
$image -> ReadImage ('canvas:red');

%myRGB = ();
# Intesität setzen
$myRGB{'0,0'} = 1;
$myRGB{'5,5'} = .2;
$myRGB{'3,2'} = .5;
$myRGB{'4,8'} = .7;

for my $x (0..$width-1) {
	for my $y (0..$height-1) {
		if (exists $myRGB{"$x,$y"}) {	
			$image -> SetPixel ( 
				x=>$x, y=>$y, 
				# setze Intensität für Rot
				color => [ $myRGB{"$x,$y"}, 0, 0 ]
			);
		}
	}
}
$image -> Write ('test2.png');