(FILECREATED "21-Jun-84 23:21:23" {ERIS}<SPEECH>SPECTRUM>FFTI.;2
 1090   

      previous date: " 6-Jun-84 18:25:16" {PHYLUM}<JELLINEK>SPEECH>FFTI.LSP;1)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FFTICOMS)

(RPAQQ FFTICOMS
 ((FNS FFT FFT1 SETCOMPLEX TRY XFIXFLT)
		 (MACROS FASTELT FASTSETA)
		 (CONSTANTS PI)
		 (VARS FFTDATA)))
(DEFINEQ



(SETCOMPLEX

  [LAMBDA (PTR R I)                                          (* scp "21-Jun-84 22:41")

    (\BLT PTR (\DTEST R (QUOTE FLOATP))
	  2)
    (\BLT (\ADDBASE PTR 2)
	  (\DTEST I (QUOTE FLOATP))
	  2])


)
(DECLARE: EVAL@COMPILE 

(PUTPROPS FASTELT DMACRO
 (OPENLAMBDA (A J)
				     (\GETBASEPTR (ARRAYBASE A)
						  (LLSH (SUB1 J)
							1))))

(PUTPROPS FASTSETA DMACRO
 (OPENLAMBDA (A J V)
				      (\PUTBASEPTR (ARRAYBASE A)
						   (LLSH (SUB1 J)
							 1)
						   V)))
)
(DECLARE: EVAL@COMPILE 

(RPAQQ PI
 3.141594)

(CONSTANTS PI)
)

(RPAQQ FFTDATA
 (1 2 2 4 3 3 2 2 4 1 3 0 0 1 1 3))
(PUTPROPS FFTI COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (379 610 (SETCOMPLEX 391 . 606)))))
STOP