//Number 10
//Chuck a day 2009
//by Scott Hewitt
//www.ablelemon.co.uk/chuckaday

SinOsc s => dac;
SinOsc d => blackhole;
SinOsc f => blackhole;
TriOsc tri => blackhole;

1000 => f.freq;
90 => tri.freq;

200 => d.freq;

11 => float m;
400 => float depth;
8.01 => float ma;
10.01 => float deptha;

1 => int mbcontrol;
1 => int scontrol;

function void modderb (){
    while(mbcontrol){
        ma + (deptha * f.last()) => d.freq;
        //<<< s.freq() >>>;
        1::samp => now;
    }
}

function void modder (){
    while(true){
        m + (depth * d.last()) => s.freq;
        //<<< s.freq() >>>;
        1::samp => now;
    }
}

function void sweep () {
    while (scontrol){
        depth + (tri.last() * 3.0) => depth;
        //<<< tri.last() >>>;
    1::samp => now;
}
}

3000::ms => dur dd;

spork ~ modder();
dd => now;

spork ~ modderb();
dd => now;

spork ~ sweep();
dd => now;
//end sporks
0 => mbcontrol;
dd => now;
//end sporks
0 => scontrol;
dd => now;