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
-- Tokyo chase: course poursuite à travers la dystopie
solo 1
solo 2
solo 3
solo 4
do
unsolo 1 -- Kick 4 temps pause /32
unsolo 2 -- claps accelerants!
unsolo 3 -- Drunmroll + HH
unsolo 4 -- Bass
solo 5 -- Lead ploink aigu
solo 10 -- Noises
do
resetCycles
d1
$ mask "t(<0!4 4!124>,4)"
$ superimpose ((|* gain 0.8) . (# "kick:5"))
$ fast "<1!4 2!4 4!16 2!2 1!4>"
-- $ fast 4
$ "k" # "jazz" # gain 0.75
d2
$ mask "<f!10 t!22>"
$ every' 4 3 (off "<e s>" id)
$ "clap:2(1,4,<0!3 1>)"
# gain 0.8
# pan 0.8
d3
$ whenmod 32 16 (
sometimesBy "0 <0.2!8 0.5!8>!7 0" ((# "ho") . (|* gain 0.7))
)
$ whenmod 64 16 (superimpose (const
$ "hh*<8 [8 16] 16 [16 8]>"
# gain (slow 32 $ range 0.75 1.2 saw))
)
$ mask "t(<2!4 4!4 8 16!6>,16)"
$ often (juxBy 0.5 $ off "h" rev)
$ often (off "q" (id))
$ almostAlways (off "s" (id))
$ fast "<2!3 [8 4]>" $ s "drum:8"
# gain 0.85
# cut 3
d4
$ sometimesBy "0 . 0.25 0.5" (superimpose (# crush 4) . (|* gain 0.9))
$ superimpose (+| note "12(<3 4 5>,8)")
$ note ("<b3!3 <c4 a3>>")
# "supersaw"
# voice (slow 64 $ range 0.2 0.01 sine)
# gain 0.45
d5
$ whenmod 16 8 (off "e" (|+ note 12))
$ off "q" (|* gain 0.8)
$ note ("<0!3 <1 3 1 -1>>(3,8)") # s "cpu:7" # gain 0.75
d10
$ superimpose (const -- Glitches
$ "glitch:7(<3!4 5!4>,8)"
# gain 0.45
# speed "<0.5!10 0.25!2 0.125!2 0!2 0.5!10 0.75!2 1!2 1.5!2 2!2>"
)
$ superimpose (const -- Fond diffus cosmologique
$ slow (slow 4 "<2 4 8>")
$ stut' 4 "e" (|+ note (scale "major" "[2|5]"))
$ s "~ cosmicg:0"
# gain 0.3
# speed (range 0.125 0.95 perlin)
# pan (range 0.4 0.6 perlin)
)
-- bourrasque occassionnelle
$ rarely (# gain 0.4)
$ jux (rev . segment 2)
$ s "space:3"
# speed (slow 2 $ range 0.15 0.5 perlin)
# pan (slow 4 $ range 0.45 0.55 perlin)
# gain 0