Re: Re: Cylindrical Surface
- To: mathgroup at smc.vnet.net
- Subject: [mg59568] Re: [mg59502] Re: [mg59487] Cylindrical Surface
- From: JOHN ERB <john_c_erb at prodigy.net>
- Date: Fri, 12 Aug 2005 00:09:29 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Dave, I believe <<RealTime3D` gets the package started and <<Default3D` removes it. Thanks for your help John C. Erb David Annetts <davidannetts at aapt.net.au> wrote: Hi John, > > If I know the {x,y,z} endpoints of the axis of a right > cylinder, along with its radius -- > > How can I show a transparent surface of the cylinder in 3D space? > I would also like to be able to rotate the image real-time. AFAIK, Mathematica dosen't do transparency. While it uses a PostScript-based graphics system, you'd best look elsewhere (perhaps MathGL3D?). In any case, a basic cylinder is defined in Graphics`Shapes and it needs only a radius & height. By default, it is drawn so that height is the vertical coordinate. If you have a rotated cylinder, you'll need coordinate transfomation routines in Geometry`Rotations. Real-time graphics are found in RealTime3D`, but they screw up colour functions and you'll lose any annotations you make. Putting it all together, Needs["Graphics`Shapes"] < cyl = Show[Graphics3D[Cylinder[]], Axes -> True]; Gives you a plot of a cylinder with a radius and height of 1 that you can rotate to your heart's content. Another caveat is that since I can never find <help, the only way I can remove the package is by killing the kernel. I know there is a better way but I cannot for the life of me find it. Regards, Dave.