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
do
setcps (80/60/4)
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
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 gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF
$ midiOn "^42" (<| "k k k k")
$ "jazz"
# midiG' "^78" 0 1.9
d3 $ gF
$ midiOn "^42" (<| "~ k ~ k*<1 2>")
$ midiOff "^42" (<| "~ k")
$ "hh"
# midiG' "^79" 0 1.9
d5 $ gF2 $ mask "<t t t f>"
$ "90s_synatm:8"
# room 0.4
# cut 5
# midiG' "^81" 0 1
# crushbus 51 (range 16 2.5 "^53")
# pan 0.35
# room (range 0.2 0.8 (slow 8 saw))
d6 $ gF3
$ note (scale "aeolian" "<0!8 -2 -2 -2 -3>")
# "FMRhodes1"
# midiG' "^82" 0 1.9
d7 $ gF3
$ superimpose (struct "t . t(3,8)" . (arp "thumbup") .
(|+ note "<c'maj'4!3 c'min'4>")
)
$ note (scale "aeolian" "<0!8 -2 -2 -2 -3>")
# "FMRhodes2"
# midiG' "^83" 0 1.9
d8 $ gF $ chop 8
$ midiOn "^60" (loopAt 1)
$ midiOff "^60" (loopAt 2)
-- $ loopAt 2
$ "fbreak80"
# midiG' "^84" 0 1.9
# cut 8