diff options
Diffstat (limited to 'examples/02-example.csd')
| -rw-r--r-- | examples/02-example.csd | 121 |
1 files changed, 121 insertions, 0 deletions
diff --git a/examples/02-example.csd b/examples/02-example.csd new file mode 100644 index 0000000..38022f9 --- /dev/null +++ b/examples/02-example.csd @@ -0,0 +1,121 @@ +<CsoundSynthesizer> +<CsOptions> +-odac +</CsOptions> +<CsInstruments> +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 + +</CsInstruments> +<CsScore> +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 +</CsScore> +</CsoundSynthesizer> |