[PD-cvs] pd/src d_fft.c,1.2.4.1,1.2.4.2
Tim Blechmann
timblech at users.sourceforge.net
Tue Jun 28 15:06:22 CEST 2005
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);
}
}
More information about the Pd-cvs
mailing list