(bind-func xtm_vgimage_translated (lambda (tx ty) (vgSeti VG_MATRIX_MODE VG_MATRIX_IMAGE_USER_TO_SURFACE) (vgTranslate (dtof tx) (dtof ty))))