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
do
let dGlob = (# djf 0.7)
let dGlob = (id)
setcps (120/4/60)
d1
$ dGlob
$ whenmod 8 7 (>| "k*4")
$ mask "<t!7 f>"
$ "k . ~ k ~ ~"
# "[jazz,techno]"
# gain 1
d2
$ dGlob
$ mask "<f!4 t!12>"
$ "~ s ~ <s!7 s*2>"
# "sn"
# note ("<-12!3 -6>")
# lpf 5000
# n "[2,10]"
# gain 0.9
d3
$ dGlob
$ (|> "hc:1!3 ho:2")
$ fast "<12 [16 8] 16 [8 16]> <4 <12 8> 4>"
$ "hc"
# pan 0.65
# gain ("<0.75!8 0.9!8 0.8!4 0.55!4>" * 0.85)
d4
$ dGlob
$ mask "<t f t!2 f!4 t!8> <f!3 t t!3 f t!16>"
$ slice 8 "0 1*<1 <2 <1 4>>> 2(3,8) <3!3 7>"
$ "fbass:38"
# cut 4
# gain 1
# pan 0.4
d5
$ dGlob
$ slice 4 ("<0 1 0 2 0 1 2 3>*2")
$ "fguitar" # n "<38!8 39!4>"
# cut 4
# gain (slow 8 $ "<0 0.25 0.5 0.75>")
once $ "fepiano:5" # cut 21
# gain 1.1