O2allpass
O2 allpass reverb section
Author: Smashed Transistors based on Johannes Taelman
License: BSD
Github: tiar/filter/O2allpass.axo
Inlets
frac32buffer in
frac32buffer in0
Outlets
frac32buffer out
frac32buffer out0
Parameters
frac32.s.map.ratio g
Attributes
spinner delay
Declaration
int16_t d[attr_delay];
int dpos;
Init
int i;
for (i = 0; i < attr_delay; i++)
d[i] = 0;
dpos = 0;
Control Rate
int32_t g2 = param_g << 4;
Audio Rate
int32_t dout = d[dpos] << 16;
int32_t din = ___SMMLA(g2, dout, inlet_in1 >> 1);
d[dpos++] = din >> 15;
outlet_out1 = ___SMMLS(g2, din << 1, dout >> 1) << 1;
if (dpos == attr_delay)
dpos = 0;
dout = d[dpos] << 16;
din = ___SMMLA(g2, dout, inlet_in0 >> 1);
d[dpos++] = din >> 15;
outlet_out0 = ___SMMLS(g2, din << 1, dout >> 1) << 1;
if (dpos == attr_delay)
dpos = 0;