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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
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
let gLPF = whenmod 64 48 (# lpfbus 4 (slow 16 $ range 20000 200 saw))
let gLPFSoft = whenmod 64 48 (# lpfbus 5 (slow 16 $ range 20000 2000 saw))
d1 $ gLPF $ gF $ gMute $ midiOn "^75" (fast 2)
$ fix (|* gain 0.8) "kick"
$ fix (|* gain 0.8) "bskick"
$ midiOn "^41" (<| "k k k k k k k*<1!7 2> [<k <~ k>> k]")
$ midiOn "^42" (<| "k k k <[k k*2] <[k*2 k] [k*4]>>")
$ midiOff "^42" (<| "bd*[4 <6!3 [6 12]>]")
$ "[808bd:11,bskick:0,jazz]" -- 11
# midiG' "^78" 0 1.3
# room 0.2 # sz 0.2
# dry 0.99
d2 $ gLPF $ gF
$ midiOn "^75" (struct "[~ t]*[4 <4 8>]")
$ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
$ midiOff ("^43" + "^75") (struct "~ t")
$ "[bssnare:0,bssnare:3]"
# midiG' "^79" 0 1.2
d3 $ gLPF $ gF $ gM2
$ midiOn "^76" (ply "<2!3 4>")
$ midiOn "^44" (chop 4 . loopAt 2 . (>| "jungle_breaks:44"))
$ whenmod 8 4 (ply "1 2")
$ "h(<8!4 16>, 16)"
#
-- drumFrom "rolandr8"
"hh"
# pan 0.6
# midiG' "^80" 0 1.2
# lpf 4000
d8 $ gF3
$ (|* gain (slow 32 $ range 0.3 0.8 saw))
$ "~ 808cy:5*<1!7 2>"
# room (slow 32 $ range 0 0.5 saw)
# sz 0.2 # dry 1.13
# midiG' "^80" 0 1
d4 $ gLPFSoft $ gF2 -- Guitar sample turned bassline
$ midiOn "^57" ( -- ELECTRIC
whenmod 4 3 ((# crushbus 41 (range 5 3.5 saw)))
)
$ ply "1 <1 2>"
$ slice 4 0
$ chop 8
$ loopAt 4
$ "celtic_guitar80"
# n "4"
# cut 4
# room 0.3
# dry 1.2
# sz 0.9
# pan "0.7 0.3"
# midiG' "^81" 0 1
# crushbus 42 (range 16 2 "^53")
d5 $ gF2 $ gM2 -- BASS BONES
$ midiOn "^92" (ply "<8 16>")
$ note "<ef ef {b, [~!7 fs]} fs>"
# "moog"
# cut 5
# pan 0.2
# crushbus 51 (range 16 2 "^56")
# octerbus 52 (range 0 0.63 "^36")
# octersubbus 53 (range 0 0.58 "^36")
# midiG' "^84" 0 1.8
d6 $ gF3 $ gM2 -- High pitched guitar
$ whenmod 4 3 (someCyclesBy (slow 32 $ range 0.5 0.95 saw)
$ ply "<2 [2 4] 4 8>")
$ slice 32 "1 1 1 <2 <[1 1] [1 <2 3>]>>"
$ chop 32
$ loopAt 1
$ "celtic_guitar80:4"
# pan 0.2
# midiG' "^82" 0 0.8
d7 $ gF3 -- Divine
$ midiOn "^91" (ply "2 <4 <2 8>>")
$ chop 4
$ "voices_celtic"
# n "4 <4 4 5 <4 3>> 5 <6 5 5 4>"
# cut 7
# pan 0.8
# crushbus 71 (range 16 3 "^55")
# midiG' "^83" 0 0.8