initial

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>