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
42
43
44
45
setcps 0.5
d3 -- bass
$ whenmod 8 4 (|+ note 3)
$ note (scale "minPent" "<<0 [0 0?]> [3 0]> <[3 .. 0][0 .. 3]>" )
-- $ note (scale "minPent" "[[3 2] 0 3] [0 [<0 2 0 0> .. <2 0>]]")
# s "ikedaBass"
|- note 21
d1 -- kick techno
$ s "kick(2,4)" # room 0.2 # dry 4 -- metallique
-- $ s "kick:4(<1 2 4 4>,4,1)" -- rond
# gain 0.9
d2 -- drums 80s
$ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]"
# s "electro1"
d4 -- synth fou dub
$ whenmod 16 8 (|- note 3)
$ fast 2
$ superimpose (|+ note "<5 5 3 3>")
$ superimpose (|- note "7")
$ note (scale "major" "~ 0")
# s "cheapPiano1"
|+ note 8
# gain 0.7
# room 0.2
d5
$ someCycles (slow 2)
$ always (superimpose (rev . (# gain 0.5)))
-- $ someCyclesBy 0.8 (|- note (choose [1,2,3,5]))
$ off 0.125 (|+ note 5)
$ off 0.375 (|+ note 7)
$ arpeggiate
$ note (scale "major" "[0, 7, 5, 3]")
# s "bsguitar:3"
|- note 7
# gain 0.7
d6
$ s "~ c ~ [c? ~ c?]"
# s "clap"
# n 2