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

orusX(x) = cos(4*x) * (10.0 + 7.0 * cos(3*x))
orusY(x) = sin(4*x) * (10.0 + 7.0 * cos(3*x))	
orusZ(x) = 7.0*sin(3*x)

tbe = tube{[orusX(x),orusY(x),orusZ(x)]
	[x= -pi:pi][samp=500:12]};

c =  curve{[orusX(x),orusY(x),orusZ(x)]
	[x= -pi:pi][samp=5000]};
#---------------------------------------------------------------
plot c;
#---------------------------------------------------------------

