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
once $ "jazz"
once $ "h2ogmsn"
once $ "ircam:1"
# gain 0.85
# cut 3
once $ "cyberspace:3"
# gain 0.85
# cut 3
do
-- resetCycles
setcps (120/60/4)
let gPontFiltre = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.1 0.5 saw)))
let g = gPontFiltre
let fadeIn = someCyclesBy "<1!4 0!60>" (|* gain (slow 4 $ range 0.4 1 saw))
d1
$ g
$ mask "<f!7 [f t] t!24>" -- Intro /32
$ mask "<t!32 f!16 t!16>" -- Pont instrumental
$ whenmod 16 4 (<| "k*4")
$ "jazz"
# gain 0.9
d2 $ g
$ mask "<f!8 t!24>"
$ "~ [cp,glitch:7]"
# lpf 2000
d3 $ g
$ mask "<t!32 t(8,16)!16 t!16>" -- Pont instrumental
$ "hh*[8!3 16 <16 8 8 16>]"
# gain (slow 16 $ range 0.55 0.8 saw)
# pan (slow 4 $ range 0.8 0.2 isaw)
d4
$ g
$ whenmod 64 32 (superimpose (
struct "t(<8 <8 [5 8]> 5 0>,8)" .
(+| note (arp "up" "[0, 7, 12]"))
))
$ s "superpiano"
# note "<-20 [-19,-15] [-20,-16] ~>"
# velocity "<0.7 0.5 0.6>"
# sustain 3
# pan 0.8
# gain 0.8
d6 -- BASSLINE
$ g
$ fadeIn
$ whenmod 32 4 (superimpose (
(# crush 10)
. (# cut 61)
. (+| note (arp "up" "[<0 0 3 0> 12 0 12]*2"))
. (|+ pan 0.15)
))
$ s "bassWarsaw"
# note "<-20 <-19 -15> <-16!3 -20> ~>"
# crush 5
# room 0.4
# cut 6
# sz 0.7
# pan 0.7
# gain 0.8
d5 -- CYBERDECLARATI0N
$ fadeIn
$ someCyclesBy "<0!32 0!8 0!8 1!16>" (>| n "<5 <1 9> 5 9>") -- DO NOT THINK!
$ someCyclesBy "<0!32 0!8 1!8 0!16>" (>| n "<10 <2 6>>") -- Not on behalf of the future!
$ someCyclesBy "<0!32 1!8 0!24>" (>| n "10 10 10 <10 ~ 3 ~>") -- DO NOT THINK!
$ someCyclesBy "<0!24 1!8>" (>| n "<0 ~ 8 <~ 10>>") -- You giants do not know us
$ someCyclesBy "<0!8 1!16 0!8>" (>| n "<10 <6 4>>") -- Do not think... you have no morat
$ someCyclesBy "<1!8 0!24>" (>| n "<5 1 5 <4 6>>") -- I declare.. you are not welcome!
$ n "0" # "cyberspace"
# cut 5
# leslie (slow 16 $ range 0.2 0.8 saw)
# lrate 6.8
# lsize (slow 8 $ range 0 1.8 saw)
# pan 0.2
# gain 0.9