import Sound.Tidal.ParVagues.Control

linput = pI "linput"
lname = pS "lname"

once $ qtrigger 1 $ "looper" # n "<0 1 2 3>" # lname "mojo"


do
setcps (122/60/4)
d1 $ "jazz*4" # gain 0.9

-- Hello Parov!
d10 $ "mojo:5"
  # gain 1.8


-- Hello Rhodes
do
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
setcps (120/60/4)
d1
  $ g
  $ midiOn "^41" (<| "k*4")
  $ midiOff "^41" (<| "k <k!7 [~ k]>")
  $ "jazz"
  # midiG "^78"
d2 $ g
  $ "~ cp"
  # midiG "^79"
d3 $ g
  $ fast ( -- cycle/4 ralenti-accelere
    slow 4 $ "<1 [0.5 2] [2 0.5 1 2] [1 0.5 2]>"
    )
  $ s "dr*8"
  # s "ifdrums:1"
  # pan 0.4
  # midiG' "^80" 0 1.1
d4 $ g -- bassine
  $ whenmod 16 8 (slice 16 (run 8))
  $ "loop" # n "<0!4 1!4>"
  # midiG' "^81" 0 0.8
  # pan 0.2
  # crushbus 41 (range 10 1.5 "^53")
d5 $ g -- Looped Rhodes
  $ "loop" # n "<3!3 4 3 4 4 5>"
  # pan 0.8
  # midiG' "^82" 0 1
  # pan 0.75
  # ampbus 101 (range 0.5 1.5 "^54")
  # room 0.6 # dry 0.8
d6 $ g --
  $ "hello"
  # n "<0 1 2 3>"
  # midiG' "^82" 0 0.8
  # pan 0.65
  # ampbus 101 (range 0.5 1.5 "^34")

d2 $ s "looper" # n "<0 1 2 3 4 5 6 7>"