-+S -b800 sr = 44100 kr = 441 ksmps = 100 nchnls = 1 giSampTab ftgen 1,0,0, -22, "c:/csound/examples/voceGabEng.aif", 0, 0, 0 giElem init 5 giOutTab ftgen 5,0,128, -2, 414, 1.6, 20, 2.88, .03 giFreqTab ftgen 2,0,128,-7, 1,giElem, giElem+1 giExpTab ftgen 3,0,256,-2, -1,-1,0,0,-1,0 giMinMaxt ftgen 4,0,256,-2, 100,5000, .1,40, 1,50, 0,8, .001, 1 giSine ftgen 10,0,256,10, 1 tb0_init giOutTab FLpanel "This Panel contains a Slider Bank",500,400 FLslidBnk "center freq@bandwidth@num of filters@separation@main volume", giElem, giOutTab, 300, 200, 150,10, 0, giExpTab, 0, giMinMaxt gkOnOff,if7b FLbutton "Activate Generation",0,1,12,127,40,50,250 ,0,1,0,3600 FLpanel_end FLrun ;*************************************************** instr 1 ;*************************************************** turnoffk gkOnOff ;*** score activated kamp linsegr 1,1,1,.05,0 icps = 1 ;***** xamp, kcps, ifn[, ibas] [,imod1,ibeg1,iend1] a1 loscil2 1, icps, giSampTab, 1, 1, 0, 90000 ;***** asig, *kcf, *kbw, *ord, *sep, iflag, *iscl, *istor; a2 resony a1, tb0(k(0)) *icps , tb0(k(1)) ,i(tb0(k(2))),tb0(k(3)) ,0, 2 out a2*tb0(k(4))*kamp ;, a3*p4 /* printk2 tb0(k(0)) printk2 tb0(k(1)) printk2 tb0(k(2)) printk2 tb0(k(3)) printk2 tb0(k(4)) */ endin f0 3600