(bind-func xtm_vg_clear_rect (lambda (x y w h clear_color:xtm_color*) (vgSetfv VG_CLEAR_COLOR 4 (cast clear_color VGfloat*)) (vgClear x y w h)))