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
do
-- resetCycles
-- once $ note "a3" # "bassWarsaw" # pan 0.35 # cut 6 # gain 0.4 # room 0.8 -- IntroBass Base
setcps (70/60/4)
let g = (# djfbus 1 (0.27))
d1 $ g -- Kick somewhat RubaDub
$ mask "<f!4 [t f]!4 t!54>" -- Intro
$ "k . ~ [~ k] <k ~ ~ k> <~ [<k ~> <~ k>]>"
# "[cpu2,jazz,808bd:3,808bd:7]"
# lpf 5000
# room 0 # sz 0
# orbit 1 -- Does this fix the weird first room ?!
# gain 1.2
d2 $ g -- Drums semi-clave pattern
$ "~ ~ ~ d ~ ~ d <~ d*<1 2 4>>"
# "[drum:2,auto:9]"
# gain 0.9
d3 $ g -- Clap snare: phantom agora
$ whenmod 4 3 (juxBy 0.4 (# lpf 4000)) -- Side time-travel echoes
$ "~ ~ <~ <[~ c]!3 ~>> ~ <~!2 [~ c] ~> c ~ ~"
# "clap:2"
# hpf 2000
# room "<0.64!7 1>"
# sz 0.3
# dry 0.98
# gain 0.65
d4 $ g -- Surprise, breakbeat!
$ rarely (juxBy 0.8 (ply "[2|2|<2 4>|<2!3 4>]"))
$ whenmod 64 48 (|* gain (slow 16 $ range 1 0.5 saw))
$ someCyclesBy "<0!16 1!16 0!32>" (|* gain (slow 16 $ range 0.65 1 saw))
$ mask "<f!16 t!48>"
$ slice 4 "0 1 <2!4 0!4> 3 0 <1!6 ~ ~> <2!6 ~ 2> <3!3 <2 [2 3]>>"
$ loopAt 0.5
$ "breaks165"
# pan 0.65
# gain 0.9
d5 $ g
$ (0.125 ~>) -- Bien calé!
$ mask "<f!16 t!48>" -- Intro/64
$ whenmod 4 3 (slow "<2 4>") -- Break-ish
$ mask "<t(1,4)!4 t(2,4)!4 t!8 t(<4!3 3>,4,<0!3 1>)!16>" -- Dégradé
$ chop 4
$ slice 4 "<0!3 1>"
$ loopAt 4
$ "rootsGuitar:7"
# room (slow 32 $ range 0.2 0.65 saw)
# dry 1
# sz 0.9
# pan (0.75 + 0.25 * (slow 8 perlin))
# gain (0.8 - 0.1 * perlin + 0.2 * (slow 16 $ saw))
# cut 5
d6 $ g -- Bass Base
$ whenmod 32 16 (superimpose ((# cut 61) -- Crushed cousin
. (# crushbus 61 (range 6.5 4.85 (fast 8 perlin)))
. (|+ pan 0.2)
. (|* gain (slow 32 $ range 0.5 1 saw))
))
$ note (
"<a af gf <af!3 e>>"
+ "0 0(<3!3 5>,8)"
|+ "0 . 0 <0!3 7> 0"
- 24
)
# "bassWarsaw"
# pan 0.35
# cut 6
# gain (slow 8 $ range 0.45 0.56 cosine)
# room 0.8
d7 -- Forks of love
$ mask "<f!32 t!96>"
$ superimpose (struct "t*[8 <8 <16 <[32 16] [16 32 16]>>>]" . arp "up")
$ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] <[cs,e,af5] [b4,cs,af5]>>"
-- $ note "<[b4,cs,af5]>"
# "superfork"
# gain (slow 64 $ range 0.24 0.73 saw)
# dry 1 # room 0.8 # sz 0.9
once
-- $ (arp "up pinkyup")
$ note "<[cs,e,a5] [cs,e,af5] [cs,e,gf] [cs,e,af5]>"
# "superfork"
-- # voice 8
# gain 0.85
-- # velocity 0.7