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
setcps 1
----
-- TECHNO
----
d1 $ "k"
# s "clubkick"
d2 $ s "dr*4"
# gain (slow 16 $ cosine * 0.8 + 0.4)
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
d3
$ every 4 (|- note 12)
$ every' 8 7 (|+ note 10)
$ superimpose (|+ note 6)
$ whenmod 8 6 (superimpose ( -- piano!
(# s "superpiano")
. (# velocity 0.7)
. (0.125 ~>)
))
$ rev
$ note (scale "blues" "0 .. 3 <7 7 10 6 7> .. <8 10 7 7 7>")
|- note 12
# s "defaultB"
# gain 0.9
d4
$ note (scale "blues" "<0 [0 5]>")
# s "bassWarsaw"
|- note 24
# pan 0
d4
$ every 4 (off "<0.25 [0.25|0.125]>" id)
$ s "~ ~ cp ~"