-- BLUE GOLD - SUNS OF GOLD LIVECODING REMIX
-- Original by Leifur James :pray:
do
setcps(140/60/4)
d1 $ gF1 $ gM1
  $ midiOn "^29" (# "hardkick_rha:29")
  $ midiOn  "^41" (<| "k k k <k!3 <[~ k] k*2>>")
  $ midiOff "^41" (<| "<k ~>")
  $ "[techno:0,808bd:2,909,kick:4]"
  -- $ "[jazz,kick:4]"
  -- # octersub 0.5 # lpf 4000
d2 $ gF1 $ gM2
  $ fix (# lpf 1300) "cp"
  $ midiOn "^42" (<| "~ cp*<1!3 <2 [4 2]>> ~ cp" )
  $ midiOff "^42" (<| "~ . cp")
  $ "[snare:32,cp]"
d3 $ gF1 $ gM2
  $ fix (|* gain (slow 16 $ range 0.5 1 saw)) "ccc"
  $ "hh(3,8) hh(<3!3 <4 5>>,8)" # "[ccc:0,h2ogmhh:3]" # n "3!3 [<3!3 5> <3 5>]"
  # cut 3
d4 $ gF2 $ gM3 -- Caring bass
  $ midiOn "^44" (|+ note "[0,12]")
  $ midiOn "^76" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
  $ superimpose (
    (# cut 41) .
    (# crushbus 41 (range 10 3.5 "^32"))
  )
  $ note (
    "<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
    - 12
  )
  # "moog:0"
  # legato 1
  # bandf 500
  # bandq 0
  # octerbus 42 (range 0 0.9 "^52")
  # cut 7
  # gain 1.4
d5 $ gF2 $ gM3 -- V2 PLN's "Je peux ptet faire une basse acide moi meme"
  $ midiOff "^57" (
    -- (|+ note "<0 12>") .
    mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
  -- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^53 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^53 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 d5's own control with gSel.
  $ stack [
  n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^33" + "^53")),
  "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^33"),
  "vec1_acid:39" # hpf 200 # gain (range 0 1.1 "^53"), -- TODO BONUS ACID
  -- # octer 1.1
  -- ,
  ""
  ]
  # crushbus 41 (range 16 1 "^53")
  -- # legato 1
  -- FIXME(#54) d5 drives more controls than the grid gives it (B5 + C5). ^17 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 d5's own control.
  -- # legato (range 0.39 0.7 (1 - "^17"))
  -- >| note ("[b d6 b cs6 d6 b cs6 b]*2"
  -- - "<0!32 12!32>" -- Alternance
  -- -- + "<0!24 7!8 0!48 1!16>" -- Note variation tension???
  -- )
  -- -- # att 0.1 # sus 0.2 # rel 4
  -- -- # cut 4
  # octersub 2
  -- # octerbus 41 (range 0 1 "^17")
  -- # crushbus 42 (range 16 4.2 "^53")
d11 $ gF2 $ gM3 -- Caring cello
    $ midiOn "^57" (|+| note "[0 12 0 12 0 12 0 12]")
    $ midiOn "^89" ((struct "<[t t . t*[4 <4 8>]]!3 t*[<8 4> 8]>") . (# rel 0.5))
    -- $ superimpose (
      -- (# cut 41) .
      -- (# crushbus 41 (range 10 3.5 "^53"))
    -- )
    $ note (
      "<b5!3 <g d>>@7 <c6 c6 cs6 a6>" -- This is caring
    )
    # "cpluck:0"
    # cut 11
    # gain 1.4
d7 $ gF1 $ gM3
    $ midiOn "^91" ( -- Bouton Nassim <3
      slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
      . loopAt 0.5 . (# "breaks165")
      -- . (# octer 0.4) . ( octersubsub 4)
      . (# lpf 2500)
      . (# room 0)
    )
    $ midiOff ("^59" + "^91") (ply "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
    $ midiOn "^35" ((loopAt 1) . (# "jungle_breaks:60")) -- Clochettes?
    $ chop 16
    $ loopAt 2
    $ "jungle_breaks:45"
    # cut 8
    # att 0.04
    # rel 2
    # gain 1.6
    # hpf 1200
d8 $ gF1 $ gM2
  $ midiOn "^92" (ply "4 <8>")
  $ chop 16
  $ loopAt 8
  $ "ccc:2"
  # gain (slow 16 $ range 1.4 2.2 saw)
  # room 0.4 # dry 1.1
  # cut 8
d9 $ striate 16 $ "ccc:1"
  # cut 1 # room 0.4 # dry "<1 1 1.2 1.3>"
  # octer 0.6
  # octersubbus 91 (range 0 1 "^19")
  # squizbus 92 (range 0 2 "^19")
d10
  $ chop 16
  -- $ mask "<f!24 t!8>"
  $ loopAt 8
  $ "risers:10"
  # cut 10
  # hpf 2000
  # octer 0.5
