shaper 8
cheapo waveshaper.based on 'table/read/interp'. works as wavetable-oscillator as well.
Inlets
frac32buffer.bipolar in
Outlets
frac32buffer.bipolar out
Parameters
frac32.s.map p1
frac32.s.map p2
frac32.s.map p3
frac32.s.map p4
frac32.s.map p5
frac32.s.map p6
frac32.s.map p7
frac32.s.map p8
int32_t array[8];array[0] = param_p1;
array[1] = param_p2;
array[2] = param_p3;
array[3] = param_p4;
array[4] = param_p5;
array[5] = param_p6;
array[6] = param_p7;
array[7] = param_p8;uint32_t asat = __USAT(((inlet_in >> 1) + (1 << 26)), 27);
int index = asat >> 24;
int32_t y1 = array[index];
int32_t y2 = array[(index + 1) & 7];
int frac = (asat - (index << 24)) << 6;
int32_t rr;
rr = ___SMMUL(y1, (1 << 30) - frac);
rr = ___SMMLA(y2, frac, rr);
outlet_out = rr << 2;