[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