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
-- Drone in D
do
setcps (105/60/4)
let mel = ("<d'five'3!4 d'five'4!4 d'five'3!4>")
let maskB = mask "<t!12 [t f!3] f f [f!15 t]>"
d1
-- $ degradeBy "0 0.9!7"
$ maskB
$ loopAt 2
$ slice 8 (iter 4 $ run 8)
$ "fbreak100"
# gain (slow 8 $ range 0.45 0.8 saw)
# cut 1
d3
$ stut 4 0.85 0.25
$ mask "t f!7" $ note mel
# "supersquare"
# voice 1.4
# gain (slow 32 $ range 0.15 0.28 sine)
# crush (slow 64 $ range 16 3 isaw)
# legato 2
d2
-- $ maskB
$ off "e" (|+ note "7 <7 12>")
$ slow 2
$ arpeggiate $ note mel
# "superpiano"
# octave 3
# velocity 0.5
# crush 8
# lpf (slow 64 $ range 0 2000 saw)
# gain 0.85
# pan 0.6
d4
$ superimpose (chop 8 . (# octave 3) . (# gain 0.85)) -- BOURDON
$ arp "updown"
$ note ("<d3'maj d3'min>/2")
# "bassWarsaw"
# legato 2
# pan 0.4
# gain (slow 40 $ range 0.65 0.8 sine)
d8
$ juxBy 0.75 (|+ note 12)
$ mask "<f!32 t!32>"
$ note ("<[0,2] [0,2] [0,1,2] [0,2]>")
# "supergong"
# accelerate 0.1
# room 0.4
# octave 6
# legato 1
# gain 0.45
d9
$ superimpose ((|- note 12) . (# legato 2))
$ "g g(3,8,<3!3 0>)"
# "glitch:1"
# release 0.9
# room (slow 16 $ range 0.1 0.6 sine)
# sz (slow 32 $ range 0 1 saw)
# gain 0.8