(bind-func xtm_add_polyd
(lambda (path points:double* npoints closed)
(let ((pointsf:VGfloat* (salloc (* 2 npoints)))
(i 0))
(dotimes (i (* 2 npoints))
(pset! pointsf i (dtof (pref points i))))
(vguPolygon path pointsf (i64toi32 npoints) closed))))