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
do
let midiGGlobal = "^77" * 1.5
let _gainG ch = (gain (midiGGlobal * ch)) -- gain Global
let midiG' ch l h = _gainG (range l h ch) -- midiGain control
let midiG ch = midiG' ch 0 1 -- let midiG ch val = (gGain (ch * val))
let midiOn ch pat = someCyclesBy ch pat
let midiOff ch pat = someCyclesBy (1 - ch) pat
let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let g = gDJF
setcps (110/60/4)
let prog = "<c6'maj7'2 <g6'maj'2 g6'maj> d6'm9 <g6'maj g6'maj'4>>"
-- let prog = "<d6'm9 g6'maj'4>"
let progm = "<<c c e e> d e <d g>>"
d1 $ g
$ midiOn "^41" (<| "k k k <k k*2 [~ k] k*2>") -- Kick it!
$ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>") -- RubADub
$ "[jazz,909,kick:5]"
# midiG' "^78" 0 1.5
d2 $ g
$ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>")
$ midiOn "^43" (fast 2)
$ "~ s ~ <s!3 ~>" # "sn" # n "[1,10]"
# midiG' "^79" 0 1.6
d3 $ g
$ midiOn ("^44") (fast 2)
$ midiOn ("^76") (ply 2)
$ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]"
$ "h2ogmhh" # n "[10|11|12]*4"
# midiG' "^80" 0 1.5
d3
$ mask "t . <t!6 f f>"
$ sometimesBy "0 ^16!6 0" ((|* gain 0.9) . (|/ speed 2))
$ sometimesBy "^32" (|* speed 1.5)
$ sometimesBy "0 ^52!7" (ply "<2!3 [2!3 1]>")
$ g
$ chop 16
$ loopAt 2
$ "break:2"
# cut 3
# midiG' "^80" 0 1.5
d4 $ g -- Bassline
$ swingBy "h" 8
$ midiOn "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5)
$ note ((struct "t(3,8) t(<4 4 5 [5 8]>,8)"
$ arp "<pinkyup!2 converge!2>" prog)
+ "[0,<0 12>]"
- 36)
# "supersaw" # voice 0.01
# pan 0.2
# room 0.2
# crushbus 40 (range 10 1.85 "^53")
# midiG' "^81" 0 1.5
d5 $ g -- Nappes plage
$ midiOn "^58" (superimpose (
struct "t . t(3,8)"
. arpeggiate
. (|+ note 12)
. (# cut 51)
. (|* gain 1.1)
))
$ note (prog - 12)
# "moog:2"
# crushbus 50 (range 10 1.2 "^54")
# midiG' "^82" 0 1
# attack 0.8
# room 0.4 # sz 0.9
d6 -- Guitare nostalgique
$ midiOn "^59" (slice 4 "0 1 2 3")
$ mask "<t!3 f>"
$ "fguitar" # n "<34!32 35!16 34!16>"
# midiG' "^83" 0 1.5
# crushbus 60 (range 10 2.85 "^55")
# pan 0.65
# cut 6
d7 $ g -- C-Bows
$ midiOn "^60" (mask "t([4 <8 8 4 8>],16)")
$ superimpose (
(>| note (
"<0 <-1 2>>" + "0(3,8) 0"
))
. (|+ note 24)
. (|* gain (range 0 0.95 "^20"))
)
$ note ( -- Graves!
progm
+ "<0 0 10 0> <7 12>" -- FIXME?
+ "0 . [0!3 ~] 0*<1!7 2>"
)
# "cbow:8"
# pan "<0.7!7 0.3>"
# midiG' ("^84" * "^56") 0 1.4
d8 $ g
$ midiOn "^60" (off "q" (# n 11) . (|* gain 0.95))
$ note (
struct "t . t(<1!4 3!4 [5 3]!4 5!4>,8,<0!3 4>)"
$ arp "pinkyup <updown downup>"
$ (fast 2 $ prog)
)
# "cbow" # n "[9,<~!4 10!4>]"
# pan "<0.3!7 0.7>"
# midiG' ("^84" * "^36") 0 1