PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : ImageMagick in Perl



malburg
03-04-2006, 15:55
Hallo,

Ich möchte ein Tiff file pixelweise durchparsen und von dem Pixel den Colorwert herausbekommen.

Das klappt alles auch schon.



$image = new Image::Magick;
my $err = $image->Read($basedir."/tmp/".$srcfile.".tiff");

my $color = $image->Get("pixel[338,427]");

my @ary = split(",", $color);

my $hex = $image->QueryColorname("rgb(".$ary[0].",".$ary[1].",".$ary[2].",".$ary[3].")");

print $hex."\n";



Das Problem dabei ist aber, das Get("pixel... aber irgendwann mal einen wert von > 32535 ausgibt und scheinbar kann die Function QueryColorname diese dann nicht richtig Mappen.

Weiss jmd. wie man richtig die farben aus einem Tiff Bild holt ?

Vielen dank

Marcel Alburg

Romanday
09-04-2006, 23:56
Hallo,
Das Problem dabei ist aber, das Get("pixel... aber irgendwann mal einen wert von > 32535 ausgibt und scheinbar kann die Function QueryColorname diese dann nicht richtig Mappen.

Weiss jmd. wie man richtig die farben aus einem Tiff Bild holt ?

Vielen dank

Marcel Alburg

Kann es sein das 32535 die Gesammtanzahl aller Farben im Bild darstellt?