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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (83/60/4)
d1 $ g
$ fix (|* gain 0.8) "jazz"
$ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
$ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
$ "[808bd:4,jazz]"
# room 0 # sz 0
# midiG' "^78" 0 1.2
d2 $ g -- Snare contretemps
$ mask "<t!3 <f t <f!3 t> <f t>>>" -- Some breaks
$ whenmod 4 3 (off (-1/16) (|- note 3)) -- Double shot
$ "~ c"
# "snare:42"
# midiG' "^79" 0 1.3
d3 $ g -- Drumroll
$ midiOn "^44" (ply 2)
$ midiOn "^76" (ply 2)
$ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>"
$ "[amencutup]*8"
# n "[3!3 <3 4> 3!3 4]"
# midiG' "^80" 0 1.8
d4 $ g2
-- $ superimpose (|- note 24)
$ note (
"0 . <0 0([<1 3> 3],8)>" |+
-- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
)
# "FMRhodes1"
# modIndex (range 0 32 "^54")
# pan 0.8
# midiG' "^82" 0 1.8
d5 $ g2 -- Programmatic bass robot
$ midiOn "^57" (mask "t f!6 t?") -- Take a break my dear
$ whenmod 64 32 (sometimesBy "0 1" rev) -- Run in circles
-- $ swing "8"
$ struct "t([16 8 <16 8 <4 32>>],16)"
$ arp "<up!8 downup!8 updown!8 thumbupdown!8>"
$ superimpose ((|+ note 12) . (# cut 51))
$ note (
"<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b,<g6 b6>]>"
- 36
)
# "bassWarsaw"
# pan 0.2
# crushbus 51 (range 16 4 "^53")
# room 0.6 # dry 1 # sz 0.83
# legato 8 # cut 5
# midiG' "^81" 0 0.98
d8 $ g -- Nes Drumfest
$ midiOn "^92" (ply 2)
$ midiOn "^60" (superimpose (const $ g
$ chop 16 $ loopAt 4 $ "drums_nes:5" # cut 81 # midiG' "^84" 0 1.2)
)
$ loopAt 2
$ slice 4 (run 4)
$ "drums_nes"
# n ("<1!3 [1 <1 1 2 [2 3]>]>")
# cut 8
# midiG' "^84" 0 0.98