[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [sc-users] The crazy pianist



very cool!
i translated your routine into Pindex
regards,
tom

<x-tad-smaller>
(Pbind(
\scale, (0 ..11),

\degree,
Pindex(
(0, 7 ..77)%12,
Prand([[0],[-1],[1],[2],[0,4,1],[0,4,1,5],[4,1,5,2]],inf)
+
Pseq((0 ..11), inf)%12
),


[\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;
)</x-tad-smaller>


On 18 Dec 2004, at 23:25, Mario Lang wrote:

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
_______________________________________________
sc-users mailing list
sc-users@xxxxxxxxxxxxxxx
http://www.create.ucsb.edu/mailman/listinfo/sc-users



..............................
www.tomtlalim.tk
www.tangiercluj.tk
www.club-mtk.tk
..............................