Re: help w/ SphericalPlot3D

*To*: mathgroup at christensen.cybernetics.net*Subject*: [mg897] Re: [mg825] help w/ SphericalPlot3D*From*: Allan Hayes <hay%haystack at christensen.cybernetics.net>*Date*: Fri, 28 Apr 1995 00:54:58 -0400

Damion Thomas Searls [mg825] help w/ SphericalPlot3D writes >I'm trying to make a spherical plot but w/ no edges drawn on the >polygons (I'm looking for a similar effect to the one from making >surface plots w/ Mesh -> False) I've tride giving the directive >EdgeForm[Thickness[0]] to the list of polygons but that only gives >me the default thickness. Is there something simple I'm missing? This and much more is provided for: In[1]:= Needs["Graphics`ParametricPlot3D`"] In[2]:= ?SphericalPlot3D SphericalPlot3D[r, {theta, thetamin, thetamax}, {phi, phimin, phimax}, (options)] plots r as a function of the angles theta and phi. SphericalPlot3D[{r, style}, ...] uses style to render each surface patch. In[3]:= SphericalPlot3D[{1,EdgeForm[]}, {t,0,Pi/2},{p,0,2Pi}]; (* will render without edges. EdgeForm[] is not given in my ?EdgeForm but it is in the book Reference Guide?*) We can give more complex directives to each patch as functions of the parameters. In[4]:= SphericalPlot3D[{1,{EdgeForm[],Hue[p]}},{t,0,Pi/2},{p,0,2Pi}, Lighting->False (*otherwise the default coloring is used*) ]; The following shows what is going on In[5]:= Short[Shallow[InputForm[%],7],5] (*you may need to increase the 5*) Out[5]//Short= Graphics3D[{{EdgeForm[], Hue[0.1653469817678838], Polygon[{<<4>>}]}, {EdgeForm[], Hue[0.1653469817678838], Polygon[{<<4>>}]}, {EdgeForm[], Hue[0.1653469817678838], Polygon[{<<4>>}]}, <<356>>, {EdgeForm[], <<1>>, Polygon[{<<4>>}]}, {EdgeForm[], Hue[0.1178383254117019], Polygon[{<<4>>}]}}, <<1>>] This facility derives from the same one in ParametricPlot3D In[6]:= ParametricPlot3D[ {x, y, x y,EdgeForm[]},{x,0,1},{y,0,1}]; In[7]:= ParametricPlot3D[ {x, y, x y, {EdgeForm[],Hue[x]}}, {x,0,1},{y,0,1}, Lighting -> False]; Allan Hayes hay at haystack.demon.co.uk