Skip to content

Instantly share code, notes, and snippets.

@agluszak

agluszak/fib.scd

Created January 25, 2016 22:08
Show Gist options
  • Save agluszak/a912c5168c417c08ded6 to your computer and use it in GitHub Desktop.
Save agluszak/a912c5168c417c08ded6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fib.scd
(
c = 13;
a = Array.fib(64,0,1);
b = Array.fill(size:c, function:{ arg i; a[i]%12 });
p = 1/(21-c);
Pdef(\x, Pbind(\dur, p, \degree, Pseq(b,1,0)));
r=Array.fill(c,{ arg i;
Pbindf(Pdef(\x), \mtranspose, 1-b[i]);
});
Pseq(r,(1/p)).play;
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment