(bind-func xtm_draw_tri_fill (lambda (path x1:float y1:float x2:float y2:float x3:float y3:float color:NVGcolor*) (nvgBeginPath path) (xtm_add_tri path x1 y1 x2 y2 x3 y3) (xtm_fill path color)))