Algorithmic Symphonies

gistfile1.ck

class Symph
{
    Step s;

    fun void connect(UGen u) { s => u; }
    fun void next(int sa) { (sa & 0xff) / 128. - 1. => s.next; }
}

Symph s;
s.connect(dac);

0 => int t;

while (true) {
     t++;
     t*(t>>12&t>>12) => int sa;
     sa => s.next;
     6::samp => now;
}