-- /home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif
do
setcps (138/60/4)
-- resetCycles
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ midiOn  "^42"  (<| "k k k k")
  $ midiOff "^42" (<| "k . k(<3!3 [5 5 8 5]>,8)")
  $ "[techno:0,808bd:2,909,kick:4]"
  -- $ "jazz"
d2 $ gM1 -- Clap timer
  $ midiOn "^43" ((|* gain "0 1 0.8 1") . (<| "~ c <~!3 [~ c]> c"))
  $ midiOff "^43" ((|* gain "1 0.8") . (<| "c . ~ ~ ~ <~!3 c>"))
  $ drumFrom "[sakatadpm48,rolandr8]" "cp"
  # lpf 2000
  # gain 1.2
d4 $ "90s_matrix:0/4" # cut 4
d7 $ "90s_synatm:0" # cut 7
