-- 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 gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 =  (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 =  (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f 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 gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOff  "^42" (<| "k k k <k <k*2 [~ k]>>")
  $ midiOn "^42" (<| "k . ~ <~!2 k!2> ~ <~!3 k*<1 2>>")
  $ "[808bd:4,jazz]"
  # lpf 400
  # gain 1.2
--   # gain 1.4
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
  $ midiOff  "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^43" (<| "~ . s*<1!4 2!3 [4 2]> ~")
  $ "[rampleM12:3]"
  # gain 1.2
d3 $ gF1 $ gM1
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "d d d <d [<d ~> d]>" # "drum:2"
  # gain 0.8
d4 $ gF2 $ gM3
  $ midiOn "^89" (ply 4)
  $ note "<f3 c3 cs3 f3>"
  # crushbus 41 (range 16 3 "^53")
  # octerbus 42 (range 0 0.93 "^33")
  # octersubbus 43 (range 0 1.93 "^33")
  # "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 "^54")
  # crushbus 51 (range 16 2 "^54")
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 "^55" 
  # delaytbus 72 (range "s" ("h"+"q") "^35")
  # delayfbbus 73 "^19"
  # room 0.3 # pan 0.66
d8 $ gF1 $ gM1
  $ 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
