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

For an illustration, I want to draw a closed cylindrical "can" -- a
cylinder with its axis vertical -- along with arrows (with labels)

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:

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

• Prev by Date: Re: Arithmetic Puzzle (so simple it's hard)
• Next by Date: Re: returning variable number of arguments from a Module[ ]
• Previous by thread: RE: pattern matching: rules that stop other rules?
• Next by thread: Re: draw vertical cylinder with no surface lines