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
-- TODO WAVES :)
once $ "dr"
do
setcps (85/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let harmonic = pF "harmonic"
let gate = pF "gate"
d1
$ g1
$ midiOn "^41" (fast 2) -- TODO: Comment to Cooldown :')
$ fix ((|* gain 0.5) . (# "kick:5")) ("c")
$ fix ((|* gain 0.37) . (# "cpu2")) ("b")
$ fix ((|* gain 0.8) . (# "jazz")) ("a")
$ midiOn "^42" (<| "k . k <k [~ k]>") -- Jump?
$ midiOn ("^43" - "^42") (<| "k k k <k [<[<~ k>]!16 ~!3 k ~!3 k k!3 ~ k!3 ~> k]>") -- RUN!
$ "[a,b,c]"
# legato 2
# lpf 4000
# room 0.85
# dry 1
# sz 0.8
# midiG' "^78" 0 1.5
d2 $ g1 -- Snare cloc fantome
$ whenmod 32 8 (fast 2)
$ fix ((# rel "<0.18!7 0.45>") . (|* gain "<0.7!7 0.5>")) ("glitch")
$ fix ((# begin 0.02) . (|* gain 0.84)) ("snare")
$ "~ sn" # "[cpu:8,tech:5,snare:5,glitch:2]"
# room ("<0.25!3 0.5>" + (slow 4 $ range 0 0.25 perlin))
# dry 0.98
# sz 0.9
# midiG' "^79" 0 1.5
d3 $ g2
$ someCyclesBy 0.2 (ply 2)
$ midiOff "^44" (slow "<2!3 <1 2>>")
$ ply "2 <2!3 [2|4|8]*4>"
$ "h h h h*<1 2>"
# "h2ogmhh" # n "1 <2 [2 1]>"
# pan "<0.4 0.4 [0.4|0.6] <0.6 0.8>>"
# midiG' "^80" 0 (range 0 1.2 "^16")
d7 $ g2 -- BREAKBEAT <3
$ loopAt 2
$ midiOn "^76" (mask "t(<3<5 8>>,8) t(<1 2>, 4) t?" . iter 4 . splice 8 (run 32) . (|> "breaks165"))
$ midiOn "^44" (slice 8 (run 8))
$ midiOff "^44" (slice 8 ("0 1 [2 5] <3 7*2>"))
$ "break" # n "<21!32 22!8>"
# midiG' "^80" 0 1.4
# speed (range 0 2 "^52")
d4 $ g2 -- Bassline sub base
$ note "[c3(<3!3 <1 5>>,8),[~!7 <<b3 ~> b3 b3 ~ ~ ~ b3>]] <c3 g3>"
# "ikedaBass"
# legato 2
# att 0.1 # rel 2
# room "<0.25!3 0>"
# sz 0.8
# midiG' "^81" 0 1.2
# crushbus 41 (range 14 2 "^53")
# panbus 42 (range 0.4 0.2 saw)
# harmonic (range "-25" 25 (fast 8 saw))
# cut 4
d5 $ g2 -- Bassline melodie
$ note (
"<c3 [c3@2 ~ c3 . <~ bf2> ~ ~ bf2 c3 bf2 g2@2]>"
+ 12
)
# "bassWarsaw"
# legato 2
# lfobus 50 (fast 4 sine)
# midiG' "^82" 0 1
# crushbus 51 (range 16 2.95 "^54")
# octerbus 52 (range 0 "<0.4 0.5 0.9 1.2>" (fast "<4!3 8>" sine))
# octersubbus 53 (range 0 8 ("^34" + 0.5 * (fast 16 cosine)))
# panbus 54 (range 0.6 0.8 saw)
# room 0.5 # sz 0.8
# cut 5
d6 $ g2 -- Skank organ
$ midiOn "^59" (
superimpose (arp "<up up converge down>"
. (|+ note "0*<2 <2 4> 4 8>"))
)
$ note ("~ 0*<2 2 1 2> ~ 0*<2!3 <1 2>>"
+ "<c5!2 [<f4!3 d5>, bf4]!2>*2"
-- + "[0,12]"
- 24
)
# "[<~!3 organTonewheel2>,organTonewheel3]"
# pan (0.7 + 0.2 * perlin)
# midiG' "^83" 0 1.3
# sustain 0.35
# room 0.85
# sz 0.8
# dry 1
d7 -- Dub piano un peu fou
$ whenmod 16 8 (superimpose (|+ note "<7!7 <5 4>>"))
$ note ("~ 0 ~ 0 ~ 0 ~ 0" + "[c <c!1 <bf <d g4>>>]")
-- <c3 [c3@2 ~ c3 . <~ bf2> ~ ~ bf2 c3 bf2 g2@2]>"
# "superpiano"
# velocity 0.5
# pan 0.8 # room 0.2 # dry 1.3
# midiG' "^84" 0 1.3
-- TODO: Why not?
d2 $ f1 $ m -- Clave de l'été
$ midiOn "^43" (fast 2)
$ midiOn ("^75"-"^43") (fast 2)
$ (|* gain ("0.75 1 1 1 0.75 1 1 1" * 1.7))
$ "d ~ ~ d d ~ d <~!3 d>"
# "snare:22"
# midiG' "^79" 0 1.4
# speed (range 0 2 "^51")