1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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>
|