Skip to content

Instantly share code, notes, and snippets.

@moxuse

moxuse/gist:1148305

Created August 16, 2011 02:15
Show Gist options
  • Save moxuse/1148305 to your computer and use it in GitHub Desktop.
Save moxuse/1148305 to your computer and use it in GitHub Desktop.
Download ZIP
bach invention #13
Raw
gistfile1.sc
(
Pbind(
\note,
Pseq([
\,4,9,12,11,4,11,14,12,16,8,16,9,4,9,12,11,4,11,14,12,9,
16,12,16,9,12,4,7,5,9,14,17,14,11,14,7,11,2,5,4,7,12,16,
12,9,12,5,14,11,7,11,4,12,9,5,9,2,11,12,7,12,16,14,7,14,17,16,19,11,19,
12,7,12,16,14,7,14,17,16,12,19,16,
24,21,16,21,12,16,9,12,14,18,21,24,
23,19,14,19,11,14,7,11,12,16,19,23,
21,18,15,18,11,15,6,9,7,19,
16,12,16,9,18,14,11,14,7,16,12,9,12,6,19,18,16,15,18,11,15,16,
19,22,19,16,19,13,16,19,16,13,16,9,
17,20,17,14,17,11,14,17,14,11,14,7,
16,19,16,12,16,9,12,15,12,9,12,6,
14,17,14,11,14,8,11,14,11,8,11,4,
4,9,12,11,4,11,14,12,9,8,4,
9,12,16,12,9,12,6,9,12,9,6,9,3,12,11,9,8,11,14,11,8,11,
2,5,8,5,2,5,-1,5,4,2,0,4,9,4,0,4,-3,0,3,0,-3,0,-6,0,-1,-3,-4,11,8,4,
4,9,12,11,4,11,14,12,9,12,16,14,11,14,17,16,12,16,19,17,16,14,12,11,12,14,16,17,14,20,14,23,14,12,21,17,14,11,14,8,11,12,9,4,9,11,8,9,4,0,4,-3
],1),
\dur,
Pseq([
1,1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,1,1,2,7,
1,1,1,1,1,1,1,2,2,2,3,1,1,1,1,1,1,1,2,2,2,3,
1,1,1,2,3,1,1,1,2,3,1,1,1,2,2,9,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,3,
1,1,1,2,3,1,1,1,2,3,1,1,1,1,1,1,1,1,1,1,1,9,
1,1,1,1,1,1,1,1,1,1,1,5,
1,1,1,1,1,1,1,1,1,1,1,5,
1,1,1,1,1,1,1,1,1,1,1,5,
1,1,1,1,1,1,1,1,1,1,1,5,
1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,3,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,12
]/4,1)
).play;
Pbind(
\note,
Pseq([
-3,9,8,9,4,9,12,11,4,11,14,12,9,8,4,
9,4,9,12,11,4,11,14,12,9,12,9,
14,9,5,9,2,5,-3,0,-1,2,7,11,
7,4,7,0,4,-5,-1,-3,0,2,5,-1,2,-5,-1,0,4,
-2,0,-7,-10,-5,7,5,7,0,7,12,16,14,7,14,17,16,12,11,7,
12,7,12,16,14,7,14,17,16,12,
19,16,19,12,16,7,11,9,12,16,19,
18,21,14,18,9,14,6,9,7,11,14,18,
16,19,12,16,7,12,4,7,6,9,11,15,
16,12,16,9,12,16,19,18,14,11,14,7,11,14,18,16,12,9,12,6,9,12,
11,12,9,11,-1,4,16,11,7,4,-1,-5,-1,-8,4,7,10,1,
19,17,16,14,2,5,8,-1,
17,16,14,12,0,4,6,-3,
16,15,13,11,-1,2,5,-4,
14,12,11,12,9,8,4,
9,4,9,12,11,4,11,14,
12,16,21,16,12,16,9,12,6,9,12,9,6,9,3,6,
4,8,11,8,4,-1,-4,-8,
-3,0,4,0,-3,0,-9,
11,8,4,2,11,8,2,0,
4,-4,4,-3,6,-1,8,0,
9,2,10,8,5,2,-1,-4,
-3,-10,-8,-7,-9,-8,4,-3
]-12,1),
\dur,
Pseq([
2,4,2,1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,3,
1,1,1,1,1,1,1,2,2,1,1,1,1,2,2,1,1,
1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,7,
1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,2,
1,1,1,1,1,1,1,1,2,2,2,3,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,
1,1,1,2,2,1,1,1,1,1,1,1,1,2,2,2,2,5,
1,1,1,2,2,2,2,5,
1,1,1,2,2,2,2,5,
1,1,1,2,2,2,2,5,
1,1,1,2,2,2,2,
1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
2,2,2,2,2,2,2,2,
2,2,2,2,2,2,5,
1,1,1,1,1,1,1,2,
2,2,2,2,2,2,2,2,
2,2,2,2,2,2,2,2,
2,2,2,2,2,2,2,24
]/4,1)
).play
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment