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
-- The Punk Bass
do
setcps (82/60/4)
let gF1 = (# 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 lineTeng = "cs d d d cs d d d cs d d d g ~ fs ~"
d1 $ gF1 $ gM
$ midiOn "^42" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
$ midiOff "^42" (<| "k . <~!4 k!4 k(3,8)!8>")
$ "[rootsDrums:0,rootsDrums:4]"
-- $ "[techno,jazz,kick:5]*4"
# midiG' "^78" 0 1.5
d3 $ gF1 $ gM
$ "[~ drum:2]*8"
# midiG' "^80" 0 1.5
d4 $ gF2 $ gM2
$ midiOff "^57" ((slow 2) . ( # room 0.5))
$ note (lineTeng)
# "rootsBass"
# crushbus 41 (range 16 2.5 "^53")
# end 0.35 # room 0.3
# legato 2 # gain 1.9 # cut 1
# midiG' "^81" 0 1.5
d8 $ gF1
$ midiOn "^92" (ply "1 2")
$ midiOn "^60" (slice 16 (run "<16!8 [16 8]!7 [8 16]> <16!3 <32 [8 32]>>") )
$ chop 8
$ (someCyclesBy "^20" (# n "21"))
$ "jungle_breaks:33"
# midiG' "^84" 0 1.5