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
120
121
122
123
124
-- BLUE GOLD - SUNS OF GOLD LIVECODING REMIX
-- Original by Leifur James :pray:
do
setcps(140/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 "^30" (# "hardkick_rha:29")
$ midiOn "^42" (<| "k k k <k!3 <[~ k] k*2>>")
$ midiOff "^42" (<| "<k ~>")
$ "[techno:0,808bd:2,909,kick:4]"
-- $ "[jazz,kick:4]"
-- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM1
$ fix (# lpf 1300) "cp"
$ midiOn "^43" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
$ midiOff "^43" (<| "~ . cp")
$ "[snare:32,cp]"
d3 $ gF1 $ gM1
$ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
$ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
# cut 3
d4 $ gF2 $ gMute3 -- Caring bass
$ midiOn "^57" (|+ note "[0,12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
$ superimpose (
(# cut 41) .
(# crushbus 41 (range 10 3.5 "^53"))
)
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
- 12
)
# "moog:0"
# legato 1
# bandf 500
# bandq 0
# octerbus 42 (range 0 0.9 "^33")
# cut 7
# gain 1.4
d5 $ gF2 $ gMute3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
$ midiOff "^58" (
-- (|+ note "<0 12>") .
mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
$ stack [
n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^54" + "^34")),
"vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^54"),
"vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^34"), -- TODO BONUS ACID
-- # octer 1.1
-- ,
""
]
# crushbus 41 (range 16 1 "^53")
-- # legato 1
# legato (range 0.39 0.7 (1 - "^17"))
>| note ("[b d6 b cs6 d6 b cs6 b]*2"
- "<0!32 12!32>" -- Alternance
-- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
)
-- # att 0.1 # sus 0.2 # rel 4
-- # cut 4
# octersub 2
-- # octerbus 41 (range 0 1 "^17")
-- # crushbus 42 (range 16 4.2 "^53")
d11 $ gF2 $ gMute3 -- Caring cello
$ midiOn "^57" (|+| note "[0 12 0 12 0 12 0 12]")
$ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
-- $ superimpose (
-- (# cut 41) .
-- (# crushbus 41 (range 10 3.5 "^53"))
-- )
$ note (
"<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
)
# "cpluck:0"
# cut 11
# gain 1.4
d7 $ gF1 $ gM1
$ midiOn "^91" ( -- Bouton Nassim <3
slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
. loopAt 0.5 . (# "breaks165")
-- . (# octer 0.4) . ( octersubsub 4)
. (# lpf 2500)
. (# room 0)
)
$ midiOff ("^59" + "^91") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
$ midiOn "^55" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
$ chop 16
$ loopAt 2
$ "jungle_breaks:45"
# cut 8
# att 0.04
# rel 2
# gain 1.6
# hpf 1200
d8 $ gF1 $ gM1
$ midiOn "^92" (ply "4 <8>")
$ chop 16
$ loopAt 8
$ "ccc:2"
# gain (slow 16 $ range 1.4 2.2 saw)
# room 0.4 # dry 1.1
# cut 8
d9 $ striate 16 $ "ccc:1"
# cut 1 # room 0.4 # dry "<1 1 1.2 1.3>"
# octer 0.6
# octersubbus 91 (range 0 1 "^19")
# squizbus 92 (range 0 2 "^19")
d10
$ chop 16
-- $ mask "<f!24 t!8>"
$ loopAt 8
$ "risers:10"
# cut 10
# hpf 2000
# octer 0.5