fixed inversed phase output and checked against Max5 for compatibility, now [cartopol~] matches the output of [cartopol]

svn path=/trunk/externals/miXed/; revision=15927

1 files changed, 5 insertions, 5 deletions

diff --git a/cyclone/sickle/cartopol.c b/cyclone/sickle/cartopol.c
index 4c25797..e33f782 100644
--- a/cyclone/sickle/cartopol.c
+++ b/cyclone/sickle/cartopol.c
@@ -30,9 +30,9 @@ static t_int *cartopol_perform(t_int *w)
     t_float *out2 = (t_float *)(w[5]);
     while (nblock--)
     {
-	float rl = *in1++, im = -*in2++;  /* CHECKED */
-	*out1++ = hypotf(rl, im);
-	*out2++ = atan2f(im, rl);
+        float rl = *in1++, im = *in2++;  /* checked against Max5 */
+        *out1++ = hypotf(rl, im);
+        *out2++ = atan2f(im, rl);
     }
     return (w + 6);
 }
@@ -45,8 +45,8 @@ static t_int *cartopol_perform_nophase(t_int *w)
     t_float *out1 = (t_float *)(w[4]);
     while (nblock--)
     {
-	float rl = *in1++, im = -*in2++;  /* CHECKED */
-	*out1++ = hypotf(rl, im);
+        float rl = *in1++, im = *in2++;  /* checked against Max5 */
+        *out1++ = hypotf(rl, im);
     }
     return (w + 5);
 }