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
-- Part 2 : Transe dub
do
setcps (60/60/2)
d1 -- Kick techno (mask 4) / trance (mask 12)
-- TODO: at 12, not really transe yet
-- $ mask "t(11,12)"
$ whenmod 64 32 (|> n "[0 0 <0 ~>]*4")
$ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>"
# s "jazz"
# gain 0.6
# lpf (slow 8 $ range 50 15000 sine)
d2 -- Hitrolls
$ every 3 (fast 2)
$ s "hh(<1 <3 5>>,8)"
# gain 0.75
# pan ("<0.5!3 [0.25|0.75]*1>")
# lpf ((slow 19 $ range 2 20 sine) * 1000)
d3 -- Bassline
$ superimpose (fast 2 . (# crush 6))
$ note (
slowcat [
"0 3 5 ~ <~ 5> <5 ~> 5 ~",
"<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~"
]
)
|- note 24
# s "supersaw"
# voice 0.2
# pan 0.6
# gain 0.3
d4 -- guitare pompe
$ whenmod 64 48 (degradeBy "<0.5!8 0.4!4 0.2!2 0.1 0>")
$ note ("~ <5 3 3 5 5 3 5 5>") # s "supermandolin" # gain 0.6
# room (slow 100 $ range 0 1 saw) # dry 1 # sz "<0.1 0.9 0.9 0.1>"
# lpf (slow 16 $ range 200 20000 sine)
d5 -- Toms
$ someCyclesBy "<0.25 0.75>" (
(slow 4) . (stut 4 0.95 (1/16))
)
$ someCycles (off 0.25 id)
$ degradeBy (slow 8 $ "<1 [0.75 . 0.5 0] 0>")
$ stack [
"808lt*3" # n "<0!2 1>",
"808ht:2*<4!4 <[8 3] [8 5]>>" # n "0 2"
]
# gain 0.45
# room (slow 16 $ range 0.2 0.8 saw)
# sz 0.8 # dry 0.8
# pan (slow 64 $ range 0.3 0.8 sine)
# delay 0.5
once $ note "0 1 [~ 2] 2 2 . 2*2 1 0 [~ 0]"
# s "bass3" # gain 0.7