#-----------------------------------------------------------------
#
#    test the added stuff for surfaces
#
#-----------------------------------------------------------------

# the sphere

sphere = surface{[sqrt(1.0-x*x-y*y)][x=-1.0:1.0]
		   [y=-sqrt(1-x*x): sqrt(1-x*x)] [samp=40:40]};
sphere1 = surface{[-sqrt(1.0-x*x-y*y)][x=-1.0:1.0]
		   [y=-sqrt(1-x*x): sqrt(1-x*x)] [samp=40:40][orien = -1]};
sphere2 = surface{[-sqrt(1.0-x*x-y*y)][y=-1.0:1.0]
		   [x=-sqrt(1-y*y): sqrt(1-y*y)] [samp=40:40]};

plot sphere sphere1
#-----------------------------------------------------------------
