velvet
Inlets
frac32.bipolar pitch
frac32.bipolar randomness
Outlets
frac32buffer.bipolar out
Parameters
frac32.s.map pitch
frac32.s.map randomness
Declaration
int32_t r = 137;
uint32_t p = 0;
int32_t dp = 1 << 30;
Control Rate
int32_t basePitch = param_pitch + inlet_pitch;
int32_t mod = param_randomness + inlet_randomness;
Audio Rate
p += dp;
if (p < dp) {
outlet_out = (r = r * 69069 + 1) > 0 ? 1 << 27 : -1 << 27;
int32_t pitch = ___SMMLA(r = r * 69069 + 1, mod, basePitch);
MTOFEXTENDED(pitch, dp);
} else {
outlet_out = 0;
}