-- /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]" # room 0.2 # sz 0.3 # dry 1.4
  # gain 1.3
d2 $ gF1 $ gM2 
  $ midiOn  "^42"  (fast 2)
  $ "~ c ~ c*<1 <4 2 4 [8 4]>>" 
  # "cp" # lpf 4000
d3 $ gF1 $ gM1 
  $ "hh(3,8) hh(3,8)" # "h2ogmsn:4"
  # delay 0.5 # delayt "<0.05 0.1 0.2 0.3 0.4>" # delayfb 0.8
  -- $ "jazz"
d7 $ gF1 $ gM1
  $ midiOn "^91" (ply "2 <2!2 <3 4> <4 8>>")
  $ slice 4 "0 1 <2 ~ ~ 2*<2 4>> 3*<1!3 <2 [2 <4 8>]>>"
  $ loopAt 1 
  $ "temptation:4" 
  # cut 8
  # pan 0.3
d4 $ gF2 $ gM3 -- TEMPT MY BASS
  $ midiOn "^89" (ply "2 <2!2 <3 4> <4 8>>")
  $ midiOn "^57" (# n 3)
  $ chop 8
  $ loopAt 1
  $ "temptation" 
  # n 2 # cut 4 # room 0.3 # sz 0.4
  # crushbus 41 (range 12 3 "^53")
  # octersubbus 42 (range 0 2 "^33")
d5 $ gF3 $ gM3
  $ midiOn "^90" (ply "<4 [4 8]>")
  $ midiOn "^58" (fast 4)
  $ slice 8 "<0 0 1 1 2 2 3 3>/2"
  $ "temptation:0"
  # cut 5
  # room 0.4 # sz 0.8
  # crushbus    51 (range 12 3 "^54")
  # octerbus    52 (range 0 1  "^34")
d8 $ gF1 $ gM1
  $ midiOn "^92" (ply "2 <2!2 <3 4> <4 8>>")
  $ loopAt 4 
  $ slice 4 "0 1 2 3*<1!3 8>"
  $ chop 8
  $  "jungle_breaks:12" # cut 8
  # pan 0.8
d9 $ gF3 $ gM3 -- TEMPTATION VOICES
  $ n "<7!8 8!8>/2" 
  # end "<0.8!8 1!8>"
  # "temptation" 
  # cut 9