GetPixels() or Get(Pixel[x,y])

PerlMagick is an object-oriented Perl interface to ImageMagick. Use this forum to discuss, make suggestions about, or report bugs concerning PerlMagick.
Post Reply
Flodelarab
Posts: 3
Joined: 2018-11-06T17:46:52-07:00
Authentication code: 1152

GetPixels() or Get(Pixel[x,y])

Post by Flodelarab »

Hello :D

Code: Select all

my @cp=$image->GetPixels(x=>$x,y=>$y, height=>1, width=>1);                                                                                                                                                                                                               
print "$x $y ".$image->Get("pixel[$x,$y]")." $cp[0] $cp[1] $cp[2] $cp[3] $res\n";                                                                                                                                                                                 
gives, for example, such lines, with a png picture, having an alpha channel (RGBA) :

Code: Select all

                                                                                                                                                                                                                  
923 0 45232,45746,44461,64764 45232 45746 44461 771 39                                                                                                                                                                                                                       
109 1 0,514,514,257 0 514 514 65278 42                                                                                                                                                                                                                                      
218 2 257,514,257,771 257 514 257 64764 100                                                                                                                                                                                                                                 
(...)                                                                                                                                                                                                             
478 9 65021,65278,65021,65535 65021 65278 65021 0 100                                                                                                                                                                                                                       
692 10 65021,65278,65535,65021 65021 65278 65535 514 110  
541 4 64764,65535,65535,65278 64764 65535 65535 257 61
RGB values are the same. Ok. Check! :)
A is not the same. (A from RGBA). Ko. Don't give me 5 :(

Hexadecimal values going by couple:
0101 <-> FDFD
0202 <-> FEFE
0303 <-> FCFC
0000 <-> FFFF

Does anyone know what is going wrong ? :shock:
Why GetPixels() and Get(Pixel[]) give different values ?
What is the relation between those 2 values of opacity ?

Thank you for your attention.
snibgo
Posts: 12159
Joined: 2010-01-23T23:01:33-07:00
Authentication code: 1151
Location: England, UK

Re: GetPixels() or Get(Pixel[x,y])

Post by snibgo »

What version of IM are you using? At one time, IM recorded alpha as transparency (ie 0 was opaque, 100% was transparent). Now, it records alpha as opacity (ie 0 is transparent, 100% is opaque).

Note that 64764 + 771 = 65535, 257 + 65278 = 65535, etc.
snibgo's IM pages: im.snibgo.com
Flodelarab
Posts: 3
Joined: 2018-11-06T17:46:52-07:00
Authentication code: 1152

Re: GetPixels() or Get(Pixel[x,y])

Post by Flodelarab »

First, thank you for your fast answer.

Second, my version of ImageMagick is 6.97 (Debian installation).
/usr/share/perl5/Image/Magick.pm points onto /usr/lib/x86_64-linux-gnu/perl5/5.24/Image/Magick/Q16.pm that is version 6.97.
Note that 64764 + 771 = 65535, 257 + 65278 = 65535, etc.
OK.
I will consider big values as correct values, and low values as old methods, because my picture is totally opaque, at first.
Surely, I have used Set(Pixels[]) to write and Getpixels() to read. So, unstable.

Thanks 8)
Flodelarab
Posts: 3
Joined: 2018-11-06T17:46:52-07:00
Authentication code: 1152

Re: GetPixels() or Get(Pixel[x,y])

Post by Flodelarab »

To be complete, I post the code I have and works :

Code: Select all

my @cp=$image->GetPixels(x=>$x,y=>$y,width=>1,height=>1, map=>'RGBA');
and

Code: Select all

if ($s==3) {
                        $cp[$s] = 65535-$cp[$s];
                }

Code: Select all

$image->Set("pixel[$x,$y]"=>"$cp[0],$cp[1],$cp[2],$cp[3]",map=>'rgba',normalize=>'false');
Other codes don't work because of normalization (values between 0 and 1) or bad alpha value returned.

Hope this helps others.
Post Reply