MathGroup Archive 1999

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

Search the Archive

Re: EdgeForm in ParametricPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg16207] Re: EdgeForm in ParametricPlot3D
  • From: "Stephen P Luttrell" <luttrell at signal.dra.hmg.gb>
  • Date: Fri, 5 Mar 1999 00:40:42 -0500
  • Organization: Defence Evaluation and Research Agency
  • References: <7bg2ph$5o8@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

>How to make a sphere without meshlines? My way is inelegant:
>
>sp = ParametricPlot3D[{Sin[t] Sin[p], Sin[t] Cos[p], Cos[t]},{t, 0, Pi},
>{p, 0, 2Pi}, PlotPoints->25];
>
>Show @ Graphics3D[{EdgeForm[], Apply[List, sp]}];
>
>It works but gives errors.
>
>Any suggestions?


Here is a solution that I lifted from a previous posting (by P.J. Hinton) to
this group:


<<Graphics`ParametricPlot3D`

gr = (ParametricPlot3D[{Cos[u] Cos[v], Sin[u] Cos[v], Sin[v]},{u, 0, 2Pi,
          Pi/20},{v, -Pi/2, Pi/2, Pi/10}, DisplayFunction -> Identity] /.
      Polygon[x_] -> {EdgeForm[], Polygon[x]} );

Show[gr, DisplayFunction -> $DisplayFunction];



Stephen P Luttrell
Signal Processing and Imagery Department
DERA Malvern, St.Andrew's Road
Malvern, United Kingdom, WR14 3PS

+44 (0)1684 894046 (tel)
+44 (0)1684 894384 (fax)
luttrell at signal.dera.gov.uk (email)




  • Prev by Date: Re: Vector Field
  • Next by Date: Re: Availability of Mathematica on 2 alternate OSs
  • Previous by thread: Re: EdgeForm in ParametricPlot3D
  • Next by thread: Re: EdgeForm in ParametricPlot3D