score.ck

fun void mongol()
{
    addsyn s1;
    [1.0,5.0,6.0,7.0,8.0,9.0,10.0] @=> float partials[];
    [.04,.02,.02,.02,.02,.02,.02] @=> float amps[];
    risset(s1, .03, 100.0, partials, amps);
    s1.play();
    10::second => now;
    s1.stop();
    2::second => now;
}

spork ~ mongol();
12::second => now;

fun void fullharm()
{
    addsyn s2;
    [1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0] @=> float partials1[];
    [.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02,.02] @=> float amps1[];
    risset(s2, .03, 100.0, partials1, amps1);
    s2.play();
    10::second => now;
    s2.stop();
    2::second => now;
}

spork ~ fullharm();
12::second => now;

fun void perfect3()
{
    addsyn s3;
    [4.0,5.0,6.0] @=> float partials2[];
    [.05,.05,.05] @=> float amps2[];
    risset(s3, .03, 100.0, partials2, amps2);
    s3.play();
    10::second => now;
    s3.stop();
    2::second => now;
}

spork ~ perfect3();
12::second => now;

fun void natscale()
{
    addsyn s4;
    [8.0,9.0,10.0,11.0,12.0,13.0,15.0,16.0] @=> float partials3[];
    [.04,.04,.04,.04,.04,.04,.04,.04] @=> float amps3[];
    risset(s4, .03, 100.0, partials3, amps3);
    s4.play();
    10::second => now;
    s4.stop();
    2::second => now;
}

spork ~ natscale();
12::second => now;

fun void fibo()
{
    addsyn s5;
    [1.0,3.0,5.0,8.0,13.0,21.0,34.0] @=> float partials[];
    [.04,.02,.02,.02,.02,.02,.02] @=> float amps[];
    risset(s5, .03, 100.0, partials, amps);
    s5.play();
    10::second => now;
    s5.stop();
    2::second => now;
}

spork ~ fibo();
12::second => now;

fun void inharm()
{
    addsyn s6;
    [1.3,3.2,4.5,8.2,11.8,12.7,13.4] @=> float partials[];
    [.04,.02,.02,.02,.02,.02,.02] @=> float amps[];
    risset(s6, .03, 100.0, partials, amps);
    s6.play();
    15::second => now;
    s6.stop();
    2::second => now;
}

spork ~ inharm();
17::second => now;