ADSRmod
Attack/decay/sustain/release envelope with only modulation inputs
Inlets
bool32.risingfalling gate
frac32.bipolar attack time modulation
frac32.bipolar decay time modulation
frac32.bipolar sustail level modulation
frac32.bipolar release time modulation
Outlets
frac32.positive envelope output
Declaration
int8_t stage;
int ntrig;
int32_t val;
Init
stage = 0;
ntrig = 0;
val = 0;
Control Rate
if ((inlet_gate > 0) && !ntrig) {
stage = 1;
ntrig = 1;
}
if (!(inlet_gate > 0) && ntrig) {
stage = 0;
ntrig = 0;
}
if (stage == 0) {
int32_t r1;
int32_t r2;
MTOF(-inlet_r, r1);
r1 = 0x7FFFFFFF - (r1 >> 2);
val = ___SMMUL(val, r1) << 1;
} else if (stage == 1) {
int32_t a;
MTOF(-inlet_a, a);
a = a >> 2;
val = val + a;
if (val < 0) {
val = 0x7FFFFFFF;
stage = 2;
}
} else if (stage == 2) {
int32_t s = __USAT(inlet_s, 27);
int32_t d;
MTOF(-inlet_d, d);
d = 0x7FFFFFFF - (d >> 2);
val = (s << 4) + (___SMMUL(val - (s << 4), d) << 1);
}
outlet_env = val >> 4;