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
once $ s "bogdan:10" # gain 0.9 # begin 0.5 # end 0.75
do
solo 1 -- DNB
solo 2 -- Comete
solo 3 -- Alerte pont 16/24
solo 4 -- Nappes regulieres, pont: part en echo
solo 5 -- Hihats noise sec
solo 6
do
unsolo 1 -- DNB
unsolo 2 -- Comete
unsolo 3 -- Alerte pont 16/24
unsolo 4 -- Nappes regulieres, pont: part en echo
unsolo 5 -- Hihats noise sec
unsolo 6
-- Meth DNB: J'ai toujours préféré ta cuisine maison <3
do
setcps (165/60/4)
let gDNB = 0.45
let gCom = 0.55
let gAlert = 0.25
let gNappes = "<0.8 0.9 1.0 0.9>"
let gHats = 0.45
let gGuit = 1.4
let melody = "<<0 <2 4>>!2>"
-- Rythme DNB
d1
-- $ whenmod 24 18 (# gain 0)
-- $ whenmod 24 17 (|- gain 0.05)
-- $ whenmod 24 16 (|- gain 0.05)
$ fix (# s "sn:5") (s "s")
$ fix (# s "[kick:1]") (s "k")
$ superimpose (# s "bd")
$ every 4 ( sometimesBy "0 0.25" (fast 2)) -- Double s(1,4)
$ s "k ~ s ~ ~ k s <~!3 s>"
# gain gDNB
# pan 0.3
-- Lead: Comete!
d2
-- $ whenmod 24 16 (|> gain 0)
$ "methbass:10"
# gain (slow 60 $ range (gCom - 0.15) gCom sine)
# note (slow 2 $ "<0 0 8 [8 10]>")
-- Alerte!
d3
$ whenmod 24 16 (|+ gain 0.05)
$ whenmod 24 14 (|+ gain 0.1)
$ whenmod 24 15 (# gain gAlert)
$ chop 2
$ s "~ methbass:4/2"
# note ("<0 -2>!2")
# gain 0
-- Nappes intenses
d4
$ whenmod 24 20 (# gain (gNappes / 2))
$ whenmod 24 16 (# silence)
$ euclid ("2*<1 2 4 2>") 8
$ s "abstract:0"
# note ("<0 -2>!4")
# gain gNappes
# cut 4
# release 4 -- Longueur echo pont 24
d5 -- noise hihat!
-- $ whenmod 24 16 (hurry "[1|2]")
$ sometimes (# n 6)
$ "abstract:5(<[1|3|5] <4 [1|8]>>,8)"
# cut 5
# room 0.2 # dry 2
# note (-4)
# gain (slow 20 $ range (gHats - 0.2) gHats sine)
# pan (slow 16 $ 1 - sine / 2)
-- Bacasable
d6 -- Guitare ploink insecte
$ sometimes (fast 2)
$ someCycles (slow 2)
$ arp "<down downup up updown>"
$ note (scale "aeolian" "c4'maj")
# s "abstract:11"
# cut 7
# gain gGuit
# end 0.1
# pan (slow 16 $ sine / 2)