-m128
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
seed 0
//add also random deviations to amplitude
instr PercSine
iDb = -14
iMidiPitch = 70
kPchRnd randi 1/6, 6, 2
;clean envelopve
aEnv transeg ampdb(iDb), p3, -4, 0
;random deviations ±2dB
aEnvRndDb randi 2, 20, 2
;apply by multiplying
aSine poscil aEnv*ampdb(aEnvRndDb), mtof(iMidiPitch)
out aSine, aSine
endin
i "PercSine" 0 5
100
100
320
240
true
255
255
255