ADSR true 2 2 if (<EnveloperON> == 1) then agate = lfo(1, <Enveloper_speed>,2) aretrig init 1 aenv adsr140 agate, aretrig, <Enveloper_attack>, <Enveloper_decay>, <Enveloper_sustain>, <Enveloper_release> aout1 = ain1 * aenv aout2 = ain2 * aenv aout1 ntrpol ain1, aout1, <Enveloper_mix> ; create a dry/wet mix aout2 ntrpol ain2, aout2, <Enveloper_mix> else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: Envelopers imposes ADSR envelopes on the incoming signal. All controllers are automatable. Based on UDOs from Steven Yi: https://github.com/kunstmusik/libsyi/ CONTROLLERS: ON/OFF - bypass speed - frequency of imposed envelopes attack/decay/sustain/release - those parameters can be changed at k-rate mix - mix direct signal with effect --- version 1.01, july 2020 - added BSB information comments version 1.0, May 2020 - initial version by Menno Knevel adsr140_calc_coef k kk knum_samps, kratio xin xout exp( -log((1.0 + kratio) / kratio) / knum_samps) adsr140 a aakkkk agate, aretrig, kattack, kdecay, ksustain, krelease xin kstate init 0 ; 0 = attack, 1 = decay, 2 = sustain klasttrig init -1 kval init 0.0 asig init 0 kindx = 0 kattack_base init 0 kdecay_base init 0 krelease_base init 0 kattack_samps init 0 kdecay_samps init 0 krelease_samps init 0 kattack_coef init 0 kdecay_coef init 0 ksustain_coef init 0 klast_attack init -1 klast_decay init -1 klast_release init -1 if (klast_attack != kattack) then klast_attack = kattack if(kattack > 0) then kattack_samps = kattack * sr kattack_coef = adsr140_calc_coef(kattack_samps, 0.3) kattack_base = (1.0 + 0.3) * (1 - kattack_coef) else kattack_samps = 0 kattack_coef = 0 kattack_base = 0 endif endif if (klast_decay != kdecay) then klast_decay = kdecay kdecay_samps = kdecay * sr kdecay_coef = adsr140_calc_coef(kdecay_samps, 0.0001) kdecay_base = (ksustain - 0.0001) * (1.0 - kdecay_coef) endif if (klast_release != krelease) then klast_release = krelease krelease_samps = krelease * sr krelease_coef = adsr140_calc_coef(krelease_samps, 0.0001) krelease_base = -0.0001 * (1.0 - krelease_coef) endif while (kindx < ksmps) do if (agate[kindx] > 0) then kretrig = aretrig[kindx] if (kretrig > 0 && klasttrig <= 0) then kstate = 0 endif klasttrig = kretrig if (kstate == 0) then if(kattack <= 0) then kval = 1.0 kstate = 1 else kval = kattack_base + (kval * kattack_coef) if(kval >= 1.0) then kval = 1.0 kstate = 1 endif asig[kindx] = kval endif elseif (kstate == 1) then kval = kdecay_base + (kval * kdecay_coef) if(kval <= ksustain) then kval = ksustain kstate = 2 endif asig[kindx] = kval else asig[kindx] = ksustain endif else ; in a release state kstate = 0 if (kval == 0.0) then asig[kindx] = 0 else ; releasing kval = krelease_base + (kval * krelease_coef) if(kval <= 0.0) then kval = 0.0 endif asig[kindx] = kval endif endif kindx += 1 od xout asig 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 ReverbSC 0x4d8080ff 0x000000ff 0xffffffff false 170 20 Enveloper_sustain 110 40 can be changed at k-rate true 0.0 1.0 0.0 40 true false sustain true System Regular 12.0 Enveloper_decay 60 40 can be changed at k-rate true 0.0 1.0 0.15000000000000002 40 true false decay true System Regular 12.0 20 5 speed System Regular 12.0 Enveloper_speed 10 10 frequency of imposed envelopes true 0.0 60.0 0.01 18.0 190 true false 215 10 mix System Regular 12.0 Enveloper_release 160 40 can be changed at k-rate true 0.0 1.0 0.0 40 true false release true System Regular 12.0 Enveloper_attack 10 40 can be changed at k-rate true 0.0 1.0 0.0 40 true false attack true System Regular 12.0 Enveloper_mix 210 20 mix direct signal with effect true 0.0 1.0 0.01 1.0 75 true false EnveloperON 0 0 bypass true true true