(bind-func xtm_draw_quad_fill (lambda (path x1:float y1:float cx:float cy:float x2:float y2:float color:NVGcolor*) (nvgBeginPath path) (xtm_add_quad path x1 y1 cx cy x2 y2) (xtm_fill path color)))