(bind-func xtm_vg_clear (lambda (w h clear_color:xtm_color*) (xtm_vg_clear_rect 0 0 w h clear_color)))