(bind-func xtm_draw_rect_fill (lambda (path x:float y:float w:float h:float paint:NVGpaint*) (nvgBeginPath path) (xtm_add_rect path x y w h) (xtm_fill path paint)))