E b d e

once $ "dr"


-- V2: Reboot base mi tension si
do
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.15 0.85 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
let scale = getScale (scaleTable ++ [("snow", [4,6,7,9,11,12,15])])
setcps (90/60/4)
d1 $ gF $ gMute -- HEARTBEAT TODO: Allege?
  $ superimpose (# "kick:5")
  $ midiOn "^74" (ply 2)
  $ midiOff "^42" (<| "k . ~ ~ ~ <~!7 k*<1 2>> <~!3 k>")
  $ midiOn "^42"  (<| "k k k <k [<k ~> k]>")
  $ "tek_strange:1"
  # legato "e"
  # room 0.2
  # lpf 1000
  # note "<-3 <-1!3 -5>>"
  # midiG' "^78" 0 1.4
d2 $ gF $ gM $ "~ cp ~ cp" -- FIXME: Change le snare
  # gain 0.8
  # room 0.9
  # sz 0.8
  # lpf 5000
  # dry 1
  # midiG' "^79" 0 1.4
d3 $ gF $ gM -- Drums juxés - FIXME DRUMROLL <3
  $ fix (
    struct "~ t ~ t ~ t ~ t*2"
    . (# "[dr,tek_hh:0]")
    . (|* gain 0.66)
    . (# room 0.4)
  ) "juxed"
  $ fix (
    struct "~ t ~ t*2 ~ t ~ t"
    . (# "[tek_hh:0]")
    . (|* gain 0.7)
  ) "base"
  $ jux (
    ((# "juxed"))
  )
  $ "base"
  # midiG' "^80" 0 1.4
  # room 0.2
  # dry 1
d4 $ gF2  $ gMask -- BASSLINE - TODO Sometimes double hit
  $ note (scale "snow" ("<[0@7 <-2!3 1>] <[-3@7 -1]!3 -3>>")
  - 12
  )
  # "bassWarsaw"
  # midiG' "^81" 0 1.2
  # room 0.4 # sz 0.8 # dry 1
  # lpf 3000
d5 $ gF2 -- MadKeys - Todo allege?
  $ midiOn ("^58") (off "e" id)
  $ note (-24 + scale "snow" ("[0(3,8)]*4" +  ("[0 1 2 3]" + "4 4 4 <3 4>")
  -- + "<0!4 4!4>"
  ))
  # "FMRhodes1"
  -- # hpf 500
  # modIndex (range 0 12 "^34")
  # crushbus 51 (range 16 4 "^54")
  # legato 0.5
  # midiG' "^82" 0 1.5
d6 $ gF $ gM -- Break salvateur
  -- $ chop 4
  $ midiOff "^20" (mask "<f!32 t!32>")
  $ slice 4 "<[<0 2>]!8 [<0 2> <1 3>]!8 [0 1 <2!3 0> <3!3 1*<1 2>>]!8 [0 1 2 3 [0 1] [1 2] [2 3] [2 3]]!8>"
  $ loopAt 1
  $ "breaks165"
  # cut 6
  # pan 0.2
  # octersub 0.8
  # octersubsub 0.9
  # lpf 4000
  # midiG' "^84" 0 1.5
d8  -- TODO Finir Choeurs glitchés
  $ slice 8 (run "<4 4 8 16>")
  $ "voice/2"
  -- # "voices_balkan:2"
  # "voices_celtic" # n "<2 3>"
  # pan 0.8
  # midiG' "^83" 0 1
  # cut 8
d9
  $ note (scale "snow" ("0 1 2 3 0 1 2 3" + "0 <0!3 3>"))
  # "moogBass" # legato 0.2
  # midiG' "^83" 0 1






-- V1: Yay, voices


do
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMutePont = (mask "<t!14 f [t f!3]>")
let gM = gMask . gMute . gMutePont
setcps (100/60/4)
d1 $ gMute
  $ gF
  $ midiOn "^42" (
    superimpose (const
    $ "<[k k k <k!3 [~ k]>]!64 [[k . k(<3!3 <5 [5 8]>>,8)],[~ . k(<0 1 3 1>,8,4)]]!64>"
    # "jazz:0" # room 0
    # midiG' "^78" 0 1.6
    )
  )
  $ "<k ~> . ~!3 <~ k>"
  # n "[6,7,20]"
  # room 0
  # "808bd"
  # midiG' "^78" 0 1.4
d2 $ gMute $ gF -- Snare n.r.v.
  $ "<[~ s]!8 [~ s ~ s]!8>"
  # "snare:70"
  # octer    0.8
  # octersub 4.2
  # pan 0.6
  # midiG' "^79" 0 1.4
d3 $ gF $ gM
  $ midiOn "^44" (fast "2 <2 <4 [4 8 4 16]>>")
  $ midiOn "^76" (fast "2 <2 <4 [4 8 4 16]>>")
  $ "dr dr dr dr"
  # "[dr,drum:2]"
  # hpf 500
  # midiG' "^80" 0 1.4
d5 $ gF $ gM -- Break nuageux
  $ chop 16
  $ loopAt 1
  $ "breaks165"
  # lpf 3000
  # cut 5
  # midiG' ("^80" * "^52") 0 1.4
d4 $ gF2 -- BassLine
  $ superimpose ( -- ELECTRICITY
    (# cut 41) .
    (# crushbus 41 (range 16 4 "^53"))
    . (# legato 4) . (# room 4)
    . (|* gain 0.8)
    . (# panbus 42 (range "<0.5!3 0.9>" "<0.9!3 0.5>" saw))
  )
  $ note ("<e [~!7 <d d g a>]>" - 24)
  # "bassWarsaw"
  # legato 1
  # cut 4
  # room 0.4
  # dry 0.9
  # sz 0.8
  # midiG' "^81" 0 1.4
d6 $ gF2 -- Heyah!
  $ whenmod 4 3 (mask "t . t f")
  $ slice 4 "0 0 1 [3 ~]"
  $ chop 4
  $ "voices_persian:2/2"
  # speed 0.8
  # octersubsubbus 61 (range 0 2.4 "^56")
  # cut 6
  # midiG' "^84" 0 1
d10 -- READY FOR THIS MAN?
  $ mask "<f!14 t <f t>>"
  $ someCyclesBy "<f!32 t!32>" (ply "<1 2>" . (slice 5 0))
  $ someCyclesBy "<f!16 t!16 f!32>" (slice 3 1)
  $ "voices_reggae:7" # cut 9
  # midiG' "^83" 0 1



-- TOO GOSPEL?
d5 -- Chorus 1
  $ whenmod 64 48 (-- MYMYMY
    -- (ply "<1!4 2 [2 4] [2 8 4] [8 4 16]>") .
    (# n "<5 6 7 8 5 6 5 6 7 8 7 8 9 10 9 10>")
    -- . (superimpose ((# cut 51) . (# crush 4)))
    )
  $ n "<0!4 0 1 2 3>"
  # "g_gospel3"
  # cut 5
  # pan 0.13
  # room 0.4
  # dry 1
  # midiG' "^83" 0 1
d6 -- Chorus 2
  $ slice 3 "<0!4 1!4>"
  $ "g_gospel3:23"
  # room 0.58
  # dry 1
  # legato 2
  # hpf 600
  # pan 0.8
  # midiG' "^84" 0 0.9