// demo05.ck
//
// Készítette:
// Kaluzsa Péter - ELTE - 2012/2013-2
//
// shredek (szálak)
//

// függvények hívhatóak külön shredben
fun void hang(int frek, dur t, dur szunet, float g) {
    SinOsc s;
    while (true) {
        frek => s.freq;
        g => s.gain;
        s => dac;
        t => now;
        s =< dac;
        szunet => now;
    }
}

// új shredek létrehozása
spork ~ hang(200, 250::ms, 500::ms, .5) @=> Shred @ sh1;
spork ~ hang(400, 100::ms, 400::ms, .2) @=> Shred @ sh2;
spork ~ hang(400, 100::ms, 400::ms, .2) @=> Shred @ sh3;

5251::ms => now;
sh1.exit();
800::ms => now;
sh2.exit();
2000::ms => now;