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
do
setcps (120/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
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 $ gM $ gF1 $ mask "<t f!3 t!28>"
$ midiOn "^42" (struct "t*<4!3 [4 4 4 <12 6>]>")
$ fix (|* gain 0.8) "kick"
$ "[jazz,808bd:4,kick:4]"
# midiG' "^78" 0 1.2
d2 $ gM $ gF1 $ "~ ~ cp ~" # "snare:40"
# midiG' "^79" 0 1.2
d3 $ gM $ gF1 $ "drum:2*<[8 4] 8 8 [8 16]>" -- [8 8 8 8] 32
# midiG' "^80" 0 1.4
-- d4 $ note (slow 5 $ "b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2 b2 <a2 d3> d3 b2 b2 a2 b2")
-- # "superpiano"
-- # gain 0.8
d4 $ slow 4
$ contrast
(gF2 . (# midiG' "^81" 0 2) . (# crush 16)) -- Graves
(gF3 . (# midiG' "^82" 0 1.4) . (midiOn "^58" rev) . (# pan 0.8) . (fix (|+| note (arp "<up <up down> down>" "<c'maj'2!3 c'maj'4>")) "FMRhodes1")
. (# sustain "e e e e e e q") . (|+ note 12) . (# "[FMRhodes1,FMRhodes2]")) -- Aigus
(note (scale "aeolian" "[0,1,2,3,4,5,6,7]" - 28))
-- $ fix (# pan 0.8) (note (scale "aeolian" "[0,1,2,3,4,5,6,7]" + 7 - 28))
$ note (scale "aeolian" (
"{[[0 <~!8 1!8> 2 <~!8 3!4 ~ ~ 3> 4 <~ 5> 6 <~!3 5>]*4],[8 9 10 9 8 9 10 8 9 10 9 8 10 11 8 9 10 9 8 11 12 <8 10> 9 10 9 8 13 14 14 13 12 11]}"
) - 28)
# "bassWarsaw"
# pan 0.2
# crushbus 41 (range 16 2.5 "^53")
d8 $ gM $ gF1
$ midiOn "^92" (ply "2")
$ midiOn "^60" (ply "1 2 . <2!3 4>")
$ chop 16
$ loopAt 2
$ "jungle_breaks:6"
# midiG' "^84" 0 1.4
d1 $ "d@6 d@4 d@4 d@2"
# note "c3 ef3 g3" # "superpiano"
7 7 7 7 4
32