-- /home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif
do
setcps (80/60/4)
-- resetCycles
let width = pF "width"
let lagTime = pF "lagTime"
let rq = pF "rq"
let filterRange = pF "filterRange"
-- lagTime = 0.12, filterRange = 6, width = 0.51, rq = 0.3;
d1 $ gF1 $ gM2
  -- $ midiOn  ("^41")  ((<| "k(3,8) ~"))
  $ midiOff ("^41") (<| "k*<1!7 2> ~ . ~ <~!7 [k*2 k]>")
  $ midiOn  "^41"  (fast 2 . (<| "k k k*<1!8 2!8> k*<1 <2!2 4>>"). (# "kick:4") . (|* gain 0.54))
  $ "[808bd:1,808bd:11]" -- 1 4 6 9 11
  # octersubsub 1.2
  # gain 2
d2 $ gF1 $ gM2
  $ midiOn  "^42" (fast 2 . (<| "~ c ~ c*<1!7 <2 [4 2]>>"))
  $ midiOff "^42" (<| "~ . ~ c")
  $ "vec1_claps:18"
  # gain 1.4
d3 $ gF1 $ gM1 
  $ midiOn "^43" (fast "2 <2 2 4 8>")
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d3's own control.
  -- $ midiOff "^44" (mask "f(4,32)" . chop 16)
  $ (# pan "[0.25 0.75]*4")
  $ ply (slow 16 "<2 [2 <4!3 [4 2]>] 4 [4 8 4] [8 4] 8 [8 16 8] 16>")
  $ chop 16 
  $ loopAt 4 
  $ "trance_loops:2" 
  # cut 3
  # gain 1.4
  # room (slow 32 $ range 0 0.4 saw) 
  # dry 0.4
  # sz 0.3
d4 $ gF2 $ gM3 -- BASSE DU 3e cercle
  $ midiOn "^44" (struct "t*16")
  $ midiOff "^44" (mask "[f [t f t] t t@2]") -- SILENCES
  $ midiOn "^76" (stutWith 4 "q" ((|* gain 0.9) . (|+ pan 0.1). (|+ cut 1)))
  $ note "[cf4 [f4 cf4 f4] <[<cs4 fs4> cs4]!3 fs4> bf3@2]" 
  # "giorgio_syn:43" # n (slow 16 $ "<47 48 47 46>")
  # cut 40
  # crushbus 41 (range 16 2.5 "^32")
  # octerbus 42 (range 0 1.5  "^52")
  # pan 0.2
  # legato 1.5
  # room 0.5 
  # sz 0.4 
  # dry 1.8
d5 $ gF3 $ gM3 -- Synth lapin speed
  $ midiOn "^57" (# rq (slow 8 $ range 0.1 0.01 saw))
  $ fast 2 $ arp "up"
  $ note (cat [
    "[bf4,cs5,f5,bf4,cs5,f5,bf4,cs5]",
    "[bf4,cs5,f5,bf4,cs5,f5,fs5,f5]",
    "[bf4,cs5,f5,bf4,cs5,cs6,c6,bf5]",
    "[bf4,cs5,f5,bf4,cs5,<cs6!3 f5>,c6,<cs6 <ef6 f6>>]" 
    --BOOYAH ARPEGE INTENSE!
  -- "bf4"
  ]
   - "<12!16 0!16>"
   - 12
   + "[0,12]"
   ) 
  -- # "FMRhodes1"
  -- # "giorgio_syn:20" |+ note (12 - 2)
  # "acidOto3092"
  -- lagTime = 0.12, filterRange = 6, width = 0.51, rq = 0.3;
   -- 18   │ 
  # width (range 0.2 0.8 "^33") -- /!\ FIXME EXPLOSIF /!\
  # filterRange (range 0 8 "^53")
  # filterRange (range 0 8 "^53")
  # room 0.4 # dry 0.8
  # gain 1.5
  # octer 0.4
  # att 0.01 # rel 10
  -- # pan "[0.4|0.6]*8"
d8 $ gF1 $ gM1  
  $ midiOn "^36" (# "jungle_breaks:75")
  $ midiOn "^92" (ply 4)
  -- $ midiOff "^60" (mask "f(8,16)" . chop 8)
  $ midiOff "^60" (slice 8 "<~!3 0> <1!3 ~> 2 <3!3 ~> 4 <5!3 ~> 6? 7*<1 2>" )
  $ slice 8 "<~!3 0> <1!3 ~> 2 <3!3 ~> 4 <5!3 ~> 6? 7*<1 2>" 
  $ chop 16
  $ loopAt 2
  $ "drums_nes:5" 
  # cut 8
  # gain 1.4
d9 $ gF3 $ gM3
  $ ((# att 0.45) . (# rel 2))
  $ slice 8 "~ ~ ~ 7" 
  $ "molotov:7" 
  # cut 9
  # gain 1.5
  # speed 0.9
d10 $ gF3 $ gM3 -- GIMME THAT
  $ "~!3 v" # end 0.1
  # "vocal_bordel"
  # cut 10
  # gain 1.4 # lpf 3000 # room 0.3 # octersub 0.8
d11 $ gF3 $ gM3 -- GIMME THAT
  $ ((0.25 ~>) . (# begin 0.1))
  $ "~!3 v" 
  # end 0.245
  # "vocal_bordel"
  # cut 11
  # gain 1.3 # lpf 3000 # room 0.3 # octersub 0.8
d12 $ gM3 $ gM3 -- CHEVAL DE COURSE
  $ "<~ [~ ~ ~ cheval]>" # "molotov:5"
  # room 0.4 # sz 0.3 # dry 0.3
