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
setcps 0.9
d1
$ s "lt <~ ~ lt ~> mt <~ mt>"
# gain 0.7
d2
$ someCyclesBy 1 (# s "sn")
$ s "~ <~ sn:2 [sn:2*2 ~]>"
d3 -- drumroll
$ whenmod 64 32 (const $ s "[dr:3?,dr:4?]*<2 4 8 8>") -- scratch
$ whenmod 32 28 (const $ degrade $ s "dr*16")
$ whenmod 8 7 (degradeBy 0.8)
$ whenmod 8 6 (# n 1)
$ every 4 (degrade)
$ s "dr*8"
d4
$ whenmod 64 32 (rev)
$ whenmod 16 12 (|+ note 10)
$ whenmod 16 8 (|+ note 7)
$ whenmod 16 4 (|- note 3)
$ off 0.125 (|+ 5)
$ superimpose ((|- note 21) . (off 0.25 (|+ 5)))
$ n (scale "major" "<[0,3] [0,5] [0,7]>")
# s "superpiano"
# velocity 0.5
# sustain 0.5
d5 -- bassline
$ whenmod 64 48 (fast 2)
$ degrade
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "bassWarsaw"
# room 0.2
d6 -- synth backup
$ superimpose ((|+ 7) . (# gain 1.1). (|- note "<0 3 5 0>"))
$ n (scale "aeolian" "<0 3 0 5 3 2 0>*8")
# s "defaultB"
# gain 0.9
|- note 7
d7 -- cymbale
-- $ whenmod 16 12 (# gain 1)
$ s "~ ~ co:<0 .. 3> ~"
-- # gain 0
d8 -- beat?
-- $ euclid "<2 2 2 4 2 2 4 4 2 4 4 4 4 4 2 2>" 4
$ euclid 4 4
$ s "kick:2"
# gain 1.25