Legacy ImageMagick Discussions Archive

To be complete, I post the code I have and works : my @cp=$image->GetPixels(x=>$x,y=>$y,width=>1,height=>1, map=>'RGBA'); and if ($s==3) { $cp[$s] = 65535-$cp[$s]; } $image->Set("pixel[$x,$y]"=>"$cp[0],$cp[1],$cp[2],$cp[3]",map=>'rgba',normalize=>'false'); Other codes don't work because of ...

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 ...

Hello :D 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) : 923 0 45232,45746,44461,64764 45232 45746 44461 771 39 109 1 0 ...