(bind-func xtm_draw_quadd (lambda (x1 y1 x2 y2 x3 y3 x4 y4) (let ((path (xtm_create_path)) (vgu_err (xtm_add_quadd path x1 y1 x2 y2 x3 y3 x4 y4))) (if (= vgu_err VGU_NO_ERROR) (xtm_draw_path path)) void)))