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
setcps (120 / 60 / 4)
do
solo 1
solo 2
solo 3
solo 4
unsolo 5
do
d1
-- TECHNO
-- $ someCyclesBy "0!3 <0.5 1>" (stut 4 0.8 (1/16))
-- $ fast "<4!8 2!8>"
-- $ every' 8 7 (fast 2)
--
$ n "<0 ~ 0> <~ 0 0> . ~"
# s "cpu"
# gain 1
d2 $ s "~ s" # s "snare:3" # gain 0.9
d3 $ fast "8 <8!3 4 16!3 32>" $ s "dr" # gain (slow 32 $ range 0.5 0.9 sine)
d4
$ whenmod 8 6 (# silence)
$ n "[0(3,8),~ 1, ~ ~ 4]" # s "[ho|ho|hc] [ho|hc|hc]"
# gain (slow 32 $ range 0.8 0.75 sine)
# cut 1
d5
$ note (scale "aeolian"
"<c5'min <d5'maj f5'maj a5'maj d5'maj>>" - 36)
# s "bassWarsaw"
# gain 1
# pan 0.8
d4
$ note (scale "aeolian" "<0 5>(<3 5 8>,8)"
- 24
) # s "moogBass"
# amp 0.4
# sus "[0.25, 0.5]"
# rel "<0.2 0.8 0.5 1 0.1 2>"
d5
$ superimpose (# s "superpiano") . (|- velocity 0.8)
$ note (
scale "aeolian"
"<c5'min <d5'maj f5'maj a5'maj d5'maj>>(<8!3 5>,8)" - "7"
)
# s "FMRhodes1"
-- # gain 0.8
# sustain 0.75
# gain 0.6