From 76573f4923ebe3391ffcb2d6555d1268210d0e21 Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Wed, 16 Nov 2011 15:52:04 +0000
Subject: made it compatible to pd44 with double precision

svn path=/trunk/externals/iem/iem_tab/; revision=15767
---
 src/tab_ifft.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/tab_ifft.c')

diff --git a/src/tab_ifft.c b/src/tab_ifft.c
index f3cd7fe..4df2a7e 100644
--- a/src/tab_ifft.c
+++ b/src/tab_ifft.c
@@ -42,7 +42,7 @@ static void tab_ifft_init(t_tab_ifft *x)
   t_float f, g;
   TAB_COMPLEX *sincos = x->x_sin_cos;
   
-  g = 2.0f * 3.1415926538f / (t_float)fftsize;
+  g = 2.0 * 3.141592653589793 / (t_float)fftsize;
   for(i=0; i<fftsize; i++)
   {
     f = g * (t_float)i;
@@ -187,7 +187,7 @@ static void tab_ifft_bang(t_tab_ifft *x)
       }
     */
     
-    g = 1.0f / (t_float)fftsize;
+    g = 1.0 / (t_float)fftsize;
     for(i = 0; i < fftsize; i++)
     {
       iemarray_setfloat(vec_dst_re, i, iemarray_getfloat(vec_dst_re, i)*g);
@@ -318,7 +318,7 @@ static void tab_ifft_list(t_tab_ifft *x, t_symbol *s, int argc, t_atom *argv)
         }
       */
       
-      g = 1.0f / (t_float)fftsize;
+      g = 1.0 / (t_float)fftsize;
       for(i = 0; i < fftsize; i++)
       {
         iemarray_setfloat(vec_dst_re, i, iemarray_getfloat(vec_dst_re, i)*g);
@@ -404,5 +404,4 @@ void tab_ifft_setup(void)
   class_addmethod(tab_ifft_class, (t_method)tab_ifft_dst_im, gensym("dst_im"), A_DEFSYMBOL, 0);
   class_addmethod(tab_ifft_class, (t_method)tab_ifft_dst_re, gensym("dst1"), A_DEFSYMBOL, 0);
   class_addmethod(tab_ifft_class, (t_method)tab_ifft_dst_im, gensym("dst2"), A_DEFSYMBOL, 0);
-//  class_sethelpsymbol(tab_ifft_class, gensym("iemhelp2/tab_ifft-help"));
 }
-- 
cgit v1.2.1