velvet

Author: Smashed Transistors
License: LGPL
Github: tiar/noise/velvet.axo

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;
}

Privacy

© 2024 Zrna Research