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 gM = gMask . gMute
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 $ gF $ gMute
$ fast 2
$ midiOn "^42" (struct "t t t t*<1!3 [2 <2 4>]>")
$ midiOff "^42" (struct "t . ~ t ~ ~")
$ "[808bd:13,jazz]" -- 11
# midiG' "^78" 0 1.3
# room 0.2 # sz 0.2
# dry 0.99
d2 $ gF $ gM
-- $ mask "<f!8 t!24>"
$ midiOn "^75" (struct "[~ t]*8")
-- $ midiOn ("^43" - "^75") (whenmod 8 7 (fast "2 4") . (struct "~ t ~ t"))
-- $ midiOff ("^43" - "^75") (struct "~ t")
$ whenmod 64 32 (whenmod 8 6 (mask "t . <t f> <f [f t]>"))
$ midiOn "^43" (struct "~ t ~ <t!3 ~> ~ t ~ <t [<t ~> t]>")
$ midiOff "^43" (struct "~ t ~ [t*<1!7 2> ~]")
-- $ "[bssnare:0,bssnare:3]"
$ "[snare:24,<meth_snare:1!32 meth_snare:2!32>]"
# lpf 5000
# pan 0.4
# room 0.2 # dry 0.9 # sz 0.4
# midiG' "^79" 0 1.2
d3 $ gF $ gM -- Broken Jungle Snake
$ sometimesBy (1 - "^32") (mask "t(<1!3 [1 4]>,4) . t(<3 5>,8,<0!3 3>)")
$ (|* speed (range 0.5 1.5 "^52"))
$ gF $ loopAt 1 $ chop 8
$ midiOn "^44" (# n "14")
$ midiOn "^76" (ply 2)
$ "jungle_breaks" -- Progressive jungle :D
# n "<13!3 [13 14 13] 13!3 [13 14] 13!4 14!3 [13 <13 [14 13 14]>]>"
# cut 3
# pan 0.6
# midiG' "^80" 0 1.2
d4 $ gF2 $ gM -- GENIE OF INFRABASS
$ midiOn "^89" (juxBy 0.8 (rev . (# cut 41)))
$ chop (4 + (4 * "^57"))
$ "m . m*<1 <2 4>>" # "meth_genie:0"
# cut 4
# octersubbus 41 (range 0 0.81 "^53")
# octersubsubbus 42 (range 0 0.6 "^53")
# midiG' "^81" 0 1.2
d7 $ gF3
$ midiOn "^58" (juxBy 0.7 (rev . (# cut 71)))
$ mask "t <f t>" $ chop 16
$ slice 4 "0 <1!3 2>"
$ loopAt 2
$ "fepiano:24"
# cut 7
# midiG' "^82" 0 1
d8 $ gF3 -- HIGH HOPES
$ midiOn "^91" (|-| note "[0,12]")
$ midiOn "^59" (
|+| note (arpeggiate "[0 12 <0!8 7!8>]([4 5 <1 4 1 <5 8>>],8)")
)
$ note ("<af5 <f5!4 c5!3 cs5>>"
- 12
)
# "bassWarsaw"
# pan 0.8
# room 0.2 # sz 0.4 # dry 1.1
# legato 2
# crushbus 61 (range 16 3.5 "^55")
# midiG' "^83" 0 1.5
d9 $ gF3 -- Pluie bienfaisante
$ whenmod 64 32 (superimpose (
chop 4 . (# n "2") . (# cut 91)
. (|* gain 1.185)
. (|+ note (3 - 12 + "<0!16 7!16>"))
. (# crush 16)
))
$ "90s_synatm/4"
# cut 9
# hpfbus 92 (range 0 5000 "^36")
# squizbus 93 (range 0 1.5 "^56")
# room 0.2
# midiG' "^84" 0 1.2
once $ ""
d1 $ "jazz" # gain 0.9