d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1 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 . gLeslie setcps (100/60/4) d1 $ gDJF $ g $ midiOff "^41" (mask "<f f [t f] t t!28>") $ midiOn "^41" (<| "k*4" ) $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~" ) $ "[jazz,bd]" # midiG' "^78" 0 0.75 d2 $ gDJF $ g $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>" $ "~ s ~ s" # "h2ogmsn:6" # midiG' "^79" 0 0.8 d3 $ g -- Bass $ gDJF $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) $ 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.56 # crush (range 10 2 "^53") d4 $ g -- $ 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 # midiG' "^82" 0 0.4 d5 $ g -- Breakbeat $ midiOn "^76" (fast "<2!3 4>") $ 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 0.8 d8 $ g -- Angels $ midiOff "^59" (mask "<f!32 t!32>") $ note "<[c . ~!3 <~ <d g4>>] a4>" # "cbow:3" # cut 8 # midiG' "^83" 0 0.56 d4 $ whenmod 32 16 (jux rev) $ "h2ogmcp(5,8,<0!3 [0 3]>)" # gain 0.45 (5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (