do
-- resetCycles
setcps (160/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 =  (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 =  (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
-- let gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOn "^42" (<| "k  . ~ k ~ ~ ")
  $ "[bskick,jazz]"
  # gain 1.2
  # gain 1.4
d3 $ "dr*8"

once $ "FMRhodes1"
