(bind-func draw_seg (lambda (shape) (let ((a (cpSegmentShapeGetA shape)) (b (cpSegmentShapeGetB shape))) (nvgMoveTo vg (convert (tref a 0)) (convert (tref a 1))) (nvgLineTo vg (convert (tref b 0)) (convert (tref b 1))))))