// Gentle Ocean 01 version 0.1 testing
// by Kijjasak Triyanond (kijjaz) - kijjaz@yahoo.com

//    This program is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation, either version 3 of the License, or
//    (at your option) any later version.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.

// news: Sorry.. no documentation comments now.. (too lazy) hahah
//       so listen to it and modify some values if you want to know more about it.
//       I'll convert it to a easier-to-use class as soon as possible.
//       I'll try to add more features also.

Noise s1 => LPF s1_f => Gain s1_g => HPF s1_g_f1 => dac;
s1_g => BPF s1_g_f2 => dac;

3 => s1_g.op;

SinOsc s2 => Gain s2_square => HalfRect rect1 => LPF rect1_f => s1_g;
Step rect1_offset => rect1;
s2 => Gain s2_fb => s2;
2 => s2.sync;

s2 => Gain s2_dummy => s2_square;
3 => s2_square.op;
Noise s3 => LPF s3_f => rect1;

s1_f.set(10000, 1);

s1_g_f1.set(3000, .5);
s1_g_f2.Q(.8);

s2.freq(.08);
rect1_f.set(4, .3);
s3_f.set(20, 2);
2 => s3.gain;

s1_g_f2.gain(.1);

rect1_offset.next(-.05);

while(true)
{
    rect1_f.last() * 100 => s1_g_f2.freq;
    rect1_f.last() * .02 => s2_fb.gain;
    ms => now;
}