(bind-func xtm_point_along_path
(lambda (path distance point:xpoint*)
(let ((ptf:VGfloat* (salloc 2)))
(vgPointAlongPath path
0 1 ;; just use segment 0
distance
(pref-ptr ptf 0)
(pref-ptr ptf 1)
null null) ;; don't calculate tangent
(tset! point 0 (pref ptf 0))
(tset! point 1 (pref ptf 1))
void)))