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

MathGroup Archive 2007

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

Search the Archive

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


  • Prev by Date: Re: Given a matrix A,
  • Next by Date: trying to Import[] USGS-resident DEM data
  • Previous by thread: Trouble with Rotate
  • Next by thread: Re: Trouble with Rotate