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