draw vertical cylinder with no surface lines

*To*: mathgroup at smc.vnet.net*Subject*: [mg71588] draw vertical cylinder with no surface lines*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Fri, 24 Nov 2006 01:17:08 -0500 (EST)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*Reply-to*: murray at math.umass.edu

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 murray 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