fork{do(inf,{|i|f=midicps(i div:60%2* -2+Scale.yu(\mean5)[i-(i div:11)]+70-(i div:12+1%2*12))+[0,2/3];play{ar(a=SinOsc,f+ar(a,f,0,f*1.5**ar(a,i%2*i div:[3,4]%7%6/4*3/(1+d=i div:12%3>>1),[i,i*2])),0,kr(XLine,0.1,1e-4,4+d,kr(AmpComp,f),0,2))};wait(d+[1,1/30]@@i)})}//
27 days ago