adsr c
Attack/decay/sustain/release envelope
Inlets
bool32.risingfalling gate
Outlets
frac32.positive envelope output
Parameters
frac32.s.map.kdecaytime.exp d
frac32.s.map.kdecaytime.exp r
frac32.u.map s
frac32.u.map c
frac32.s.map.klineartime.exp2 a
int8_t stage;
int ntrig;
int32_t val;stage = 0;
ntrig = 0;
val = 0;if ((inlet_gate > 0) && !ntrig) {
stage = 1;
ntrig = 1;
}
if (!(inlet_gate > 0) && ntrig) {
stage = 0;
ntrig = 0;
}
if (stage == 0) {
val = ___SMMUL(val, param_r) << 1;
} else if (stage == 1) {
val = val + param_a;
if (val < 0) {
val = 0x7FFFFFFF;
stage = 2;
}
} else if (stage == 2) {
val = (param_s << 4) + (___SMMUL(val - (param_s << 4), param_d) << 1);
}
// outlet_env = val>>4;
{
int64_t a = (int64_t)0x07FFFFFF * param_c;
a += (int64_t)(val >> 4) * ((128 << 20) - param_c);
outlet_env = a >> 27;
}