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