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