Re: Trouble with Rotate

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

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" (??) <snip> 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]]." Regards, -- Jean-Marc