MathGroup Archive 2007

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

Search the Archive

Re: Trouble with Rotate

  • To: mathgroup at
  • Subject: [mg83359] Re: Trouble with Rotate
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at>
  • Date: Sun, 18 Nov 2007 04:49:09 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <fhmh8n$adj$>

Sergio Miguel Terrazas Porras wrote:

> I am having trouble with Rotate.
> Here is the problem:
> I have a Graphics3D object called circ1 (obviously a circle in 3D space). 
> r=1;q=p/4;
> circ1=ParametricPlot3D[{r*Sin[q]*Cos[f],r*Sin[q]*Sin[f],r*Cos[q]},{f,0,2 p}]
> Now I want to rotate it by some angle about the vector eje={1,0,0} or
> whatever vector.
> y=p/4;eje={1,0,0};p={0,0,0};
> Graphics3D[Rotate[circ1,y,eje]]
> What I get is the message "Rotate is not a Graphics3D primitive or
> Directive" (??)


Because *Rotate* expects a set of 3D graphics primitives (like 
*Cuboid[]* or Cylinder[]) as first argument and not a full *Graphics3D* 
object (that is a curve and its axes and all its options, etc.).

 From the online help:

"Rotate[g,\[Theta],w] rotates 3D graphics primitives by \[Theta] radians 
around the 3D vector w anchored at the origin."

Also, "ParametricPlot3D returns Graphics3D[GraphicsComplex[data]]."


  • Prev by Date: trying to Import[] USGS-resident DEM data
  • Next by Date: Mathematica question : Stepsize control
  • Previous by thread: Re: Trouble with Rotate
  • Next by thread: Re: Trouble with Rotate