From: Cristy Date: Sun, 21 Feb 2016 18:17:36 +0000 (-0500) Subject: Fix compiler exception X-Git-Tag: 7.0.1-0~211 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=a36d129622ebcb86864d744e01c3577baa6edc55;p=imagemagick Fix compiler exception --- diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs index 30ea5f72d..6d3b01177 100644 --- a/PerlMagick/Magick.xs +++ b/PerlMagick/Magick.xs @@ -11328,12 +11328,14 @@ Mogrify(ref,...) case 145: /* WaveletDenoise */ { if (attribute_flag[0] == 0) - argument_list[0].string_reference="50%"; + argument_list[0].string_reference="5%"; if (attribute_flag[2] != 0) channel=(ChannelType) argument_list[2].integer_reference; + flags=ParseGeometry(argument_list[0].string_reference,&geometry_info); + if ((flags & PercentValue) != 0) + geometry_info.rho*=(double) (QuantumRange/100.0); channel_mask=SetImageChannelMask(image,channel); - image=WaveletDenoiseImage(image,argument_list[0].string_reference, - exception); + image=WaveletDenoiseImage(image,geometry_info.rho,exception); if (image != (Image *) NULL) (void) SetImageChannelMask(image,channel_mask); break; diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in index f9a65af48..661ee62f8 100644 --- a/PerlMagick/quantum/quantum.xs.in +++ b/PerlMagick/quantum/quantum.xs.in @@ -11328,12 +11328,14 @@ Mogrify(ref,...) case 145: /* WaveletDenoise */ { if (attribute_flag[0] == 0) - argument_list[0].string_reference="50%"; + argument_list[0].string_reference="5%"; if (attribute_flag[2] != 0) channel=(ChannelType) argument_list[2].integer_reference; + flags=ParseGeometry(argument_list[0].string_reference,&geometry_info); + if ((flags & PercentValue) != 0) + geometry_info.rho*=(double) (QuantumRange/100.0); channel_mask=SetImageChannelMask(image,channel); - image=WaveletDenoiseImage(image,argument_list[0].string_reference, - exception); + image=WaveletDenoiseImage(image,geometry_info.rho,exception); if (image != (Image *) NULL) (void) SetImageChannelMask(image,channel_mask); break;