Akso - Audio DSP Platform

sin_4_b

$\text{[math]}$

Quadrature sine LFO, bipolar, lin-ip, pitch input, phase reset

Author: Are Leistad

License: BSD

Github: drj/lfo/quad_sine.axo

IO Variants: 2

Variant: 1

Inlets

frac32.bipolar Pitch input

bool32.rising Reset phase

Outlets

frac32.bipolar 0 deg sine wave

frac32.bipolar 90 deg sine wave

frac32.bipolar 180 deg sine wave

frac32.bipolar 270 sine wave

Parameters

frac32.s.map.lfopitch pitch

Declaration

uint32_t phase;
uint32_t old_reset;

Init

phase = 0;
old_reset = 0;

Control Rate

if (inlet_reset && !old_reset) {
  phase = 0;
} else {
  int32_t freq;
  MTOFEXTENDED(param_pitch + inlet_pitch, freq);
  phase += freq >> 2;
}
old_reset = inlet_reset;

int32_t sine;

SINE2TINTERP(phase, sine)
outlet_0 = (sine >> 4);

SINE2TINTERP(phase - 0x40000000, sine)
outlet_90 = (sine >> 4);

outlet_180 = -outlet_0;

outlet_270 = -outlet_90;

Variant: 2

Inlets

frac32.bipolar Pitch input

bool32.rising Reset phase

Outlets

frac32.positive 0 deg sine wave

frac32.positive 90 deg sine wave

frac32.positive 180 deg sine wave

frac32.positive 270 sine wave

Parameters

frac32.s.map.lfopitch pitch

Declaration

uint32_t phase;
uint32_t old_reset;

Init

phase = 0;
old_reset = 0;

Control Rate

if (inlet_reset && !old_reset) {
  phase = 0;
} else {
  int32_t freq;
  MTOFEXTENDED(param_pitch + inlet_pitch, freq);
  phase += freq >> 2;
}
old_reset = inlet_reset;

int32_t sine;

SINE2TINTERP(phase, sine)
outlet_0 = (sine >> 5) + (1 << 26);

SINE2TINTERP(phase - 0x40000000, sine)
outlet_90 = (sine >> 5) + (1 << 26);

outlet_180 = (1 << 27) - outlet_0;

outlet_270 = (1 << 27) - outlet_90;