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
-- Inspiration: https://www.youtube.com/watch?v=4jXfnbJvmIQ
do
setcps (93/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = midiOn "^73" (mask "f f f t")
d1 $ gF1
$ gMask
$ fix (|* gain 0.9) "jazz"
$ "k*<1!3 2> ~ . <k <~!3 k>>"
-- # "[808bd,808bd:3,bd:2]"
# "[jazz,kick:8,bd:2,808bd:3,808bd:4]"
# room 0.2 # dry 1.1 # sz 0.8
# legato 2
# midiG' "^78" 0 1.4
d2 $ gF1 $ gMask -- snare cassant
$ fix (|* gain 0.85) "snare:16"
$ "~ <sn!3 <~ sn>> ~ <sn!6 ~ sn>"
# "[snare:2,snare:16,tek_hh:1]"
# lpf 7000
# midiG' "^79" 0 1.4
# pan 0.7
d3 $ gF1 $ gMask
$ midiOn "^76" (ply 2)
$ midiOn "^44" (ply 2)
$ "[~ drum:2]*4"
# pan 0.4
# midiG' "^80" 0 1.4
d4 $ gMask $ gF1
-- $ mask "<f!3 t>"
$ "<h [~ h]> . h*<2 [4 4 4 1]> ~"
# "snare:5" # hpf 5000
# legato "1 . [1 0.5] ~"
# gain 0.8
# midiG' "^81" 0 1.2
# cut 4
# pan 0.2
d8 $ gMask $ gF1
$ midiOn "^92" (ply "<2!3 [<4 1> 1]>")
$ chop 8
$ loopAt 2
$ "break/2"
# cut 8
# midiG' "^84" 0 1
d9
$ (0.25 ~>) -- Calage
-- Simple one
$ note "<[~ cs7*2 cs7 as6 gs6 fs6 ds6@2] ~>"
-- Complete one
-- $ note "<[~ cs7*2 cs7 as6 gs6 fs6 ds6@2] [[~ as6] [gs6 ~] [~ <gs6 cs7>] [<fs6 as6> ~]]>"
# "superpiano" # velocity 0.5
# midiG' "^82" 0 1.5
-- # room "<0.2!3 0.8>"
# dry 1.8
once $ arpeggiate $ note "a'maj'4" # "superpiano"
# gain 1