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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
-- Monday fairy
do
setcps (120/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 maskDrum = "t(5,8) . t(9,16)"
let maskDrumI = "f(5,8) . f(9,16)"
d1 $ gF1 $ gMute2
$ midiOn "^42" (<| "k k k k")
$ midiOff "^42" (<| "k . k(3,8)")
$ "[techno:0,808bd:2,jazz]"
# midiG' "^78" 0 1
d2 $ gF1 $ gM
$ midiOn "^43" (<| "~ c ~ c")
$ midiOff "^43" (<| "~ c")
$ "cp"
# midiG' "^79" 0 1
d3 $ gF1 $ gM
$ mask "<f!8 t!24>"
$ midiOn "^44" (const -- JIUUUUUUNGLE
$ midiOn "^76" (# n 70)
$ sometimesBy "^52" (ply "<2 <4 [4 8]>>")
$ loopAt 4
$ chop 8
$ "jungle_breaks:10"
# midiG' "^80" 0 1
)
$ "~ h ~ h*<1 1 2 1> ~ h ~ h*<1 2>"
# "808cy" # n "<7!12 [7,8] [7,9] [7,10] [7,1]>"
# legato 1
# room 0.1 # dry 1.1
# midiG' "^80" 0 1
d4 $ gF2 -- the bassy fright
$ fix (|* gain 0.8) "bass2"
$ note "<0 2 5 <7 8>>(<3 [3 5] 3 <3 5>>,8)"
# "[bass2:4,bass3:0]"
# att "<0.25 0.2 0.15 <0.125!3 0.5>>"
# rel 10
# lpf 200
# room 0.4
# sz 0.8
# midiG' ("^81" - 0.35 * "^53") 0 1.2
# distortbus 41 (range 0 1 "^53") -- FIXME: Meileur effet
# lpfbus 42 (range 4000 500 "^53")
# roombus 43 (range 0.4 0.14 "^53")
d5 $ gF3 -- The starry night
$ whenmod 64 32 (superimpose ( -- Star rain
(|+| note "0 12 0 <12 24>")
. slice 4 "0 1 2 3 0 1 2 3*4"
. (ply 2)
. fast 2
))
$ note (
"<e5 a4 c5 <[d5 <d5 e5>]>>" -- Mélodie
-- + 2 -- Calage
+ "0([3 5],8, [0 <6 0>])" -- Structure
)
# "organTonewheel4"
# midiG' "^82" 0 0.8
# room 0.4
# sz 0.8
# pan 0.7
d7 $ gM $ gF1
$ midiOn "^59" (mask (cat [maskDrumI,maskDrumI,maskDrumI,maskDrum]))
$ slice 4 "0 <1!8 0 0 0 1 0 1 0 1*2> 2 <3*<1 2 4 8> 3*<2 4 8 16> 3 [~ 3*<1 2>]>"
$ "break:1"
# cut 1
# midiG' "^83" 0 1
d8 $ gM $ gF1
$ midiOn "^92" (struct "t . t(<3 <5 [5 8]>>,8)")
$ midiOn "^60" (ply "<[4 2 2 4] [4 8 4]> <8 8 16 [16 32]>")
$ midiOn ("^59" - "^60") (mask (cat [maskDrum,maskDrum,maskDrum,maskDrumI]))
$ chop 16 $ loopAt 4
$ "break:3"
# midiG' "^84" 0 1
# cut 2
d12 $ gF3 -- Vocals with delay :sunglasses:
$ whenmod 128 (128-16) (# n "<~ <37 38>>") -- Help me!
$ whenmod 128 32 (# n "<~ <5 4>>") -- Mutters
$ n "<~ <50!3 [50@1 51@2]>>" -- Ways to die / souls
# "jungle_vocals"
# cut 12
# delay (slow 16 $ range 0.1 0.8 perlin)
# delayfb 0.8 # delaytime "<0.25!3 0.5>"
# midiG' "^17" 0 0.48
d9 $ gF3 -- Ambiance: verre entier
$ note "<a3@2 <c4@2 [c4@3 d4]>>"
# "90s_glassatm"
# cut 9
# pan 0.2
# midiG' "^18" 0 0.45
d10 $ gF1 -- Ambiance: JUNGLE NOISES
$ fix (
(ply "<1 [1 [2 [4 [8 16]]]]>")
. (# "jungle_fx:13")
. (|* gain 0.8)
) "j3"
$ fix (# "jungle_fx:14") "j2"
$ fix (# "jungle_fx:8") "j1"
$ stack [
"<~!7 j1>",
"<~!8 j3 j3 ~!3>",
"<~!12 j2 ~!4>"
]
# cut 10
# midiG' "^19" 0 0.5
d11 -- Nappes background
-- $ (0.125 ~>)
$ note "<e4 <d4 [d4 c4]>>/2"
# "jungle_pads:9"
# legato 2
# cut 6
# midiG' "^20" 0 0.6