diff options
Diffstat (limited to 'BUG7/basis.csd')
-rw-r--r-- | BUG7/basis.csd | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/BUG7/basis.csd b/BUG7/basis.csd new file mode 100644 index 0000000..ff5b2c5 --- /dev/null +++ b/BUG7/basis.csd @@ -0,0 +1,62 @@ +<CsoundSynthesizer> +<CsOptions> +-odac +</CsOptions> +<CsInstruments> +sr = 44100 +kr = 4410 +nchnls = 2 +0dbfs = 1 +seed 0 +gifnSine = 1 + +instr rim + icps = p4 ;1000 + acps expon icps, 0.0025, icps * 0.5 + acps = acps + icps + iamp = 0.1 + a1a phasor acps, 0 + a1b phasor acps, random(0, 1) + afmenv expon 1.0, 0.02, 0.4 + a1 = (a1a-a1b)*random(1, 10)*afmenv + acps = acps*(1.0+a1) + a0 oscil3 1.0, acps + aenv expon 1.0, 0.005, 0.5 + a0 limit 4.0*a0*aenv, -1.0, 1.0 + a0 butterhp a0, 230 + aL, aR pan2 a0*iamp, random(0.3, 0.8) + outs aL, aR +endin + +instr play_rim + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 3000 + endif + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 1000 + endif + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 2000 + endif + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 500 + endif + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 2500 + endif + if (random:k(0, 1) > 0.3) then + event "i", "play_rim", 0, 0.4, 3500 + endif +endin + + +</CsInstruments> +<CsScore> +i1 0 100 +f1 0 16384 10 1 ; Sine +f2 0 16384 10 1 0.5 0.3 0.25 0.2 0.167 0.14 0.125 .111 ; Sawtooth +f3 0 16384 10 1 0 0.3 0 0.2 0 0.14 0 .111 ; Square +f4 0 16384 10 1 1 1 1 0.7 0.5 0.3 0.1 ; Pulse + +</CsScore> +</CsoundSynthesizer>
\ No newline at end of file |