(no commit message)

diff --git a/MagickWand/mogrify.c b/MagickWand/mogrify.c
index 7939dc87ca2810eecdbe3cfe9e386e8e4d8a0ff3..cf8b94bb2fc408c9925d0b122b45ebb77f824490 100644 (file)
--- a/MagickWand/mogrify.c
+++ b/MagickWand/mogrify.c
@@ -1806,6 +1806,8 @@ WandExport MagickBooleanType MogrifyImage(ImageInfo *image_info,const int argc,
             flags=ParseGeometry(argv[i+1],&geometry_info);
             if ((flags & SigmaValue) == 0)
               geometry_info.sigma=geometry_info.rho;
+            if ((flags & XiValue) == 0)
+              geometry_info.xi=40;
             mogrify_image=HoughLineImage(*image,(size_t) geometry_info.rho,
               (size_t) geometry_info.sigma,(size_t) geometry_info.xi,exception);
             break;

diff --git a/MagickWand/operation.c b/MagickWand/operation.c
index 54dc38261a49348e3252d6e2200a5ee57532a370..6489ad8f071eb0e25a31de30f7fdb34c4a6aeacf 100644 (file)
--- a/MagickWand/operation.c
+++ b/MagickWand/operation.c
@@ -2498,11 +2498,9 @@ static MagickBooleanType CLISimpleOperatorImage(MagickCLI *cli_wand,
           if ((flags & SigmaValue) == 0)
             geometry_info.sigma=1.0;
           if ((flags & XiValue) == 0)
-            geometry_info.xi=3;
-          if ((flags & PsiValue) == 0)
-            geometry_info.psi10030;
-          new_image=HoughLineImage(_image,geometry_info.rho,
-            geometry_info.sigma,geometry_info.xi,geometry_info.psi,_exception);
+            geometry_info.xi=40;
+          new_image=HoughLineImage(_image,(size_t) geometry_info.rho,
+            (size_t) geometry_info.sigma,(size_t) geometry_info.xi,_exception);
           break;
         }
       CLIWandExceptionBreak(OptionError,"UnrecognizedOption",option);

diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index d488219fbc396fde465a5817d05f394ac21859ca..d9b0e0221d361267f5a1633a218f22a23844e6e5 100644 (file)
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -11150,6 +11150,8 @@ Mogrify(ref,...)
                 &geometry_info);
               if ((flags & SigmaValue) == 0)
                 geometry_info.sigma=geometry_info.rho;
+              if ((flags & XiValue) == 0)
+                geometry_info.xi=40;
             }
           if (attribute_flag[1] != 0)
             geometry_info.rho=(double) argument_list[1].integer_reference;

diff --git a/PerlMagick/quantum/quantum.xs.in b/PerlMagick/quantum/quantum.xs.in
index 4c4c19849dcc78ea184960d16a482c2e05ad613f..7657c07f05b10df91a850ee52e18dfbf8d0e4b29 100644 (file)
--- a/PerlMagick/quantum/quantum.xs.in
+++ b/PerlMagick/quantum/quantum.xs.in
@@ -11150,6 +11150,8 @@ Mogrify(ref,...)
                 &geometry_info);
               if ((flags & SigmaValue) == 0)
                 geometry_info.sigma=geometry_info.rho;
+              if ((flags & XiValue) == 0)
+                geometry_info.xi=40;
             }
           if (attribute_flag[1] != 0)
             geometry_info.rho=(double) argument_list[1].integer_reference;