Re: Displaying cylinders
- To: mathgroup at smc.vnet.net
- Subject: [mg110932] Re: Displaying cylinders
- From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
- Date: Mon, 12 Jul 2010 01:05:07 -0400 (EDT)
- References: <i13trd$7hu$1@smc.vnet.net> <i14agr$fv1$1@smc.vnet.net>
- Reply-to: stevebg at ROADRUNNER.COM
On 7/8/2010 3:50 AM, Albert Retey wrote:
> th = .01;
> cp1 = {1, -1, 2};
> cp2 = {2, 0, 1};
> cp3 = {-1, 3, 2};
> Graphics3D[{
> Opacity[0],
> EdgeForm[Directive[Opacity[1], Thickness[th], Yellow]],
> Cylinder[{cp1, cp1 + {th, -th, th}}, 12],
> EdgeForm[Directive[Opacity[1], Thickness[th], Green]],
> Cylinder[{cp2, cp2 - {th, th, -th}}, 15],
> EdgeForm[Directive[Opacity[1], Thickness[th], Red]],
> Cylinder[{cp3, cp3 + {-th, -th, -th}}, 12]
> }, Boxed -> False]
Albert, What you sent does indeed look like what I want. I will examine
it more later, but thank you very much!
Yours was the only reply that really helped.
Steve Gray