(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("31-Jul-84 09:23:27" . {ERIS}<SPEECH>NSPECPATCH.;3)
FNS (PATCHINIT SPECTRUMSCALEDREDISPLAY SPEECHDEMOINIT)
(READATABASE)
(
CALL PATCHINIT (ARRAYBASE \ADDBASE IDIFFERENCE LLSH) SPECTRUMSCALEDREDISPLAY (GETWINDOWPROP 
IDIFFERENCE SUB1 ARRAYBASE BASEADDROFY IPLUS LLSH \GETBASEPTR HALF LRSH \ADDBASE IMINUS ITIMES FIX 
FTIMES FQUOTIENT \DSPTRANSFORMX) SPEECHDEMOINIT (DOUBLEPERMINIT ARRAY PLUS ARRAYBASE \ADDBASE 
IDIFFERENCE LLSH FFTTABLEINIT) NIL
BIND PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (DATAREGION WindowToDataFactor) SPEECHDEMOINIT NIL NIL
NLAMBDA PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
NOBIND PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
RECORD PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (REGION) SPEECHDEMOINIT NIL NIL
CREATE PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT (FFTTABLE) NIL
FETCH PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (LEFT WIDTH IMAGEDATA DDXOFFSET) SPEECHDEMOINIT NIL NIL
REPLACE PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
REFFREE PATCHINIT (SHUFFLE WAVE SUBWAVESHUFFLEDSMALLP SUBWAVESHUFFLEDFLOATP WINDOWWEIGHTSSHUFFLED 
SUBWAVEWEIGHTEDFLOATP SUBWAVEWEIGHTEDCOMPLEX HALFTONE LOGMAGNITUDE FFTOUT FFTBUF1 FFTBUF2 PASSES 
MAGNITUDESQUARED) SPECTRUMSCALEDREDISPLAY (GWIDTH HALFTONE FFTTABLE FFTSHIFT BWAVE BSHUFFLE 
BSUBWAVESHUFFLEDSMALLP BSUBWAVESHUFFLEDFLOATP BFFTBUF1 BFFTBUF1END BFFTOUT BMAGNITUDESQUARED 
BLOGMAGNITUDE) SPEECHDEMOINIT (KAISER6 KAISER8 HALFTONE) NIL
REF PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (WINDOW REGION PASSES GWIDTH BFFTTABLE BASE 
BOTTOM.X.SCALE.OFFSET WIDTH LEFT BWINDOWWEIGHTSSHUFFLED BHALFTONE DD WINDOWWIDTHINWORDS) 
SPEECHDEMOINIT (PASSES WAVEFILE FIRSTBYTE) NIL
SETFREE PATCHINIT (BSHUFFLE BWAVE BSUBWAVESHUFFLEDSMALLP BSUBWAVESHUFFLEDFLOATP BWINDOWWEIGHTSSHUFFLED
 BSUBWAVEWEIGHTEDFLOATP BSUBWAVEWEIGHTEDCOMPLEX BHALFTONE BLOGMAGNITUDE BFFTOUT BFFTBUF1 BFFTBUF2 
BFFTBUF1END BMAGNITUDESQUARED) SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT (SHUFFLE6 SHUFFLE8 SHUFFLE 
SUBWAVESHUFFLEDSMALLP SUBWAVESHUFFLEDFLOATP SUBWAVEWEIGHTEDFLOATP SUBWAVEWEIGHTEDCOMPLEX FFTBUF1 
FFTBUF2 FFTOUT MAGNITUDESQUARED LOGMAGNITUDE WAVE WINDOWWEIGHTSSHUFFLED \FFTTABLE WAVEFORMSTART 
WAVEFORMEND BSHUFFLE BWAVE BSUBWAVESHUFFLEDSMALLP BSUBWAVESHUFFLEDFLOATP BWINDOWWEIGHTSSHUFFLED 
BSUBWAVEWEIGHTEDFLOATP BSUBWAVEWEIGHTEDCOMPLEX BHALFTONE BLOGMAGNITUDE BFFTOUT BFFTBUF1 BFFTBUF2 
BFFTBUF1END BMAGNITUDESQUARED FFTTABLE) NIL
SET PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (TWICEFFTSHIFT ARRAYLENGTH TWICEARRAYLENGTH TWICEGWIDTH TBL1
 TBL2 TBL3 TBL4 TBL5 TBL6 TBL7 TBL8 BARHEIGHT PASSESMINUS1 DATALEFT HALFARRAYLENGTH WINDOWBASE XPOS 
START END DATAPTR WINDOWPTR) SPEECHDEMOINIT NIL NIL
SMASHFREE PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
SMASH PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
PROP PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
TEST PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
TESTFREE PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
PREDICATE PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (ZEROP MINUSP ILESSP IGREATERP) SPEECHDEMOINIT NIL NIL
EFFECT PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (DECLARE TOTOPW \BLKPERM \BLKSMALLP2FLOAT \BLKFTIMES 
FFTSTEP \BLKSEP \BLKMAG \BLKEXPONENT IBLT2) SPEECHDEMOINIT (READWAVE) NIL
CLISP PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (for from to by as do) SPEECHDEMOINIT NIL NIL
SPECVARS PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
LOCALVARS PATCHINIT NIL SPECTRUMSCALEDREDISPLAY (T) SPEECHDEMOINIT NIL NIL
APPLY PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
ERROR PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
LOCALFREEVARS PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
ARGS PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL
USERTEMPLATES SHAZAM (CALL .. NIL) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) SETQ.NOREF (CALL SET EVAL
 . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) 
perform (MACRO ARGS (PERFORMTRAN ARGS T)) UNINTERRUPTABLY (CALL .. EVAL) NIL
0 PATCHINIT NIL SPECTRUMSCALEDREDISPLAY NIL SPEECHDEMOINIT NIL NIL

)