setcps (120/60/4)

resetCycles

do
let bogLike = "bogdan:19" # cut 21
let bogStuff = "bogdan:20" # cut 21
let scope a b = (# begin a) . (# end b)
let bogItsLike = scope 0.1 0.155 $ bogLike # att 0 # rel 0.6 -- It's like
let bogItsDis =  scope 0.1 0.275 $ bogLike # att 0 # rel 3 -- It's like so disappointing
let bogRealize = scope 0.282 0.35 $ bogLike # rel 0.7 -- To realize...
let bogMuchPeople = scope 0.34 0.52 $ bogLike -- There's so much people on the market
let bogMuchProperly = scope 0.34 0.902 $ bogLike # att 0 # rel 10 -- There's so much people [...] work properly
let bogProperly = scope 0.8 0.9 $ bogLike # att 0 # rel 2 -- Properly
let bogMan = scope 0.9 1 $ bogLike -- Man!
let bogSimpleStuff = scope "<0 0.74 0 0>" "<0.74 1>" $ bogStuff -- This is simple stuff!
once $ scope 0.8 1 $ bogLike # att 0 # rel 2.5 -- Properly Man!
d10
  $ someCyclesBy "<f!16 t!8 f!8>" ((# bogSimpleStuff))
  $ slow 2 $ "~ b" # cat [
  bogItsLike, cat [bogRealize, bogItsLike], bogItsLike, bogItsDis,
  bogMan, (cat [bogMan, bogProperly]), bogMan, bogMuchPeople]
  # room 0.4
  # pan 0.8
-- once $ bogRealize
d1
  $ mask "<f!7 [f!3 t] t!8>"
  $ "jazz*4"
  # lpf 1000
  # att 0
  # rel 0.8
  # room 0.1
  # gain 0.9
d2 -- Heavy snare
  $ mask "<f!4 t!12>"
  $ whenmod 8 6 (slow 2)
  $ whenmod 4 3 (ply "<1 2> <2!3 4>")
  $ fast 2
  $ "~ [cp,snare:18,sn:24]"
  # lpf (slow 4 $ range 1000 2500 saw)
  # gain 0.8
d3
  $ mask "<f!4 t!12>"
  $ "d*[8 <12 <[16 8] 16>>]" # "drum:2"
  # gain 0.8
  # hpf 3000
  # pan 0.6
d4 -- Bassline échaffaudage
  $ whenmod 16 12 (# crushbus 4 (slow 4 $ range 10 5 saw))
  $ slice 4 "<0!4 0*2!4 [0 1]!4 [1 0]!4 [0 1 2 1]!4 [0 1 0 3]!4 [0 1 2 3]!4 [0 1 2 3*4]!4>"
  $ loopAt 2
  $ "fbass:20"
  # cut 4
  # gain 0.8
  # pan 0.2
d5
  $ whenmod 32 16 (superimpose (
    (|+| note ("12 24*<1!4 2 4 4 4>" + "0(<3!3 5>,8)"))
    . (# cut 51)
    . (|* gain 0.8)
  ))
  $ note "<e a4 [e@3 [c d]] a4>"
  # "moog" # gain 0.4
  # cut 5
d6 -- BOWS
  $ whenmod 32 24 (superimpose (("h" ~>)
  . (# n 2)
  . (# cut 61)
  . (|* gain 0.8)
  ))
  $ note "<e a4 [e@3 [c d]] a4>"
  # "cbow" # gain 0.45
  # cut 6

-- TODO: Add "More like us before the end!"
once $ "bogdan:22" # cut 21 # gain 1.2


once $ "bogdan:19" # cut 21 # begin 0.1 # end 0.155


# end 0.282
