Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Fast pricer for American options
  • Next by Date: Re: How to *really* remove a symbol?
  • Previous by thread: Re: Displaying cylinders
  • Next by thread: change $UserBaseDirectory ?