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
46
47
48
49
50
do
setcps (100/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 2>" )
$ midiOff "^42" (<| "k . k(<3!3 5>,8,<0!6 3 3>)" )
$ "[jazz]"
d2 $ gF1 $ gM1
$ midiOff "^43" (<| "~ ~ ~ sn")
$ midiOn "^43" (<| "~ s ~ s")
$ "[snare:21]"
# gain 0.7
d3 $ gF1 $ gM1 $ "dr*[8 8 8 <4 4 8 16>]"
# "hh:7" # legato 0.25 # cut 3
|* gain (range 0.95 1.1 (fast 2 perlin))
d4
$ arp "up" $ note ("[e5 e5 <e5 f5 a5 c6>] <a4!7 a5>@3" + 3.6)
# "jungle_bass:4"
# begin 0.35
# lpf 5000
# cut 4
d5 $ gM3 $ gF3
-- $ someCyclesBy "0.2" (mask "t(3,8)")
-- $ arp "up"
$ note ("<[<a@3 [a c4]> [gs <a!3 ds> gs]] e>"
+ "[0,12]"
|+| "0 12 0 12*<1!3 2>"
)
# "marimba1"
# gain 1.2
# pan 0.6
# room 0.8 # sz (slow 16 $ range 0.8 0.2 saw)
# legato 0.5
# octerbus 51 (range 0 0.8 "^54")
-- # velocity 0.8
d8 $ gF3 $ gM1
$ chop 16
-- $ midiOn "60" (ply 2)
$ loopAt 2
$ "break:4"
# pan 0.2
# gain 0.8
a bf c ds e f gs