Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4271
Modified Files: Tag: devel_0_38 d_fft.c Log Message: don't use in-place transformations
Index: d_fft.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/d_fft.c,v retrieving revision 1.2.4.1 retrieving revision 1.2.4.2 diff -C2 -d -r1.2.4.1 -r1.2.4.2 *** d_fft.c 5 Nov 2004 13:55:58 -0000 1.2.4.1 --- d_fft.c 28 Jun 2005 13:06:19 -0000 1.2.4.2 *************** *** 381,386 **** while (n!=0) { ! --n; ! s[n]=-s[n]; } } --- 381,386 ---- while (n!=0) { ! --n; ! s[n]=-s[n]; } } *************** *** 408,418 **** else { ! x->dim.n=n; ! x->dim.is=1; ! x->dim.os=1; ! x->plan = fftwf_plan_guru_split_dft_r2c(1, &(x->dim), 0, NULL, ! in, out1, out2, ! FFTW_MEASURE); ! dsp_add(sigrfftw_perform,3,&x->plan,out2+1,n2-1); }
--- 408,418 ---- else { ! post("rfft borrowed? %d", sp[0]->s_refcount); ! x->dim.n=n; ! x->dim.is=1; ! x->dim.os=1; ! x->plan = fftwf_plan_guru_split_dft_r2c(1, &(x->dim), 0, NULL, ! in, out1, out2, FFTW_MEASURE | FFTW_PRESERVE_INPUT); ! dsp_add(sigrfftw_perform,3,&x->plan,out2+1,n2-1); }
*************** *** 483,493 **** else { ! x->dim.n=n; ! x->dim.is=1; ! x->dim.os=1; ! x->plan = fftwf_plan_guru_split_dft_c2r(1, &(x->dim), 0, NULL, ! in1, in2, out, ! FFTW_MEASURE); ! dsp_add(sigrifftw_perform,3,&x->plan,in2,n2); } } --- 483,495 ---- else { ! post("rifft borrowed? %d", sp[0]->s_refcount); ! post("rifft borrowed? %d", sp[1]->s_refcount); ! x->dim.n=n; ! x->dim.is=1; ! x->dim.os=1; ! x->plan = fftwf_plan_guru_split_dft_c2r(1, &(x->dim), 0, NULL, ! in1, in2, out, FFTW_MEASURE | FFTW_PRESERVE_INPUT); ! dsp_add_zero(in1+ n/2, n/2); ! dsp_add(sigrifftw_perform,3,&x->plan,in2,n2); } }