(bind-func xtm_add_quad (lambda (path x1:float y1:float cx:float cy:float x2:float y2:float) (nvgMoveTo path x1 y1) (nvgQuadTo path cx cy x2 y2)))