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
do
resetCycles
let prog = "<a g f e f e <c d> <d e>>"
let mIntro = (mask "<f!4 t!28>")
let modIndex = pF "modIndex"
let gPreBridge = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.05 saw)))
let gBridge = (someCyclesBy "<0!32 1!8 0!24>" (# djfbus 1 (slow 8 $ range 0.5 0.98 saw)))
let g = (gPreBridge . gBridge)
setcps (110/60/4)
d1 $ g
$ mask "<f!8 t!20>"
$ someCyclesBy "<0!32 1!16 0!16>" (mask "t(<1!4 2!12>,4)") -- Pont
$ struct "t t t [<t!3 ~> <~!4 t!4>]"
$ "jazz" # gain 1.1
d2 $ g $ mIntro $ fast 2 $ "~ snare:22" # gain 1.2
d3 $ g $ mIntro $ "~ d ~ d ~ d*<1 2> ~ d*<1!7 2>" # "drum:2" # gain 1.4
d4 $ g
$ slice 4 ("0 <1!2 ~ 1*2> <2 <~ 2>> 3*<1!3 4>")
$ loopAt 1 $ "break:1"
# gain 0.83
# pan 0.2
d5
$ "faith/8"
# n (slow 32 $ "<0 1>")
# gain 1.1
# pan 0.8
# cut 5
-- # crushbus 51 (slow 16 $ range 10 8.5 (saw + (2.5 * (fast 4 $ perlin))))
d6
$ struct "<t!4 t*2!4 [t t(<3!3 5>,8)]!8>"
$ note (prog - 24)
# "bassWarsaw"
# pan 0.2
# gain (slow 32 $ range 0.5 1.3 saw)
d7 $ g $ arp "up"
$ off "<e!3 <s h>>" id
$ note (prog + "<c'maj'4!7 c'maj'8>" - 12)
# "FMRhodes1"
# pan 0.9
# modIndex (slow 32 $ range 0 4 saw)
# gain (slow 32 $ range 0.8 1.1 saw) |* "<0.8 1!3> 1!7"
# room (slow 16 $ range 0.4 0.8 saw)
d8 $ g
$ struct "~ t ~ t ~ t ~ [<t!7 ~> <~ t>]"
$ "ho:1"
# room (slow 32 $ range 0.4 0.7 saw)
# dry (slow 32 $ range 0.4 1.7 saw)
# sz 0.9
# pan (slow 16 $ range 0.75 0.05 saw)
# gain (slow 8 $ range 0.68 0.55 saw)