(bind-func xtm_add_lined (lambda (path x1 y1 x2 y2) (vguLine path (dtof x1) (dtof y1) (dtof x2) (dtof y2))))