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
do
d1 $ "jazz*4" # gain 0.8
d3
$ whenmod 32 16 (superimpose (# "cp"))
$ s "~ s*<1 1 2 1> ~ s"
# s "snare:83"
# gain 0.6
d5 -- Laggy bass
$ juxBy 0.8 (
euclid (slow 4 "<2 [4 2 4 4] [3 4] [4 5] [5 2] [2 5]>") 8
. chop 4
. (# crush 5)
. (# release (slow 4 "<2 4 8>"))
. (|* gain 1.1)
. (|+ note 12)
)
$ note ("<c3 <f3!2 g3 f3>>/2")
# "supersaw"
# voice 0.1
# pan 0.4
# gain 0.5
d6 -- continuous laser
$ mask "t . <f!3 t> <f t>"
$ s "bd" >| speed (
segment 100 $
range (slow 16 $ "<10!8 10 40 50 70 90 110 130 150>")
(slow 16 $ "<20 30 40 50 40 30 20 10>")
saw
)
# gain 0.65
|- note "[<12 ~>,24,<-12 -12?>]"
d8 -- Lead 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"))
$ euclid "[<3 3?>,5?]" 8
$ s "s"
# s "superfork"
# room 0.5
# gain 0.45
# pan (slow 4 $ sine)
|- note 12