Re^4: Using Imager getpixel

[Anonymous Monk]

my $image_file = "a.bmp";

my $img = Imager->new(file => $image_file) or die Imager->errstr;

 my @color = 0;
 
 $szerokosc =  $img->getwidth();
$wysokosc = $img->getheight();
 
 print"wymiar $szerokosc, $wysokosc\n";
 for($x=0;$x<=$szerokosc - 1;$x++){
 
    for($y=0;$y<=$wysokosc - 1;$y++){
    
 my $color = $img->getpixel( x => $x, y => $y );
    my ( $r, $g, $b, $a ) = $color->rgba();
    print " shade = $r, $g, $b\n";
 }
 
 }
 <>;