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
86
87
88
89
90
91
92
93
94
95
96
97
98
do
let gKick = 0.65
let gSnare = 0.6
let gDrums = 0.8
let gHats = 0.57
let vPiano = 0.35
let gCloches = 0.7
let gBass = 0.5
let gBrass = 0.5
setcps 0.45
solo 1 -- Kick
solo 2 -- Snare
solo 3 -- Drumroll
solo 4 -- Piano
solo 5 -- Bass
solo 6 -- Hats
solo 7 -- Cloches
solo 8 -- Brass
d1
$ whenmod 16 14 (slow "<2 [1 0.5]>")
$ whenmod 32 24 ( -- Pont solo basse
degradeBy "1!7 [1 . 1 0]"
)
$ s "k k k k*[1|2]"
# s "jazz" # hpf 100 # gain gKick
d2 -- Snares decroissants
$ whenmod 32 24 ( -- Pont solo basse
# silence)
$ often ( -- Echos filtre decroissant
stut' 4 0.125 (|* lpf 0.8)
)
$ fast "<1!7 [2 4]>"
$ s "~ snare:20"
# lpf 5000
# gain gSnare
d3
-- $ whenmod 32 24 ( -- Pont solo basse
-- # silence)
$ fast "8 <8!4 [8 16]!4> <8!8 16!8> [8 16]"
$ s "drum:8"
# gain gDrums
d4
$ whenmod 32 24 ( -- Pont solo basse
|+ gain "<0.1 0.2 0 -0.1 -0.2!4>"
)
$ (0.25 ~>)
$ off 0.125 (# lpf 250)
$ note (
"<f4'maj!3 f4'min f4'min!3 f4'maj>"
)
# s "superpiano"
# velocity vPiano
d5 -- Bassline
$ mask "t([1|2|4],8)"
$ superimpose -- Accélération 8-bit!
(fast 2 . (# crush 6))
$ note (
slowcat [
"0 3 5 ~ <~ 5> <5 ~> 5 ~",
"<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~"
]
)
|- note 24
# s "supersaw"
# voice 0.2
# sustain "0.25!2 0.5 0.25"
# pan 0.6
# gain gBass
d6 -- Hats open-closing
$ s "ho(<1!3 2>,2) hc:2*<1!4 2!4 4!4 8!4>"
# n "[0|1] 3"
# cut 6
# gain gHats
d7 -- Accelerating Bells
$ superimpose (slow 2 . arp "<updown!3 downup>")
$ someCyclesBy "<0!8 0.5!4 0.75!4>" (fast 2)
$ note ("0(1,8)"
+ "<f3'min!3 f3'maj>"
)
# sustain 1
# s "superfork"
# gain gCloches
d8 -- Brass lancinant
$ whenmod 128 64 (# gain gBrass)
$ whenmod 32 24 (# note "<0!3 7>")
$ whenmod 64 32 (off 0.25 (# begin 0.75))
$ note ("~!7 <0!4 2 3 5 7>")
# begin 0.5
# room 0.6 # sz 0.8
# s "brass:6" # gain 0
once $ s "brass"
# n 6
# note
# begin 0.5
# gain 0.7
-- # speed 1.2
# cut 10