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
do
setcps (90/60/4)
-- resetCycles
d1 -- base rythm
$ mask "<f!4 t!12 f!2 t!6 t!4 f!3 t>"
$ fix ((# "[reverbkick,kick:4]")
. (|* gain 0.85)
) ("k")
$ fix ((# "snare:20")
. (|* gain (slow 4 $ range 0.75 0.9 (sine + perlin)))
) ("s")
$ cat [
"k s . ~ k s ~",
"k s . ~ k s [k s]",
"k s . ~ k ~ ~",
"k s . <[s ~ k s*2] s(<5!3 8>,8,2)>"
]
# gain (slow 16 $ range 0.7 0.9 cosine)
d3 -- Drumroll alternance marche-course
$ (# pan (slow 4 $ range 0.45 0.65 sine))
$ fast "<1!8 [<2!3 [4 2]>]!8 [8!3 <[8!3 16] <[16 8] 16>>]!16>"
$ "drum" # hpf 200
# gain 0.9
d4 -- Clav crapeau background
$ juxBy 0.8 (("h" ~>) . (|* gain (slow 32 $ range 0.5 1 saw)))
$ sometimesBy "<t!8 f!56>" (mask "<t f>")
$ sometimesBy "<f!32 t!32>" (slice 8 "0 0 2 1*4")
$ sometimesBy "<t!32 f!32>" (slice 8 $ run 4 + "<0!8 4!4 0!2 4!2>")
$ "fclav:12"
# room 0.1 # sz 0.8
# legato 2
d5
$ whenmod 32 8 (superimpose (
every' 4 2 (degrade) .
swing 4 .
fast ("<1!4 2!4 1!8 2!24>") . (arp "<updown!3 up>")
. (|+ octave 1)
. (|+ pan 0.1)
. (|* gain 0.9)
))
$ note (cat [
"b'maj", "b'min", "b'min'2", "b'maj",
"b'maj", "b'min", "a'min'2", "b'maj'3",
"b'min", "b6'min", "a6'min'2", "b6'maj",
"b'maj", "b'min", "b'min'2", "b'maj'4"
])
# "cheapPiano1"
# octave 3
# sustain 2
# pan 0.35
# room 0.2 # sz 0.8
# gain 0.65
-- # velocity 0.6