-m128
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
seed 0
//1_12.csd in functional style
instr Cloud
kDensity init 2
if(metro:k(kDensity) == 1) then
schedulek("PercSine", 0, random:k(1/3,3), random:k(-30,-5), random:k(50,70))
kDensity = random:k(1,3)
endif
endin
instr PercSine
iDb = p4
iMidiPitch = p5
aEnv = transeg:a(ampdb(iDb),p3,-4,0)
aSine = poscil:a(aEnv,mtof(iMidiPitch))
out(aSine,aSine)
endin
i "Cloud" 0 100
100
100
320
240
true
255
255
255