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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
-- NUIT AGITEEE
-- d f Arc
do
-- resetCycles
setcps (160/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
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 scale = getScale (scaleTable ++ [("gameboy", [1,2,4,5,7,9,11])])
-- once $ note (scale "gameboy" (run 8)) # "superpiano" # gain 2
d1 $ gM2 $ gF1
-- $ midiOff "^42" (<| "k . ~ <~!8 k!56> ~ <~!6 <~ k>!54>") -- Attente
$ midiOff "^42" (<| "<k ~>") -- TRAP
$ midiOn "^42" (<| "k k k*[1 <1 <2 4>>] k*<1 2>")
$ "[jazz,kick:4]"
d2 $ gM1 $ gF1
$ "~ <~!8 s!56> <s!8 ~!56> <~!8 s!56>"
# "[sn:20,snare:8]" # rel 0.4 # note "-12"
# gain 1
d3 $ gM1 $ gF1
$ midiOff "^44" (mask "[~ [t . <~!3 t> ~!3 ]]*4")
$ midiOn "^76" (ply 2)
$ n ("~ 0*<1 1 2 1> ~ 0*<1 2 <1 2> 2> ~ <0!32 0*<1!4 2 4!3>!32> ~ <1!16 1*<1 1 2 1 4 1 2 <4 8>>!16>")
# "amencutup"
# cut 3
# panbus 31 "^52"
|* gain (fast 8 $ range 0.9 1.1 perlin)
d6 $ gF1 $ gM1
$ someCyclesBy "<f!3 t f f t t>" (superimpose ((|- note 1) . (|* gain 0.9) . (0.125 <~)))
$ "<~ cp>"
# drumFrom "rolandtr909" "cp:1"
# room 0.4 # dry 1.1 # sz 0.5
# lpf 2000
# gain 1.1
d4 $ gF2 $ gMute3
$ midiOn "^89" (slow "<4!12 8!4>" . striate "<4!12 8!4>")
$ midiOn "^57" (slow "<1!12 [1 2]!3 [2 4]>" . mask "<t!6 [<t f> [<t f> f]] [t f]>" . (stut "<4!12 2 2 4 8>" 0.7 "<e!12 e e s s>") . mask "t(2,16)")
-- $ midiOn "^17" (mask "t(4,16)")
$ loopAt 8
$ chop 64
$ "bass_commodore:7"
# cut 4
# crushbus 41 (range 8 0.81 "^53")
# octersubbus 42 (range 0 7 "^33")
-- # lesliebus 43 (range 0 2 "^29")
# lsize 2.2
# lrate (slow 4 $ range 0.2 0.8 sine)
-- # distortbus 41 (range 0 5 "^53")
# gain (0.8 - 0.1 * "^33" - 0.1 * "^29")
# room "<0.3!12 0.35 0.4 0.48 0.6>"
d5 $ gF3 $ gM3
$ someCyclesBy "^34" ((|- note 12) . (stut 4 0.5 "e"))
$ midiOn "^58" (superimpose (
(|- note 12) . (# cut 51) . (# pan 0.2))
)
$ whenmod 32 24 (off "e" ((|* gain 0.95) . (|+ pan 0.12) . (|+ note "<12!3 24>")))
$ note (scale "gameboy" (
"<1(3,8) [1(3,8), <~ [~!7 2]>] 0(3,8) <0!3 -2>(3,8)>"
+ "<<0 0 2 2> <0 0 2 2> <0 7 7 9> <0 0 9 9>>"
))
# "harpsichord2"
# distortbus 51 (range 0 0.5 "^54")
# room 0.4 # dry 0.9 # sz 0.5
# pan 0.85
# modIndex 0.3
# legato 2
# gain 1.2
d7 $ silence -- FIXME add d7, maybe arps/moog?
d9 $ gF2 $ gM3 -- Essouflement amoureux
$ arp "up"
$ note (
-- "<a a g5 g5> ~ <~!24 d6!7 d5> <a a g g> ~ <~!12 d6!4> <a a g g> <~!16 d6!16>"
"<a a g5 e5> ~ <~!0 d6!3 d5> <a a g5 cs6> ~ ~ ~ ~"
-- "c8'maj'4"
+ 4
+ 12
-- - 2.5 -- "calage"
)
# att 0.05
# rel 2
# "jungbass:1" # cut 9
# room 0.3 # dry 1.4 # sz 0.9
d10 $ gF3 -- Angels of constance
$ note (slow 2 $ ("<[a5, d6] [g5, <e6 <cs6 [cs6 a5]>>]>"))
# "moogBass"
# room 0.2
# pan 0.7
d11 $ gF3 $ gMute3
$ note ("<d d e cs d d e cs f f g e f f g a>"
+ "0(<3!3 [3 <5 6>]>,8)"
+ 12
)
# "cpluck:3"
# room 0.8
# gain 0.85
# cut 11
d8 $ gM1 $ gF1
$ midiOn "^92" (ply "1 <2 4 8> 2 <2 [4 8]>")
$ midiOff "^60" (mask (slow 4 "t(<2 4 [4 8 4] 8>,16)"))
-- $ slice 8 "<~!7 0> 1 <~!6 2 2> 3 <~!4 4!4> 5 <~ 6 ~ ~ 6 ~ 6 6> 7"
$ midiOn "^36" ((# n "18"))
$ midiOn "^56" ((# n "6"))
$ loopAt 2
$ chop 32
$ "jungle_breaks:1"
-- # lpf 5000
# cut 8
# gain 0.9