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
|
<CsoundSynthesizer>
<CsOptions>
-o dac
-d
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 64
nchnls = 2
0dbfs = 1
ga1 init 0
instr 1
itie tival
i_instanceNum = p4
S_xName sprintf "touch.%d.x", i_instanceNum
S_yName sprintf "touch.%d.y", i_instanceNum
kx chnget S_xName
ky chnget S_yName
kenv linsegr 0, .01, 1, .1, 1, .25, 0
a1 vco2 ky * .5 * kenv, 60 + (log(1 - kx) * 3000), 0
ga1 = ga1 + a1
endin
instr 2
;kcutoff chnget "cutoff"
;kresonance chnget "resonance"
kcutoff = 6000
kresonance = .2
a1 moogladder ga1, kcutoff, kresonance
aL, aR reverbsc a1, a1, .72, 5000
outs aL, aR
ga1 = 0
endin
</CsInstruments>
<CsScore>
f1 0 16384 10 1
i2 0 360000
</CsScore>
</CsoundSynthesizer>
|
