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

//Number 1
adc => Delay a => dac;

Delay b => dac;

a => b;

1::minute => a.max => b.max;

10::second => a.delay;

function void sweep(){
    SinOsc s => blackhole;
    100 => s.freq;
    while(true){
        s.last() => a.gain;
        1::ms => now;
    }
}


spork ~ sweep();

while(true){
    1000::ms => now;
}

//Number 2

function void noiser(){
    Noise nn => dac;
    while(true){
        0.1 ==> nn.gain;
        Std.rand2(1,50) * 1::ms => now;
        0.0 => nn.gain;
        Std.rand2(100,8000) * 1::ms => now;   
    }    
}

spork ~ noiser();

while(true){
    3000::ms => now;
}

//Number 3

function void siner(int a, int b){
    SinOsc s => Envelope e => dac;
    b => s.freq;
    a * 1::ms => dur b;
    0.5 => e.target;
    b => e.duration;
    1 => e.keyOn;
    b => now;
    0.0 => e.target;
    b => e.duration;
    1 => e.keyOn;
    b => now;
}

function void other(){
    while(true){
        spork ~ siner(Std.rand2(100,400),Std.rand2(400, 800)); 
        6000::ms => now;
    }  
}

spork ~ other();

while(true){
    spork ~ siner(Std.rand2(10,100),Std.rand2(200,400));
    
    4000::ms => now;
}