(bind-func xtm_add_quadd (lambda (path x1 y1 x2 y2 x3 y3 x4 y4) (let ((points:double* (salloc 8))) (pfill! points x1 y1 x2 y2 x3 y3 x4 y4) (xtm_add_polyd path points 4 VG_TRUE))))