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
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
let prog = "<a3'min'4 c3'maj'4 f3'maj'4 [d3'min'4 e3'min'4]>"
setcps (120/60/4)
d1 $ g $ gMute -- BOUNCE THAT KICK
$ midiOn "^41" (<| "k")
$ midiOn "^42" (<| "k*4" )
$ midiOff "^42" (<| "k . k(<3!3 [3 5]>,8)")
$ fix (# lpf 200) "kick:4"
$ "[808bd:1,808bd:0,jazz]"
# midiG' "^78" 0 1.5
d2 $ g $ "~ cp ~ cp*<1!3 2>" # "snare:20"
# lpf 2000
# midiG' "^79" 0 1.2
d3 $ g
$ midiOff "^44" (mask "f(<4 2>,8)")
$ midiOn "^76" (ply "2 <2 2 4 8>")
$ chop 16
$ loopAt 2
$ "break:0" # cut 3
# midiG' "^80" 0 1.2
d4 $ g2 -- BASSLINE
$ note (
prog
+ "0@3 0"
- 12
)
# "giorgio_syn:0"
# legato 0.4
# lpf 3000
# pan 0.3
# midiG' "^81" 0 0.9
d5 $ g2
$ note (
prog
+ "0@3 0"
)
# "superpiano"
# velocity 0.5
# pan 0.3
# midiG' "^82" 0 1.5
d6 $ g2
-- $ sometimesBy (1 - "^55") (mask "t f(3,8)")
$ note (
-- + "0 0(<3 <3 5> 3 5>,8)"
"g . [g b5] <c6 c6 d6 e6>"
-- + "0*4@3 [0 12 0]"
+ 12
)
# "superpiano"
# velocity 0.5
# pan 0.7
# midiG' "^83" 0 1.5
d8
$ whenmod 4 3 (mask "t(4,12)")
$ note (fast 2 $
"<c a g e>"
+ "0 . 0*2"
)
# legato 1.2
# "cbow:2"
# cut 8
# sustain 0.5
# pan 0.8
# midiG' "^84" 0 0.7
once $ "cbow:7"
# gain 0.8 # cut 5
once $ "giorgio_syn:1" # cut 4
-- GARAGE
d8 $ note (fast 2 $
"<c7 a6 g6 e6>"
+ "0 . 0*<3 [3 6]>"
- 12
)
# legato 1.5
# "supergong"
# sustain 0.3
# accelerate 8
# pan 0.8
# midiG' "^84" 0 1.6