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
once $ "90s_synatm:1" # cut 1 # gain 0.98
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"))
setcps (110/60/4)
d1 $ gF
$ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
# midiG' "^78" 0 1.2
d2 $ gF
$ midiOn "^43" (fast "<2!3 <4 [4 8]>>")
$ "~ snare" # n "[22,26]"
# midiG' "^79" 0 1.5
# room 0.8 # dry 1
# lpf 2000
d3 $ gF $ n (stack [
"0", "~ 2*<1 2 4 8>", "~ 3 <~ 3>"
])
# "amencutup"
# midiG' "^80" 0 1.2
d4 $ gF2
$ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)")
$ chop 16
$ whenmod 32 24 (iter "1 4")
-- $ superimpose ((|+ note 12) . (# cut 41))
-- $ midiOn "^57" (rev)
$ loopAt 2
$ chop 8
$ "bass_commodore:6" # cut 4
# midiG' "^81" 0 1.2
# crushbus 41 (range 16 1.2 "^53")
d7 $ gF2 -- ACID BUS
$ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
$ midiOff "^58" (slice 8 "<0 1 2 3>")
$ loopAt 8 $ "synth_commodore:0"
# midiG' "^82" 0 1.2
# cut 7
d8 $ gF
$ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^55")))
$ "90s_synatm:1" # lpf 2000
# lpq (slow 32 $ range 0 0.4 saw)
# cut 8 # midiG' "^83" 0 1
# room 0.2
# crushbus 82 (range 16 1.2 "^35")