[sc-users] The crazy pianist

[Mario Lang <mlang@xxxxxxxxxxx>]

Hey!

I'm having fun with this little piece of code, and thought I'd share my
joy with your all :-).

s.boot;
SynthDescLib.read;
Pbind(\scale, Array.series(12, 0, 1),
    \degree, Routine({inf.do{|i|
        ((Array.series(12,0,7)%12)[([
            [0],[-1],[1],[2],[0,4,1],[0,4,1,5],[4,1,5,2]
        ].choose+i)%12]).yield}}),
    [\dur, \legato],  Prand([
        Pseq([[1,3/4]],3),
        Pseq([[1,5/4]],1),
        Pseq([[1/2,2/3]],2),
        Pseq([[1/3,3/8]],3),
        Pseq([[1/4,1/5]],4)
    ], inf)).play;

-- 
CYa,
  Mario