resetCycles

do
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 (140/60/4)
-- d1 $ gF1 $ gM2
d1 $ gF1 $ gMute2
  $ midiOff "^42"  (<| "<k [~!7 k*<1 2>]>")
  $ midiOn "^42" (<| "k . ~ k*<1 2> ~ <~ k k <~ k*4>>")
  $ "[kick:5,clubkick]"
  # room 0.2 # dry 1.1
  # cut 1
  # gain 1.5
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")) -- 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
  $ 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
  $ 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 -- Menace
 $ note "<b3 ~ ~ <[~!7 c4] [~!5 c4 ef4 <c4 fs4>]>>"
 # "90s_synatm:10"
 # room 0.3 # sz 0.8
 # gain 1
 # att 0.10
 # rel 10
 # 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))


once $ "bogdan_grime:1" # cut 9







90s_matrix:0

d8 $ "jungle_breaks"