Re: draw vertical cylinder with no surface lines

*To*: mathgroup at smc.vnet.net*Subject*: [mg71631] Re: draw vertical cylinder with no surface lines*From*: "Pratik Desai" <pratikd at wolfram.com>*Date*: Sat, 25 Nov 2006 05:37:12 -0500 (EST)*References*: <ek63g2$8tk$1@smc.vnet.net>

On Nov 24, 12:29 am, Murray Eisenberg <mur... at math.umass.edu> wrote: > For an illustration, I want to draw a closed cylindrical "can" -- a > cylinder with its axis vertical -- along with arrows (with labels) > indicating radius and height. > > The ways I've found, either using Graphics`Shapes`Cylinder or > ParametricPlot3D, insist on drawing curves on the vertical wall of the > cylinder and, if I use ParametricPlot3D to draw the top, too, on the top. > > Is there some way to suppress these curves? Of course I still need the > circles bounding the top and bottom to be drawn as well as two vertical > lines that demarcate the wall of the cylinder from the ambient space. I > just want to rely upon lighting and shading to suggest the > three-dimensionality. > > Here's my effort so far using DrawGraphics: > > SetOptions[Arrow3D,HeadScaling3D->1,HeadLength3D->0.25, > HeadWidth3D->0.55]; > > Draw3DItems[{ > SurfaceColor[Honeydew,Honeydew,2], > ParametricDraw3D[{Cos[\[Phi]],Sin[\[Phi]],z},{\[Phi],0,2Pi},{z,0,2}, > PlotPoints->{51,2}], > > SurfaceColor[Honeydew,Honeydew], > CylindricalDraw3D[2,{r,0,1},{\[Phi],0,2Pi},PlotPoints->{2,51}], > > Thickness[0.02],Cobalt,SurfaceColor[PrussianBlue], > Arrow3D[{0,0,2},{0.9165,-0.4,2}] > }, > Boxed->False]; > > -- > Murray Eisenberg mur... at math.umass.edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower phone 413 549-1020 (H) > University of Massachusetts 413 545-2859 (W) > 710 North Pleasant Street fax 413 545-1801 > Amherst, MA 01003-9305 Hello Murray, Perhaps using the EdgeForm[] as the fourth argument of ParametricPlot3D <<Graphics`ParametricPlot3D` ParametricPlot3D[{Cos[Ï?], Sin[Ï?], z, EdgeForm[]}, {Ï?, 0, 2Pi}, {z, 0, 2}] Hope this is helpful Pratik Desai Wolfram Research, Inc