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