Skip to content

Instantly share code, notes, and snippets.

@jkant76 jkant76/score.ck
Created May 12, 2014

Embed
What would you like to do?
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.