(bind-func xtm_draw_round_rect (lambda (x y w h arcw arch) (let ((path (xtm_create_path)) (vgu_err (vguRoundRect path x y w h arcw arch))) (if (= vgu_err VGU_NO_ERROR) (xtm_draw_path path)) void)))