-- CoolDown piano Guitare :)

do
setcps (80/60/4)
solo 1
solo 2
unsolo 3
unsolo 4
d1
  $ mask "<f!8 t!10 f!4>"
  $ "k(<5!3 10>,16)"
  # "[stomp:1,reverbkick,kick:5]"
  # hpf 50 # lpf 12000 # gain 0.9
d2
  $ whenmod 16 8 ( -- Solo guitare echo /4
    fast "<2!4 1!4>")
  $ splice 8 "0 1 2 3*<1!3 2>"
  $ "fbonus" # gain 0.95
d3
  $ whenmod 16 8 ( -- Solo guitare echo /4
    |* gain "<0.8 0.7!2 0.8 1!4>")
  $ slice 8 (
    (cat [
      "0 1 2 3", "4 5 6 7",
      "0 1 2 3", "4 6 5 7",
      "0 1 . 2(3,8)", "4 5*2 5*2 7",
      "7 1 2 3", "4 6 5 0",
      "0*<1 2> 1 <2 3> 3", "<4 5> <5 4> 6 7"
    ])
  )
  $ "fpiano:8"
  # cut 2
  # gain 0.8
d4
  $ whenmod 128 64 (rev . chop 8)
  $ whenmod 16 8 ( -- Solo guitare echo /4
    # room "<0.8!4 0!4>"
    )
  $ bite 8 "0*<1 4 2 1 4 1 4 1 4 4 1 1>"
  $ "fguitar:8"
  # gain 0.7
  # cut 4