day0.tidal

do
-- resetCycles
let gF1 =  (# djfbus 1 (range 0.1 0.9 "^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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let gMaskEnd16 = mask "<t!7 [<t f> <f t> ]>"
setcps (90/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
  -- $ midiOff "^42"  (<| "k . k(3,8)")
  -- $ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
  $ "k . k" # "cpu"
  # room 0.2 # dry 1.1
  # lpf 3000 -- TODO Sound design this kick <3
  # cut 1
  # gain 1.5
d2 $ gF1 $ gM1
  $ "~ sn ~ [sn*<1 2>]"
  # "snare:42"
d3 $ gF1 $ gM1
  $ whenmod 4 3 (fast 2)
  $ "dr*[8 <8 <16 [16 32]>>]" # gain 0.8
d4 $ gM2 $ gF2
  $ "giorgio_syn:2/2"
  # crushbus 41 (range 16 2.5 "^53")
  # cut 4
  # gain 0.8
d8 $ gF1 $ gM1 $ loopAt 2
  $ splice 8 (run "8 <8 16>")
  -- $ midiOn
  $ "jungle_breaks:20" # cut 8



d2 $ gF1 $ gM1
  $ someCyclesBy  "<0!16 1!16>" (<| "~ s ~ s*<1!4 1!3 2 1!3 2 2!4>")
  $ someCyclesBy  "<1!16 0!16>" (<| "~ <~ [<s s*2 s [s*2 ~]>]>")
  $ "[snare:24,snare:51]"
  # gain "<[1]!16 [1 <1 <1 [1 0.93] 1 [0.9]>>]!16>"
d3 $ gF1 $ gM1
  -- $ "h(3,8) h(<3 <5 [5 <1 <8 [8 16]>>]>>,8)"
  $ "h(3,8) h(3,8)" # pan "0.2 0.8"
  # drumFrom "rolandtr909" "hh" # cut 3 # gain 0.9 # legato (range 0.05 0.9 "^32")
d9 -- Bogdan the Grime sample provider
  $ whenmod 16 12 ( -- I'm from Cardiff!
    (# "bogdan_grime:1") . (# begin "<0!3 0.25>") . (# end "<0.5!3 0.25>")
  )
  $ whenmod 16 8 ((# begin 0.66) . (# end 1)) -- Pints <3
  $ end "<~ <0.42 <0.66 1>>>"
  # "bogdan_grime:3"
  -- # n 0 # begin 0 # end 1 # cut 9 -- FIXME DEBUG
  # delay "<0 <0.7 0>>"
  # delayt "h"
  # delayfb 0
  # speed 0.92
  -- # room 0.4
  # gain 1.2
d8 $ gF1 $ gM1 -- Come on breaks!
  $ chop 8
  $ midiOn "^92" (ply 4)
  $ midiOn "^36" (loopAt 2 . (# n "<61>")) --
  $ midiOn "^56" ((# n "19") . (|* gain 1.2)) -- Pure COMEON!
  -- $ midiOn "^56" ((# n "23")) -- Raise COMEON!
  $ midiOff "^60" (mask "t(4,8)")
  $ loopAt 2
  $ "jungle_breaks:26"
  # cut 8
  # gain 0.9
d4 $ gF2 $ gMute3 -- Bassline aqualgorithmique
  $ midiOn "^81" ((# tremdp 1) . (# tremrbus 43 "<[8 4] [<4 8> <2 16>]>"))
  $ slow 2 $ note (
  -- "<0!8 0(3,8)!8> 0" + "<d4!3 a3> <fs4 e4 d4 b3>"
  "<<fs <[fs@15 e] [fs@14 cs e]>> b4>"
  -- "c g"
  - 12
  + 2
  )
  # "giorgio_syn:1"
  -- # "bassWarsaw"
  # cut 4
  # pan 0.3
  # room 0.4
  # octersubsub 0
  # crushbus 41 (range 16 3.5 "^53")
  # octersubsubbus 42 (range 0 2 "^33")
  # gain 0.7
d5 $ gM3 $ gF3 -- Marimba fondamental
  $ midiOff "^58" (mask "t(<4 <2 4>>,4) t(<3!7 5>,8)")
  $ juxBy 0.4 rev
  $ note ("<[b4 [~ d5]. [fs5@3 fs5]] [e5 fs5 e5 fs5. [d5@3 fs5]]>")
  # "marimba1"
  # att (range 0.8 0.2 "^34")
  # rel 1
  # squizbus 51 (range 0 2.5 "^54")
  -- # delay 0 # delayfb 0.8 # delayt 0.25
  # pan 0.9
  # gain 3
  # room 0.3
d10 $ gF2 $ gM3 -- Menace
 $ someCyclesBy "<1!16 1!32 0!16>" (>| note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>")
 -- Variante Adrianesque
 $ someCyclesBy "<0!16 1!32 0!16>" (>| note "<b3 ~ ~ [ c4@2 ~ . ef4 fs4 c4]>")
 -- Variante Adrianesque Folle
 $ someCyclesBy "<0!16 1!32 1!12 0!4>" (>| note "<b3 ~ [g4 a4 b4 a4 es4 a4 fs4 a4 c4] [~ ~ as4 ~]>")
 -- Variante Adrianesque Folle2
 $ someCyclesBy "<0!16 1!32 0!12 1!4>" (>| note "<[b3 ~] [as3 bs3 g3 cs4 ~ d4] [~ gs4 ~ ~] [~ ~ [as4 as4] ~]>")
 $ "90s_synatm:10"
 # room 0.3 # sz 0.8
 # gain 1
 # att 0.10
 # rel 10
 # crushbus 101 (range 16 3.5 "^14")
 # legato 2
 # cut 9
d7 $ gM2 $ gF2
  -- $ ply 2
  $ midiOn "^59" (# speed "-0.25")
  $ midiOn "^91" (struct "t*<8!3 [8 4]>")
  $ someCyclesBy "^19" (slice 4 "<<0 <1 2>>!8 <3 3 3*2 3*<4 8>>!8>")
  $ chop 16
  $ loopAt 4 $ "meth_bass:18" # cut 7 # gain 0.6
  -- # octersubsubbus 73 (range 0 8 "^19")
  -- # octersubbus 72 (range 0 4 "^35")
  -- # octerbus 71 (range 0 1.7 "^55")
  # crushbus 71 (range 16 1.7 "^55")
  # panbus 72 (range 0.2 0.8 (fast "<2!4 4!4>" sine))