pop
func 1 <make-tor
scale=.3
cyl=.5
ncur=2
nseg=3
colour 0 orange

d-torus=5
tor 7 10 102

wave torus

back=0
sbuff
disp
gflush

ppm torus 5




