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
setcps 1
d1 $ "bd bd?"
d1 -- beat
-- $ fix ((euclid 2 2) . (every 4 $ off 0.5 (# s "kick"))) (s "kick") -- faster
-- $ slow "1 2" -- calm
$ every' 4 1 (stut 2 0.9 0.25)
$ s "kick:5 dr:9(<<1 1 1 3> 1 1 <3 2 2 2>>,4)"
# gain 0.8
d2
$ someCyclesBy 0.2 (off 0.25 id)
$ s "~ clap:1"
# gain 0.9
d3
$ whenmod 8 4 (# silence)
$ whenmod 8 6 (# n 2)
$ whenmod 8 4 (# n 1)
$ whenmod 8 6 (# gain 0.9)
$ degradeBy 0.2
$ s "dr*8"
d4
-- $ whenmod 16 8 (|- note 2)
$ whenmod 8 4 (|- note 2)
-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7) . (# gain 0.6))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14
# s "bassWarsaw"
# gain 0.9
d5
$ someCycles (superimpose rev)
$ off 0.125 (|+ 5)
$ note (scale "major" "[0,5] [7,10]")
# s "laserbeam"
# gain 0.75
d6
$ almostNever (# gain 0.8)
$ degradeBy 0.6
$ swing 3
$ s "~ cc*2"
# n (choose [1,2,3])
# gain 0.6
d7
$ whenmod 8 4 (off 0.25 (|+ 3))
$ s "prayerBell"
# gain 0.6
d8 -- gong lazer
$ whenmod 16 8 (rev)
$ every 4 (rev)
$ note "0 .. 7"
# s "supergong"
# voice "<0.1 .. 0.9 1 .. 5>"
# accelerate "<0 .. 10 9 .. 2 5 .. 8 10 .. 0>"
# gain 0.9
|- note 0
d9 $ n (slow 2
$ fmap (*7) $ run 8)
# s "supergong"
# decay "[1 0.2]/4" # voice "[0.5 0]/8"
# gain 1.2