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
resetCycles
do
setcps (60/60/4)
let maskR = mask "<t!6 f [f t]>"
modIndex = pF "modIndex"
g = (# lpf (slow 64 $ range 2000 500 saw))
d1 $ g
$ "k k k <k k k ~ k k ~ ~ k k ~ k k k k*2 k> k k k <k*2!3 [~ k]>"
# "[jazz,808bd:2,909]"
# gain 1.3
d3 -- Bassline baseline
$ "tripBassLines:0"
# lpf 400
# crush 3.5
# cut 3
# room 0.3
# gain 1.2
d2 $ g
$ superimpose (const $ maskR -- Snare!
$ whenmod 4 3 (fast 2)
$ "~ s"
# "snare:20"
# lpf (slow 32 $ range 2000 5000 saw))
$ maskR
$ slice 4 ("0 1 <2 2 3 <~ 3>> <2!3 3*<1 2>>")
$ "break:13"
# pan (segment 4 $ range 0.2 0.6 perlin)
# cut 2
# gain (slow 32 $ range 0.53 0.8 saw)
d4 $ g
-- $ mask "<t!6 f [f t f t]>"
-- $ degradeBy 0.05
$ sometimesBy 0.1 (ply 2)
-- $ fix (mask "<f!16 t!16>" . (|* gain (slow 8 $ range 0.35 0.48 saw)) . (# cut 41)) "ho"
$ "~ d d*<1 2 8 <4 [4 <8 16>]>> d*<8!3 <16 [16 4]>>"
# "[drum:2,ho:1]"
# room 0.4 # dry 0.9 # sz 0.3
# gain 0.9
# pan 0.8
d5
$ mask "<f!32 t!32>"
$ off 0.75 ((# crush 6.2) . (|* gain 0.9). (# cut 51))
$ note "<a b g <d a5>>"
# "moog"
# legato 2
# room 0.6
# sz 0.8
# gain (slow 4 $ "<0.65 0.7 0.75 0.8>" * 1.0)
# pan 0.7
# cut 5
d6 -- Solar flares
$ mask "<f!8 t(4,8)!8 t!16>"
$ superimpose (
(off 0.5 (|* gain "<0 1 1 0>")) .
arp "<updown up up downup>"
. (|+ note "c'major'2"))
$ note "<a5 g5 f5 <c5 a4>>@3 e" # "FMRhodes2"
|- note "<24!16 12!8 0!8>"
# modIndex (slow 32 $ range 0 32 (saw + (slow 32 "<0 0.3>") * perlin))
# gain (slow 64 $ range 0.9 0.5 saw)
# room 0.5
# dry 1
# sz 0.4
# pan 0.2