#---------------------------------------------------------------
#
#      Sample code
#                ----------- The torus
#
#---------------------------------------------------------------

TorusX(x,y) = cos(y) * (10.0 + 6.0 * cos(x))
TorusY(x,y) = sin(y) * (10.0 + 6.0 * cos(x))	
TorusZ(x,y) = -6.0*sin(x)

torus = surf{[TorusX(x,y),TorusY(x,y),TorusZ(x,y)]
	[x= -pi:pi][y= -pi:pi][samp=30:60]};

#---------------------------------------------------------------
plot torus;
#---------------------------------------------------------------

