Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I want to rotate the geometry obtained whith the input:

  movil = ExampleData[{"Geometry3D", "SpaceShuttle"}]

But it shows an error message : Graphics is not a Graphics3D primitive or directive.

I'm trying to represent the attitude of an airplane so if there is another option with similar geometry It can also be usefull. I'm using this code:

frame[α_, β_, γ_, t_] := 
  GraphicsRow[
    {Graphics3D[
       Rotate[
         Rotate[
           Rotate[movil, α °, {0, 0, 1}],
           β °, {0, 1, 0}],
         γ °, {1, 0, 0}], 
       Axes -> True, LabelStyle -> 12, 
       PlotRange -> {{-0.6, 0.6}, {-0.6, 0.6}, {-0.6, 0.6}}, 
       ViewPoint -> {1, 0, 0.2}], 
     Show[
       ListPlot[{ϕctab, θctab, ψctab}, Joined -> True, LabelStyle -> 12, 
         AxesLabel -> {"n", "Grados [º]"}], 
       ListPlot[{{{t, ϕctab[[t]]}}, {{t, θctab[[t]]}}, {{t, ψctab[[t]]}}}, 
         PlotMarkers -> {Automatic, 10}]]}, 
    ImageSize -> 590];

frs = Table[frame[ϕstab[[t]], θstab[[t]], ψstab[[t]], t], {t,1, Length[θstab]}];
ListAnimate[frs]
share|improve this question

closed as off-topic by rasher, Michael E2, Sjoerd C. de Vries, bobthechemist, Yves Klett Mar 25 at 8:42

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question cannot be answered without additional information. Questions on problems in code must describe the specific problem and include valid code to reproduce it. Any data used for programming examples should be embedded in the question or code to generate the (fake) data must be included." – Michael E2, bobthechemist, Yves Klett
If this question can be reworded to fit the rules in the help center, please edit the question.

    
I'm guessing that the error message is actually generated by frame. Using movil[[1]] to extract the graphics primitives instead of movil may work for you but there are syntax errors and undefined symbols in the rest of your posted code. –  MikeLimaOscar Mar 24 at 18:05
    
I don't get any error messages, but I can't evaluate frms because you don't supply any values for ϕstab, θstab, ψstab. –  m_goldberg Mar 24 at 18:07

1 Answer 1

movil contains a Graphics3D[] head. Get rid of it to perform a rotation:

Graphics3D[{EdgeForm[],
  Rotate[
   Rotate[
    Rotate[
     Cases[movil, GraphicsComplex[___], 2], 1, {0, 0, 1}],
    1, {0, 1, 0}],
   1, {1, 0, 0}]}]

Mathematica graphics

share|improve this answer

Not the answer you're looking for? Browse other questions tagged or ask your own question.