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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
setcps 0.5
d1
-- $ sometimesBy "0.9 0 0.1 0" (0.125 ~>) -- decalage
-- $ sometimesBy "0 0 0 0.8" (off 0.125 id) -- double heartbeat
$ s "k*2"
# s "kick:5"
# gain 0.75
d1
$ fast 4
$ every' 16 15 (# gain 0)
$ every' 8 7 (0.25 ~>)
$ whenmod 8 6 (sometimes (off 0.5 id))
$ s "kick:4"
# gain 0.65
d1
$ every' 16 15 (# gain 0)
$ every' 8 7 (0.25 ~>)
$ sometimes (off 0.5 id)
$ euclid 5 8
$ s "kick:4"
# gain 0.65
d2
$ fast "4 <8 16>"
$ s "d"
# s "dr"
# pan (slow 16 $ sine / 2)
# room (slow 32 $ sine * 0.7 + 0.1)
# size 0.5
# dry (slow 64 $ cosine)
d3
$ fast 2
$ every 4 (sometimes (off "<0.25 0.125>" id))
$ s "~ s"
# s "snare"
# gain 0.8
d4
$ sometimesBy -- double
(slow 16 $ sine * 0.8 + 0.1)
(off "<0.25 0.125>" id)
$ s "<~ c?> ~ c ~"
# s "clap:8"
# gain (slow 4 $ (0.9 - tri * 0.5))
d5 -- chopped bass
$ superimpose (iter 4 . rev . (# crush 4) . (# gain 0.5))
$ chop (slow 4 $ "<<1 4> 2>")
$ stut 4 0.5 0.125
$ (# crush ("<6,0.05 .. 0>"))
$ note (scale "major" (fast 2 $ "[0,<~ <[7|4] <14 <10 14>>>>]"))
# s "bassWarsaw"
# gain 0.8
|- note 24
d6 -- continuous laser
-- $ rev
$ s "bd" >| speed (
segment 100 $
range (slow 8 $ cosine * 50)
(slow 8 $ "<20 30 40 50 40 30 20>")
saw
)
# gain 0.45
|- note "[<12 ~>,24,<-12 -12?>]"
d7 -- basse grave moog weird
$ whenmod 16 8 rev
$ whenmod 8 6 (fast 2)
$ whenmod 8 4 (fast 2)
$ note (scale "major" ("<<7 14> 4>"))
# s "moog"
# gain 0.5
d8 -- forks!
-- $ fast 2
$ whenmod 32 26 (degradeBy 0.2)
$ whenmod 32 24 (|> note (scale "aeolian" (run 8) - "[0,12]"))
$ superimpose (|+ note (slow 4 $ "<5 3> 5")) . (# gain 0.8)
$ euclid "[<3 3?>,5?]" 8
$ s "s"
# s "superfork"
# room 0.5
# gain 0.5
# pan (slow 4 $ sine)
|- note 12