-- /home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif
do
setcps (80/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"  (fast 2 . (<| "k k k k*2"))
  $ midiOff "^42" (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
  $ "[jazz]" 
