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
81
82
83
84
85
-- Kumai nights Techno kawai nocturne
-- Accompagne piano Do re Mib Sol Lab Do re Mib
do
-- resetCycles
setcps (60/60/4)
let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw)))
d1 -- Kick régulier
$ mask "<f!3 [t f!3]!2 [t f]!2 t!121>" -- Intro/128
$ gF
$ fast "8 <8!3 4 8 [8 4] 8 [8 4]>"
$ "jazz"
# gain 0.9
d2 -- Gretsch entrainée
$ gF
$ someCyclesBy "<t!16 f!112>" -- Intro/128
(mask "<f t!3> <t [f t] [t f] t>"
. degradeBy "<[0 <0.9 0.1> <0.9!3 [t f!3]!2 [t f]!2 t>]!8 0!120>"
)
$ fix
( -- HATS
whenmod 64 48 (fast "0.5 0.25")
. (|* gain (slow 16 $ range 0.55 1 sine))
. (# room 0.5)
. (# sz 0.5)
. (# legato
"<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>"
)
)
(n "[4,5]")
$ fix ( -- BD irrégulier
# lpf (slow 10 $ range 10000 200 perlin)
)
(n "[0,1]")
$ fix -- Cloches
(|* gain 0.85)
(n 6)
$ fix ( -- Cymbales
sometimesBy "f t" (swing 2) .
(<| "h(<8!6 <2!3 16> <2!3 16>>,12)")
. (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin)))
. (# cut 27)
. (# pan 0.55)
) (n 7)
$ n (stack [
"[0,1](<3!3 [3 5]>,8,<0!8 3!8>)",
"[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)",
"6*<1!4 2 [2 4] 4 <8 [8 1]>>",
"7"
]) # "gretsch" # gain 0.8
d3 -- Rhodes gamme
$ superimpose (
(|* gain 0.8)
. (|- note 12)
)
$ often (ply "<2!3 <4 8>>")
$ whenmod 64 16 (superimpose (
arp "<up [up down] down [down up]>"
. (|+ note "[0,7]")
. (# "FMRhodes2")
. (# gain 0.8)
))
$ slow 4
$ note (scale
"kumai"
(
run "<4!8 8!4 4!4>"
))
# "FMRhodes1"
# octave 4
# gain (slow 16 $ range 0.9 1 perlin)
# room 0.4
# sz 0.5
# voice 0.9
d10
$ juxBy 0.25 rev
$ arp "<up down> <down!6 pinkyup!2>"
$ note (scale
"kumai"
(
"c'maj'4 c'min'4 c'min'4 c'maj'4"
))
# "glitch2:9"
# room 0.25
# sz 0.5
# gain 0.5