; c.z.robertson-praleck_brome.csd ; Praleck Brome ; Copyright 2002 colin z robertson ; http://rtnl.org.uk/music ; Licensed under the terms of the CC ShareAlike License 1.0 ; sr = 44100 kr = 4410 ksmps = 10 nchnls=2 garvbsig init 0 ;------------------------------ ; Simple FM ;------------------------------ instr 1 idur = p3 ; Duration iamp = p4 ; Amplitude icps = cpspch(p5) ; Pitch ifunc = p6 ; Function table irev = p7 ; Reverb ipan = p8 ; balance irt1 = 3 ; C:M = 1:irtio irt2 = 5 ; C:M = 1:irtio kndx1 linseg 4, idur, 0 ; Modulation Index kndx2 linseg 0, idur, 4 ; Modulation Index kamp linseg p4, 0.1, p4, 0.2, p4/2, idur-0.3, 0 ; Amplitude envelope afm1 foscil 10000,icps,1,irt1,kndx1,ifunc ; FM signal afm2 foscil 10000,icps,1,irt2,kndx2,ifunc ; FM signal aout = (afm1 + afm2) * kamp outs aout*ipan,aout*(1-ipan) ; Output garvbsig = garvbsig+(aout*irev) ; Reverb signal endin ;------------------------------ ; Analog Bass ;------------------------------ instr 2 idur = p3 ; Duration ivol = p4 ; Volume ipch = cpspch(p5) ; Pitch ifun1 = p6 ; Function table ifun2 = p7 ; Function table irev = p8 ; Reverb ipan = p9 ; Balance iar = 0.05 iad = idur - iar iadl = 1 - (idur * 0.5) ich = 0.5 ica = 0.5 ifreq = 5 icfr = cpspch(9.08) kamp linseg 1, iad, iadl, iar, 0 kamp limit kamp, 0, 1 kcut linseg icfr, ich, icfr, idur-ich, icfr aosc1 oscil ivol, ipch, ifun1 aosc2 oscil ivol, ipch*0.99, ifun2, 0.2 aosc3 oscil ivol, ipch*1.01, ifun2, 0.8 amix = (aosc1 + aosc2 + aosc3) afilt rezzy amix, kcut, 1 afin = afilt * kamp * 10000 garvbsig = garvbsig+afin*irev outs afin*ipan, afin*(1-ipan) endin ;------------------------------ ; Ringing, p3:dur p4:amp p5:pitch p6:reverb p7:att p8:rel p9:bal ;------------------------------ instr 3 irvbgain = p6 inote=cpspch(p5) ibalance= p9 k1 oscil 300, .2,1 k2 oscil 200, .5,1 k3 oscil 400, .05,1 ; res sweep a2 oscil p4*0.30, inote*1.000, 4 a3 oscil p4*0.20, inote*1.000, 5 a4 fof p4*0.20+k2, inote, 600, 0, 40, .003, .02, .007, 10, 1, 2, p3 amix= a2+a3+a4 a6 butterlp amix,k1+3000,5 ;input, freq, Q a7 butterlp a6, k1+3000,5 a9 reson a7, k3+5000, 5 a11 butterlp a9,9000 a12 butterhp a11,7000 aenv linen a12*20, p7, p3, p8 outs aenv*ibalance, aenv*(1-ibalance) garvbsig = garvbsig+(aenv)*irvbgain endin ;------------------------------ ; Snare Drum ;------------------------------ instr 6 idur = p3 ; Duration iamp = p4 ; Amplitude icps = cpspch(p5) ; Pitch irev = p6 ; Reverb ipan = p7 ; Balance ih = 0.0005 k1 expseg 1, ih, 1, idur-ih, 0.001 kamp linseg 1, ih, 1, idur-ih, 0 a1 trirand 5000 a2 rezzy a1, k1*2000, 1 a3 pareq a2, icps, 300, 1, 0 a4 distort1 a3*2, 1 a5 = a3*iamp*kamp garvbsig = garvbsig+a5*irev outs a5*ipan,a5*(1-ipan) endin ;------------------------------ ; Bass Drum ;------------------------------ instr 7 idur = p3 ; Duration iamp = p4 ; Amplitude irev = p5 ; Reverb ipan = p6 ; Balance ih = 0.0005 k1 expseg 1, ih, 1, idur-ih, 0.001 a1 trirand 1000 a2 rezzy a1, k1*20000, 1 a3 pareq a2, 50, 30, 1, 0 a4 pareq a3, 20, 30, 1, 0 a5 distort1 a4*8, 0.5 a6 = a5*k1*iamp a7 reverb a6*.2, 0.2 a8 pareq a7+a6, 100, 5, 1, 0 outs a8*ipan,a8*(1-ipan) ;display a8, idur garvbsig = garvbsig+a8*irev endin ;------------------------------ ; Tick ;------------------------------ instr 8 idur = p3 ; Duration iamp = p4 ; Amplitude k1 expseg 1, idur, 0.1 a1 poisson .01 a2 = a1*k1*10000*iamp outs a2,a2 ;garvbsig = garvbsig + a2 endin ;------------------------------ ; Pluck ;------------------------------ instr 9 idur = p3 ; Duration iamp = p4 ; Amplitude icps = cpspch(p5) ; Pitch ifn = p6 ; Function table irev = p7 ; Reverb ipan = p8 ; balance kenv expseg 1, 0.04, 1, (idur-0.05)/2, 0.2, (idur-0.05)/2, 0.01 a1 pluck 5000, icps, 400, ifn, 2, 2 ;a2 reverb a1, 1 aout = a1*kenv*iamp outs aout*ipan, aout*(1-ipan) garvbsig = garvbsig + (aout*irev) endin ;------------------------------ ; Analog Pluck, p3:dur p4:amp p5:pitch p6:reverb p7:att p8:rel p9:bal ;------------------------------ instr 10 irvbgain = p6 inote=cpspch(p5) ibalance= p9 k1 line 2500, p3*.8,1500 k3 line 10000, p3*.5,5000 ; res sweep k2 linen k3, .08, p3*.5, .3 a1 oscil p4*0.40, inote, 06 a2 oscil p4*0.40, inote*1.002-.12, 03 a3 oscil p4*0.40, inote*1.002+.12, 06 a4 oscil p4*0.70, inote-.24, 05 amix= a1+a2+a3+a4 a6 butterlp amix,k2,20 ;input, freq, Q a8 butterlp (a6), k2,20 a9 butterhp a8, 65 a10 butterhp a9, 65 a11 butterlp a10,10000 aenv linen a11, p7, p3, p8 outs aenv*ibalance, aenv*(1-ibalance) garvbsig = garvbsig+(aenv)*irvbgain endin ;------------------------------ ; Noisy Electro-Ping ;------------------------------ instr 11 ivol = p4 ; volume ipch = cpspch(p5) ; pitch irev = p6 ; reverb ibal = p7 ; balance ivh = 0.00005 ifh = 0.5 k1 linseg 1, ifh, 1, p3-ifh, 0 a1 trirand 1000 a2 rezzy a1, k1*20000, 5 a3 pareq a2, ipch, 9000, 50, 0 a4 pareq a3, ipch*3, 10, 20, 0 a5 pareq a4, ipch*1.5, 10, 20, 0 adst distort1 a5, 3 k2 linseg 1, ivh, 1, p3-ivh, 0 a6 = adst aout = a6*k2*ivol garvbsig = garvbsig + (aout*irev) outs aout*ibal, aout*(1-ibal) endin ;------------------------------ ; Global Reverb ;------------------------------ instr 99 irvbtime= p4 asig reverb garvbsig, irvbtime outs asig,asig garvbsig = 0 endin f01 0 4096 10 1 ;fof f02 0 1024 19 .5 .5 270 .5 ;fof f03 0 1024 10 1 ;sine f04 0 1024 7 0 124 1 900 0 ;saw f05 0 1024 7 0 124 1 900 1 1 1 1 1 1 1 1 ;Buzz f06 0 2048 10 1 1 1 1 .7 .5 .3 .1 ;pulse f07 0 2 02 -1 1 ;square f10 0 1024 21 1 ;noise t0 200 ; Pluck instrument ; strt dur amp pitch rev att rel bal #define pluckchords(s) # i10 [($s*12)+0] .4 4000 7.03 .1 .01 .01 .4 i10 [($s*12)+1] . . 7.08 . . . . i10 [($s*12)+2] . . 7.11 . . . . i10 [($s*12)+3] . . 7.03 . . . . i10 [($s*12)+4] . . 7.08 . . . . i10 [($s*12)+5] . . 7.11 . . . . i10 [($s*12)+6] . . 7.03 . . . . i10 [($s*12)+7] . . 7.08 . . . . i10 [($s*12)+8] . . 7.11 . . . . i10 [($s*12)+9] . . 7.03 . . . . i10 [($s*12)+10] . . 7.08 . . . . i10 [($s*12)+11] . . 7.11 . . . . i10 [($s*12)+12] . . 7.03 . . . . i10 [($s*12)+13] . . 7.08 . . . . i10 [($s*12)+14] . . 7.11 . . . . i10 [($s*12)+15] . . 7.03 . . . . i10 [($s*12)+16] . . 7.08 . . . . i10 [($s*12)+17] . . 7.11 . . . . i10 [($s*12)+18] . . 7.03 . . . . i10 [($s*12)+19] . . 7.08 . . . . i10 [($s*12)+20] . . 7.11 . . . . i10 [($s*12)+21] . . 7.03 . . . . i10 [($s*12)+22] . . 7.08 . . . . i10 [($s*12)+23] . . 7.11 . . . . i10 [($s*12)+24] . . 7.06 . . . . i10 [($s*12)+25] . . 7.11 . . . . i10 [($s*12)+26] . . 8.02 . . . . i10 [($s*12)+27] . . 7.06 . . . . i10 [($s*12)+28] . . 7.11 . . . . i10 [($s*12)+29] . . 8.02 . . . . i10 [($s*12)+30] . . 7.06 . . . . i10 [($s*12)+31] . . 7.11 . . . . i10 [($s*12)+32] . . 8.02 . . . . i10 [($s*12)+33] . . 7.06 . . . . i10 [($s*12)+34] . . 7.11 . . . . i10 [($s*12)+35] . . 8.02 . . . . i10 [($s*12)+36] . . 7.08 . . . . i10 [($s*12)+37] . . 8.01 . . . . i10 [($s*12)+38] . . 8.04 . . . . i10 [($s*12)+39] . . 7.08 . . . . i10 [($s*12)+40] . . 8.01 . . . . i10 [($s*12)+41] . . 8.04 . . . . i10 [($s*12)+42] . . 7.08 . . . . i10 [($s*12)+43] . . 8.01 . . . . i10 [($s*12)+44] . . 8.05 . . . . i10 [($s*12)+45] . . 7.08 . . . . i10 [($s*12)+46] . . 8.01 . . . . i10 [($s*12)+47] . . 8.05 . . . . # ; Rings ; strt dur amp pitch rev att rel bal #define rings(s) # i3 [($s*12)+00] 5 4000 5.03 .05 .01 .01 .6 i3 [($s*12)+11] 1 . 5.03 . . . . i3 [($s*12)+12] 5 . 5.03 . . . . i3 [($s*12)+23] 1 . 5.03 . . . . i3 [($s*12)+24] 5 . 5.02 . . . . i3 [($s*12)+35] 1 . 6.02 . . . . i3 [($s*12)+36] 5 . 5.08 . . . . # #define snaredrumamp # 0.1 # #define snaredrumbal # 0.3 # ; Snare Drum ; strt dur amp pch rev bal #define snaredrum(s) # i6 [($s*12)+03.00] 1 [$snaredrumamp*1.0] 11.08 0 $snaredrumbal i6 [($s*12)+09.00] . . . . . i6 [($s*12)+15.00] . . . . . i6 [($s*12)+21.00] . . . . . i6 [($s*12)+27.00] . . . . . i6 [($s*12)+33.00] . . . . . i6 [($s*12)+39.00] . . . . . i6 [($s*12)+45.00] . . . . . # ; Snare Drum 2 ; strt dur amp pch rev bal #define snaredrum2(s) # i6 [($s*12)+03.00] 1 [$snaredrumamp*1.0] 11.08 0 $snaredrumbal i6 [($s*12)+05.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+09.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+11.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+15.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+17.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+21.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+23.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+27.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+29.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+33.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+35.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+39.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+41.50] . [$snaredrumamp*0.8] . . . i6 [($s*12)+45.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+47.50] . [$snaredrumamp*0.8] . . . # ; Snare Drum 3 ; strt dur amp pch rev bal #define snaredrum3(s) # i6 [($s*12)+00.00] 1 [$snaredrumamp*1.0] 11.08 0 $snaredrumbal i6 [($s*12)+03.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+04.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+05.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+06.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+09.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+10.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+11.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+12.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+15.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+16.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+17.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+18.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+21.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+22.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+23.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+24.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+27.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+28.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+29.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+30.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+33.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+34.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+35.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+36.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+39.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+40.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+41.00] . [$snaredrumamp*0.9] . . . i6 [($s*12)+42.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+45.00] . [$snaredrumamp*1.0] . . . i6 [($s*12)+46.00] . [$snaredrumamp*0.8] . . . i6 [($s*12)+47.00] . [$snaredrumamp*0.9] . . . # ; Complex Drum ; strt dur amp pch rev bal #define complexdrum(s) # i6 [($s*12)+02.50] 1 .07 9.08 0 .2 i6 [($s*12)+08.50] . . . . . i6 [($s*12)+14.50] . . . . . i6 [($s*12)+20.50] . . . . . i6 [($s*12)+26.50] . . . . . i6 [($s*12)+32.50] . . . . . i6 [($s*12)+38.50] . . . . . i6 [($s*12)+44.50] . . . . . # ; Bass Drum ; strt dur amp rev bal #define bassdrum(s) # i7 [($s*12)+00] 1 .4 .0 .5 i7 [($s*12)+10.5] . . . . i7 [($s*12)+12] . . . . i7 [($s*12)+24] . . . . i7 [($s*12)+34.5] . . . . i7 [($s*12)+36] . . . . # ; Bass Drum 2 ; strt dur amp rev bal #define bassdrum2(s) # i7 [($s*12)+00] 1 .4 .0 .5 i7 [($s*12)+02] . . . . i7 [($s*12)+03] . . . . i7 [($s*12)+06] . . . . i7 [($s*12)+10.5] . . . . i7 [($s*12)+12] . . . . i7 [($s*12)+18] . . . . i7 [($s*12)+22] . . . . i7 [($s*12)+23] . . . . i7 [($s*12)+24] . . . . i7 [($s*12)+30] . . . . i7 [($s*12)+34.5] . . . . i7 [($s*12)+36] . . . . i7 [($s*12)+42] . . . . # ; Fast Ticks ; strt dur amp pch rev bal #define fasttick(s) # i8 [($s*12)+00.00] .5 .3; 12.08 .0 .5 i8 [($s*12)+00.50] . .; . . .; i8 [($s*12)+01.00] . .; . . .; i8 [($s*12)+01.50] . .; . . .; i8 [($s*12)+02.00] . .; . . .; i8 [($s*12)+02.50] . .; . . .; i8 [($s*12)+03.00] . .; . . .; i8 [($s*12)+03.50] . .; . . .; i8 [($s*12)+04.00] . .; . . .; i8 [($s*12)+04.50] . .; . . .; i8 [($s*12)+05.00] . .; . . .; i8 [($s*12)+05.50] . .; . . .; i8 [($s*12)+06.00] . .; . . .; i8 [($s*12)+06.50] . .; . . .; i8 [($s*12)+07.00] . .; . . .; i8 [($s*12)+07.50] . .; . . .; i8 [($s*12)+08.00] . .; . . .; i8 [($s*12)+08.50] . .; . . .; i8 [($s*12)+09.00] . .; . . .; i8 [($s*12)+09.50] . .; . . .; i8 [($s*12)+10.00] . .; . . .; i8 [($s*12)+10.50] . .; . . .; i8 [($s*12)+11.00] . .; . . .; i8 [($s*12)+11.50] . .; . . .; i8 [($s*12)+12.00] . .; . . .; i8 [($s*12)+12.50] . .; . . .; i8 [($s*12)+13.00] . .; . . .; i8 [($s*12)+13.50] . .; . . .; i8 [($s*12)+14.00] . .; . . .; i8 [($s*12)+14.50] . .; . . .; i8 [($s*12)+15.00] . .; . . .; i8 [($s*12)+15.50] . .; . . .; i8 [($s*12)+16.00] . .; . . .; i8 [($s*12)+16.50] . .; . . .; i8 [($s*12)+17.00] . .; . . .; i8 [($s*12)+17.50] . .; . . .; i8 [($s*12)+18.00] . .; . . .; i8 [($s*12)+18.50] . .; . . .; i8 [($s*12)+19.00] . .; . . .; i8 [($s*12)+19.50] . .; . . .; i8 [($s*12)+20.00] . .; . . .; i8 [($s*12)+20.50] . .; . . .; i8 [($s*12)+21.00] . .; . . .; i8 [($s*12)+21.50] . .; . . .; i8 [($s*12)+22.00] . .; . . .; i8 [($s*12)+22.50] . .; . . .; i8 [($s*12)+23.00] . .; . . .; i8 [($s*12)+23.50] . .; . . .; i8 [($s*12)+24.00] . .; . . .; i8 [($s*12)+24.50] . .; . . .; i8 [($s*12)+25.00] . .; . . .; i8 [($s*12)+25.50] . .; . . .; i8 [($s*12)+26.00] . .; . . .; i8 [($s*12)+26.50] . .; . . .; i8 [($s*12)+27.00] . .; . . .; i8 [($s*12)+27.50] . .; . . .; i8 [($s*12)+28.00] . .; . . .; i8 [($s*12)+28.50] . .; . . .; i8 [($s*12)+29.00] . .; . . .; i8 [($s*12)+29.50] . .; . . .; i8 [($s*12)+30.00] . .; . . .; i8 [($s*12)+30.50] . .; . . .; i8 [($s*12)+31.00] . .; . . .; i8 [($s*12)+31.50] . .; . . .; i8 [($s*12)+32.00] . .; . . .; i8 [($s*12)+32.50] . .; . . .; i8 [($s*12)+33.00] . .; . . .; i8 [($s*12)+33.50] . .; . . .; i8 [($s*12)+34.00] . .; . . .; i8 [($s*12)+34.50] . .; . . .; i8 [($s*12)+35.00] . .; . . .; i8 [($s*12)+35.50] . .; . . .; i8 [($s*12)+36.00] . .; . . .; i8 [($s*12)+36.50] . .; . . .; i8 [($s*12)+37.00] . .; . . .; i8 [($s*12)+37.50] . .; . . .; i8 [($s*12)+38.00] . .; . . .; i8 [($s*12)+38.50] . .; . . .; i8 [($s*12)+39.00] . .; . . .; i8 [($s*12)+39.50] . .; . . .; i8 [($s*12)+40.00] . .; . . .; i8 [($s*12)+40.50] . .; . . .; i8 [($s*12)+41.00] . .; . . .; i8 [($s*12)+41.50] . .; . . .; i8 [($s*12)+42.00] . .; . . .; i8 [($s*12)+42.50] . .; . . .; i8 [($s*12)+43.00] . .; . . .; i8 [($s*12)+43.50] . .; . . .; i8 [($s*12)+44.00] . .; . . .; i8 [($s*12)+44.50] . .; . . .; i8 [($s*12)+45.00] . .; . . .; i8 [($s*12)+45.50] . .; . . .; i8 [($s*12)+46.00] . .; . . .; i8 [($s*12)+46.50] . .; . . .; i8 [($s*12)+47.00] . .; . . .; i8 [($s*12)+47.50] . .; . . .; # #define melody2bal # 0.35 # ; Melody 2 ; strt dur amp pitch fn reverb bal #define melody2(s) # i1 [($s*12)+00] 8 0.2 7.08 3 0.1 $melody2bal i1 [($s*12)+12] . . 8.04 . . . i1 [($s*12)+18] . . 8.03 . . . i1 [($s*12)+24] . . 7.11 . . . i1 [($s*12)+36] . . 8.01 . . . i1 [($s*12)+42] . . 7.10 . . . # #define melody2End(s) # i1 [($s*12)+36] 8 0.2 8.01 3 0.1 $melody2bal i1 [($s*12)+42] . . 7.10 . . . # #define melody2Start(s) # i1 [($s*12)+00] 8 0.2 7.08 3 0.1 $melody2bal # ; Bass ; strt dur amp pitch fn1 fn2 rev bal #define bass(s) # i2 [($s*12)+00] 1.5 .35 5.08 7 7 0 .5 i2 [($s*12)+02] 0.5 . 5.08 . . . . i2 [($s*12)+03] 2.5 . 5.08 . . . . ;i2 [($s*12)+05] 0.5 . 5.08 . . . . i2 [($s*12)+06] 1.5 . 5.08 . . . . i2 [($s*12)+08] 0.5 . 5.08 . . . . i2 [($s*12)+09] 1.5 . 5.08 . . . . i2 [($s*12)+11] 0.5 . 5.10 . . . . i2 [($s*12)+12] 1.5 . 5.11 . . . . i2 [($s*12)+14] 0.5 . 5.11 . . . . i2 [($s*12)+15] 2.5 . 5.11 . . . . ;i2 [($s*12)+17] 0.5 . 5.11 . . . . i2 [($s*12)+18] 1.5 . 5.11 . . . . i2 [($s*12)+20] 0.5 . 5.11 . . . . i2 [($s*12)+21] 1.5 . 5.11 . . . . i2 [($s*12)+23] 0.5 . 5.10 . . . . i2 [($s*12)+24] 1.5 . 5.11 . . . . i2 [($s*12)+26] 0.5 . 5.11 . . . . i2 [($s*12)+27] 2.5 . 5.11 . . . . ;i2 [($s*12)+29] 0.5 . 5.11 . . . . i2 [($s*12)+30] 1.5 . 5.11 . . . . i2 [($s*12)+32] 0.5 . 5.11 . . . . i2 [($s*12)+33] 1.5 . 5.11 . . . . i2 [($s*12)+35] 0.5 . 5.10 . . . . i2 [($s*12)+36] 1.5 . 6.01 . . . . i2 [($s*12)+38] 0.5 . 6.01 . . . . i2 [($s*12)+39] 2.5 . 6.01 . . . . ;i2 [($s*12)+41] 0.5 . 6.01 . . . . i2 [($s*12)+42] 1.5 . 6.01 . . . . i2 [($s*12)+44] 0.5 . 6.01 . . . . i2 [($s*12)+45] 1.5 . 6.01 . . . . i2 [($s*12)+47] 0.5 . 5.10 . . . . # #define melody3bal # 0.8 # ; Melody 3-1 ; strt dur amp pitch fn reverb bal #define melody31(s) # i9 [($s*12)+04.0] 1 1 7.08 0 0.1 $melody3bal i9 [($s*12)+05.0] . . 7.08 . . . i9 [($s*12)+06.0] . . 8.03 . . . i9 [($s*12)+10.0] . . 7.11 . . . i9 [($s*12)+10.5] . . 8.01 . . . i9 [($s*12)+11.0] . . 7.10 . . . i9 [($s*12)+14.0] . . 7.10 . . . i9 [($s*12)+15.0] . . 8.03 . . . i9 [($s*12)+16.0] . . 7.11 . . . i9 [($s*12)+20.0] . . 7.08 . . . i9 [($s*12)+21.0] . . 7.11 . . . ;i9 [($s*12)+22.0] . . 7.11 . . . i9 [($s*12)+22.5] 4 . 8.03 . . . i9 [($s*12)+24.0] 2 . 8.02 . . . i9 [($s*12)+30.0] 1 . 7.11 . . . i9 [($s*12)+30.5] . . 8.03 . . . i9 [($s*12)+31.0] . . 8.02 . . . i9 [($s*12)+44.0] . . 7.10 . . . i9 [($s*12)+45.0] . . 8.03 . . . i9 [($s*12)+46.0] . . 7.11 . . . # ; Melody 3-2 ; strt dur amp pitch fn reverb bal #define melody32(s) # i9 [($s*12)+01.0] 1 1 8.03 0 0.1 $melody3bal i9 [($s*12)+02.0] . . 8.04 . . . i9 [($s*12)+04.5] . . 7.08 . . . i9 [($s*12)+05.0] . . 7.11 . . . i9 [($s*12)+06.0] . . 8.03 . . . i9 [($s*12)+10.0] . . 7.11 . . . i9 [($s*12)+10.5] . . 8.01 . . . i9 [($s*12)+11.0] . . 7.10 . . . i9 [($s*12)+14.0] . . 7.10 . . . i9 [($s*12)+15.0] . . 8.03 . . . i9 [($s*12)+16.0] . . 7.11 . . . i9 [($s*12)+20.0] . . 7.11 . . . i9 [($s*12)+21.0] . . 7.10 . . . i9 [($s*12)+22.0] . . 7.11 . . . i9 [($s*12)+26.0] . . 7.11 . . . i9 [($s*12)+27.0] . . 8.02 . . . i9 [($s*12)+30.0] . . 7.11 . . . i9 [($s*12)+30.5] . . 8.03 . . . i9 [($s*12)+31.0] . . 8.02 . . . i9 [($s*12)+44.0] . . 7.11 . . . i9 [($s*12)+45.0] . . 7.11 . . . i9 [($s*12)+46.0] . . 7.11 . . . i9 [($s*12)+47.0] . . 7.11 . . . # #define pingbal # 0.3 # ; Noisy Electro-Ping ; strt dur amp pch rev bal #define ping(s) # i11 [($s*12)+00.00] 0.3 0.12 8.08 .01 $pingbal i11 [($s*12)+02.00] . . 8.10 . . i11 [($s*12)+02.50] . . 8.11 . . i11 [($s*12)+03.00] . . 8.08 . . i11 [($s*12)+04.00] . . 8.08 . . i11 [($s*12)+05.00] . . 8.08 . . i11 [($s*12)+06.00] . . 8.08 . . i11 [($s*12)+08.00] . . 8.10 . . i11 [($s*12)+08.50] . . 8.11 . . i11 [($s*12)+09.00] . . 8.08 . . i11 [($s*12)+10.00] . . 8.08 . . i11 [($s*12)+11.00] . . 8.08 . . i11 [($s*12)+12.00] . . 9.01 . . i11 [($s*12)+14.00] . . 9.03 . . i11 [($s*12)+14.50] . . 9.04 . . i11 [($s*12)+15.00] . . 9.01 . . i11 [($s*12)+16.00] . . 9.01 . . i11 [($s*12)+17.00] . . 9.01 . . i11 [($s*12)+18.00] . . 9.01 . . i11 [($s*12)+20.00] . . 9.03 . . i11 [($s*12)+20.50] . . 9.04 . . i11 [($s*12)+21.00] . . 9.01 . . i11 [($s*12)+22.00] . . 9.01 . . i11 [($s*12)+23.00] . . 9.01 . . i11 [($s*12)+24.00] . . 8.11 . . i11 [($s*12)+26.00] . . 9.01 . . i11 [($s*12)+26.50] . . 9.02 . . i11 [($s*12)+27.00] . . 8.11 . . i11 [($s*12)+28.00] . . 8.11 . . i11 [($s*12)+29.00] . . 8.11 . . i11 [($s*12)+30.00] . . 8.11 . . i11 [($s*12)+32.00] . . 9.01 . . i11 [($s*12)+32.50] . . 9.02 . . i11 [($s*12)+33.00] . . 8.11 . . i11 [($s*12)+34.00] . . 8.11 . . i11 [($s*12)+35.00] . . 8.11 . . i11 [($s*12)+36.00] . . 9.01 . . i11 [($s*12)+38.00] . . 9.03 . . i11 [($s*12)+38.50] . . 9.04 . . i11 [($s*12)+39.00] . . 9.01 . . i11 [($s*12)+40.00] . . 9.01 . . i11 [($s*12)+41.00] . . 9.01 . . i11 [($s*12)+42.00] . . 9.01 . . i11 [($s*12)+44.00] . . 9.03 . . i11 [($s*12)+44.50] . . 9.05 . . i11 [($s*12)+45.00] . . 9.01 . . i11 [($s*12)+46.00] . . 9.01 . . i11 [($s*12)+47.00] . . 9.01 . . # ; Noisy Electro-Ping Fading ; strt dur amp pch rev bal #define pingFading(s) # i11 [($s*12)+00.00] 0.3 0.12 8.08 .01 $pingbal i11 [($s*12)+02.00] . ( 8.10 . . i11 [($s*12)+02.50] . ( 8.11 . . i11 [($s*12)+03.00] . ( 8.08 . . i11 [($s*12)+04.00] . ( 8.08 . . i11 [($s*12)+05.00] . ( 8.08 . . i11 [($s*12)+06.00] . ( 8.08 . . i11 [($s*12)+08.00] . ( 8.10 . . i11 [($s*12)+08.50] . ( 8.11 . . i11 [($s*12)+09.00] . ( 8.08 . . i11 [($s*12)+10.00] . ( 8.08 . . i11 [($s*12)+11.00] . ( 8.08 . . i11 [($s*12)+12.00] . ( 9.01 . . i11 [($s*12)+14.00] . ( 9.03 . . i11 [($s*12)+14.50] . ( 9.04 . . i11 [($s*12)+15.00] . ( 9.01 . . i11 [($s*12)+16.00] . ( 9.01 . . i11 [($s*12)+17.00] . ( 9.01 . . i11 [($s*12)+18.00] . ( 9.01 . . i11 [($s*12)+20.00] . ( 9.03 . . i11 [($s*12)+20.50] . ( 9.04 . . i11 [($s*12)+21.00] . ( 9.01 . . i11 [($s*12)+22.00] . ( 9.01 . . i11 [($s*12)+23.00] . ( 9.01 . . i11 [($s*12)+24.00] . ( 8.11 . . i11 [($s*12)+26.00] . ( 9.01 . . i11 [($s*12)+26.50] . ( 9.02 . . i11 [($s*12)+27.00] . ( 8.11 . . i11 [($s*12)+28.00] . ( 8.11 . . i11 [($s*12)+29.00] . ( 8.11 . . i11 [($s*12)+30.00] . ( 8.11 . . i11 [($s*12)+32.00] . ( 9.01 . . i11 [($s*12)+32.50] . ( 9.02 . . i11 [($s*12)+33.00] . ( 8.11 . . i11 [($s*12)+34.00] . ( 8.11 . . i11 [($s*12)+35.00] . ( 8.11 . . i11 [($s*12)+36.00] . ( 9.01 . . i11 [($s*12)+38.00] . ( 9.03 . . i11 [($s*12)+38.50] . ( 9.04 . . i11 [($s*12)+39.00] . ( 9.01 . . i11 [($s*12)+40.00] . ( 9.01 . . i11 [($s*12)+41.00] . ( 9.01 . . i11 [($s*12)+42.00] . ( 9.01 . . i11 [($s*12)+44.00] . ( 9.03 . . i11 [($s*12)+44.50] . ( 9.05 . . i11 [($s*12)+45.00] . ( 9.01 . . i11 [($s*12)+46.00] . ( 9.01 . . i11 [($s*12)+47.00] . ( 9.01 . . i11 [($s*12)+48+00.00] . ( 8.08 . . i11 [($s*12)+48+02.00] . ( 8.10 . . i11 [($s*12)+48+02.50] . ( 8.11 . . i11 [($s*12)+48+03.00] . ( 8.08 . . i11 [($s*12)+48+04.00] . ( 8.08 . . i11 [($s*12)+48+05.00] . ( 8.08 . . i11 [($s*12)+48+06.00] . ( 8.08 . . i11 [($s*12)+48+08.00] . ( 8.10 . . i11 [($s*12)+48+08.50] . ( 8.11 . . i11 [($s*12)+48+09.00] . ( 8.08 . . i11 [($s*12)+48+10.00] . ( 8.08 . . i11 [($s*12)+48+11.00] . ( 8.08 . . i11 [($s*12)+48+12.00] . ( 9.01 . . i11 [($s*12)+48+14.00] . ( 9.03 . . i11 [($s*12)+48+14.50] . ( 9.04 . . i11 [($s*12)+48+15.00] . ( 9.01 . . i11 [($s*12)+48+16.00] . ( 9.01 . . i11 [($s*12)+48+17.00] . ( 9.01 . . i11 [($s*12)+48+18.00] . ( 9.01 . . i11 [($s*12)+48+20.00] . ( 9.03 . . i11 [($s*12)+48+20.50] . ( 9.04 . . i11 [($s*12)+48+21.00] . ( 9.01 . . i11 [($s*12)+48+22.00] . ( 9.01 . . i11 [($s*12)+48+23.00] . ( 9.01 . . i11 [($s*12)+48+24.00] . ( 8.11 . . i11 [($s*12)+48+26.00] . ( 9.01 . . i11 [($s*12)+48+26.50] . ( 9.02 . . i11 [($s*12)+48+27.00] . ( 8.11 . . i11 [($s*12)+48+28.00] . ( 8.11 . . i11 [($s*12)+48+29.00] . ( 8.11 . . i11 [($s*12)+48+30.00] . ( 8.11 . . i11 [($s*12)+48+32.00] . ( 9.01 . . i11 [($s*12)+48+32.50] . ( 9.02 . . i11 [($s*12)+48+33.00] . ( 8.11 . . i11 [($s*12)+48+34.00] . ( 8.11 . . i11 [($s*12)+48+35.00] . ( 8.11 . . i11 [($s*12)+48+36.00] . ( 9.01 . . i11 [($s*12)+48+38.00] . ( 9.03 . . i11 [($s*12)+48+38.50] . ( 9.04 . . i11 [($s*12)+48+39.00] . ( 9.01 . . i11 [($s*12)+48+40.00] . ( 9.01 . . i11 [($s*12)+48+41.00] . ( 9.01 . . i11 [($s*12)+48+42.00] . ( 9.01 . . i11 [($s*12)+48+44.00] . ( 9.03 . . i11 [($s*12)+48+44.50] . ( 9.05 . . i11 [($s*12)+48+45.00] . ( 9.01 . . i11 [($s*12)+48+46.00] . ( 9.01 . . i11 [($s*12)+48+47.00] . 0.001 9.01 . . # ; Reverb ; strt dur rvrb time i99 0 880 5.5 ;$pluckchords(0) ;$pluckchords(4) $pluckchords(8) $pluckchords(12) $pluckchords(16) $pluckchords(20) $pluckchords(24) $pluckchords(28) $pluckchords(32) $pluckchords(36) $pluckchords(40) $pluckchords(44) $pluckchords(48) $pluckchords(52) $pluckchords(56) $pluckchords(60) $rings(0) $rings(4) $rings(8) $rings(12) $rings(16) $rings(20) $rings(24) $rings(28) $rings(32) $rings(36) $rings(40) $rings(44) $rings(48) $rings(52) $rings(56) $rings(60) $rings(64) $rings(68) ;$snaredrum(0) ;$snaredrum(4) ;$snaredrum(8) ;$snaredrum(12) ;$snaredrum(16) ;$snaredrum(20) ;$snaredrum(24) ;$snaredrum(28) $snaredrum(32) $snaredrum(36) $snaredrum(40) $snaredrum(44) $snaredrum2(48) $snaredrum2(52) $snaredrum3(56) $snaredrum3(60) $snaredrum(64) ;$complexdrum(0) ;$complexdrum(4) ;$complexdrum(8) ;$complexdrum(12) ;$complexdrum(16) ;$complexdrum(20) ;$complexdrum(24) ;$complexdrum(28) ;$complexdrum(32) ;$complexdrum(36) ;$complexdrum(40) ;$complexdrum(44) $complexdrum(48) $complexdrum(52) $complexdrum(56) $complexdrum(60) ;$fasttick(0) ;$fasttick(4) ;$fasttick(8) ;$fasttick(12) ;$fasttick(16) ;$fasttick(20) ;$fasttick(24) ;$fasttick(28) ;$fasttick(32) ;$fasttick(36) $fasttick(40) $fasttick(44) $fasttick(48) $fasttick(52) $fasttick(56) $fasttick(60) ;$bassdrum2(0) ;$bassdrum2(4) ;$bassdrum(8) ;$bassdrum(12) ;$bassdrum(16) ;$bassdrum(20) ;$bassdrum(24) ;$bassdrum(28) $bassdrum(32) $bassdrum(36) $bassdrum(40) $bassdrum(44) $bassdrum2(48) $bassdrum2(52) $bassdrum2(56) $bassdrum2(60) ;$bass(0) ;$bass(4) ;$bass(8) ;$bass(12) ;$bass(16) ;$bass(20) ;$bass(24) ;$bass(28) ;$bass(32) ;$bass(36) $bass(40) $bass(44) $bass(48) $bass(52) $bass(56) $bass(60) ;$melody2(0) ;$melody2(4) ;$melody2(8) ;$melody2(12) ;$melody2(16) ;$melody2(20) ;$melody2(24) $melody2End(28) $melody2(32) $melody2(36) $melody2(40) $melody2(44) $melody2(48) $melody2(52) $melody2(56) $melody2(60) $melody2Start(64) ;$melody31(0) ;$melody31(4) ;$melody32(8) ;$melody31(12) $melody31(16) $melody31(20) ;$melody3(24) ;$melody3(28) $melody31(32) $melody32(36) $melody31(40) $melody31(44) $melody31(48) $melody32(52) $melody31(56) $melody31(60) ;$ping(0) ;$ping(4) ;$ping(8) ;$ping(12) ;$ping(16) ;$ping(20) ;$ping(24) ;$ping(28) ;$ping(32) ;$ping(36) ;$ping(40) ;$ping(44) $ping(48) $ping(52) $ping(56) $ping(60) $pingFading(64) e