-- Lady do -- resetCycles setcps (120/60/4) let gF = midiDJF "^49" 200 9800 0 2000 let g = (gF) d1 $ g $ fix (|* gain 0.8) "jazz" $ midiOn "^41" (struct "t t t <t <t*2 [~ t]>>") $ "[drum]" # midiG' "^78" 0 0.7 d2 $ g $ midiOn "^43" (fast "<2!7 <4 8>>") $ "~ snare:20" # midiG' "^79" 0 0.6 d3 $ g -- Drumroll $ midiOn "^44" (fast 2) $ "drum:2*<8!3 <16 [16 <8 32>]>>" # midiG' "^80" 0 0.8 d4 $ g -- BASS/Guitar $ superimpose ((|* gain 0.8) . struct "t(5,8)" . arp "<up!3 <up down>>") $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f6, c7][cs6, f6, cs7]>" - 12) # "distortedGuitar" # room 0.5 # sz 0.8 # dry 1.2 # crushbus 2 (range 16 4.5 "^53") # midiG' "^81" 0 0.8 d9 $ g -- Choirs $ midiOn "^60" (|- note 12) $ midiOn "^92" (# cut 9) $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f7, c7][cs6, f6, cs7]>" - 24 ) # "moogBass" # pan 0.7 # room 0.3 # dry 1 # sz 0.5 # midiG' "^84" 0 0.54 -- TOXIC! do let gF = midiDJF "^49" 200 9800 0 2000 let g = gF setcps (130/60/4) d4 $ g $ note ("<[[b4 a4]*4]!12 d5 d5 f4 [f4@3 g5]>") # "bass3" # gain 0.6 d5 $ g $ "drum:2*4" # gain 1.1 -- TOXIC do -- resetCycles let gF = midiDJF "^49" 150 9850 0 2000 let g = gF setcps (120/60/4) d1 $ midiOn "^41" (struct "t*4") $ "drum" # midiG' "^78" 0 0.7 d3 $ g $ "~ s ~ s ~ s ~ s*<1 2>" # "drum:2" # midiG' "^79" 0 0.7 d4 $ g $ "[~ hc:1]*4" # midiG' "^79" 0 0.5 d2 $ g $ note ("<[b4 b4 b4 <b4!3 a4>]!12 d5*4 d5(5,8) f4 [f4@3 g5]>") # "bass3:4" |- note 1 # midiG' "^80" 0 0.8 # room 0.3 # crushbus 2 (range 16 2.5 "^52") d5 $ g $ midiOff "^60" (loopAt 2) $ midiOn "^60" (loopAt 1) $ midiOn "^92" (ply 4) $ slice 4 "0 1 2 3*<1 2 4>" $ "breaks165" # midiG' "^84" 0 0.7 once $ "drum" once $ "" # n 20 do let gF = midiDJF "^49" 150 9850 0 2000 let g = gF setcps (103/60/4) d1 $ g $ slice 4 ("<0 1 2 3>") $ loopAt 2 $ "algorythm:2" # cut 1 # midiG' "^78" 0 0.8 once $ "algorythm:3" -- Sweetest Taboo do let gF = midiDJF "^49" 150 9850 0 10000 let g = gF setcps (90/60/4) d1 $ g $ midiOn "^73" (mask "[t f t f]*2") $ midiOn "^74" (mask "[t f f f]*2") $ midiOn "^75" (mask "[t f f t]*2") $ midiOn "^76" (mask "[t f f f]*2") $ chop 16 $ loopAt 4 $ "algorythm:2" # cut 1 # midiG' "^78" 0 0.9