-- Parov : Psychedelic jazz
-- Piano: Si do re mi
do
  setcps 0.46
  d1 $ s "tech:5*4" # note (-4)
  d2 $ s "[~ hh ~ <hh [hh ~ hh]>]*2"
    # gain 0.9
  d4
    $ superimpose (
      const
      $ fix (# silence) (note "0") -- MUTE DEFAULT
      $ "t([<12!4 3!4> <6!3 <8 16>>],16)"
      >| (segment 16 $ note "^note")
      # "superpiano"
      # (velocity (range 0.4 0.7 "^1"))
      # (crush (range 32 5 "^1"))
    )
    $ s "superpiano"a
    # note "<-20 [-19,-15] [-20,-16] ~>"
    # velocity "<0.7 0.5 0.6>"
    # sustain 3
    # gain 0.9

    d4
      $ superimpose (>| note ("^note" + "0 0"))
      $ s "superpiano"
      # velocity "<0.7 0.5 0.6>"
      # sustain 3
      # gain 0.9