(bind-func xtm_add_tri (lambda (path x1 y1 x2 y2 x3 y3) (let ((points:VGfloat* (salloc 6))) (pfill! points x1 y1 x2 y2 x3 y3) (vguPolygon path points 3 VG_TRUE))))