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
|
<CsoundSynthesizer>
<CsOptions>
-odac -d -m1
</CsOptions>
<CsInstruments>
;example by joachim heintz
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
instr AllTheNoise
Sfile = "fox.ats"
prints "Resynthesizing with all the noise.\n"
iDur ATSinfo Sfile, 7
p3 = iDur
ktime line 0, iDur, iDur
asig ATSaddnz ktime, Sfile, 25
outs asig, asig
;start next instr
event_i "i", "NoiseInBandsOfFive", iDur+1, 1, 0
endin
instr NoiseInBandsOfFive
Sfile = "fox.ats"
prints "Resynthesizing with noise bands %d - %d.\n", p4, p4+5
iDur ATSinfo Sfile, 7
p3 = iDur
ktime line 0, iDur, iDur
asig ATSaddnz ktime, Sfile, 5, p4
outs asig, asig
;start next instr
if p4 < 20 then
event_i "i", "NoiseInBandsOfFive", iDur+1, 1, p4+5
endif
endin
</CsInstruments>
<CsScore>
i "AllTheNoise" 0 1
e 25
</CsScore>
</CsoundSynthesizer>
|
