3
-o dac -+rtmidi=null -+rtaudio=null -d -+msg_color=0 -M0 -m0
20
#define MIDI2CPS(xmidi) # (440.0*exp(log(2.0)*(($xmidi)-69.0)/12.0)) #
21
kcps = $MIDI2CPS(kmid)
34
iattack chnget "attack"
36
isustain chnget "sustain"
37
irelease chnget "release"
44
k2 linsegr 0, iattack, 1, idecay, isustain, irelease, 0
53
kcutoff chnget "cutoff"
54
kresonance chnget "resonance"
56
a1 moogladder ga1, kcutoff, kresonance
58
aL, aR reverbsc a1, a1, .72, 5000