diff options
author | SoaS user <liveuser@localhost.localdomain> | 2010-06-07 02:13:57 (GMT) |
---|---|---|
committer | SoaS user <liveuser@localhost.localdomain> | 2010-06-07 02:13:57 (GMT) |
commit | f836a6df2a49cff54e1a1cd3c542c5239154e82a (patch) | |
tree | 20fcf1439bae9db94ec2aa11c4d78a80bac4cd2e /MoonMusicMC.csd |
Initial commit
Diffstat (limited to 'MoonMusicMC.csd')
-rwxr-xr-x | MoonMusicMC.csd | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/MoonMusicMC.csd b/MoonMusicMC.csd new file mode 100755 index 0000000..2a3e3e1 --- /dev/null +++ b/MoonMusicMC.csd @@ -0,0 +1,80 @@ +; SISTER MOON (2010) for realtime Csound5 - by Arthur B. Hunkins +; Requires 1 or more MIDI devices with a total of 8 or 9 pots/sliders +; Multiple Controller version - Csound 5.10 or greater + +<CsoundSynthesizer> +<CsOptions> + +-odac -+rtaudio=alsa -+rtmidi=alsa -Ma -m0d --expression-opt -b128 -B2048 -+raw_controller_mode=1 + +</CsOptions> +<CsInstruments> + +sr = 32000 +ksmps = 100 +nchnls = 2 + + instr 1 + +ichan chnget "Chan" +ictrl chnget "Cont" +ipan chnget "Pan" +ipctrl chnget "PCont" +imult chnget "Mult" +kfreq rspline -.055, .055, 20, 30 +kfreq = 795 + kfreq +kmod1 ctrl7 (ichan = 0? 1: ichan), (ichan = 0? 7: ictrl), 0, 6 +iport = (imult == 0? .1: .3) +kmod1 port kmod1, iport +kmod2 ctrl7 (ichan = 0? 2: ichan), (ichan = 0? 7: ictrl + 1), 0, 6 +kmod2 port kmod2, iport +kmod3 ctrl7 (ichan = 0? 3: ichan), (ichan = 0? 7: ictrl + 2), 0, 6 +kmod3 port kmod3, iport +kmod4 ctrl7 (ichan = 0? 4: ichan), (ichan = 0? 7: ictrl + 3), 0, 6 +kmod4 port kmod4, iport +kmod5 ctrl7 (ichan = 0? 5: ichan), (ichan = 0? 7: ictrl + 4), 0, 6 +kmod5 port kmod5, iport +kmod6 ctrl7 (ichan = 0? 6: ichan), (ichan = 0? 7: ictrl + 5), 0, 6 +kmod6 port kmod6, iport +krand rspline -2, 2, .5, .8 +krand2 rspline -2, 2, .5, .8 +krand3 rspline -2, 2, .5, .8 +krand4 rspline -2, 2, .5, .8 +krand5 rspline -2, 2, .5, .8 +krand6 rspline -2, 2, .5, .8 +amod1 lfo kfreq * kmod1, (kfreq * .895) + krand +amod2 lfo kfreq * kmod2, (kfreq * .74) + krand2 +amod3 lfo kfreq * kmod3, (kfreq * .595) + krand3 +amod4 lfo kfreq * kmod4, (kfreq * .45) + krand4 +amod5 lfo kfreq * kmod5, (kfreq * .295) + krand5 +amod6 lfo kfreq * kmod6, (kfreq * .14) + krand6 +kamp2 ctrl7 (ichan = 0? 7: ichan), (ichan = 0? 7: ictrl + 6), 0, 1 +kamp table kamp2 * 512, 1 +kamp = (kamp2 == 0? 0: kamp * 3000) +kamp port kamp, iport +kramp jspline -.12 * kamp, 6, 10 +aout oscil kamp + kramp + amod1 + amod2 + amod3 + amod4 + amod5 + amod6, kfreq, 2 +kvol2 ctrl7 (ichan = 0? 8: ichan), (ichan = 0? 7: ictrl + 7), 0, 1 +kvol table kvol2 * 512, 1 +kvol = (kvol2 == 0? 0: kvol) +kvol port kvol, iport +aout = aout * kvol + if ipan = 0 goto skip +kpan ctrl7 (ichan = 0? 9: ichan), (ichan = 0? 7: ipctrl), 0, 1 +kpan port kpan, .5 +a1,a2,a3,a4 pan aout, kpan, 1, 3, 1 + outs a1, a2 + goto fin +skip: outs aout, aout +fin: endin + +</CsInstruments> +<CsScore> + +f1 0 512 16 1 511 2.2 1000 +f2 0 16384 10 1 +f3 0 8193 7 0 8193 1 +i1 0 3600 + +</CsScore> +</CsoundSynthesizer> |