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
91
92
resetCycles
once $ "dr"
do
setcps (90/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 gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
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))
let chorus = pF "chorus"
let lagamount = pF "lagamount"
let dec = pF "dec"
let sus = pF "sus"
let cutoff = pF "cutoff"
let blues = ["c", "f", "c", "c", "f", "f", "c", "c","g", "f", "c", "c", "g", "f", "c", "g"]
-- Do Fa Do Do
-- Fa Fa Do Do
-- Sol Fa Do Do
-- Sol Fa Do Sol
d1 $ gF $ gMute2
-- $ "k . ~ ~ <~!3 k> <~!2 k <~ k*2>>"
$ midiOn "^42" (<| "k k k <k <[~ k] k*2>>")
$ midiOff "^42" (<| "k . k(<3!3 5>,8)")
$ "k"
# "[cpu,jazz,808bd:3,808bd:2]"
-- # midiG' "^78" 0 1.9
# gain 1.8
d2 $ gF $ gMute
$ n "~ [40,39] ~ [42]*<1!3 <2 4>>" # "snare"
-- # midiG' "^79" 0 1.3
d3 $ gF $ gMute
$ midiOn "^76" (ply 2)
$ rarely (ply 2)
$ "drum:2*[8 <8 16>]" # gain 0.5
# midiG' "^80" 0 1.9
d8 $ gF $ gM
$ chop 16
$ midiOn "^36" ((# "break:18") . loopAt 2)
$ midiOn "^56" ((# "jungle_breaks:45") . loopAt 2)
$ midiOn "^60" (mask "f . f(3,8)" . chop 8)
$ midiOn "^92" (ply 2)
$ loopAt 2
$ slice 4 "0 <1!2 ~ 1> <2 ~> 3*<1!3 2>"
$ "break:9"
# cut 8
# gain 1.2
d4 $ gF2 $ gMute3
$ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>")
$ midiOn "^57" (juxBy 0.2 (
-- ply "<2 4 [4 8] 8>" .
arp "pinkyup"
. (often (ply 2))
))
$ superimpose (|+ note "[0,7]")
$ note (
cat blues
- 24
)
# "bassWarsaw"
# pan 0.3
# room 0.1
# voice 0.8
# crushbus 41 (range 16 1.3 "^53")
# octerbus 42 (range 0 1.3 "^33")
# gain 1
d9
$ note ("0(<3!3 <5 [5 3]>>,8)" + "c'maj'2" + (cat blues))
# "FMRhodes2"
# modIndex 0
# gain 1.3
d10 $ gM3 $ gF3 $ note ("c'maj'4" - 12 + cat blues) # "moogBass"
# pan 0.8
# room 0.2
# chorus (range 0 2 "^29")
# sz 0.6 # dry 2
# room 0.3 # dry 0.9
# pan 0.2
d11 -- DEBUG CUE Voice
$ ("0.125" <~)
$ off "h" ((|* gain 0.95) . (# pan 0.8))
$ "numbers"
# n "<1 2 3 4 5 6 7 8>"
# pan 0.3