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
d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1
once $ "dr"
resetCycles
-- P P T . P T
-- P T . PP P T
do
let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7))
let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF
setcps (100/60/4)
d1 $ gDJF $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
$ "[jazz,bd]"
# midiG' "^78" 0 1.1
d2 $ gDJF $ g -- Snare prog
$ "~ <s!3 [~ s]> ~ <s!2 [~ s]!2>"
# "h2ogmsn:6"
# midiG' "^79" 0 0.8
d5 $ g -- Breakbeat
$ midiOn "^76" (ply "<2!3 [4 <4 1>]>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 1.2
d3 $ g -- Bass bows
$ gDJF
$ gLeslie
$ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
$ midiOn "^89" (chop 16)
$ slow 4
$ note (
(arp "up <up!8 down!8>" chord))
# "cbow:0"
# pan 0.3
# cut 3
# room 0.6
# sz 0.5
# midiG' "^81" 0 0.86
# crushbus 31 (range 10 2 "^53")
d4 $ g -- Higher bows
$ midiOn "^58" gLeslie
-- $ mask "<f!8 t!24>"
$ whenmod 8 7 (ply "1 4")
$ slow 2
$ whenmod 16 8 (ply 2)
$ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
$ note (arp "converge" chord)
# pan 0.4
# "cbow:2"
# cut 4
# room 0.2
# crushbus 41 (range 10 2 "^54")
# midiG' "^82" 0 1.05
d8 $ g -- Angels
$ midiOff "^59" (mask "<f!32 t!32>")
$ note "<[c . ~!3 <~ <d g4>>] a4>"
# "cbow:3"
# cut 8
# crushbus 81 (range 10 2 "^55")
# midiG' "^83" 0 0.86
d9
$ midiOn "^92" (ply "2 <1 <4 [4 8]>>")
$ midiOff "^60" (slow 2)
$ whenmod 32 16 (jux rev)
$ "h2ogmcp(5,8,<0!3 [0 3]>)"
# midiG' "^84" 0 1.3
(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (