home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 326.lha / KFFT_v1.1 / fftinc < prev    next >
Text File  |  1989-12-23  |  695b  |  34 lines
  1. \ FFT includes.
  2.  
  3. \ assign Signal Processing (sp) directory to current directory
  4.  
  5. assign sp: ""
  6.  
  7. DECIMAL
  8.  
  9. max-inline @  120 max-inline !
  10.  
  11. INCLUDE?  float_fft?  sp:fftcontrols
  12.  
  13. float_fft? jforth2?     AND .IF
  14.      INCLUDE?  f+  ju:float.ffp  FPINIT  DETACHMODULE ASSEM  .THEN
  15.  
  16. INCLUDE?  {  ju:locals
  17.  
  18. float_fft? jforth2? NOT AND .IF
  19.      INCLUDE?  float  ju:f.   ALSO floating  open-float  .THEN
  20.  
  21.  
  22. asm_fft? jforth2?     AND .IF  INCLUDE? Z* sp:fft.asm    .THEN
  23. asm_fft? jforth2? NOT AND .IF  INCLUDE? Z* sp:fftold.asm .THEN
  24.  
  25. w_table_fft? .IF
  26. include?  w-table-fft  sp:wtable
  27. .THEN
  28.  
  29. asm_fft? NOT .IF  INCLUDE? nsbits sp:fftmisc  .THEN
  30. INCLUDE? s+     sp:cmplx
  31. INCLUDE? fft1   sp:fft1
  32.  
  33. max-inline !
  34.