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
do
let gF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# 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 modIndex = pF "modIndex"
setcps (62/60/4)
d1 $ gF $ gMute
$ midiOn "^42" (struct "t t t [<t ~> t t ~]")
$ midiOff "^42" (struct "t . t(3,8)")
$ "[808bd:2,jazz]"
# midiG' "^78" 0 1.2
d2 $ gF $ gM
$ "~ snare:40" # hpf 5000
# midiG' "^79" 0 1.1
d3 $ gF $ gM
$ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[8 16]")
$ midiOff "^44" (struct "[~ t]*4")
$ "dr"
# pan 0.8
# midiG' "^80" 0 0.85
d4 $ gF2
$ ("s" <~) -- Calage debut
$ "shiloh:7" # cut 4
# begin 0 # end "<0.05!3 0.125>"
-- # legato "<0.9!3 2>"
# legato 2
# room 0.2
# pan (slow 16 $ range 0.5 0.8 saw)
# midiG' "^82" 0 0.85
# roombus 41 (range 0.2 0.9 "^34")
# drybus 42 (range "-2" 2 "^54")
# size 0.8
d5
$ never (superimpose (
mask "f . t(<3 <5 8>>,8)" .
arp "pinkyup"
-- . ply 2
. (|+ note 12)
. (# pan 0.7)
. (# "FMRhodes1")
))
$ note (
-- "<<f'maj7'4 g'maj7'4> f'major'4>" -- HANDCOOK BUGGY
"<f'maj7'4 g'maj'7'4>"
- 24)
-- Abmaj7 / Cm9 / Gm7
# "bassWarsaw"
# pan 0.2
# room 0.8
# midiG' "^81" 0 0.85
d6 $ gF
$ gM
$ loopAt 1
$ midiOn "^92" (chop 8 . ply 2)
$ "breaks125"
# cut 6
# midiG' "^84" 0 0.85
once $ "shiloh:5"