p = irit.poly(l, irit.FALSE)
irit.color(p, irit.RED)
irit.adwidth(p, 5)
ch = irit.cnvxhull(p, 0)
irit.color(ch, irit.GREEN)
irit.adwidth(ch, 2)
irit.interact(irit.list(ch, p))
irit.save("ffcnvhl2", irit.list(p, ch))
#
# Tangents to curve through a point.
#
irit.viewclear()
p = (0, 1, 0)
t1c0 = irit.crvpttan(c0, p, 0.01)
i = 1
while (i <= irit.SizeOf(t1c0)):
irit.viewobj(
irit.ceval(c0, irit.FetchRealObject(irit.nth(t1c0, i))) +
irit.coerce(irit.point(p[0], p[1], p[2]), irit.E3))
i = i + 1
irit.viewobj(irit.list(p, c0))
irit.pause()
irit.viewclear()
p = (1, 1, 0)
t1c1 = irit.crvpttan(c1, p, 0.01)
i = 1
def interact( none ):
irit.viewclear( )