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
resetCycles
do
let tilt = pF "tilt"
setcps (80/60/4)
solo 1 -- beat
solo 2 -- break
solo 4 -- Bass/tremolo aigu telephone
solo 5 -- Epiano féérique
unsolo 6 -- O?ONDI
solo 10 -- Noise phonique
d1
$ sometimesBy "0 0.25!6 0.5" (off "s" ((|* gain 0.9) . (# lpf 500)))
$ whenmod 16 8 (juxBy 0.5 rev)
$ n "0(<1!3 [1|3]>,8) . 0(<3!3 5>,8)"
# "[reverbkick,jazz]"
# lpf 5000
# gain 0.8
d2
$ juxBy 0.125 (# crush 5)
$ slice 4 (
whenmod 16 10 (<| "0*8") $
whenmod 16 8 (<| "0(5,8)")
"0 1*<1!6 2 4> 2 <1!3 3>"
)
$ loopAt "<1!14 2!2>" $ "break:1"
# gain 0.6
# cut 1
d4
$ whenmod 32 16 (superimpose (
arp "downup <down up>"
. ply 2 . fast "<2!3 [2 4]>"
. (# octave 7)
. (# gain 0.7)
))
$ note ("c3'maj <c3'maj!4 c3'min!2> <c3'maj!3 f3'maj>")
<| note "0*<4!2 5>"
# s "bassWarsaw"
# gain 0.75
d5
$ whenmod 64 32 (
segment "<1!3 0.5 1!3 0.5 1!3 0.5 1!3 0.5 1!3 2!3 4!2 8>"
)
$ whenmod 24 16 (fast "1 . <1!4 2!2 4 2>")
$ loopAt 2
$ "fepiano:11"
# cut 7
# gain 0.48
d6
$ often rev
$ slice 32 (
rev $ run (2 * 128 * 8)
-- run "<8 <16 32>>" -- Level up7
-- run 16 -- INTRO
)
$ (striate 32 $ s "bogdan:11")
|- begin "0.015"
|+ end "0.0015"
# tilt 0.5
# gain 0.8
d10
$ superimpose (const
-- $ superimpose ((|- octave (slow 4 $ "<1 2 3>"))
-- . (|* gain 0.5))
$ note "f5'maj . e5'maj(3,8)"
# "glitch:5"
# gain 0.5
)
$ fix (# gain 0.4) (n 2)
$ fix (# gain 0.5) (n 1)
$ n (stack ["1*4",
"~ 2(<1 [3|5]>,8)"
]) # "glitch" # pan (range 0.25 0.55 perlin)