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
do
setcps 0.55
d1
$ whenmod 32 16 (mask "<f!8 [f|t]!4 t!4>")
$ juxBy 0.25 rev
$ slow "<1!4 2 4 8 8>"
$ "k k k k"
# "[jazz,techno]"
# gain 0.6
d2
$ every' 4 3 (often $ off "e" id)
$ "~ cp"
# gain (slow 16 $ range 0.5 0.9 saw)
# room 0.2
# dry 0.95
# lpf 2000
d3
$ whenmod 32 8 (degradeBy "0 0.5!6 0")
$ whenmod 32 28 (# djf "<0.4 0.5 0.6 0.8>")
$ juxBy 0.5 rev
$ "d(<1!3 [1|2]>,4) d(4,4)"
# "amencutup" # n "<4!4 5 6 7 4>"
# gain 0.65
d4
$ whenmod 128 64 (|* gain (slow 64 $ range 1 0.2 isaw))
$ slice 4 (cat
[
"<0!4 1 2 3 1!4 2!4 3!4 [0 1]!2 [1 2]!2 [2 3]!2 [3 0]!2>(<3 3 2 1>,8)"
]
)
$ loopAt 4 $ "fbass:42"
# cut 4
# gain 0.6
d5
$ note (scale "phrygian" "<0!4 7 0!3> <~ <3 5>>")
# n "0"
# "moog"
# gain 0.5
# cut 5