-- 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