Package: perlmagick
Version: 7:6.3.7.9.dfsg1-2
Severity: normal
>From Magick.xs:
i=0;
indexes=GetIndexes(image);
scale=1.0;
if (normalize != MagickFalse)
scale=QuantumRange;
if ((channel & RedChannel) != 0)
q->red=RoundToQuantum(QuantumRange* SvNV(*(av_fetch(av,i,0))));
if ((channel & GreenChannel) != 0)
q->green=RoundToQuantum(QuantumRange* SvNV(*(av_fetch(av,i,0))));
if ((channel & BlueChannel) != 0)
q->blue=RoundToQuantum(QuantumRange* SvNV(*(av_fetch(av,i,0))));
if (((channel & IndexChannel) != 0) &&
(image->colorspace == CMYKColorspace))
*indexes=RoundToQuantum(QuantumRange* SvNV(*(av_fetch(av,i,0))));
if ((channel & OpacityChannel) != 0)
q->opacity=RoundToQuantum(QuantumRange* SvNV(*(av_fetch(av,i,0))));
(void) SyncImagePixels(image);
}
As i understand it, it always takes the first value of the color array.
I've fixed it for my purposes by changing the first i to 0 the second
to 1 and the third to 2. (I always got grayscale images before, you can
verify with the example that produces pixel_fx.gif)
I don't know how a proper fix needs to look like, as incrementing i at
each position causes a segfault.
-- System Information:
Debian Release: lenny/sid
APT prefers testing
APT policy: (500, 'testing'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.24-1-amd64 (SMP w/2 CPU cores)
Locale: LANG=de_AT.UTF-8, LC_CTYPE=de_AT.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages perlmagick depends on:
ii libc6 2.7-10 GNU C Library: Shared libraries
ii libfreetype6 2.3.5-1+b1 FreeType 2 font engine, shared lib
ii libmagick10 7:6.3.7.9.dfsg1-2 image manipulation library
ii perl 5.8.8-12 Larry Wall's Practical Extraction
ii perl-base [perlapi-5.8 5.8.8-12 The Pathologically Eclectic Rubbis
ii zlib1g 1:1.2.3.3.dfsg-12 compression library - runtime
perlmagick recommends no packages.
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
