(bind-func xtm_point_along_path_norm
"normalised version: 0.0 <= distance <= 1.0"
(lambda (path distance point)
(let ((len (xtm_path_length path 0 1)))
(if (> len 0.0)
(begin
(xtm_point_along_path path distance point)
(tset! point 0 (/ (tref point 0) len))
(tset! point 1 (/ (tref point 1) len))
void)
(begin (printf "Error: path length <= 0.0\n")
void))
void)))