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