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

MathGroup Archive 2008

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

Search the Archive

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


  • Prev by Date: Re: changing style of vertices for ShowGraph with Combinatorica
  • Next by Date: Path to *.m file
  • Previous by thread: Rotation of 3D objects
  • Next by thread: Re: Rotation of 3D objects