(bind-func xtm_path_sheard (lambda (shx shy) (vgSeti VG_MATRIX_MODE VG_MATRIX_PATH_USER_TO_SURFACE) (vgShear (dtof shx) (dtof shy))))