commit c809e4876f008c708fe61767b3d4f03613e27e30
author Cristy <mikayla-grace@urban-warrior.org> Sat Dec 21 09:59:52 2019 -0500
committer Cristy <mikayla-grace@urban-warrior.org> Sat Dec 21 09:59:52 2019 -0500
tree 8793e76ba5de3ad2c9d5e33260c0ae6e96576da9
parent 6344215a8aa7ec26e3875f64d3818c808d5909dc

K-means: default to 100 iterations and a max distortion of 0.01

PerlMagick/Magick.xs

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 5cbec9b..ddfdab7 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -11512,9 +11512,9 @@
               flags=ParseGeometry(argument_list[0].string_reference,
                 &geometry_info);
               if ((flags & SigmaValue) == 0)
-                geometry_info.sigma=40.0;
+                geometry_info.sigma=100.0;
               if ((flags & XiValue) == 0)
-                geometry_info.xi=0.05;
+                geometry_info.xi=0.01;
             }
           if (attribute_flag[1] != 0)
             geometry_info.rho=argument_list[1].integer_reference;

PerlMagick/quantum/quantum.xs.in

diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in
index 3e1674a..751b13b 100644
--- a/PerlMagick/quantum/quantum.xs.in
+++ b/PerlMagick/quantum/quantum.xs.in
@@ -11518,9 +11518,9 @@
               flags=ParseGeometry(argument_list[0].string_reference,
                 &geometry_info);
               if ((flags & SigmaValue) == 0)
-                geometry_info.sigma=40.0;
+                geometry_info.sigma=100.0;
               if ((flags & XiValue) == 0)
-                geometry_info.xi=0.05;
+                geometry_info.xi=0.01;
             }
           if (attribute_flag[1] != 0)
             geometry_info.rho=argument_list[1].integer_reference;