(FILECREATED "20-Jul-84 23:40:51" ("compiled on " {ERIS}SPECTRUM>BLOCKFLOAT.;74) "17-Jul-84 21:40:45" recompiled changes: NEWSCROLL UPDATE.SCALED.WINDOW.EXTENT SPECTRUMSCALEDREDISPLAY SPEECHDEMOSCALEDWINDOWINIT SPEECHDEMOINIT ConvertWindowToFFTCoords SPECTRUMSCALEDREDISPLAY SPEECHDEMOSCALEDWINDOWINIT in "INTERLISP-D 17-Jul-84 ..." dated "17-Jul-84 21:52:20") (FILECREATED "20-Jul-84 23:39:22" {ERIS}SPECTRUM>BLOCKFLOAT.;74 45027 changes to: (FNS NEWSCROLL UPDATE.SCALED.WINDOW.EXTENT SPECTRUMSCALEDREDISPLAY SPEECHDEMOSCALEDWINDOWINIT ConvertWindowToFFTCoords SPEECHDEMOINIT) (VARS GWIDTH SAMPLESPERFFT BLOCKFLOATCOMS FFTSHIFT THRESHPAIRS) (MACROS ConvertWindowToFFTCoords) previous date: "17-Jul-84 18:53:29" {ERIS}WORK>BLOCKFLOAT.;1) DRAW.THRESHOLDS D1 (P 2 INDEX P 0 HALFTONEARRAY I 0 W) -@g !ljJdIhHJ(l Jjkh@ JkZ(44Q DRAWLINE 6 GETWINDOWPROP) (3 HALFTONEARRAY) () GET.WAVE.AND.READ D1 (P 0 FILENAME F 2 WAVE) *o RjR Hg dIIHj h(46Q READWAVE 31Q GETFILEINFO 22Q ARRAYSIZE 11Q MKATOM 6 PROMPTFORWORD) (26Q LENGTH) ( 3 "Wave file name? ") KAISERMENUINIT D1 (F 2 KAISERMENU) DR;`dododg dgjdndhHdI c (101Q ADDMENU 76Q CREATEW) (41Q DEFAULTMENUHELDFN 32Q CLRPROMPT 5 MENUTYPE#) ( 23Q ((Narrow-band (USE.FILTER (QUOTE Narrow-band)) "Chooses narrow-band filter") (Wide-band (USE.FILTER (QUOTE Wide-band)) "Chooses wide-band filter")) 13Q "Filters:") MAKE.THRESHOLD.WINDOW D1 (I 1 WINDOW I 0 HALFTONEARRAY) #Ago Agg Ag@ A (40Q REDISPLAYW 34Q PUTWINDOWPROP 24Q PUTWINDOWPROP 12Q PUTWINDOWPROP) (30Q HALFTONEARRAY 21Q DRAW.THRESHOLDS 16Q REPAINTFN 3 TITLE) ( 7 "Threshold histogram") SD D1 (F 0 PASSES) P (3 SPEECHDEMO) NIL () ARRAYBASE D1 (L (0 AR)) @NIL NIL () CORRECT D1 (L (0 X)) l@@ln@NIL NIL () NEWSCROLL D1 (P 23Q NEWX P 22Q OLDX P 16Q LEFT.DATA.POS P 15Q WHOLEWIDTH P 14Q WHOLEHEIGHT P 13Q CRBOTTOM P 12Q CRLEFT P 11Q CRWIDTH P 10Q REGIONTOREDISPLAY P 7 CRHEIGHT P 6 R P 5 DATALEFT P 4 DATAREGION P 3 Y.AXIS.LINE.WIDTH P 2 LEFT.Y.SCALE.OFFSET P 1 BOTTOM.X.SCALE.OFFSET P 0 EXTENT I 3 CONTINUOUSFLG I 2 YDELTA I 1 XDELTA I 0 WINDOW) @g @g @g @g @g @g JK_h@ ^d_M_N_N_N_A1Hjb(m HAHN _&MO&bCAdjj jh@ b@ bAjH7iAj`@Oj@OAjOOgg LLLdApAlmOHOOHHdAA_dOObjh@OAj@OjOOgg LLALLjA_ dO O L _HdA@gMA_"jO"O"j] Ojg@ @OM C`lj @OM h(642Q SCALED.WINDOW.PRINT.SCALES 620Q GETMOUSESTATE 612Q SCALED.WINDOW.SCROLL.PAINTFN 602Q DSPFILL 567Q PUTWINDOWPROP 526Q CREATEREGION 457Q BKBITBLT 321Q BKBITBLT 242Q DSPLINEFEED 232Q DSPLINEFEED 174Q FIXR 66Q DSPCLIPPINGREGION 51Q GETWINDOWPROP 42Q GETWINDOWPROP 33Q GETWINDOWPROP 24Q GETWINDOWPROP 15Q GETWINDOWPROP 6 GETWINDOWPROP) (624Q LASTMOUSEBUTTONS 576Q REPLACE 544Q DATALEFT 453Q REPLACE 450Q INPUT 315Q REPLACE 312Q INPUT 46Q DATALEFT 37Q DATAREGION 30Q Y.AXIS.LINE.WIDTH 21Q LEFT.Y.SCALE.OFFSET 12Q BOTTOM.X.SCALE.OFFSET 3 EXTENT) () NEWTHRESH D1 (L (1 HALFTONEARRAY 0 THRESHPAIRS)) *j1@d[HJIAJK*JkZKkظhNIL NIL () PCORRECT D1 (I 0 X) @dj (10Q CORRECT) NIL () UPDATE.SCALED.WINDOW.EXTENT D1 (P 3 WindowToDataFactor P 2 FILELENGTH I 0 SCWINDOW F 4 WAVE F 5 GWIDTH F 6 FFTSHIFT) A@g g T HdIIUV[@gK @gjd@J m h(75Q PUTWINDOWPROP 72Q CREATEREGION 65Q NumberofStripes 52Q PUTWINDOWPROP 20Q ARRAYSIZE 14Q GETFILEINFO 6 GETWINDOWPROP) (56Q EXTENT 46Q WindowToDataFactor 11Q LENGTH 3 FILENAME) () USE.FILTER D1 (P 3 WEIGHTS P 2 BARHEIGHT P 1 SHUFFLEARRAY P 0 PASSES I 0 FILTER F 4 SPECTRUMWINDOW F 5 SHUFFLE6 F 6 KAISER6 F 7 SHUFFLE8 F 10Q KAISER8 F 11Q SHUFFLE) O@@dglUlV[glWkW[IcTgH TgJ TgK h(113Q PUTWINDOWPROP 76Q PUTWINDOWPROP 66Q PUTWINDOWPROP 52Q HELP) (106Q ARRAYP 102Q BWINDOWWEIGHTSSHUFFLED 72Q BARHEIGHT 62Q PASSES 31Q Wide-band 7 Narrow-band) () \CHECKARRAYINDEX D1 (I 1 INDEX I 0 ARRAY) A@ k o@ (21Q ERROR 4 ARRAYSIZE) NIL ( 15Q "Count too large for array size") FFTTABLEINIT D1 (P 27Q PASS P 14Q ADEST P 13Q ASOURCE P 12Q WI P 11Q WR P 10Q UI P 7 UR P 6 NV2 P 5 LE1 P 4 LEXP P 3 N2 P 2 N P 1 M P 0 \FFTTABLES I 2 PASSES I 1 FFTBUF2 I 0 FFTBUF1 F 30Q PI) 6Bg `lB Zdl[Jl^BYdkO.O,lO. \l۽o_o_W0Mi _W0Mi _O.kj@_AA_@_HO.`O _dO dlO _dl OlǿOO_dl OlǿOOOK_"_ dlO"lǿO O" NMl_$dO$ MkNMl_&dO& NMkl_(dO(dlO O _*dlO* *O.k_.H(446Q PutFloat 432Q FMINUS 424Q PutFloat 221Q PutFloat 207Q PutFloat 176Q FMINUS 132Q SIN 117Q COS 64Q EXPT 22Q EXPT 6 ARRAY) (170Q FFTTABLETYPE# 3 POINTER) ( 104Q 0.0 75Q 1.0) FIN D1 (I 0 A F 0 PA) @P P (10Q INSPECT 4 FIX2FLOAT) NIL () FIN2 D1 (F 0 FFTBUF1 F 1 FFTBUF2) P Q (7 FIN 3 FIN) NIL () INITFFT D1 (P 30Q PASS P 13Q ADEST P 12Q ASOURCE P 11Q WI P 10Q WR P 7 UI P 6 UR P 5 NV2 P 4 LE1 P 3 LEXP P 2 N2 P 1 N P 0 M I 1 FFTBUF2 I 0 FFTBUF1 F 31Q \FFTTABLES F 32Q PI F 33Q \FFTARRAY2) XnZdg c6JlYdl]lXdg c2HkO0O. lO0 [lۼoo_W4Li _W4Li _O0kj@_AA_@_W2O0`O _dO dlO O__dl OlǿOOO_ _dl O lǿOO OJ_$_"dlO$lǿO"O$ MLl_&dO& LkMLl_(dO( MLkl_*dO*dlO O _,dlO, *O0k_0W2(507Q PutFloat 473Q FMINUS 465Q PutFloat 231Q PutFloat 217Q PutFloat 206Q FMINUS 141Q SIN 126Q COS 75Q EXPT 46Q ARRAY 20Q ARRAY) (335Q ARRAYP 276Q ARRAYP 237Q ARRAYP 200Q FFTTABLETYPE# 43Q POINTER 15Q FIXP) ( 113Q 0.0 106Q 1.0) PERMINIT D1 (P 5 PERM P 4 NV2 P 3 N P 2 K P 1 J P 0 I I 0 PASSES F 10Q TEMP) xl@ [dl\ngjd ]lj_ONMOd*Ok_kYdXIHMHk(cMHkMIk(*MIkW*LIdJJعHkظKHMJٹJl۰(31Q ARRAY 10Q EXPT) (24Q WORD) () READWAVE D1 (P 5 BYTE P 1 DATABYTE P 0 STREAM I 4 FIRSTBYTE I 3 FILE I 2 NUMBEROFBYTES I 1 INDEX I 0 ARRAY) mCg 1Hg"@ k@ @ KJ@Kl*Kk[HD ABkAML H Y@MlIIl؄nI*Mk]H h(151Q CLOSEF 70Q SETFILEPTR 41Q ARRAYORIG 34Q ARRAYORIG 26Q ARRAYSIZE 6 OPENSTREAM) (20Q NILL 15Q STREAM 3 INPUT) () SPECTRUMSCALEDREDISPLAY D1 (P 26Q PASS P 23Q WINDOWPTR P 22Q DATAPTR P 20Q HALFARRAYLENGTH P 17Q ARRAYLENGTH P 16Q XPOS P 15Q WINDOWBASE P 14Q GWIDTH P 13Q BOTTOM.X.SCALE.OFFSET P 12Q WindowToDataFactor P 11Q BARHEIGHT P 10Q BWINDOWWEIGHTSSHUFFLED P 7 WINDOWWIDTHINWORDS P 6 DD P 5 BASE P 4 BHALFTONE P 3 WIDTH P 2 LEFT P 1 DATAREGION P 0 PASSES I 2 DATALEFT I 1 REGION I 0 WINDOW F 27Q FFTSHIFT F 30Q BSUBWAVESHUFFLEDSMALLP F 31Q BLOGMAGNITUDE F 32Q BMAGNITUDESQUARED F 33Q BSUBWAVESHUFFLEDFLOATP F 34Q BSUBWAVEWEIGHTEDFLOATP F 35Q BFFTBUF1 F 36Q GWIDTH F 37Q HALFTONE F 40Q BWAVE F 41Q BSHUFFLE F 42Q FFTTABLE) c @g @g AAW@j @g (l@@g @g @g @g @g MB @g blH _@ MjOll@_BA_W.OOKjW.OOjAO(/O(jjO(O$W.OOKO$W.OOKO_ W@O$WBW0OW0W6OW6OW8OW8W:OHkO,O*WDO,( O,k_,W:W4O W4W2O W2LO&NOOOOO ߿O$W._(_$O&O_&Dh(426Q FFTSTEP 160Q TOTOPW 152Q EXPT 142Q GETWINDOWPROP 125Q GETWINDOWPROP 116Q GETWINDOWPROP 107Q GETWINDOWPROP 100Q GETWINDOWPROP 71Q GETWINDOWPROP 53Q GETWINDOWPROP 44Q BASEADDROFY 15Q GETWINDOWPROP 6 GETWINDOWPROP) (473Q \DISPLAYDATA 137Q DATALEFT 122Q BARWIDTH 113Q BOTTOM.X.SCALE.OFFSET 104Q WindowToDataFactor 75Q BARHEIGHT 66Q BWINDOWWEIGHTSSHUFFLED 56Q STREAM 50Q DSP 35Q ARRAYP 12Q DATAREGION 3 PASSES) () SPEECHDEMO D1 (P 7 PASS P 4 GSTART P 3 WSTART P 1 HALFARRAYLENGTH P 0 ARRAYLENGTH I 0 PASSES F 10Q SAMPLESPERFFT F 11Q WAVEFORMEND F 12Q BSUBWAVESHUFFLEDSMALLP F 13Q BSUBWAVESHUFFLEDFLOATP F 14Q BSUBWAVEWEIGHTEDFLOATP F 15Q BFFTBUF1 F 16Q BMAGNITUDESQUARED F 17Q LOGMAGNITUDE F 20Q WAVEFORMSTART F 21Q BWAVE F 22Q BSHUFFLE F 23Q BLOGMAGNITUDE F 24Q BWINDOWWEIGHTSSHUFFLED F 25Q GBITMAP F 26Q GWIDTH F 27Q FFTTABLE) l@ WWW WjMMjjMKWWKWWpHW"KW$WHWWHWW(WHWWH@kONW.O( Ok_WWIWW&IWLW*I KW]ػLW,ؼuh(225Q BLKGRAPH 162Q FFTSTEP 5 EXPT) NIL () SPEECHDEMOSCALEDWINDOWINIT D1 (P 3 FILELENGTH P 2 WINDOW I 2 FIRSTBYTE I 1 NUMPASSES I 0 FILENAME F 4 WAVE F 5 KAISER8) @AB llnl o@ @g T HdIIJ mJ JgA Jg@ J Jgl Jgk JgU Jjnldghdg h(205Q SCALED.WINDOW.SETUP 161Q PUTWINDOWPROP 144Q PUTWINDOWPROP 134Q PUTWINDOWPROP 123Q UPDATE.SCALED.WINDOW.EXTENT 117Q PUTWINDOWPROP 107Q PUTWINDOWPROP 77Q DSPLINEFEED 71Q DSPRESET 47Q ARRAYSIZE 43Q GETFILEINFO 34Q CREATEW 31Q CONCAT 21Q CREATEREGION 5 SPEECHDEMOINIT) (201Q NEWSCROLL 174Q SPECTRUMSCALEDREDISPLAY 154Q ARRAYP 150Q BWINDOWWEIGHTSSHUFFLED 140Q BARHEIGHT 127Q BARWIDTH 113Q FILENAME 103Q PASSES 40Q LENGTH) ( 25Q "Spectrogram of ") SPEECHMENUINIT D1 (F 2 SPECTRUMMENU) AR;`dododg dgjdndhHdI c (76Q ADDMENU) (41Q DEFAULTMENUHELDFN 32Q CLRPROMPT 5 MENUTYPE#) ( 23Q (("Narrow band" (USE.FILTER (QUOTE Narrow-band)) "Chooses narrow-band filter") ("Wide band" (USE.FILTER (QUOTE Wide-band)) "Chooses wide-band filter") ("Read wave" (GET.WAVE.AND.READ) "Reads a new wave")) 13Q "Spectrogram knobs:") FFTSTEP D1 (I 0 FFTTABLE F 0 \FFTTABLE F 1 \FFTTABLESIZE) P@QP@PhPhPlhhNIL (10Q FFTTABLE) () SPEECHDEMOINIT D1 (I 2 FIRSTBYTE I 1 PASSES I 0 WAVEFILE F 0 WAVE F 1 SHUFFLE6 F 2 SHUFFLE8 F 3 SHUFFLE F 4 SUBWAVESHUFFLEDSMALLP F 5 SUBWAVESHUFFLEDFLOATP F 6 SUBWAVEWEIGHTEDFLOATP F 7 SUBWAVEWEIGHTEDCOMPLEX F 10Q FFTBUF1 F 11Q FFTBUF2 F 12Q MAGNITUDESQUARED F 13Q LOGMAGNITUDE F 14Q WINDOWWEIGHTSSHUFFLED F 15Q WAVEFORMEND F 16Q BFFTBUF1 F 17Q BFFTBUF2 F 20Q FFTTABLE F 21Q BSUBWAVEWEIGHTEDCOMPLEX F 22Q BLOGMAGNITUDE F 23Q HALFTONE F 24Q BMAGNITUDESQUARED F 25Q BSUBWAVESHUFFLEDFLOATP F 26Q KAISER6 F 27Q KAISER8 F 30Q BWINDOWWEIGHTSSHUFFLED F 31Q \FFTTABLE F 32Q BHALFTONE F 33Q WAVEFORMSTART F 34Q BSHUFFLE F 35Q BSUBWAVEWEIGHTEDFLOATP F 36Q BWAVE F 37Q BSUBWAVESHUFFLEDSMALLP) D l cl cAlQRcngjd cngoj c ngoj c ngoj cngjdn cngjdn clgoj clgjdn cPnPgjd cjn@B AlW,W.c`c2kc6Wdn,cSc8PcUc*Wc0Vc:Wc"W&c4Wc$WcWcWc(WWA c (477Q FFTTABLEINIT 257Q READWAVE 243Q ARRAY 223Q ARRAY 203Q ARRAY 164Q ARRAY 143Q ARRAY 122Q ARRAY 102Q ARRAY 62Q ARRAY 42Q ARRAY 13Q PERMINIT 4 PERMINIT) (463Q ARRAYP 452Q ARRAYP 441Q ARRAYP 430Q ARRAYP 417Q ARRAYP 406Q ARRAYP 375Q ARRAYP 365Q ARRAYP 354Q ARRAYP 344Q ARRAYP 334Q ARRAYP 324Q ARRAYP 277Q FFTTABLETYPE# 236Q WORD 212Q WORD 173Q FLOATP 153Q FLOATP 132Q FLOATP 112Q FLOATP 72Q FLOATP 52Q FLOATP 35Q WORD) ( 177Q 0.0 116Q 0.0 76Q 0.0 56Q 0.0) TRYIT D1 (I 1 FIRSTBYTE I 0 NPASSES F 0 PASSES) g@lcAn: P (26Q SPEECHDEMO 22Q SPEECHDEMOINIT) (2 {ERIS}WAVE>AUSTIN1.WAVE) () BASEADDROFY D1 (I 1 Y I 0 WINDOW) 4h@ @g (HHAIk(13Q GETWINDOWPROP 4 DSPDESTINATION) (44Q \DISPLAYDATA 35Q BITMAP 27Q BITMAP 16Q STREAM 10Q DSP) () ConvertWindowToFFTCoords D1 (L (1 WindowToDataFactor 0 WINDOWPTR)) @ANIL NIL () SETCOMPLEX D1 (I 2 I I 1 R I 0 PTR) @Al@lBlNIL (17Q FLOATP 4 FLOATP) () SD2 D1 (I 2 FIRSTBYTE I 1 NUMPASSES I 0 FILENAME F 0 GBITMAP) ll$nl o c@AB (35Q SPEECHDEMOWINDOWINIT 25Q CREATEW 22Q CONCAT 13Q CREATEREGION) NIL ( 17Q "... Spectrogram ...") \FLOATBLT1.UFN D1 (I 3 OP I 2 KOUNT I 1 DEST I 0 SOURCE) 9Cdj@AB k@AB Cdl@AB l@AB o (66Q SHOULDNT 56Q BLKFLOATP2COMP 43Q BLKSMALLP2FLOAT 25Q BLKMAG 13Q BLKEXPONENT) NIL ( 63Q "illegal op to \FLOATBLT1.UFN") \FLOATBLT2.UFN D1 (I 4 OP I 3 KOUNT I 2 DEST I 1 SOURCE2 I 0 SOURCE1) "Ddj@ABC k@ABC o (37Q SHOULDNT 27Q BLKPERM 14Q BLKFTIMES) NIL ( 34Q "illegal OP to \FLOATBLT2.UFN") \IBLT.UFN D1 (P 5 X P 3 val P 1 TEXTURE P 0 BITMAPOFFSET I 7 Kount I 6 ValWidth I 5 ValHeight I 4 BitmapWidth I 3 BitmapAddr I 2 XCoord I 1 TextureArray I 0 ValueArray) ACjGkJK/A@KEkMLHBFI HDиMk]Kkٻh(53Q \PUTBASEBITS) NIL () BLKGRAPH3 D1 (P 5 X P 3 val P 1 TEXTURE P 0 BITMAPOFFSET I 7 Kount I 6 ValWidth I 5 ValHeight I 4 BitmapWidth I 3 BitmapAddr I 2 XCoord I 1 TextureArray I 0 ValueArray) ACjGkJK/A@KEkMLHBFI HDиMk]Kkٻh(53Q \PUTBASEBITS) NIL () BLKGRAPH4 D1 (P 3 X P 2 WINDOWWIDTHINWORDS P 1 DD P 0 BASE I 6 Kount I 5 ValWidth I 4 ValHeight I 3 WINDOW I 2 XCoord I 1 TextureArray I 0 ValueArray F 4 GSTART) 3Cj Cg (l@TI[@AKHoJDEF h(57Q BLKGRAPH3 13Q GETWINDOWPROP 4 BASEADDROFY) (32Q \DISPLAYDATA 16Q STREAM 10Q DSP) ( 46Q -20000Q) BLKMAG D1 (P 4 imag P 3 real P 2 complexcount P 1 magnitude I 2 kount I 1 magnitudeArray I 0 complexArray) } Bkj IdHh@Jоl]dNMN@Jl_l_dOOOAIKdLd__OO OOOOIkY(142Q \ILLEGAL.ARG) NIL () BLKSMALLP2FLOAT D1 (P 1 NN I 2 kkount I 1 destination I 0 source) 9Bkj"IHhAI@IKK JKJKIkY(42Q \ILLEGAL.ARG) (30Q FLOATP) () BLKFLOATP2COMP D1 (P 1 sourceElt I 2 kount I 1 destination I 0 source) 8Bkj"IHhAI@IлlZdKJKo IkY(57Q SETCOMPLEX) NIL ( 54Q 0.0) BLKFTIMES D1 (P 1 INDEX I 3 KOUNT I 2 DEST I 1 SOURCE2 I 0 SOURCE1) eCkjbIHhBI@IлlZdKJKAIнl\dMLM_OO NONOIlY(113Q \ILLEGAL.ARG) NIL () BLKPERM D1 (L (3 kount 2 destination 1 permutations 0 orig)) #CkjIHhBI@AIIkYNIL NIL () BLKEXPONENT D1 (P 1 X I 2 kount I 1 destination I 0 source) 4Bkj"IHhAI@IлlZdKJKIkYNIL NIL () BLKGRAPH D1 (P 5 XL P 3 LEFTOFFSET P 2 DOTS P 1 Y I 3 KOUNT I 2 BITMAP I 1 X I 0 ARRAY F 6 SpeechThresholds F 7 GWIDTH) E@Ck Ckj"IHhV@I((WJJKkKMLBAMIk Mk]IkY(65Q BITMAPBIT 6 \CHECKARRAYINDEX) NIL () BLKGRAPH2 D1 (P 3 val P 1 GRAY P 0 BBTTABLE I 7 Kount I 6 ValWidth I 5 ValHeight I 4 BitmapWidth I 3 BitmapAddr I 2 XCoord I 1 ThreshArray I 0 ValueArray F 4 \SYSBBTEXTURE) `1TYHj HIHIHCHCHDnHjHjHBHFHE Hl QHj @Hk 0kjhHjCHlHjjGJKIA@K((H Kkٻh(241Q \DOPILOTBITBLT) (141Q PILOTBBT 132Q PILOTBBT 123Q PILOTBBT 114Q PILOTBBT 105Q PILOTBBT 72Q PILOTBBT 62Q PILOTBBT 51Q PILOTBBT 41Q PILOTBBT 30Q PILOTBBT 21Q PILOTBBT 12Q BITMAP 2 PILOTBBTTYPE#) () COPYWAVEARRAY D1 (P 2 X F 3 WAVE F 4 SPEECH.*WAVE*) AS kS S IHSIl*IkYnkJIhSJTJ( *JkZ(67Q CORRECT 16Q ARRAYORIG 11Q ARRAYORIG 3 ARRAYSIZE) NIL () RESETHALFTONE D1 (L (0 MID) F 2 HALFTONE) ?ljIHhRIdd@kj@klId@l @kll*IkYNIL NIL () SPECTRUMSCALEDREDISPLAY D1 (P 26Q PASS P 23Q WINDOWPTR P 22Q DATAPTR P 20Q HALFARRAYLENGTH P 17Q ARRAYLENGTH P 16Q XPOS P 15Q WINDOWBASE P 14Q GWIDTH P 13Q BOTTOM.X.SCALE.OFFSET P 12Q WindowToDataFactor P 11Q BARHEIGHT P 10Q BWINDOWWEIGHTSSHUFFLED P 7 WINDOWWIDTHINWORDS P 6 DD P 5 BASE P 4 BHALFTONE P 3 WIDTH P 2 LEFT P 1 DATAREGION P 0 PASSES I 2 DATALEFT I 1 REGION I 0 WINDOW F 27Q FFTSHIFT F 30Q BSUBWAVESHUFFLEDSMALLP F 31Q BLOGMAGNITUDE F 32Q BMAGNITUDESQUARED F 33Q BSUBWAVESHUFFLEDFLOATP F 34Q BSUBWAVEWEIGHTEDFLOATP F 35Q BFFTBUF1 F 36Q GWIDTH F 37Q HALFTONE F 40Q BWAVE F 41Q BSHUFFLE F 42Q FFTTABLE) c @g @g AAW@j @g (l@@g @g @g @g @g MB @g blH _@ MjOll@_BA_W.OOKjW.OOjAO(/O(jjO(O$W.OOKO$W.OOKO_ W@O$WBW0OW0W6OW6OW8OW8W:OHkO,O*WDO,( O,k_,W:W4O W4W2O W2LO&NOOOOO ߿O$W._(_$O&O_&Dh(426Q FFTSTEP 160Q TOTOPW 152Q EXPT 142Q GETWINDOWPROP 125Q GETWINDOWPROP 116Q GETWINDOWPROP 107Q GETWINDOWPROP 100Q GETWINDOWPROP 71Q GETWINDOWPROP 53Q GETWINDOWPROP 44Q BASEADDROFY 15Q GETWINDOWPROP 6 GETWINDOWPROP) (473Q \DISPLAYDATA 137Q DATALEFT 122Q BARWIDTH 113Q BOTTOM.X.SCALE.OFFSET 104Q WindowToDataFactor 75Q BARHEIGHT 66Q BWINDOWWEIGHTSSHUFFLED 56Q STREAM 50Q DSP 35Q ARRAYP 12Q DATAREGION 3 PASSES) () SPECTRUMREDISPLAY D1 (P 22Q PASS P 17Q GSTART P 16Q WSTART P 14Q HALFARRAYLENGTH P 13Q ARRAYLENGTH P 12Q WINDOWBASE P 11Q GWIDTH P 10Q BARHEIGHT P 7 BWINDOWWEIGHTSSHUFFLED P 6 WINDOWWIDTHINWORDS P 5 DD P 4 BASE P 3 BHALFTONE P 2 RIGHT P 1 LEFT P 0 PASSES I 1 REGION I 0 WINDOW F 23Q SAMPLESPERFFT F 24Q BSUBWAVESHUFFLEDSMALLP F 25Q BLOGMAGNITUDE F 26Q BMAGNITUDESQUARED F 27Q BSUBWAVESHUFFLEDFLOATP F 30Q BSUBWAVEWEIGHTEDFLOATP F 31Q BFFTBUF1 F 32Q GWIDTH F 33Q HALFTONE F 34Q BWAVE F 35Q BSHUFFLE F 36Q FFTTABLE) , @g AAAkW4W6@j @g (l@@g @g @g : lH _Lo_W&JO W&IO IO -O jjO OW&JO OW&JO O_W8OW:W(OW(W.OW.OW0OW0W2OHkO$O"W