; 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>