Re^2: Using Imager getpixel

OK. I agree that '8bit' was the default, so it was redundant, but not wrong, to include it. But declaring $color does not seem to have been the answer for my third or fourth attempt. There does seem to be some sort of dependency between the use of scalar vs. reference on one or both axes. But this still does not clear up the mystery. In the following, I have kept the startup portion of the code exactly as shown above by Khen1950fx, so I will not repeat it here. May we just concentrate on the getpixel call? First, I have located a portion of the image with distinct values in four adjacent pixels.

for my $x ( 14, 15 )
{
  for my $y ( 14, 15 )
  {
    my @color = $image->getpixel( x => $x, y => $y );
    my ( $r, $g, $b, $a ) = $color[0]->rgba();
    print " shade( $x, $y ) = $r, $g, $b\n";
  }
}
[download]

This version produces the output:

Image dimensions: height = 348, width = 349
 shade( 14, 14 ) = 255, 255, 255
 shade( 14, 15 ) = 221, 221, 221
 shade( 15, 14 ) = 170, 170, 170
 shade( 15, 15 ) = 51, 51, 51
[download]

So far, so good. But now if we replace both axes by referenced lists, we get something I did not expect:

my @color = $image->getpixel( x => [ 14, 15 ], y => [ 14, 15 ] );
for my $clr ( @color )
{
  my ( $r, $g, $b, $a ) = $clr->rgba();
  print " shade = $r, $g, $b\n";
}
[download]

We get, not the full square of scanned pixels, as I expected, but rather just the diagonal. This would explain why both axes must have identical reference lists. If they differ, the result is undefined.

Image dimensions: height = 348, width = 349
 shade = 255, 255, 255
 shade = 51, 51, 51
[download]

No. That's still not quite it. Actually, the requirement is that both referenced lists do need to be the same length, but the reference is only to pixel pairs, respectively, not the full square (or rectangle), as I assumed it might work. For example, this works:

my @color = $image->getpixel(
     x => [ 13, 15, 17, 17, 20 ],
     y => [ 17, 14, 18, 19, 15 ] );
for my $clr ( @color )
{
  my ( $r, $g, $b, $a ) = $clr->rgba();
  print " shade = $r, $g, $b\n";
}
[download]

The output is:

Image dimensions: height = 348, width = 349
 shade = 204, 204, 204
 shade = 170, 170, 170
 shade = 136, 136, 136
 shade = 187, 187, 187
 shade = 153, 153, 153
[download]

And I ran the first code fragment above with the pixel address values such as to display the entire rectangle covered by this last example and the pixel values are exactly those reference pairwise here. In other words, if I had duplicated the pixel addresses for the final printout, I would have:

 shade( 13, 17 ) = 204, 204, 204
 shade( 15, 14 ) = 170, 170, 170
 shade( 17, 18 ) = 136, 136, 136
 shade( 17, 19 ) = 187, 187, 187
 shade( 20, 15 ) = 153, 153, 153
[download]

Any time the pixel reference lists are of unequal length, you get an undefined result. Makes sense, now. My only complaint then (Tony?), would be that this is not very clear in the 'draw' documentation.

Comment on Re^2: Using Imager getpixel Select or Download Code

Replies are listed 'Best First'.
Re^3: Using Imager getpixel by tonyc (Friar) on Jan 03, 2012 at 04:42 UTC
I'll improve it, both the handling of supplying a scalar and ref in x, y and diagnostics for different array lengths. If you can work row-by-row instead of column-by-column, you might want to consider using getscanline() or getsamples() instead of getpixel().	[reply]
Re^4: Using Imager getpixel by Anonymous Monk on Sep 22, 2014 at 17:16 UTC
`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"; } } <>;` [download]	[reply] [d/l]