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
117
118
-- Stolen choir variations
-- Accompagnement C#
do -- Break the Choir
-- region moogBass parameters
let cutoff = pF "cutoff"
let lagamount = pF "lagamount"
let rel = pF "rel"
let chorus = pF "chorus"
-- endregion
-- region Nova Utils
let gF = 1.5 -- gain factor
let gG a = (gain (gF * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
let gReverb = ((# room "^29") . (# sz (range 0 0.9 "^30")) . (# dry (range 0 2 "^13")))
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
-- endregion Nova Utils
let g = (gDJF . gReverb)
let chords = "<gs4'min gs4'maj>"
setcps (80/60/4)
d1 $ g
$ novaOn "^41" (<| "k k k <k!3 <k*2 [~ k]>>")
$ novaOff "^41" (<| "k ~ . k*2 ~")
$ "jazz"
# gM' 0 1.1 "^78"
d2 $ g
$ (# gM' 0.35 0.9 "^79")
$ novaOn "^43" (slow 2)
$ novaOn "^75" (const $ loopAt 1
$ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3")
$ "breaks165")
$ novaOff "^75" (slice 8 "[~ <0 1>]*4" )
$ loopAt 2
$ "fbreak80:1"
d3 $ g
$ sometimesBy "<f!8 t!8 f!16>" (# cut 3)
$ sometimesBy "<f!16 t!16>" (# legato "<1!8 2!8>")
$ slice 4 ("<0!4 1!4>*4") $ "choir:4/4"
# pan 0.4
# legato "<1!8 2!8>"
# gM' 0 1 "^80"
d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4"
# pan 0.8
# cut 4
# gM' 0 0.8 "^81"
d5 $ g
$ novaOn "^58" (chop (4 + ("12" * "^90")))
$ whenmod 4 2 (stutWith 4 "e" (# legato 0.25))
$ note chords
# "moogBass"
# gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^54"))
# crushbus 51 (range 10 1 "^34")
# chorus (range 0 4 "^54") -- 0.7
-- TODO REWORK ARABIC LOOP
do
-- resetCycles
setcps (85/60/4)
d1
$ mask "<f!8 t!29>"
$ "k . k(<3!3 5 5 5 3 [3 <1 5>]>,8)"
# "[h2ogmbd:0,bd]"
d2
$ superimpose (const $
fast "<8!4 [16 <8 8 16 [16 <8 4>]>]!4>"
$ "drum:2")
$ mask "<f!7 t!25>"
$ fast "<2!2 4!4 [4 8 4]!4 [8 4 8 4]!4>" $ "~ snare:21" # gain 0.8
d3
$ whenmod 16 8 (scramble "<4 2 4 1> <1 4 8 16>")
$ whenmod 4 3 (rev)
$ note (scale "harmonic" ("0 1 2 3 3 2 1 <0!4 1 1 2 1>"))
# "choir"
# cut 3
# room 0.5 # dry 0.8
# pan 0.7
d4
$ mask "<f!8 t!8>"
$ off 2 (slice 4 ("0 <1 2> <2 1> 3"))
$ "choir:2/4"
# gain 0.6
# pan 0.9
# cut 4
d5
$ mask "<f!16 t!16>"
$ "c*<1 <<2 4> [8 4]>>" # "choir:3"
# gain 1
# cut 5
d5
$ mask "<f!16 t!16>"
$ "c*<1 <<2 4> [8 4]>>" # "choir:3"
# gain 1
# cut 5
do
d1 $ "tech:5*4" # gain 1.4
d2
$ whenmod 16 14 (# note "<-1 -2>")
$ fix (|* gain 0.95) (n 4)
$ n "5!7 <4!3 5>"
# "h2ogmcy"
# gain 0.9
# cut 2
d4
-- $ superimpose ((|- note 12) . (# cut 41) . (|* gain 0.8))
$ note (scale "harmonicMinor" ("0 2 . ~!<1!3 0 0!2 1!2> 3*[0|1] <4 <5 7>>"))
# "choir:1" # gain 1.25
# octave 4
# pan 0.2
# cut 4