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
-- Une barrière bleue
-- couvre l'horizon ici
-- Triste ville
do
let modIndex = pF "modIndex"
let g = (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
setcps (120/60/4)
d1 $ g $ gMute -- BOUNCE THAT KICK
$ whenmod 16 12 (# legato 0.125)
$ whenmod 4 3 (# legato 0.25)
$ midiOn "^42" (<| "k*4" )
$ midiOff "^42" (<| "k . k(<3!3 [3 5]>,8)")
$ fix (# lpf 200) "kick:4"
$ "[jazz,kick:4,kick:9]"
# midiG' "^78" 0 1.5
d2 $ g $ gM
$ midiOn "^43" (struct "~ t ~ <~!3 t> ~ <~ t> ~ t")
$ midiOff "^43" (struct "~ t")
$ "cp"
# note "<8!3 <-2!3 [-2!3 8]>>"
# midiG' "^79" 0 1.8
d3 $ g $ gMask
$ midiOn "^76" (ply "<2!3 [2 . 4 8]>")
$ midiOff "^44" (mask "t(<8!3 [8 4]>,16)")
$ "h h h h h*<1 2 1 <1 2>> h h*<1!7 2> [<h!3 ~> h]" # "hh"
# midiG' "^80" 0 1.8
d5 $ g2 -- DAMAGED BASS
$ midiOn "^89" (chop 8 . ply "<4 4 <4 4 8 4> 1>")
$ note (scale "aeolian" "<0 0 [0@3 -1] <5 6>>")
# room (slow 16 $ range 0.2 0.8 saw)
# legato "<1!3 2>"
# "90s_weird:2"
# pan 0.3
# crushbus 51 (range 16 2.5 "^53")
# roombus 52 (range 0 0.8 "^53")
# midiG' "^81" 0 1
d6 $ g2 -- MY OTHER BASS IS A CAR
$ slow 4
$ chop 16
$ "bass_atari:2"
# crushbus 61 (range 16 1.5 "^54")
# midiG' "^82" 0 1.5
# cut 6
d7 $ g2 $ gMask
$ midiOff "^59" (mask "t(1,4) t(1,4)")
$ midiOn "^91" (ply "<4 4 [4 2 4] 4> <2 1>")
$ whenmod 36 24 (juxBy 0.2 ((# cut 71)))
$ note (scale "aeolian" (
"<0 0 0 <5 6>>" -- Theme
+ ("[0*3 9*3 <5 4>*3 12*3]")
))
# "giorgio_syn:5"
# cut 7
# pan 0.8
# crushbus 71 (range 16 1.5 "^55")
# midiG' "^83" 0 0.8
d8 $ g2 $ gMask
$ note (scale "aeolian" (
"<0 0 0 <5 6>>" -- Theme
+ ("[-4 -3*2 [-2 -3 -2 -1 ~]]"
-3)
)
+ "12"
)
# "strings"
# cut 8
# pan 0.2
# midiG' "^84" 0 1.3
once $ note (scale "aeolian" ("-2")) # "strings" # gain 0.8 # cut 9
-- $ note "36"
$ "strings" # gain 0.8
once $ "moogBass"