(bind-func xtm_draw_circle_fill (lambda (path cx:float cy:float r:float color:NVGcolor*) (nvgBeginPath path) (xtm_add_circle path cx cy r) (xtm_fill path color)))