blob: 2049acb1eb61c0e5868c0c4dd4463173c9b5ec27 (
plain)
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
|
<CsoundSynthesizer>
<CsOptions>
-odac
;-+rtmidi=alsa -Q hw:1 -M hw:1 -odac
</CsOptions>
<CsInstruments>
sr = 48000
ksmps= 1
nchnls = 2
0dbfs = 1
seed 0
#include "feedback.udo"
instr 2
kp1[] init 9
kp2[] init 9
kdx = 0
while (kdx < lenarray(kp1)) do
if (random:k(0, 1) > 0.999) then
kp1[kdx] random 0, 0.9
endif
if (random:k(0, 1) > 0.999) then
kp2[kdx] random 0, 0.9
endif
kdx += 1
od
ao fbk_mixer2 kp1, kp2
outs ao, ao
endin
</CsInstruments>
<CsScore>
i2 0 3600
</CsScore>
</CsoundSynthesizer>
|