(bind-func xtm_draw_quad_fill (lambda (path x1:i64 y1:i64 cx:i64 cy:i64 x2:i64 y2:i64 paint:NVGpaint*) (nvgBeginPath path) (xtm_add_quad path x1 y1 cx cy x2 y2) (xtm_fill path paint)))