-- 1. Choeurs
-- 2. 10 + d3
-- 3. Beat1
-- 4. Snare
-- 5. Drop your number
-- 6. Drop the breaks
-- 7. Mask the breaks!
-- 8. Drop the bass
-- 9. Enjoy the vibe
-- 10. Drop second kick
-- 11. AirDrop the choir
-- 12. Bring back breaks
-- 13. Bring back bass!
-- 14. Drop d7 scatman
-- 15. Hide him as choir leave
-- 16. Drop d11 and d12 scatters
-- 17. Enjoy the vibe
-- 18. Drop the bass friends
-- 19. Slice the Number
-- 20. Combine that with Drums funsies
-- 21. Mask the Number until next choir
-- 22. Hold choir
-- 22. kill scats
-- 23. Fade out on choir

 
 

do
-- resetCycles
setcps (99/60/4)
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
d1 $ gF1 $ gM2
  -- $ midiOn "^42"  (<| "k*<1!12 2 1 1 2> <~!4 [~ k]!4> . ~ k ~ <~ k>")
  $ midiOn "^42"  (<| "k k k k*<1 2>")
  $ midiOff "^42" (<| "k . ~ k ~ ~")
  $ "[808bd:4,808bd:2]"
  # gain 1.51
  # lpf 2000
  -- # cps ((range (99 - 20) (99 + 20) "^29") / 60/ 4) -- TODO CPS MAGIC??
d2 $ gF1 $ gM1
  $ whenmod 8 15 (# silence)
  $ midiOn "^42" (# "vec1_snare:21")
  $ "~ s [~!3 <~ s>] s*<1!7 2>"
  # lpf 5000
  # octersub 0.6
  # "[snare:40,snare:421,bssnare:2]"
  # gain "1 1 0.93 1"
d3 $ gF1 $ gM1
  $ whenmod 8 15 (mask "t t t f")
  $ midiOn "^44" (struct "t*8")
  $ "hh*[8 <16!6 8!2> <8!7 16>]"
  # "h2ogmhh:3" # cut 3 # gain (1 * "1 1 0.9 1 0.9 0.85 0.9 1")
  # pan "^18"
d4 $ gF2 $ gM3
  $ whenmod 64 48 ((2/8) <~) -- Calage chants TODO KEEPSYNC1
  $ midiOn "^34" ((2/8) <~) -- Calage chants
  $ midiOn "^89" (struct "t(12,16)"
    -- . (# legato 0.4)
    )
  $ midiOn "^57" (off "e" -- Coeur battant extrait de la basse
  (
    (|+| note "0 [12 7 12] 0 <[12 0 12]!3 12>")
  -- . (# crush 16)
  . (# pan 0.7)
  . (|* gain 0.85)
  . (# cut 41)
  ))
  $ note "[<df4!2 cs4 g4>@2 <b3 e4!2 fs4>@2 <a3!2 fs4 e4>@5]/2"
  -- TODO Continue :)
  # "moog:1"
  # "bassWarsaw" |- note 12
  # cut 4
  # att 0.08
  # rel 2
  # gain 1.6
  # pan 0.4
  # crushbus 41 (range 16 5 "^53")
  # octersubbus 42 (range 0 0.8 "^33")
d5 $ gF3 $ gM3 -- Donne moi ton Private Number <3 FIXME Decalage?
  $ fix ((# rel 2) . (# legato 1)) (n 2)
  $ midiOn "^34" (# n 2) -- Force chants
  $ midiOn "^73" (# lpfbus 55 1200) -- Mask drums in sample
  $ someCyclesBy "^90" (off "e" (mask "<t!6 f f>"))
  $ someCyclesBy ("^58" - "^34") (mask "t(<4 [<4!3 [4 8]> 8]>,8)" . fix (chop 4) (n "[0,1]"))
  $ chop 8
  $ fix (0.375 <~) (n 0)
  -- $ whenmod 8 6 (|* gain (slow 2 $ range 0.9 0.6 saw))
  $ "private_number/2"
  # n "<0!32 1!16 2!16>" -- TODO KEEPSYNC1
  # cut 5
  # sz 0.8
  # room 0.4
  # sz 0.65
  -- # legato "<0.9!7 0.5>"
  # gain 1.2
  # att 0.15 
  # rel 2
d7 $ gF3 $ gM3
  $ stack [
  n "<<~ 22> ~ <21 24 24 33> ~>"
  # "vocalScatAr", -- Happy Bro
  -- "<vocalScatAr:22>", -- Happy Bro
  ""
  ]
  # pan 0.4
  # room 0.3
  # gain 1.2
d8 $ gF1 $ gM1
  $ midiOn "^92" ( -- 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 ("^60" + "^92") (mask "t(<4!3 <6 [4 <8 16>]>>,8,1)") -- TECHNOO
  $ chop 16
  $ midiOn "^56" (chop 2 . (loopAt 1) . (# "break:3") . (|* gain 0.9)) --
  $ loopAt 2
  $ "jungle_breaks:45"
  # cut 8
  # att 0.04
  # rel 2
  # gain 1.2
  # hpf 1200
d9 $ gF3 $ gM3 -- Choeurs amoureux
  $ (0.25 <~)
  $ slow 2
  $ "[<vocalOoh1:0!3 <vocalOoh2:16 vocalOoh2:18>> vocalOoh1:6@7]"
  -- # "vocalOoh1"
  # cut 9
  # note 1
  # room 0.3
  # legato 4
  # lpfbus 91 (range 800 20 "^82") -- Mute with Number
  # gain (1 - "^82")
d11 $ gF3 $ gM3 -- Monsieur scat
  $ n "<10 9 10 9 9!4>"
  # "vocalScatAr"
  # cut 11
  # pan 0.8
  # end "<0!7 0.4>"
  # room 0.5 # gain 1.3
d12 $ gF3 $ gM3 -- Madame Scat
  $ fix (|* gain 1.1) (n 85)
  $ n "~ <~!3 <89 89 [<~ 85> 85*<1 2>]!2>>"
  # "vocalScatJ"
  # cut 11
  # pan 0.2
  # room 0.3
  -- # delay 0.5 # delayfb 0.8 # delayt 0.125
  # gain 1
d10 $ gMask -- Cymbal "Riser"
  -- $ "<~ [~!7 c*2] [~ <~ c@3>] ~>"
  $ "<~ ~ [~!7 c*2] [~ c@7]>"
  # "rampleS13:6"
  # room 0.4 # delay 0.5 # delayt 0.25 # delayfb 0.8
  # gain 0.5
  # cut 10
