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
resetCycles
do
setcps (120/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
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"))
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k k*<1 1 1 2>")
$ midiOff "^42" ((<| "<k(3,8) [k k k k ~]>") . superimpose (# "kick:5"))
$ "[jazz,house]"
# gain 1.2
d2 $ gF1 $ gM1
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ . ~ c*<1!3 <2!3 4>>")
$ "[rampleM1:10]"
# gain 0.9
# pan 0.6
# room 0.84 # dry 0.95 # sz 0.1
# lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
$ midiOff "^44" (slow 2)
$ arp "up"
$ midiOn "^76" (ply 2)
$ "d([16 <16 [8 <8 32 16 32>]>],32,0)" -- REGULIER :)
# "[rampleS57:2]"
# note (-12 + "3.5" + "e6")
-- # cut 3
# gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
# pan 0.3
d4
$ loopAt 2
$ midiOn "^33" (chop 2)
$ midiOn "^89" (chop 8)
$ midiOn "^57" (slice 4 "4 3 2 1")
$ chop 8
$ "nujazz_bass120:18"
# crushbus 41 (range 16 4.5 "^53")
# room 0.3
# cut 4
# octer 0.9
# octersub 0.5
d5 $ n "<10 10 11 10 10 12 11 12 11 12 12 11 11 12 12 13>" # "nujazz_guitar120" # cut 5
# crushbus 51 (range 16 4.5 "^54")
# hpfbus 51 (range 0 1500 "^54")
d7
$ slice 4 "0 [~ 1] 2 <2 3>"
$ chop 16
$ loopAt 2
$ "jungle_breaks:19" # cut 7
d8 $ gF1 $ gM1 -- BREAK THIS FLOOR
$ midiOn "^60" (slice 8 $ run 16)
$ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
$ chop 16
$ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:6"))
$ midiOn "^56" (loopAt 0.5 . (# "jungle_breaks:45")) -- ORLEANAISE
$ loopAt 4
$ "nujazz_beats120:2"
# pan "0.2 0.8 0.2 0.8"
-- FIXME GRAVEYARDDD