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
do
setcps 0.5
-- let gPont = (whenmod 64 32 (# djf (max 0.5 (slow 16 $ range 0.9 0.5 saw))))
let gDJF = (whenmod 32 24 (# djf (slow 8 $ range 2 0.1 saw)))
let nofight = (slow 4)
let fight = id
let g = gDJF . fight
d1 $ g
$ "k k k k*<1 2 1 1>" # "jazz" # room 0.5 # dry 1 # gain 0.7
d2 $ g
$ mask "<f!8 t!24>"
$ someCyclesBy (slow 8 saw) (fast 2)
$ someCyclesBy (slow 8 sine) (ply 2 )
$ n "10 <11!4 10!3 11>" # "amencutup" # gain 0.5
d10
$ "hh*[<4 4 8 12> <6!7 16>]"
# gain 0.6
d3 $ g $ note (
"0 . ~ ~ ~ <~!3 1>"
) # "cpluck" # n ("<0!14 3 3 4!14 7 7 8!10 7 4 3 2 1 0>")
# cut 3
# gain 0.6
# pan 0.4
# room 0.2
d4
$ g
$ note ("[0|1](<5!3 [5 8]>,8,2)" - 12)
# "cpluck:5" # cut 4
# pan 0.6
# gain 0.6
d5
$ whenmod 4 3 (superimpose (
(# cut 41)
. (|+ note 12)
. (<| "s*<4 4 4 <8 [8 4]>>")
))
$ "cbow"
# cut 5
# pan 0.2
# gain 0.3
d6
$ degradeBy ("0 0.9!7" * (slow 32 $ isaw))
$ note (scale "aeolian" ("0 1 2 <3!8 4!8> <4!8 3!4 4 4 5 6>"))
# "cbow:8"
# gain (slow 16 $ range 0.4 0.6 saw)
# cut 6
# pan (slow 16 $ range 0.7 0.9 saw)