-- url: "/home/pln/Work/Art/GLITCHWAVE/outputs/digital_flow.gif"
-- /home/pln/Work/Web/www/next/public/images/parvagues/bg_live.gif

do
-- resetCycles
setcps (93/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
  $ midiOff  "^41" (<| "k k k <k <k*2 [~ k]>>")
  $ midiOn "^41" (<| "k . ~ <~!2 k!2> ~ <~!3 k*<1 2>>")
  $ "[808bd:4,jazz]"
  # lpf 400
  # gain 1.2
--   # gain 1.4
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
  $ midiOff  "^42" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^42" (<| "~ . s*<1!4 2!3 [4 2]> ~")
  $ "[rampleM12:3]"
  # gain 1.2
d3 $ gF1 $ gM2
  $ midiOn "^43" (ply 2)
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  $ midiOn "^76" (ply 2)
  $ "d d d <d [<d ~> d]>" # "drum:2"
  # gain 0.8
d4 $ gF2 $ gM3
  $ midiOn "^76" (ply 4)
  $ note "<f3 c3 cs3 f3>"
  # crushbus 41 (range 16 3 "^32")
  # octerbus 42 (range 0 0.93 "^52")
  # octersubbus 43 (range 0 1.93 "^52")
  # "bassWarsaw"
  # pan 0.4
  # room 0.3
d5 $ gF3 $ gM3
  $ note ("[0,12]" 
  - 24
  +  "<[f4 [~ g4] [gs4 ~] as4 c5@4] [f5 [~ f5] . ef5 df5 c5@2] [bf4@3 bf4 . gs4 g4 f4@2] f4>" + 12)
  # "superfork"
  # room 0.3
  # pan "0.2 0.8 0.8 0.2"
  # octersubbus 52 (range 0 16 "^33")
  # crushbus 51 (range 16 2 "^33")
d7 $ gF3 $ gM3
  $ midiOn "^59"  (struct "t*[8 . <8!3 16>]")
  $ midiOff "^59" (struct "<[t(3,8)]!3 [t(3,8) . t(3,8)]>")
  $ note (
    "<[f4@3 g4 . gs4 as4 c5@2] [f5@3 f5 . ef5 df5 c5] [bf4@3 bf4 gs4 g4 f4] f4>"
    +"[0,12]" )
  # "pluck"
  # delaybus 71 "^35" 
  # delaytbus 72 (range "s" ("h"+"q") "^55")
  -- FIXME(#54) d7 drives more controls than the grid gives it (B7 + C7). ^19 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 d7's own control.
  -- # delayfbbus 73 "^19"
  # room 0.3 # pan 0.66
d8 $ gF1 $ gM2
  $ chop 8
  $ loopAt 1
  $ midiOn "^60" (mask "f(4,8)" . chop 8)
  $ midiOn "^36" (loopAt 2 . (# "jungle_breaks:19") . (|* gain 1.2)) -- Pure COMEON!
  $ midiOn "^56" (# "jungle_breaks:20")
  $ midiOn "^92" ( -- Bouton Nassim <3
    slice 8 (run 16)
    . loopAt 0.5 . (# "breaks165")
    -- . (# octer 0.4) . ( octersubsub 4)
    . (# lpf 2500)
    . (# room 0)
  )
  $ "break:8" # cut 8

C ASH
R ULES
E VERYTHING
A ROUND
M E
