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
do
setcps (80/60/4)
let modIndex = pF "modIndex"
let g = (someCyclesBy "<f!32 t!16 f!32>" (# djfbus 1 (slow 16 $ range 0.5 0.9 saw)))
d1 $ g $ "k k k <k!3 [<~ k> k]>"
# "jazz" # gain 0.9
d2
$ off "h" ((|* gain 0.8)
. (# cut 11)
. (|+ hpf 1500)
. (# pan 0.8)
)
$ slice 4 (
-- "<0!2 0*2 0 1!3 0 0 1 0*2 0 1!3 0 2!4 3(3,8)!4>" -- HARD SYNC
"<0!2 0*2 0 1!3 0>"
)
$ loopAt 4
$ "noir_radio"
# cut 1
# room 0.5
# sz 0.5
# gain 0.6
d3 $ g
$ off "<e!3 s>"
((ply "<1 <2 4>>")
. (|* gain 0.9)
. (# pan 0.6)
)
$ "g*4" # "gretsch:4"
# pan 0.4
# gain 0.8
d4 $ g
$ slow 2
$ note "<[gs@14 gs a] [f@15 g]>"
# octave 3
# "bassWarsaw"
# cut 4
# pan 0.7
# gain 0.7
d5 -- INCOMING BEAT
$ slice 4 ("0 1 <2 <0 [0 2]>> 3*<1!3 4>")
$ loopAt 2
$ "noir_beats:3"
# cut 5
# room 0.4
# gain (slow 32 $ range 0.25 "<0.65!32 0.85!32>" saw)
# pan (slow 32 $ range 0.89 0.6 (saw + 0.25 * perlin))
d6
$ superimpose (
ply "<1!3 <2 [2 4]>>"
. struct "t(<3 <5 8>>,8)"
. arp "up"
. (|+ note "[c'maj'4]")
. (# modIndex (slow 32 $ range 1 50 saw))
. ply 2)
$ note "<gs4!2 f4!2>"
# "FMRhodes1"
# modIndex 0
# gain 0.9
once
$ note (arp "downup" "g'min'4" -12)
# "superpiano"
# velocity 0.6
# gain 1.7
do
d1 $ "808bd:4"
d2 $ "drum:2*4"