A language for writing synths and effects.

processor Pluck
{
    input  stream float pitch;
    input  stream float gate;
    output stream float out;

    param  float decay = 0.4f [0.05f, 2.0f];
    param  float tone  = 0.4f [0.05f, 0.95f];

    float phase = 0.0f;
    float env   = 0.0f;
    float lp    = 0.0f;

    void main()
    {
        loop
        {
            if (gate > 0.5f) { env = 1.0f; }
            else { env = env * (1.0f - 1.0f / (decay * 48000.0f)); }

            let saw = phase * 2.0f - 1.0f;
            lp = lp + tone * (saw - lp);

            out <- lp * env * 0.3f;

            phase = phase + pitch / 48000.0f;
            if (phase >= 1.0f) { phase = phase - 1.0f; }
            advance();
        }
    }
}