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 1
d1 -- kick
$ whenmod 32 30 (degradeBy "1")
$ whenmod 32 28 (degradeBy "0.8")
$ whenmod 32 24 (degradeBy "0.2")
$ s "<k k k k*2> k"
# s "kick:5"
# gain 0.9
d2 -- snares
$ (0.5 ~>)
$ whenmod 32 24 (sometimes (off 0.125 id))
$ sometimesBy (slow 16 $ sine + 0.2) (off 0.25 id)
$ s "snare:6"
# room (slow 64 $ cosine * 0.8)
# size (slow 8 $ sine * 0.9)
# dry 0.95
# lpf (slow 8 $ 1000 + sine * 9000)
d3 $ s "d*8"
# s "drum:14"
# gain (slow 8 $ sine * 0.2 + 0.7)
d4 -- blip melodie
$ whenmod 64 48 (# gain (slow 16 $ 1 - sine * 0.8))
$ whenmod 64 32 (superimpose ( -- choeur
(# s "moogBass")
. jux rev
. (# gain 0.85) . (# lpf 1000)
))
$ note (scale "aeolian"
(
whenmod 16 10 (7 -)
$ every 2 (rev)
"<0 2 4 6> .. <4 6 8 10>"
))
# s "chaoscillator"
d5
$ s "~ . <c c c? c> <~ ~ ~ c> ~ ~"
# s "clap:2"
# gain (slow 64 $ 0.5 * sine + 0.4)
-- weird toys
d9
$ note (scale "hexMajor6" (
"0 .. 2 . 3 .. 5 . 4 .. 3 . 0"
))
# s "bleep"
# gain (slow 64 $ sine * 0.8)
|- note 24