adsr m c

Attack/decay/sustain/release envelope with modulation inputs
Author: Johannes Taelman
License: BSD
Github: phi/env/adsr m c.axo

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 o

Parameters

frac32.s.map a

frac32.s.map d

frac32.s.map r

frac32.u.map s

frac32.u.map c

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(-param_r - inlet_r, r1);
  r1 = 0x7FFFFFFF - (r1 >> 2);
  val = ___SMMUL(val, r1) << 1;
} else if (stage == 1) {
  int32_t a;
  MTOF(-param_a - inlet_a, a);
  a = a >> 2;
  val = val + a;
  if (val < 0) {
    val = 0x7FFFFFFF;
    stage = 2;
  }
} else if (stage == 2) {
  int32_t s = __USAT(param_s + inlet_s, 27);
  int32_t d;
  MTOF(-param_d - inlet_d, d);
  d = 0x7FFFFFFF - (d >> 2);
  val = (s << 4) + (___SMMUL(val - (s << 4), d) << 1);
}
// outlet_env = val>>4;

{
  int64_t a = (int64_t)0x07FFFFFF * param_c;
  a += (int64_t)(val >> 4) * ((128 << 20) - param_c);
  outlet_o = a >> 27;
}

Privacy

© 2024 Zrna Research