fromMusicModifyContext :: (Ord note, C time, RealFrac time, Fractional dyn, Ord dyn) => (T time dyn note -> T time dyn note) -> T note -> T time dyn note
paddedFromMusicModifyContext :: (Ord note, C time, RealFrac time, Fractional dyn, Ord dyn) => (T time dyn note -> T time dyn note) -> T note -> T time dyn note