From 8526a9763e0671ebad481fd00679fb857ce8d84a Mon Sep 17 00:00:00 2001
From: cristy <urban-warrior@git.imagemagick.org>
Date: Tue, 8 Oct 2013 00:52:54 +0000
Subject: [PATCH]

---
 MagickCore/fourier.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/MagickCore/fourier.c b/MagickCore/fourier.c
index 448f3a728..7ff6d62ba 100644
--- a/MagickCore/fourier.c
+++ b/MagickCore/fourier.c
@@ -288,8 +288,8 @@ MagickExport Image *ComplexImages(const Image *images,
           }
           case MagnitudePhaseComplexOperator:
           {
-            Cr[i]=(Ar[i]*Br[i]-Ai[i]*Bi[i]);
-            Ci[i]=(Ai[i]*Br[i]+Ar[i]*Bi[i]);
+            Cr[i]=sqrt(Ar[i]*Ar[i]+Ai[i]*Ai[i]);
+            Ci[i]=atan2(Ai[i],Ar[i]);
             break;
           }
           case MultiplyComplexOperator:
@@ -300,8 +300,8 @@ MagickExport Image *ComplexImages(const Image *images,
           }
           case RealImaginaryComplexOperator:
           {
-            Cr[i]=(Ar[i]*Br[i]-Ai[i]*Bi[i]);
-            Ci[i]=(Ai[i]*Br[i]+Ar[i]*Bi[i]);
+            Cr[i]=Ar[i]*exp(Ai[i]);
+            Ci[i]=Ar[i]*(cos(Ai[i])+sin(Ai[i]));
             break;
           }
           case SubtractComplexOperator:
-- 
2.40.0