-- 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