diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-01-30 17:16:45 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-01-30 17:16:45 +0000 |
| commit | 9c3309a7191ece24d44e1599d7290318df144ff0 (patch) | |
| tree | 166d2fa4927de26001ee7a0f5347ae93f71fe858 /cyclone/sickle | |
| parent | bbb80ee9ae981da4b25941500c8f3cc7eeb14063 (diff) | |
fixed inversed phase output and checked against Max5 for compatibility, now [cartopol~] matches the output of [cartopol]
svn path=/trunk/externals/miXed/; revision=15927
Diffstat (limited to 'cyclone/sickle')
| -rw-r--r-- | cyclone/sickle/cartopol.c | 10 |
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); } |