K-means: default to 100 iterations and a max distortion of 0.01
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;