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
resetCycles
do
setcps (80/60/4)
d1
-- $ mask "<f!4 t!12 f!3 t t!12 f!8 t!8 f f t!14>"
$ superimpose (# hpf 500)
$ fix (|* gain 0.8) ("reverbkick")
-- $ "k . k(<1 <3 5>>,8)"
$ "k . k(<5 5 3 5>,8)"
# "[808bd:3,808bd:8,808bd:15,reverbkick]"
# gain 0.99
# room 0.2
# dry 1
d2
$ superimpose ((# "snare:3")
-- . (# att 0.1)
-- . (# rel 0.9)
. (|* gain 0.8)
)
$ "~ <s!3 [<~ s> s]>"
# "sn:49"
# pan 0.6
# hpf 500
# gain 0.66
d3
-- $ mask "<f!16 t!16>"
$ fix (|* gain 0.75) ("h2ogmhh")
$ whenmod 8 4 (fast "[1|2] <2 2 [2|4] 4>")
-- $ "d*<1 <2 3>> . <~ d*<1 2 4 2>> d*3"
$ "d*[16 <[[16|8]!3 16] 8>]"
# "[drum:2,h2ogmhh:4]"
# gain 0.8
# dry 1 # room 0.64
# sz 0.4
d4
$ superimpose (<| note "c . c(<3!3 [5 <5 10>]>,8)")
$ note ("<<a3 e3> c4 g3 a3>" + 12)
# "bass1:3"
# voice 0.1
# gain 0.6
# cut 4
# pan 0.2
# room 0.4
# sz 0.8
# delay 0.9
# delayfb 0.1
# delaytime "e <e [q|h]>"
# legato 8
# lesliebus 31 (range 2 6 (slow 4 sine))
d5 -- Plucked arpeggios
$ swing 12
$ often (superimpose (
|+| note ( 12 +
arp "up" "<c'maj'4!12 g'maj'4!3 c'maj'4>"
)))
$ note ("<<a3 e3> c4 g3 a3>"
|+| "0 <12 [7 ~ 12] 7 [12 ~ 0]>"
+ 24
)
# "pluck:5"
# pan 0.6
# gain ((slow 16 $ range 0.45 0.57 saw) + 0.05 * perlin)
d6 -- Warsaw gone synth
$ superimpose (<| note "c . c(<3!3 [5 <5 10>]>,8)")
$ note ("<<a3 e3> c4 g3 a3>" |+| (arp "converge" "<c'maj'4!3 g'maj'4>"))
# "bassWarsaw"
# crushbus 60 (range 8 3 (slow 8 $ perlin))
# room 0.4
# pan 0.8
# gain (slow 64 $ range 0.4 0.75 (cosine + 0.2 * (slow 4 $ perlin)))
d9
$ fix (
slice 8 ("0 ~ <7(5,8) [7 0@0.6] 7(5,8) [7 <7 ~>]>")
) (n 1) -- La musique - c'est l'ordi
$ fix ( -- TODO SPARSER
-- splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <~!3 <3@1.1 4@1.1>>]")
splice 8 ("[0@1.2 1@1.1 ~@0.05 2@1.1 ~@0.9 <3 ~ 3 4>@1.1]")
. (|* gain 0.85) . (# squizbus 91 (segment 16 $ fast 4 $ range 0 "<1 2 4 6>" cosine))
) (n 2) -- Les circuits électroniques ont analysé un par un tous les sons
-- $ n "<<0 1!3 2!4 3!4> <~!8 2!4 3!4>!3>"
$ n "<[0@0.25 0] ~ ~ ~ 1 ~ 1 ~ 2!16>" -- SLICED STORY
# "ircam"
# cut 9
# gain 0.9
# room 0.14
# pan 0.3
# leslie 0.9
# lrate (slow 8 $ range 0.1 0.8 perlin)
# lsize (slow 32 $ range 0.2 2.4 sine)