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
do
setcps (60/60/4)
-- resetCycles
d1 -- Kick chaloupé
$ mask "<f!8 t!56>"
$ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw))
$ "k . k(<5 3 5 [4 8]>,8)"
# "[reverbkick,jazz]"
# gain 0.6
# room 0.2
d3 -- Drumroll léger
$ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s")
$ someCyclesBy "<0.2!3 0.5>" (fast 2)
$ fast "<1!4 2 2 4 [8 16]>" "drum:2" # gain 0.8
d4 -- Clav clash kalash!
$ sometimesBy "<1!8 0!120>" (|* gain (slow 16 $ range 0.25 1 saw))
$ whenmod 64 48 (scramble 4 . chop 4)
$ whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 saw))
$ loopAt 2
$ "fclav"
# n 10
# gain 0.65
# cut 4
d5 -- Cymbales noise
$ sometimesBy "<1!16 0!112>" (|* gain (slow 16 $ saw))
$ whenmod 64 48 (
# legato "<0.5 0.65 0.75 0.85 0.9 0.95>"
)
$ whenmod 32 24 (# djf (slow 8 $ range 1 0.5 saw))
$ fast "<16!3 <4 8>>"
$ "808cy"
# n "<1!3 4>"
# cut 5
# attack "[1 <0.2 0.4 0.5 0.8>]*8"
# gain (slow 32 $ range 0.4 0.5 sine)
d6 -- Nappes Rhodes
$ note ("<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>")
# "FMRhodes1"
# pan 0.2
# gain 0.96
d7 -- LEAD PIANO!
$ mask "<f!4 [t f!3]!4 t!56>"
$ whenmod 64 48 (
euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8
. (# crush "<16 14 10 9>")
. (|* gain 0.9)
)
$ off ("q" + "<0!8 s!8>") (
|+ note "<c!16 <c c'maj'2 c'maj'3>!16>"
)
$ whenmod 32 16 (sometimesBy "f 0.8" (scramble 2))
$ arp "<up!3 down>"
$ note ("<e g e b>" + "c'majPent'4 c'minPent'4")
# "superpiano"
# velocity (slow 256 $ range 0.25 0.5 cosine)
# pan 0.6
# legato 2 # room 0.1