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
48
49
50
51
52
resetCycles
do
setcps 0.5
d1
$ every' 8 7 (<| s ("1 1 1 [~ 1]"))
$ fast 4
-- $ fast "<0!4 1!4 4!8 4!3 2 4!2 [8 4] 4>"
$ s "[jazz,techno]"
# gain 0.8
d2
$ someCyclesBy "<0!8 1!8>" (# speed "<0.75!3 0.5 0.75!2 0.5!2>")
$ mask "t f t f t <f!3 t> t t"
$ chop 8
$ "fbonus:2"
# gain 0.7
# cut 2
d3 -- snares synchro
$ sometimesBy "0!3 1" (stut "<2 3 4>" 1 "<e!3 s>")
$ "s s s t" # "sn" # n "20" # note ("0 0 0 -12") # gain 0.8
d7
$ whenmod 16 8 (superimpose (
(|* gain 0.8)
. (# lpq 0.75)
. (# room 0.4)
. (# legato 0.2)
))
-- $ fast "<0!8 1!3 2 1!7 2>"
$ "~ cp"
# gain 1
# lpf 2000
# note 6
d5
-- $ whenmod 16 10 (mask "t(<2!4 1!2>,4)")
$ someCyclesBy "<0!32 1!96>" ( -- L'action
splice 8 "0 1 <2!3 <3 6>> <3 7>"
)
$ someCyclesBy "<1!32 0!96>" ( -- L'attente
degradeBy "<[0 <1!2 0!2> <0 1> <1 0>]!4 0!28>"
. splice 8 "2 4 0 0*2"
)
$ s "fclav:8"
# cut 1
# gain 0.75
once -- TODO?
-- $ mask "<f!28 t!36>"
$ note (scale "aeolian" (
"d(3,8) ds" + "<c5'maj c5'maj <c5'min a4'maj> a4'min>")
)
# "FMRhodes1"
# gain 0.85