1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
setcps 0.5
d1
$ every 16 (0.25 ~>)
$ every 8 (0.125 ~>)
-- $ fast 4 -- faster!
$ fast 2 -- fast!
-- $ euclid "<1 1 1 1 2 2 2 2>" 2
$ s "jazz:0"
d2 -- drums, someroll
$ whenmod 16 8 (# gain 1)
$ whenmod 16 4 (# gain 0.8)
$ whenmod 16 0 (# gain 0.6)
-- $ fast 2
$ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]"
d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
# s "bass3"
# gain 0.8
d3 -- pont 80 drums
$ fast 2
$ someCycles ((off 0.625 id) . (# n "3"))
$ off 0.125 id
$ s "e"
# s "electro1"
# n "2"
d4 -- TODO: gets annoying, do something
$ (chop 4) . (# cut 1) -- chopped echo
$ off 0.25 ((|+ note 7) . (# cut 1))
$ off 0.125 (|+ note 3)
$ "moogBass"
# note "<0 0 0 0 3 3 3>"
# gain 0.7
-- # cut 1
d6 $ s "cp/4"