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