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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
setcps 0.62
do
let bars = 4
key = "8"
rightHand = "[4 -3] [0 . ~ [0 -3]] . [~ -8] [7 5 4 0]"
leftHand = "[0 9 12 16] [4 12 16 19] . [5 12 17 19] [2 12 17 16]"
cutPreEnd = "1!4 1 <1!7 0> <1!3 0> 0"
cutPostBegin = "[0 <1!3 0>] 1!7"
d1 -- Piano, with cutting progression
$ slow bars
$ degradeBy (slowcat [
"1",
cutPreEnd, cutPreEnd,
cutPostBegin,
"0.75", "0.5", "0.25", "0",
"0", "0"
])
$ stack [
degradeBy (slow 4 $ "<1 0 [0 1] 1>") $
n (rightHand + key+ "<24 36>/2"),
degradeBy (slow 4 $ "<0 [1 0.5] 0 0>") $
n (leftHand + key)
]
# "superpiano"
# velocity 0.35
# octave "3"
# sustain "[2 0.7]*4"
d2 -- Beat slowly varying
$ slow (bars / (slow 16 $ "<1 2>"))
$ s "d(<[5 4] [3 8] 5 [4 16]>,8)"
# s "jazz"
# lpf (slow 16 $ range 500 15000 sine)
# gain 0.8
d3 -- Drumroll
$ fast "16 <2!3 8> <4!3 8> <1!3 <4, 8>>"
$ s "drum:2"
# gain (slow 8 $ range 0.65 0.8 sine)
d4 -- Bass
$ slow bars
$ rarely rev
$ bite 4 (
"[0, ~ ~ <3 [3|2|1]>*4 1]"
)
$ note (leftHand + key)
|- note 36
# s "bassWarsaw"
# gain 0.7
d5 -- Choir
$ whenmod 4 2 (superimpose (|+ note 12) . (|- gain 0.1))
$ slow (bars * 2)
$ bite 4 "0"
$ note (leftHand + key)
|- note 36
# s "moogBass"
# gain (slow 32 $ range 0.7 0.9 saw)
---- # Initial
setcps 0.62
solo 2
do
let bars = 4
key = "8"
rightHand = "[4 -3] [0 . ~ [0 -3]] . [~ -8] [7 5 4 0]"
leftHand = "[0 9 12 16] [4 12 16 19] . [5 12 17 19] [2 12 17 16]"
d1
$ slow bars
$ stack [
n (rightHand + key+ "<24 36>/2")
# sustain 1, -- TODO find right value
n (leftHand + key)
]
# "superpiano"
# velocity 0.5
# octave "3"
# sustain "[2 0.7]*4"