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
resetCycles
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (105/60/4)
do
-- d1 $ gF1 $ gM1 $ "kick:5"
-- d1 $ gF1 $ gM1 $ "kick:5"
d1 $ gF1 $ gM2
$ midiOn "^42" (<| "k k k <k [<~ k> k*<1 4>]>")
-- $ midiOn "^42" (<| "k k(<3 [3 5]>,8)")
$ "kick:5"
d2 $ gF1 $ gM1
$ "~ cp"
# "rampleP5:15"
d3 $ gF1 $ gM1
$ "hh(5,8)"
# "rampleP5:16"
# cut 3
d4 $ gF2 $ gM1
$ "90s_synatm:9"
# cut 4
d5 $ gF3 $ gM1 -- Semi-basse
$ superimpose (("h" ~>)
. (|+ note 12)
. (# cut 51))
$ note ("<gs4!0 f4 f4 gs4 f4 f4 f4 ef4 f4>")
# "90s_synatm:3"
# cut 5
# gain 0.65
# pan 0.3
-- 0 4 0 1 0 2 0 3
d10 $ gF3 $ note "f/4" -- Anges des intertubes
# "90s_glassatm:2"
-- # crushbus 101 (range 16 2.5 (perlin))
# roombus 102 (slow 4 $ range 0.4 0.65 (perlin)) # sz 0.8
# legato 2
# pan 0.7
# cut 10
d4 $ gF2 $ gM1 -- Bass electrique
$ note (scale "aeolian" (
"3"
+ "<~!16 0!16> <4 1 <2 5> <3 6>>"
))
# "90s_synatm:9"
# att 0.2
# rel 2
# room 0.4 # dry 1.2 # sz 0.5
# octersubbus 42 (range 0 4 "^33")
# crushbus 41 (range 16 2.3 "^53")
# cut 4