-odac sr = 48000 kr = 48000 nchnls = 2 0dbfs = 1 seed 0 gigaintbls[] fillarray 1, 4 gifreqtbls[] fillarray 2, 5 giqtables[] fillarray 3, 6 instr writeline imode = round(random(1, 3)) if (imode == 1) then ; amp imin = 0 imax = 1 ifns[] = gigaintbls elseif (imode == 2) then ; freq imin = 200 imax = 4000 ifns[] = gifreqtbls elseif (imode == 3) then ; q imin = 10 imax = 450 ifns[] = giqtables endif ifn = ifns[round(random(0, lenarray(ifns) - 1))] index1 = round(random(0, ftlen(ifn) - 1)) index2 = round(random(0, ftlen(ifn) - 1)) kindex line index1, p3, index2 kline line random(imin, imax), p3, random(imin, imax) tablew kline*random:k(0.9, 1.1), kindex, ifn endin gigutter init 0 instr play event_i "i", "randomisefilters", 0, 1 ifilteron = 1 idistmethod = 2 ;5 ;2 ismoothing = 1 ; 0 kgamma = abs:k(oscil:k(random:k(1, 10), random(1, 7))) komega = abs:k(oscil:k(random:k(0.2, 1), random(1, 7))) kc = abs:k(oscil:k(random:k(0.1, 2), random(1, 7))) kdt = abs:k(oscil:k(random:k(200, 1000), random(1, 7))) ksgain = abs:k(oscil:k(random:k(0.1, 0.5), random(1, 7))) + 0.5 /* kgamma init 8 komega init 0.6 kc init 1.2 kdt init 900 ksgain init 0.9 */ ibankcount = 2 ifiltercount = 24 aout gutter ibankcount, ifiltercount, gigaintbls, gifreqtbls, giqtables, kgamma, komega, kc, kdt, ksgain, ifilteron, ismoothing, idistmethod aout dcblock aout*0.2 aout butterhp aout, 10 aout *= 0.01 outs aout, aout kmetro metro 5 if (kmetro == 1) then event "i", "writeline", 0, random:k(0.1, 2) endif endin opcode randtbls, 0, i[]ii itbls[], imin, imax xin index = 0 while (index < lenarray(itbls)) do ifn = itbls[index] index2 = 0 while (index2 < ftlen(ifn)) do tablew random(imin, imax), index2, ifn index2 += 1 od index += 1 od endop instr randomisefilters randtbls gigaintbls, 0, 1 randtbls gifreqtbls, 100, 4000 randtbls giqtables, 10, 500 turnoff endin f1 0 -24 -2 0 f2 0 -24 -2 0 f3 0 -24 -2 0 f4 0 -24 -2 0 f5 0 -24 -2 0 f6 0 -24 -2 0 /* f1 0 -24 -2 0.319 0.785 0.335 0.908 0.209 0.445 0.851 0.664 0.513 0.977 0.805 0.593 0.487 0.128 0.24 0.196 0.587 0.594 0.705 0.308 0.925 0.447 0.965 0.497 f2 0 -24 -2 1390 792 375 3061 2953 3088 934 280 2014 992 3736 1372 3563 1850 2653 1598 3010 779 253 678 2322 3361 563 2577 f3 0 -24 -2 374 276 159 383 371 414 282 293 245 336 277 98 60 400 185 353 161 251 56 261 16 390 439 305 f4 0 -24 -2 0.8 0.989 0.617 0.231 0.548 0.943 0.065 0.419 0.829 0.941 0.95 0.5 0.102 0.55 0.628 0.985 0.779 0.789 0.649 0.098 0.543 0.035 0.647 0.634 f5 0 -24 -2 1601 2692 940 2642 3764 1339 902 1124 632 595 2951 2324 1787 495 907 1751 1862 2963 3341 3990 231 400 613 3838 f6 0 -24 -2 374 276 159 383 371 414 282 293 245 336 277 98 60 400 185 353 161 251 56 261 16 390 439 305 */ i"play" 0 z