(bind-func xtm_add_ellipsed (lambda (path cx cy w h) (vguEllipse path (dtof cx) (dtof cy) (dtof w) (dtof h))))