tri dpw

Triangle wave tonewheels The triangle wave oscillators use the 1st order DPW algorithm (against aliasing). Range is midi note 24 to 119.
Author: Johannes Taelman
License: BSD
Github: jt/tonewheels/tri dpw.axo

Inlets

frac32 phase

Outlets

frac32buffer.bipolar sine wave

Parameters

frac32.s.map phase

Attributes

objref Table containing the amplitudes (32bit)

objref Tuning table

Declaration
class osc {
public:
  void init();
};

class osc_one : public osc {
public:
  void init() {}

  int32_t dpw_tri(int32_t phase) {
    int32_t hphase = phase >> 1;
    int32_t absnphase = phase > 0 ? -phase : phase;
    return ___SMMLA(absnphase, phase, hphase);
  }

  void render(int32_t *pOut, int32_t amp, uint32_t freq, uint32_t phase,
              float invfreq) {
    // out: pointer to s32 output buffer, adds values
    // amp: s32 amplitude
    int i;
    int32_t a = (int)(invfreq * amp);
    int32_t phase1 = phase - freq;
    int32_t prev1 = dpw_tri(phase1);
    i = BUFSIZE;
    while (i--) {
      phase1 += freq;
      int32_t v2 = dpw_tri(phase1);
      int32_t d = (v2 - prev1);
      *pOut = __SMMLA(d, a, *pOut);
      prev1 = v2;
      pOut++;
    }
  }
};

static const int n_octaves = 8;

class chroma {
  int phase;

public:
  osc_one octaves[n_octaves];

  void init() {
    phase = 0;
    int i;
    for (i = 0; i < n_octaves; i++) {
      octaves[i].init();
    }
  };

  void render(int freq, int32_t *pOut, int32_t *pAmp, uint32_t x) {
    pAmp += 24;
    phase += freq << 4;
    uint32_t p = phase;
    uint32_t f = freq;
    float invfreq = (1 << 26) / (float)freq;
    int i;
    for (i = 0; i < n_octaves; i++) {
      octaves[i].render(pOut, *pAmp, f, p + x, invfreq);
      pAmp += 12;
      p = p << 1;
      f = f << 1;
      invfreq = invfreq * 0.5f;
    }
  }
};

chroma chromas[12];
Init
int i;

for (i = 0; i < 12; i++) {
  chromas[i].init();
}
Control Rate
int i;

// clear
for (i = 0; i < BUFSIZE; i++) {
  outlet_wave[i] = 0;
}

// sum into output buffer
for (i = 0; i < 12; i++) {
  chromas[i].render(attr_tuning.array[i] >> 3, &outlet_wave[0],
                    &attr_amplitudes.array[i],
                    (param_phase + inlet_phase) << 5);
}

// output gain
for (i = 0; i < BUFSIZE; i++) {
  outlet_wave[i] = outlet_wave[i] << 2;
}

Privacy

© 2024 Zrna Research