Re: Trouble with Rotate
- To: mathgroup at smc.vnet.net
- Subject: [mg83375] Re: Trouble with Rotate
- From: Szabolcs Horvát <szhorvat at gmail.com>
- Date: Sun, 18 Nov 2007 04:57:23 -0500 (EST)
- References: <fhmh8n$adj$1@smc.vnet.net>
Sergio Miguel Terrazas Porras wrote: > Hi there! > > > > 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" (??) You need to extract the list of graphics primitives from circ1, which is a Graphics3D object. Try using First[circ1] instead of circ1 in rotate. (Take a look at InputForm[circ1] to see what's going on.) -- Szabolcs