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
99
100
do
-- resetCycles
let melody = (scale (slow 16 "<melodicMinor melodicMinorDesc>") ("<c'maj c'maj'2 c'min c'min'2>" + (slow 4 $ "<0 7>")))
setcps 0.5
let gFactor = 2
d1 -- Kick
$ slow 4
$ mask "<f!8 t!120>"
$ whenmod 16 12 (# lpf "<500 200 150 50>")
$ "k k k <k!3 [<~ k> k]>" # "jazz"
# gain (gFactor * 0.65)
d2
$ mask "<f!4 [t f]!4 t!120>"
$ ply (slow 2 "<1 1 2 <[4 1] [1!3 4]>>")
$ fast 2
$ "~ s" # "sn" #n "[12,16]"
# note ("<0 -5>")
# pan 0.6
# gain (slow 32 $ gFactor * range 0.3 0.45 saw)
d3
$ mask "<f!2 t!126>"
$ whenmod 16 12 (juxBy "<1!2 0.8!2>" rev)
$ "h*4(<1!8 4!8>,8,<0!3 3>)"
# "hihat1"
# pan 0.4
# gain (gFactor * (slow 4 $ range 0.4 0.5 saw))
d4 -- Xylophone night sky
$ sometimesBy (range 0.25 0.5 saw) (jux rev . (# pan "[0.1|0.9]"))
$ slow (
slow 8 "<4 [2 [2 1]] 1!4>"
)
$ every' 4 3 (swing 2)
$ off "e" (# hpf 5000)
$ off "q" (|+ note "7")
$ whenmod 16 4 (ply 2)
$ note melody
# "xylophone"
# gain (gFactor * 0.37)
# pan 0.2
d5 -- Bassline rayonante
$ mask "<f!8 t!4 f!4 t!108>"
$ whenmod 32 24 ( -- Grille
superimpose (# crush "<5 4 4.5 3 3.5 2 1.5 1>")
. (|* gain 0.85)
)
$ whenmod 32 16 ( -- Rayonne!
mask "<[t f!7]>" . chop 4 . (# room 0.4) . (# sustain 2)
)
$ note (melody - 24
+ (slow 4 $ "<0 -7>") -- Compense octave melodie
)
# "supersaw"
# voice 0.1
# gain (gFactor * ("<0.2!12 0.3!120>"))
# pan 0.8
# room 0.05 # sz 0.2
d6
$ mask "<f!8 t!120>"
$ note ("c(<3!3 5>,8,<0!3 5>)" |+ melody)
# "moog"
# legato "<0.75!8 <1!3 2>!20 4!4>"
# gain (slow 64 $ gFactor * range 0.2 0.45 (saw + (perlin / 4)))
# pan 0.4
d7
$ degradeBy ("<1!32 0.75 0.5 0.25 0.125 0!28>")
$ (0.75 ~>)
$ slice 8 (cat [
"1", "1", "1", "1",
"1 1", "1 1", "1 1", "1 2",
"1 2", "1 2", "1 2", "1 2",
"2 1", "2 1", "2 1", "2 1"
]
)
$ note ("<0!3 <2 -3>>")
# "brass:7"
# gain (slow 16 $ gFactor * range 0.45 0.3 isaw)
# room 0.45
# sz (slow 16 $ range 0.4 0.9 saw)
# pan 0.6
# cut 7
d9 -- Invader fight: Tir variable, echec | touche | ambulance
$ (0.25 ~>)
$ sometimes (# speed 0.5)
$ mask "<f!4 [t? f!7]!12 [t f]!8 t!8>"
$ fix ((|* gain 0.9) . (# pan 1)) (n "9")
$ fix ((|* gain 0.9) . (# pan 1)) (n "16")
$ n ("[11|4]([1|3|5],8) [~|~| 3|5|11 | [9|9|9|16] ]")
# "invaders"
# pan "0 1"
# room 0.2
# gain (gFactor * "0.2 0.25")
scaleList
d3 $ note (scale (slow 16 $ "<melodicMinor melodicMinorDesc>")
(run 8)
+ "<0!4 2 3 4>"
)
# "xylophone" # gain 0.75