Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Cantor set
  • Next by Date: Re: How do I define a range of a symbol?
  • Previous by thread: Re: help w/ SphericalPlot3D
  • Next by thread: Re: help w/ SphericalPlot3D