// Attempt at ocean waves
// copyright 2008 Les Hall
// This software is protected by the GNU General Public License

Noise n => LPF f1 => dac;
n => LPF f2 => dac;

function void f1_adj () {
    0 => float t;
    while (true) {
        (1 + Math.sin (2*pi * 0.1 * t) ) / 2 => float wave;
        f1.gain ((1 + wave) / 2);
        f1.freq (1000 * wave + 500);
        0.001 +=> t;
        1::ms => now;
    }
}

function void f2_adj () {
    0 => float t;
    while (true) {
        (1 + Math.cos (2*pi * 0.1 * t) ) / 2 => float wave;
        f2.gain ((1 + wave) / 2);
        f2.freq (12000 * wave + 1000);
        0.001 +=> t;
        1::ms => now;
    }
}

spork ~ f1_adj ();
spork ~ f2_adj ();

day => now;