Re: Rotation of 3D objects
- To: mathgroup at smc.vnet.net
- Subject: [mg86346] Re: [mg86237] Rotation of 3D objects
- From: Carl Woll <carlw at wolfram.com>
- Date: Sun, 9 Mar 2008 05:00:44 -0500 (EST)
- References: <200803060802.DAA29378@smc.vnet.net>
Narasimham wrote: >By what command is it possible to create (without writing a code >separately ): > >1) Reflections of 3D objects about a plane? > >2) Multiple copies equally spaced by rotation around an axis through >two given points? > >E.g., >surf = ParametricPlot3D[{ t,u+t, u*t/5}, {t,0,2},{u,-1,1}]; >Rotate[surf,Axis->{ {-1,-1,-1},{1,1,1}} , Copies-> 4 ] ; and, > >3) A single rotation of given object through a given angle on an axis >through two defined points? > >Thanks in advance > >Narasimham > > Have you investigated using GeometricTransformation? For example: primitives = First@ExampleData[{"Geometry3D", "Cow"}]; Graphics3D[{primitives, GeometricTransformation[primitives, {{1,0,0},{0,1,0},{0,0,-1}}]}] Carl Woll Wolfram Research
- References:
- Rotation of 3D objects
- From: Narasimham <mathma18@hotmail.com>
- Rotation of 3D objects