(bind-func xtm_add_round_rect (lambda (path x y w h arcw arch) (vguRoundRect path x y w h arcw arch)))