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
|
<CsoundSynthesizer>
<CsOptions>
-odac -B2048 -b1024 -d -+rtaudio=alsa
</CsOptions>
<CsInstruments>
sr=44100
ksmps=100
nchnls=1
gas init 0
instr 1
Svol sprintf "main_volume%d", p4
Spit sprintf "pitch%d", p4
Smut sprintf "mute%d", p4
S1 chnget "soundfile"
i1 strcmp S1,"0"
if i1 != 0 goto continue
puts "no filename selected !!", 1
turnoff
goto end
continue:
ich filenchnls S1
k2 chnget Svol
kp chnget Spit
km chnget Smut
kv tonek k2*(1-km)/10, 10
if ich == 1 then
am diskin2 S1,kp,0,1
else
a1,a2 diskin2 S1,kp,0,1
am = (a1+a2)/2
endif
as = am*kv
out as
gas = as + gas
end:
endin
instr 9
S1 chnget "output_file"
i1 strcmp S1,"0"
if i1 != 0 goto continue
puts "no output filename selected !!", 1
turnoff
goto end
continue:
fout S1,2, gas
end:
endin
instr 10
gas = 0
endin
</CsInstruments>
<CsScore>
i10 0 3600000
</CsScore>
</CsoundSynthesizer>
|
