;Example by Joachim Heintz
sr = 44100
ksmps = 8
nchnls = 2
0dbfs = 1
seed 0; each time different seed
giSine ftgen 1, 0, 2^10, 10, 1; function table 1
instr 1
iDur random 0.5, 3
p3 = iDur
iFreq1 random 400, 1200
iFreq2 random 400, 1200
idB random -18, -6
kFreq linseg iFreq1, iDur, iFreq2
kEnv transeg ampdb(idB), p3, -10, 0
aTone oscili kEnv, kFreq, 1
outs aTone, aTone
endin
f 0 36000; play for 10 hours
e