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