ImageMagick: как получить коэффициент прозрачности пиксела

($r,$g,$b,$a)=split /,/, $image->Get("pixel[1,1]");

 $image->Set("pixel[$x,$y]"),"7f3ca200";

 $image->Set("pixel[$x,$y]"),"7f7f3c3ca2a20000";

 $image->Set(alpha=>'Activate');
 $image->Transparent(color=>'white');

#!/usr/bin/perl
use strict;
use Image::Magick;
my $image = Image::Magick->new;
$image->Read( 'web2.png' );
my($xSize, $ySize) = $image->[0]->Get('width', 'height');
$image->Set(alpha=>'Activate');
$image->Transparent(color=>'white');
for (my $x = 0; $x < $xSize; $x++) {
 for (my $y = 0; $y < $ySize; $y++) {
  #$image->SetPixel(
    #geometry=>geometry, channel=>{All, Default, Alpha, Black, Blue, CMYK, Cyan, Gray, Green, Index, Magenta, Opacity, Red, RGB, Yellow}, color=>array of float values, x=>integer, y=>integer, color=>array of float values
  #);
 }
}
$image->Write('myNew.png');

use strict;use GD::Simple;
my($x,$y)=(50,50);my($img1,$r,$g,$b,$a,$c);($r,$g,$b,$a)=(0,0,255,1);
$img1=GD::Simple->new($x,$y);
$img1->fgcolor(undef);
for(my $y1=1;$y1<$y; ++$y1){
 for(my $x1=1;$x1<$x; ++$x1){
  if($r<255){$r++;}else{$r=1;}
  $c=$img1->alphaColor($r,$g,$b,$a);
  si($img1,$x1,$y1, $c);
 }
}
open (DST,'>gd1.png');binmode DST;
print DST $img1->png();close DST;
sub si{my($img,$x,$y,$c)= @_;
 $img->bgcolor($c);
 $img->rectangle($x,$y,$x,$y);
}

#!perl
 
use strict;
use GD::Simple;
 
my($x,$y)=(50,50);my($img1,$r,$g,$b,$a,$c);($r,$g,$b,$a)=(0,0,255,1);
$img1=GD::Simple->new($x,$y);
$img1->fgcolor(undef);
for(my $y1=1;$y1<$y; $y1++){ # здесь и ниже поменял положение ++
 for(my $x1=1;$x1<$x; $x1++){
  if($r<255){$r++;}else{$r=1;}
  $c=$img1->alphaColor($r,$g,$b,$a);
  si($img1,$x1,$y1, $c);
 }
}
open (DST,'>gd1.png');binmode DST;
print DST $img1->png();close DST;
 
sub si{my($img,$x,$y,$c)= @_;
  $img->bgcolor($c);
  $img->rectangle($x,$y,$x,$y);
  }