import Sound.Tidal.ParVagues.Control

-- Gauche si+mi/sol+re/la+fa/si+sol
-- Droite whatever autour ;)

once $ "macron:1" # gain 1.3 # cut 1

resetCycles

do
setcps (60/60/4)
let mel = "<e3 [g3 <a3 f3>] e3 b3>"
let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
let g = (gDJF)
d1 $ g -- BEAT
  $ fast 2
  $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
  $ midiOff "^41" (<| "k . ~ k ~ ~ ")
  $ "[reverbkick,hh27:6]"
  # release "<0.7!3 1>"
  # midiG' "^78" 0 1.7
d3 $ g -- Snare contretemps rushé
  $ midiOn "^43" (fast 2)
   $ mask "t(16,32)"
   $ whenmod 4 3 (ply "2 4")
   $ fast "<1!4 2!10 4 [4 8]>"
   $ "~ snare"
   # room 0.2
   # dry 1
   # speed (range 0.5 1.5 "^52")
   # n "[11,25]"
   # midiG' "^79" 0 1.4
d2 $ g -- BREAK
  $ midiOn "^44" (sometimesBy "0 1!7" rev)
  $ midiOn "^76" (ply 4)
  $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
  $ slice 8 (
    fast "<8 [8 16] 8 [16 <8 4>]>"
    -- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>"
    "<0 2 0 7 5 5 0 7>"
    )
  $ loopAt 2
  $ "break:3"
  # speed (range 0 2 "^51")
  # midiG' "^80" 0 1.5
  # cut 2
d7 $ g -- Hello PWM!
  $ (|* gain "<1!15 0.8>")
  $ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
  $ midiOn "^89" (superimpose $ segment 16)
  $ note (mel - 12)
  # "superpwm"
  # semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
  # accelerate "<0!7 <6 12>>"
  # rate "<1!5 2 4 <1 4>>"
  # resonance (slow 32 $ range 0.2 0.6 sine)
  # crushbus 71 (range 10 3 "^53")
  # midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes
  $ note (
    prog
    + "0 12"
    - 12
  )
  # "FMRhodes1"
  # pan 0.7
  # room 0.5
  # modIndex (range 0 100 "^54")
  # crushbus 61 (range 16 4.85 "^34")
  # midiG' "^82" 0 1.5
d9 $ g
  $ midiOff "^60" (mask "<f!8 t!124>")
  $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
  $ midiOff "^92" (<| "~ c")
  $ "clap"
  # speed (range 0.5 1.5 "^56")
  # midiG' "^84" 0 1.7