(no commit message)

diff --git a/PerlMagick/Changelog b/PerlMagick/Changelog
index 6ea8371c6921ac9809cb8b99218b2a38e4bde4b4..dc84198fdef97291cfcefb4e7394faafa1b34c2e 100644 (file)
--- a/PerlMagick/Changelog
+++ b/PerlMagick/Changelog
@@ -1,3 +1,6 @@
+2011-06-06  6.7.0-5 Cristy  <quetzlzacatenango@image...>
+  * Set modulate() colorspace predicated on parameter (e.g. brightness is HSB).
+
 2011-01-25  6.6.7-3 Cristy  <quetzlzacatenango@image...>
   * Verify color parameter is a Perl array to avoid seg fault (reference
     http://www.imagemagick.org/discourse-server/viewtopic.php?f=7&t=17928).

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index ad5d5a12f6af03ef28b8980cff93bf5b2731812b..a2ef0daf1cb35510260d8afb36269e821b9b01cd 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -8806,10 +8806,13 @@ Mogrify(ref,...)
           if (attribute_flag[3] != 0)
             {
               geometry_info.sigma=argument_list[3].real_reference;
-              SetImageArtifact(image,"modulate:colorspace","HSB");
+              SetImageArtifact(image,"modulate:colorspace","HWB");
             }
           if (attribute_flag[4] != 0)
-            geometry_info.rho=argument_list[4].real_reference;
+            {
+              geometry_info.rho=argument_list[4].real_reference;
+              SetImageArtifact(image,"modulate:colorspace","HSB");
+            }
           if (attribute_flag[5] != 0)
             {
               geometry_info.sigma=argument_list[5].real_reference;