;; this image stuff assumes VG_lARGB_8888 image format (bind-func xtm_create_vgimage (lambda (width height) (vgCreateImage VG_lARGB_8888 width height VG_IMAGE_QUALITY_BETTER)))