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

float sinlast;
float sinfre;
440 => sinfre;

//create dsp
function void sour (UGen u){
 SinOsc s => u;
 if (u == dac){
     <<< "ok" >>>;
     while (true){
         sinfre => s.freq;
         100::ms => now;   
     }
 }
 if (u == blackhole){
     <<< "blackhole" >>>;
     while (true){
         44 => s.freq;
         s.last() => sinlast;
         100::ms => now;   
     }
 } 
}

//modulate
function void mod(){
    while (true){
    (sinlast * 20) + sinfre => sinfre;
    100::ms => now;
}
}

//spork shreds
spork ~ sour(dac);
spork ~ sour(blackhole);
spork ~ mod();

1000::ms => now;