-- Funky rythmic piano instru
-- TODO: Coordinate masks

do
  setcps (80/60/4)
  d1 -- Hip beat
    $ whenmod 8 6 (mask "f(<5 [5 3]>,8)")
    $ "k*<1 [1|2]> . k(<3 5>,8)"
    # "[jazz,reverbkick]"
    # gain 0.9
    # lpf 500
  d2 -- Snares en laisse
    $ mask "<f!4 [t f]!2 [f t] t(3,8) t!10>"
    -- $ whenmod 8 6 (mask "f(<5 [5 3]>,8)")
    $ juxBy (range 0.25 0.5 perlin) rev
    $ sometimesBy "0 0.5" (ply 2 . (# note (-2)))
    $ whenmod 32 8 ( -- RUSH
      ply "<<1!3 <0 [0 1]>>!2 4 [2 <4!3 8>]>")
    $ "~ s"
    # "snare"
    # n "[31,23]"
    # note ("<0!4 -2 -4 -8 -12>")
    # gain (range 0.8 0.7 perlin)
  d3 -- Roll constant
    $ mask "t(<1!4 2 4 8 16 8 16 [8 16]!2 16!2>,16)"
    $ juxBy 0.6 rev
    $ fast "8 16"
    $ "drum:8"
    # gain 1.15
  d4
    $ whenmod 32 28 (# silence)
    $ slow 2
    $ slice 8 (
      cat [
      -- "0 1 2 3", "0 1 2*2 2*2",
      -- "0(5,8)", "0(3,8) . 1 0", "[0(7,8), 1(1,8,7)]",
      "0 1 2 3 2 3 1 1",
      "0 1 2 3 2 3 1*2 <[1 2]!3 [2*2 3]>",
      "<1 [0 1]> <2 [2 3]> . 4 5 6 7",
      "2*4 . 4 5 6 7*2"
      ]
    )
    $ "fbass:10"
    # gain "<1!28 0.95!4 0.9!24 0.95!4 1!4>" * 1.2
    # crush ("<16!28 14 10 8 6 5!24 6 8 10 12!4>")
    # cut 4
  d5 -- Guitars!
    $ mask ("<t!32 f!16 t!16>")
    -- $ const () TODO!
    $ slice 4 (
      cat [
      "0","1","2","3",
      "0 1", "1 2", "2 3", "3 3"]
    )
    $ "fguitar:8"
    # gain 0.7
    # cut 5
  d7 -- Piano conclusif!
    $ mask "<f!16 [t f!15]!4 [t f!7]!4 [t f!3]!4 t!3 [t f]>"
    $ whenmod 6 4 (superimpose (
        (# note 12) . (# cut 71)
    ))
    $ whenmod 8 4 (slice 4 ("0(3,8) <1 2 0 [3 0]>"))
    $ always (swing 4 . slice 4 "0 1 2 3")
    $ every' 8 3 (# silence)
    $ every' 8 2 (# silence)
    $ s "fpiano:11"
    # gain (slow 8 $ range 0.8 1.1 saw)
    # pan 0.25
    # cut 7