[PD-cvs] pd/extra/fiddle~ fiddle~.c,1.4,1.5

[Miller Puckette]

Update of /cvsroot/pure-data/pd/extra/fiddle~
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10939/pd/extra/fiddle~

Modified Files:
	fiddle~.c 
Log Message:
0.38 test 9 (mostly bug fixes)



Index: fiddle~.c
===================================================================
RCS file: /cvsroot/pure-data/pd/extra/fiddle~/fiddle~.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** fiddle~.c	6 Sep 2004 20:20:27 -0000	1.4
--- fiddle~.c	6 Nov 2004 16:07:23 -0000	1.5
***************
*** 103,115 ****
  
  #ifdef MSP
! #define t_floatarg double	// this is a guess based on MAX26
  #include "ext.h"
  #include "z_dsp.h"
  #include "fft_mayer.proto.h"
- //#include "fiddle_header.h"
- //  #include "MacHeaders.h"
- //#include <MacHeadersPPC>
- 
[...2538 lines suppressed...]
!         real = rp = msp_ffttemp;
!         imag = ip = real + MAXPOINTS;
!         src = buf;
!         for (i = 0; i < np; i++) {
!                 *rp++ = *src++;
!                 *ip++ = *src++;
!         }
!         if (inv)
!                 ifft(np,real,imag);
!         else
!                 fft(np,real,imag);
!         rp = real;
!         ip = imag;
!         src = buf;
!         for (i = 0; i < np; i++) {
!                 *src++ = *rp++;
!                 *src++ = *ip++;
!         }
  }