nestAS1
modulatable nested scatter/allpass function for delaylines. Can be used with the factory delayline module to add diffusion to a delay
Inlets
frac32buffer size
Outlets
None
Parameters
frac32.u.map scatter
frac32.u.map size
int32.hradio off,scatter,allpass
Attributes
combo size
objref delayname
Declaration
static const uint32_t LENGTHPOW = (attr_size);
static const uint32_t LENGTH = (1 << attr_size);
static const uint32_t LENGTHMASK = ((1 << attr_size) - 1);
int16_t *array;
uint32_t writepos;
Init
static int16_t _array[attr_poly][1 << attr_size]
__attribute__((section(".sdram")));
array = &_array[parent->polyIndex][0];
int i;
writepos = 0;
for (i = 0; i < LENGTH; i++)
array[i] = 0;
Control Rate
int32_t scatter = __USAT(param_scatter, 27) << 4;
int32_t wp = 0;
int32_t POS = attr_delayname.writepos - BUFSIZE - 1 - 1;
Audio Rate
if (param_mode > 0) {
int32_t sz = __USAT(param_size + inlet_size, 27);
int32_t size = sz >> 27 - LENGTHPOW;
int32_t mix = ((uint32_t)sz << 5 + LENGTHPOW) >> 1;
int32_t in = attr_delayname.array[POS] << 14;
int32_t t1, t2, t3;
t2 = ___SMMUL(in, scatter) << 1;
t3 = array[(writepos - size) & LENGTHMASK] << 14;
t3 += ___SMMUL((array[(writepos - size) & LENGTHMASK] << 14) - t3, mix) << 1;
t1 = ___SMMUL(t3, scatter) << 1;
array[writepos] = __SSAT(in + (param_mode > 1 ? 0 : t2) - t1 >> 14, 16);
if (param_mode == 1) {
attr_delayname.array[POS] = __SSAT(t2 + t3 - t1 >> 14, 16);
} else {
attr_delayname.array[POS] =
__SSAT(___SMMUL(in - t1 << 1, scatter) + t3 >> 14, 16);
}
writepos = (writepos + 1) & LENGTHMASK;
POS = (POS + 1) & attr_delayname.LENGTHMASK;
}