diff options
Diffstat (limited to 'Waves.activity/waves.csd')
| -rw-r--r-- | Waves.activity/waves.csd | 148 |
1 files changed, 148 insertions, 0 deletions
diff --git a/Waves.activity/waves.csd b/Waves.activity/waves.csd new file mode 100644 index 0000000..1594045 --- /dev/null +++ b/Waves.activity/waves.csd @@ -0,0 +1,148 @@ +<CsoundSynthesizer> +<CsOptions> +-odac -B2048 -b1024 -d -+rtaudio=alsa +</CsOptions> +<CsInstruments> +sr=44100 +ksmps=100 +nchnls=2 + + +gkb1 chnexport "B1", 1 +gkb2 chnexport "B2", 1 +gkb3 chnexport "B3", 1 +gkb4 chnexport "B4", 1 +gkb5 chnexport "B5", 1 +gkb6 chnexport "B6", 1 +gkb7 chnexport "B7", 1 +gkb8 chnexport "B8", 1 + + +instr 1 + +k1 init 1 +k2 init 1 +k3 init 1 +k4 init 1 +k5 init 1 +k6 init 1 +k7 init 1 +k8 init 1 + + +if gkb1 == 1 then +if k1 == 1 then +event "i", 11.1, 0, -1, 1 +k1=0 +endif +else +if k1 == 0 then +event "i", -11.1, 0, -1,1 +k1=1 +endif +endif + +if gkb2 == 1 then +if k2 == 1 then +event "i", 11.2, 0, -1, 2 +k2=0 +endif +else +if k2 == 0 then +event "i", -11.2, 0, -1, 2 +k2=1 +endif +endif + +if gkb3 == 1 then +if k3 == 1 then +event "i", 11.3, 0, -1, 3 +k3=0 +endif +else +if k3 == 0 then +event "i", -11.3, 0, -1, 3 +k3=1 +endif +endif + +if gkb4 == 1 then +if k4 == 1 then +event "i", 11.4, 0, -1, 4 +k4=0 +endif +else +if k4 == 0 then +event "i", -11.4, 0, -1, 4 +k4=1 +endif +endif + +if gkb5 == 1 then +if k5 == 1 then +event "i", 11.5, 0, -1, 5 +k5=0 +endif +else +if k5 == 0 then +event "i", -11.5, 0, -1, 5 +k5=1 +endif +endif + +if gkb6 == 1 then +if k6 == 1 then +event "i", 11.6, 0, -1, 6 +k6=0 +endif +else +if k6 == 0 then +event "i", -11.6, 0, -1, 6 +k6=1 +endif +endif + +if gkb7 == 1 then +if k7 == 1 then +event "i", 11.7, 0, -1, 7 +k7=0 +endif +else +if k7 == 0 then +event "i", -11.7, 0, -1, 7 +k7=1 +endif +endif + +if gkb8 == 1 then +if k8 == 1 then +event "i", 11.8, 0, -1, 8 +k8=0 +endif +else +if k8 == 0 then +event "i", -11.8, 0, -1, 8 +k8=1 +endif +endif + +endin + + +instr 11 +S1 sprintf "S%d", p4 +k1 chnget S1 +k2 chnget "main_volume" +kv tonek k2/10, 10 +ka linenr 2000*kv,0.1,0.1,0.05 +a1 oscili ka, k1, 1 + outs a1,a1 + endin + +</CsInstruments> +<CsScore> +f1 0 1024 10 1 0.5 0.3 0.25 0.2 0.18 0.15 0.13 0.11 0.1 0.09 +i1 0 3600 + +</CsScore> +</CsoundSynthesizer> |