(bind-func xtm_add_trid (lambda (path x1 y1 x2 y2 x3 y3) (let ((points:double* (salloc 6))) (pfill! points x1 y1 x2 y2 x3 y3) (xtm_add_polyd path points 3 VG_TRUE))))