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
-- idm rythm
once "dr"
d4 $ degradeBy 0 $ n "~ 0 [~ 2] [<~ 0> 0]" # s "jazz"
-- # gain (range 0.9 1 rand)
-- # silence
d5 $ sometimesBy 0.3 (ply (choose [2]))
-- $ (degradeBy 0)
$ inside 6 (someCycles (fast 2))
$ s "peri*6"
# n (irand 6)
# gain (range 0.7 1 rand)
# cut 1
-- # silence
d7
$ sometimesBy 0.4 (ply (choose [2,3,4]))
$ degradeBy 0
$ n ("3 ~ 2 [4 ~]" + "<0 2 0 3>") # s "industrial"
# cut 1
# gain 1
-- # silence
-- idm jazz part
prog2 = "<0 3 9 7 5 4>"
prog2 = "<5 6 4 2 8 0>"
prog2 = "<0 4>"
d8 $ s "made(<3 4 5 6 7 8 9 10>,12,<0 3 1 2>)"
# n "<11>"
# note (scale "aeolian" (prog2 - 7 + "[-7,0,<4 5 4>,7,<9 10>]"))
# gain 0.6
# legato "2" -- "<1 1.25 1.5 2>"