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
do
-- resetCycles
setcps (120/60/4)
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
d1 $ gF1 $ gM2
$ midiOn "^42" (struct "t t t <t!3 t*2 t t [~ t] t>")
$ "[techno:0,kick:4]"
d2 $ gF1 $ gM1 $ "~ h2ogmcp:1"
# room 0.2 # dry 1.1 # sz 0.1
d3 $ gF1 $ gM1
$ midiOn "^44" (fast 2)
$ "hh(<3!3 5>,8,<0!6 1 2>)"
d4 $ gF2 $ gM3 -- Basse Fantome
$ superimpose ((|- note 24) . (|* gain 0.8) . (# "bassWarsaw") . (# cut 41) . (# crush 16))
$ note ("<[a3@2 e4@3] [b3@2 d4@3] [c4@2 e4@3] [<b3 f4>@7 g3]>" + "12")
# "wobble"
# room 0.4 # sz 0.8
# pan 0.3
# gain 1.9
# crushbus 41 (range 16 4 "^53")
# octersubbus 42 (range 0 2 "^33")
d5 $ gF3 $ gM3 -- LASER SALVATEUR
$ midiOn "^90" (slice 4 (run "<4!3 8>. <4 8> <4 8 8 16>"))
$ chop 4
$ "synth_atari/4"
# n "<23!0 <24 25 24 23>!16>"
# n 23
# cut 4
# room 0.5
# dry 1.5
# sz 0.6
# pan 0.8
# octersubbus 51 (range 0 2 "^34")
# octersubsubbus 52 (range 0 1.2 "^34")
# crushbus 53 (range 16 2 "^54")
# att 0.2 # rel 3.2
d8 $ gF1 $ gM1
$ midiOn "^56" (loopAt 4)
-- $ midiOn "^92" (ply "2 <2 4 4 [16 . 8 4]>")
$ midiOn "^92" (ply "<2 4> <4 8>")
$ chop 8
$ loopAt 2
$ "jungle_breaks:45"
# gain 0.8
d9
$ chop 8
$ "90s_synatm:0/4"
# room (slow 16 $ range 0.2 0.8 sine) # sz 0.5
# crush (segment 8 $ range 14 5.2 (slow 8 perlin))
# att 2
# rel 10
# cut 9
d10
$ gF3 $ gM3
$ someCyclesBy "<0!32 1!32>" (>| note ("<c5 b4 a4 e4>" - "g"))
$ someCyclesBy "<1!32 0!32>" (>| note ("<c4(<1!8 <3!3 [3 <5 8>]>!24>,8) <d4!4 f4!4> e4 <c4 f4 c4 a4>>" - "g"))
$ "90s_synatm:5"
# cut 10
# room 0.4