Procedural Audio Examples
Laser Shoot
Laser Shoot 2
Laser Shoot 3
Gun Shoot
Jump
Button 1
Double Button
Phone Button
Ambient Play
Night Play
Engine Play
Birds Play
Bell
Knock
works in firefox, IE
seed 0 giSin ftgen 1, 0, 1024, 10, 1 giSaw ftgen 2, 0, 4096, 10, 1,1/2 giSqu ftgen 3, 0, 4096, 10, 1, 0, 1/3, 0, 1/5, 0, 1/7, 0, 1/9, 0 maxalloc 1,10 massign 1,1 instr 1 itime random 0, 100 ifreq random 0, 300 itimeMaster = itime/800 + 0.2 ifreqMaster = ifreq - 80 ifreqStart = 1200 + ifreqMaster ifreqStop = ifreqStart/3 - 100 avol linsegr 0, 0.001, 0.5, itimeMaster , 0, 1, 0 aline expsegr ifreqStart, itimeMaster + 0.1, ifreqStop, 0, 1 alaser poscil avol, aline, p4 outs alaser*0.5, alaser*0.5 endin instr 2 ires random 250, 800 ares poscil p5/3, ires * p4/4 alin linseg 0, 0.005, 1, 0.05, p6, p7, 0 outs ares*alin, ares*alin endin instr 3 irandom = 60 irandom random 50, 100 aszum noise 2, 0.5 ilength random 10, 100 alow lowpass2 aszum, irandom + 50, 2 asin poscil 1, irandom klin linseg 0, 0.007, 1, ilength/100 ,0 outs (alow + asin)*klin*1.5, (alow + asin)*klin*1.5 endin instr 4 igain random 100, 500 ifreq random 100, 400 itime random 0, 100 itimeMaster = itime/1000 + 0.2 aMod poscil igain, ifreq/p4 , giSin aCar poscil 0.3, ifreq/p4 + aMod, giSin ares lowpass2 aCar, 200, 20 asig rand 0.5 ares1 balance ares, asig avol linsegr 0, 0.008, 1, itimeMaster, 0, 1, 0 gaButton = ares1 * avol * p5 outs gaButton, gaButton endin instr 5 aszumVol randomh 0, 0.001, 5 aszum noise aszumVol, 0.5 kmasterRandom randomi 0.01, 5, 10 afreqszum randomh p4/2, p4, kmasterRandom abandFreq randomh 0.001, 50, 1 avol linsegr 0, 4, 0.9, p3 , 0, 1, 0 aband areson aszum, afreqszum, abandFreq aadsr madsr 0.3, 0.1, 0.9, 1 gaAmbient = aband*avol*0.4 outs gaAmbient*aadsr, gaAmbient*aadsr endin instr 500 ktrigger init 0 if (ktrigger = 0) then event "i", 5, 0, 100, 100 event "i", 5, 0, 100, 200 event "i", 5, 0, 100, 400 event "i", 5, 0, 100, 800 event "i", 5, 0, 100, 1600 event "i", 5, 0, 100, 3200 event "i", 5, 0, 100, 6400 event "i", 5, 0, 100, 12800 event "i", 5, 0, 100, 26500 event "i", 5, 0, 100, 51200 ktrigger = 1 endif endin instr 501 ktrigger init 1 if (ktrigger==1) then turnoff2 5, 1, 1 kactive active 5 turnoff2 5, 0, 1 kactive active 5 endif endin instr 6 itime random 50, 300 ifreq random 40, 80 kline line ifreq, itime/1000, ifreq+10 aadsr linseg 0, 0.02, 1, 0.1, 0 kfreq = int(kline) kpitch cpsmidinn kfreq asig poscil3 0.1, kpitch, 3 aouts = asig*aadsr*1.3 outs aouts, aouts endin instr 8 aszum noise 1, 0.5 irandomFreq random 0, 400 irandomFreq = irandomFreq + 800 irandomTime random 30, 100 irandomTime = irandomTime/150 alow lowpass2 aszum, irandomFreq + 50, 5 klin linseg 0, 0.007, 1, irandomTime ,0 outs alow*klin, alow*klin endin instr 9 aos poscil 1, p5, 2 anoise noise aos, 0.3 alow lowpass2 anoise, p6, p4 outs alow*0.2, alow*0.2 endin instr 900 ktrigger init 0 if (ktrigger = 0) then event "i", 9, 0, 100, 100, 10, 4000 ktrigger = 1 endif endin instr 901 ktrigger init 1 if (ktrigger==1) then turnoff2 9, 1, 1 kactive active 9 turnoff2 9, 0, 1 kactive active 9 endif endin instr 10 aos poscil 1, p5, 2 anoise noise aos, 0.3 alow lowpass2 anoise, p6, p4 outs alow*0.2, alow*0.2 endin instr 1000 ktrigger init 0 if (ktrigger = 0) then event "i", 10, 0, 100, 3, 20, 2000 ktrigger = 1 endif endin instr 1001 ktrigger init 1 if (ktrigger==1) then turnoff2 10, 1, 1 kactive active 10 turnoff2 10, 0, 1 kactive active 10 endif endin instr 11 aOne oscil 0.2, p4 aTwo oscil 0.2, p5 kLine linen 1, 0.02, 0.2, 0.02 aTone = (aOne+aTwo)*kLine outs aTone, aTone endin instr 12 irand random 3100, 4000 krandtime random 0, 20;, 100 krandOnOff randomi 0, 1, krandtime krandfreq randomi irand, irand+800 , 50 asig poscil 0.5, krandfreq, 3 ares lowpass2 asig, 2000, 10 aout = asig*krandOnOff outs aout, aout endin instr 1200 ktrigger init 0 if (ktrigger = 0) then event "i", 12, 0, 100 ktrigger = 1 endif endin instr 1201 ktrigger init 1 if (ktrigger==1) then turnoff2 12, 1, 1 kactive active 12 turnoff2 12, 0, 1 kactive active 12 endif endin