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
do
let gG a = (gain ("^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 gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
let novaOn ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) (pat)
let chorus = pF "chorus"
let cutoff = pF "cutoff"
let lagamount = pF "lagamount"
let pAtt = pF "att"
let prog = "<0 <2 3> 4 0>"
let g = gDJF
d1 $ g
$ novaOn "^74" (<| "K*16")
$ novaOn "^42" (<| "k k k <k k*2 k [~ k]>")
$ superimpose ((|* gain 0.75) . (# "kick:5"))
$ "[jazz,cpu]"
# room 0.8 # sz 0.8 # dry 1
# gM' 0 1.5 "^78"
d2 $ g
$ novaOn "^75" (slice 8 ("0 1 2 3 0 ~ 3 <~ ~ 3 3>") . (loopAt 4) . (>| "fbreak100:1"))
$ novaOff "^75" (<| "~ s*<[1 . <1!4 2 2 4 4>]!8 [<4 8 8 4> <8 [8 . 4 8] 4 [8 4]>]!8>")
$ fast 2
$ "snare" # n "[20,21,28]"
# release "0.125!<7!3 3> 1"
# gM' 0 1.4 "^79"
d3
$ g
$ loopAt 2
$ slice 4 ("[0 1 <~!4 2!4> <~!8 3!8> <~!8 4!4 ~!4 4!16> 5 ~ ~] [<0 1> ~]")
$ "fbreak120:2"
# room 0.08
# pan (slow 16 $ range 0.4 0.6 sine)
# gM' 0 0.8 "^80"
d9 $ g
$ whenmod 16 12 (often (off "q e" id))
$ whenmod 16 8 (fast 2)
$ "~ clap"
# lpf 400
# lpq 0.21 # attack 0.45
# room 0.4 # sz 0.8
# pan 0.8
# gM' 0 1.2 "^84"
d4 $ g -- BASSLINE
$ note (scale "aeolian" (
whenmod 16 8 (+ "[<0!3 7> <7!3 <0 7>>]") -- spread
$ novaOn "^57" (+ "[0 0 ~ 2 . ~ <2!3 3>]*2") -- arp
prog
+ "[0,4,9]"
- 21
))
# "supersaw"
# voice "^17"
# pan 0.3
# accelerate (range "-4" 4 "^33")
# lfo (range "-2" 2 "^53")
# gM' 0 1.2 "^81"
d5 $ g
$ note (scale "aeolian" (
prog
+ "[0,7,16]"
+ "[[0 2 <2 0 2 3> 3] [~ 3]]*<[1 2] [2 1]>"
- 21
))
# "FMRhodes1"
# pan 0.8
# gM' 0 2 "^82"
d6
$ juxBy 0.8 rev
$ novaOn "^59" (someCyclesBy 0.75 (off "q" id))
$ note (scale "aeolian" (prog + "[0,9]"
+ "0 <-7!4 -5 -5 -7 -5>"
))
# "moogBass"
# pAtt 0.1 # rel 2
# legato 2
# chorus "^55"
# cutoff (range 500 3000 "^35")
# room 0.2
# gM' 0 1.5 "^83"
-- From boeuf/fevrier
d5
-- $ g
-- $ inside 4 (someCyclesBy "^34" (ply 2))
$ sometimesBy "^54" (swingBy "q" 4)
$ note (scale "aeolian" (
"<0 9 7 2>" -- progression
+ "[0 2 4 <0 6>]*4" -- arpegiateur
+ "[0 <7 <-7 14>>]" -- spread
- 7
))
# "FMRhodes1"
-- # gM' 0 2 "^82"
# gain 0.7