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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
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>
|