import Sound.Tidal.ParVagues.Control

resetCycles

do
setcps (80/60/4)
let g = (# djfbus 1 (range 0.02 1 "^49"))
d1
  $ g
  $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
  # "hh27:5"
  # cut 1
  # midiG' "^78" 0 0.8
d2
  $ g
  -- $ mask "<f!16 t!16>"
  $ whenmod 16 12 (fast "<2 [4 2] 2 [4 . 8 2]>")
  $ "~ cp"
  # "hh27:2"
  # release 0.57
  # note "-5"
  # midiG' "^79" 0 0.8
d3 $ g
  $ sometimesBy "0 1 0 0" (ply "<16 8>")
  $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
  # "hh27:3"
  # release 0.8
  # cut 3
  # gain 0.5
  # midiG' "^80" 0 0.8
d4 -- BASSLINE Résolue
  $ g
  $ mask "<f!4 [t f]!4 t!24>"
  $ ply "1 <1!4 2 2 [2 4] [8 4]>"
  $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
  $ "fbass:43"
  # midiG' "^81" 0 0.8
  # cut 4
  # pan 0.2
  # room 0.2 # dry 0.99 # sz 0.7
d10
  $ g
  $ note (
    "<c!3 d>(<3 3 2 5>,8)" -- Rythme
    + "[0,12]" -- Epaisseur
    - 36 -- Gamme baseline
  )
  # "supersaw"
  # legato 2
  # room 0.7
  # sz 0.8
  # pan 0.24
  # voice 0.03
  # midiG' "^82" 0 0.5
d5 -- Guitare Ressort
  $ mask "<f!8 t!24>"
  $ someCyclesBy "<t!16 f!16>" -- degrade
    (mask "f t" . (|* gain (slow 16 $ range 0.5 1 saw)))
  $ slice 8 (cat [
    "0 . <~ 4> <~!3 6>",
    "0 . ~ 0*<1 <2 4>>",
    "~ . 0 <3 [6 7]>",
    (iter 4 $ "0 1*<1 2 4> <2 3> <3 2> . 4 5 6 7")
    ])
  $ "fguitar:43"
  # room 0.1
  # dry 0.99
  # cut 5
  # pan 0.8
  # midiG' "^83" 0 0.8
d6  -- Sliced Electropiano
  $ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo!
  $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>"))
  $ someCyclesBy "<0!16 1!8 0!8>" (slice 16 "<2*2 [0 2 2 2] 2*[8 . 16 4] [3 2 3 2] [3 2 1 0] [4 5 6 5] [3 2 6 7] [4 5 6 7]>")
  $ someCyclesBy "<1!16 0!16>" (slice 16 "<0 1 0 1 [0 1] [0 1] [0 . ~ 1] [0 0 0 1]>")
  $ "fepiano:26"
  # pan 0.3
  # gain 0.47
  # midiG' "^84" 0 0.8
  # cut 6


once $ "fepiano:26"
  # gain 0.47
  # cut 7


once $ "hh27:1" -- Ho lo
once $ "hh27:10" -- Ho hi soft

once $ "hh27:2" -- Maracas fermées
once $ "hh27:9" -- Maracas fermées lo

once $ "hh27:3" -- Maracas ouvertes / balai
once $ "hh27:8" -- Same plus aigu

once $ "hh27:4" -- Clochettes

once $ "hh27:5" -- Kick neige
once $ "hh27:6" -- Kick sec

once $ "hh27:12" -- Snare lo
once $ "hh27:11" -- Snare hi