-+P -d -+O ;Alessandro Petrolati ;Spectral Text ;9/04/2004 sr =44100 kr =441 ksmps =100 giFrames init 25 giMinFreq init 8 ;Oct 261 Hz do4 centrala 8=65; 7= 130 6=260 etc... giFrqs init 2 ;2 = 16; 4=32; 5=40 ;6=48 si incrementa di 8 giDbout init 0 ;coded conversion of the DFT output: 0 = magnitude, 1 = dB, 2 = mag squared, 3 = root magnitude giSize init 1024 giOut ftgen 10,0,giSize, 2, 0 FLpanel "Spectral Text",350,500,50,50 ih1 FLvalue " ", 54, 25, 295, 15 gkGain,init0 FLslider "Signal gain",0, 30, 0, 3, ih1, 280, 18, 10,20 FLsetVal_i 20,init0 FLsetBox 4,init0 FLsetAlign 2,init0 FLsetBox 0,ih1 kexit, iex FLbutton "Exitnow", 1, 0, 1, 100, 30, 120, 450, +105, 110, 0, 3600 FLsetFont 2,iex FLsetTextSize 12,iex FLsetBox 4, iex FLcolor 128,0,0,192,192,192 knull1,gihband1 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 10, 45+14 knull2,gihband2 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 30, 45+14 knull3,gihband3 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 50, 45+14 knull4,gihband4 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 70, 45+14 knull5,gihband5 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 90, 45+14 knull6,gihband6 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 110, 45+14 knull7,gihband7 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 130, 45+14 knull8,gihband8 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 150, 45+14 knull9,gihband9 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 170, 45+14 knull10,gihband10 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 190, 45+14 knull11,gihband11 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 210, 45+14 knull12,gihband12 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 230, 45+14 knull13,gihband13 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 250, 45+14 knull14,gihband14 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 270, 45+14 knull15,gihband15 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 290, 45+14 knull17,gihband16 FLslider " ", 0,1, 0, 2, -1, 20, 485-14-90, 310, 45+14 FLsetVal_i 1,gihband1 FLsetVal_i 1,gihband2 FLsetVal_i 1,gihband3 FLsetVal_i 1,gihband4 FLsetVal_i 1,gihband5 FLsetVal_i 1,gihband6 FLsetVal_i 1,gihband7 FLsetVal_i 1,gihband8 FLsetVal_i 1,gihband9 FLsetVal_i 1,gihband10 FLsetVal_i 1,gihband11 FLsetVal_i 1,gihband12 FLsetVal_i 1,gihband13 FLsetVal_i 1,gihband14 FLsetVal_i 1,gihband15 FLsetVal_i 1,gihband16 FLsetBox 5,gihband1 FLsetBox 5,gihband2 FLsetBox 5,gihband3 FLsetBox 5,gihband4 FLsetBox 5,gihband5 FLsetBox 5,gihband6 FLsetBox 5,gihband7 FLsetBox 5,gihband8 FLsetBox 5,gihband9 FLsetBox 5,gihband10 FLsetBox 5,gihband11 FLsetBox 5,gihband12 FLsetBox 5,gihband13 FLsetBox 5,gihband14 FLsetBox 5,gihband15 FLsetBox 5,gihband16 FLpanel_end FLrun instr 1 a1 diskin "BROWSE_FILE",1,0,1 out a1 w1 spectrum (a1/32767)*gkGain,1/giFrames,giMinFreq,giFrqs,10,1,giDbout ; form a spectral data type spec2tab w1, giOut, 2 giElem,ilo,ihi specinfo w1 print giElem print ilo print ihi k0 tab 0,giOut k1 tab 1,giOut k2 tab 2,giOut k3 tab 3,giOut k4 tab 4,giOut k5 tab 5,giOut k6 tab 6,giOut k7 tab 7,giOut k8 tab 8,giOut k9 tab 9,giOut k10 tab 10,giOut k11 tab 11,giOut k12 tab 12,giOut k13 tab 13,giOut k14 tab 14,giOut k15 tab 15,giOut ktrig metro giFrames FLsetVal ktrig,1-k0, gihband1 FLsetVal ktrig,1-k1, gihband2 FLsetVal ktrig, 1-k2, gihband3 FLsetVal ktrig, 1-k3, gihband4 FLsetVal ktrig, 1-k4, gihband5 FLsetVal ktrig, 1-k5, gihband6 FLsetVal ktrig, 1-k6, gihband7 FLsetVal ktrig, 1-k7, gihband8 FLsetVal ktrig, 1-k8, gihband9 FLsetVal ktrig, 1-k9, gihband10 FLsetVal ktrig, 1-k10, gihband11 FLsetVal ktrig, 1-k11, gihband12 FLsetVal ktrig, 1-k12, gihband13 FLsetVal ktrig, 1-k13, gihband14 FLsetVal ktrig, 1-k14, gihband15 FLsetVal ktrig, 1-k15, gihband16 k0d = dbfsamp(k0*32767) k1d = dbfsamp(k1*32767) k2d = dbfsamp(k2*32767) k3d = dbfsamp(k3*32767) k4d = dbfsamp(k4*32767) k5d = dbfsamp(k5*32767) k6d = dbfsamp(k6*32767) k7d = dbfsamp(k7*32767) k8d = dbfsamp(k8*32767) k9d = dbfsamp(k9*32767) k10d = dbfsamp(k10*32767) k11d = dbfsamp(k11*32767) k12d = dbfsamp(k12*32767) k13d = dbfsamp(k13*32767) k14d = dbfsamp(k14*32767) k15d = dbfsamp(k15*32767) dumpk k0d, "c:/Banda1.doc",8,1/giFrames dumpk k1d, "c:/Banda2.doc",8,1/giFrames dumpk k2d, "c:/Banda3.doc",8,1/giFrames dumpk k3d, "c:/Banda4.doc",8,1/giFrames dumpk k4d, "c:/Banda5.doc",8,1/giFrames dumpk k5d, "c:/Banda6.doc",8,1/giFrames dumpk k6d, "c:/Banda7.doc",8,1/giFrames dumpk k7d, "c:/Banda8.doc",8,1/giFrames dumpk k8d, "c:/Banda9.doc",8,1/giFrames dumpk k9d, "c:/Banda10.doc",8,1/giFrames dumpk k10d,"c:/Banda11.doc",8,1/giFrames dumpk k11d,"c:/Banda12.doc",8,1/giFrames dumpk k12d,"c:/Banda13.doc",8,1/giFrames dumpk k13d,"c:/Banda14.doc",8,1/giFrames dumpk k14d,"c:/Banda15.doc",8,1/giFrames dumpk k15d,"c:/Banda16.doc",8,1/giFrames endin instr 110 exitnow endin i1 0 10000 e