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
-- Hot Stuff - techno-calorifère
-- TODO élaguer (late messages :P), pan this
-- Like: etincelles moog d4
do
resetCycles
setcps 0.5
let dGlobL = (whenmod 8 6 (# room 0.5))
let dGlobR = (whenmod 8 4 (# lpf "<10000 8000 5000 2000>"))
d1
$ dGlobR
$ whenmod 32 24 (mask "<f!7 [f t]>")
$ "k k k <k!3 [<~ k> k]>"
# "[jazz,kick:5]"
# gain ("<0 0 0.25!2 0.4!4 0.5!4 0.55!4 0.6!508>" * 1.3)
d2
$ fix ( -- Tok bois dansant
(mask "<f!6 t!508>")
. (|* gain (slow 8 $ "<0.75 0.85>"))
) (n 1)
$ fix ( -- Tambours marche-roll
(# lpf 20000)
. (mask "<f!7 t!25>")
. (# pan (slow 8 $ range 0.25 0.55 sine))
. (|* gain 0.8)
) (n 2)
$ fix ( -- Clap
(# lpf 500)
. (# note "<-2!4 -2 -4 -4 -6>")
. (# room 0.5)
. (|* gain 1.2)
) (n 3)
$ fix ( -- Drumroll aigu
mask "<f!4 t!28>"
. (|* gain 0.9)
) (n 4)
$ dGlobR
$ n (stack [
"1(<4!8 3!4 4!4>,8,<0!3 3>)",
"2(<<6 12> [3|1]*4 <6 12> <3 5 8 12>>,8,<0!3 4>)",
"4(<[8 4]!3 [8 16] 8!4>,16,<0!3 3>)",
"~ ~ ~ 3*<0!8 1!8 1 2 2 4 [4 2] [2 1] [1 0] [0 1]>"
]) # "cpu"
# dry 1
# gain 0.9
d4 -- Etincelles de moog
$ note ("<c <f4 f>>" + (
arp "<up!6 down!2>"
"~ <~!28 c4'hexMajor7'8!8 ~!28>")
)
# "moog:3"
# release 4
# room 0.5 # size 0.9
# gain 0.35
# pan (slow 32 $ "<0.7 0.3>")
d5 -- Choeurs du peuple moog
$ juxBy 0.7 id
$ note ("<c <f4 f>>"
- "[0,12]"
)
# octave 3
# s "moogBass"
# gain ("<0 0.3 0.4 0.5 0.6 0.7 0.8 0.9!508>" * 1)
d6
$ sometimesBy "<1!8 0!8>" (degradeBy "<1 0> 1!3")
$ whenmod 32 16 (slice 8 (cat [
"0*4", "0*4", "0 ~ 0 0", "~ 1*4",
"0 1*4", "0 1*4", "0*4", "1 ~ 0*2"
]
))
$ "fguitar:40"
# cut 6
# gain (slow 32 $ range 0.5 0.6 saw)
# pan 0.25
# room 0.3 # sz 0.1
once $ "fepiano:25" # cut 21 # gain 0.6