-odac -M1 ;;;realtime audio out sr = 44100 kr = 4410 nchnls = 2 0dbfs = 1 garev1 = 0 garev2 =0 instr 1 iAmp ampmidi 0.9 ;get the amplitude iNum notnum iNum = iNum+2 iFreq = (440.0*exp(log(2.0)*((iNum)-69.0)/12.0)) ctrlinit 1, 1, 120 iAtt = 0.04 iRel = 2.7 kEnv expsegr 0.0001, iAtt, iAmp, iRel, 0.0001 kpitch pchbend 0, 40 kpitch = kpitch+iFreq ctrlinit 1, 1, 120 kstart ctrl7 1, 1, 0.02, 0.3 kend ctrl7 1, 1, 0.25, 12 kcrossfade ctrl7 1, 1, 1, 5 asound1 flooper2 iAmp, kpitch/88, kstart, kend, kcrossfade, 2 asound2 flooper2 iAmp, kpitch/88, kstart, kend, kcrossfade, 1 kfrqw1 randomi (iFreq*2)-20, (iFreq*4)+20, 6.2 kcutw1 randomh (iFreq*4)-20, (iFreq*3)-20, 2.3 aw1 wguide1 asound1, kfrqw1, kcutw1, 0.8 kfrqw2 randomi (iFreq*2)-250, (iFreq*2)+2000, 7.2 kcutw2 randomh (iFreq*3)-200, (iFreq*3)-4000, 2.1 aw2 wguide1 asound2, kfrqw2, kcutw2, 0.8 ahpass1 butterhp aw1, 50 ahpass2 butterhp aw2, 50 ahpass1= ahpass1*kEnv ahpass2= ahpass2*kEnv garev1 = garev1 + ahpass1 garev2 = garev2 + ahpass1 outch 1, ahpass1 outch 2, ahpass2 endin instr 99 arev1, arev2 reverbsc garev1, garev2, 0.9, 4000 adel1 delay arev1, 0.85 adel2 delay arev2, 1.55 outch 1, (arev2 + adel2)*0.14 outch 2, (arev1 + adel1)*0.14 clear garev1 clear garev2 endin f0 3600 f 1 0 0 1 "expl_03_comp.aiff" 0 0 0 f 2 0 0 1 "expl_08.aiff" 0 0 0 i 99 0 3600 e Widgets 0 0 0 0 true 255 255 255