Is it possible to animate a bone or a skeleton fetched from Wolfram AnatomyData?

Question

We can get a 3D bone with a simple command like this: (ctrl+)Thigh ["Graphics3D"]

or like this (ctrl+)bone ["Graphics3D"]

Can we animate these objects ? For example, make the thigh turn a circle, or even make the skeleton do a squat exercise ?

Thank you very much.

Answer 1

{femur, skeleton} = Interpreter[
       "ComputedAnatomicalStructure"][#][
     "Graphics3D"] & /@ {"left femur", "skeleton"};

This is quite slow to initialize and for any change to ViewPoint for skeleton

Manipulate[
 Show[bone, ViewPoint -> vp],
 {{bone, femur}, {femur, skeleton}},
 {{vp, Front, "View Point"},
  {Above, Below, Front, Back, Left, Right,
   {Above, Front}, {Above, Back},
   {Below, Front}, {Below, Back},
   {Left, Above}, {Right, Above},
   {Left, Below}, {Right, Below},
   {Left, Front}, {Right, Front},
   {Left, Back}, {Right, Back},
   {Above, Front, Left}, {Above, Front, Right}, 
   {Below, Front, Left}, {Below, Front, Right},
   {Above, Back, Left}, {Above, Back, Right},
   {Below, Back, Left}, {Below, Back, Right}}},
 SynchronousUpdating -> False]

Alternatively, you can set the ViewPoint to {x,y,z} and manipulate these variables

Answer 2

I though I read something about you could not rotate them, but…

As far as manual animation, in V11 I was able to draw a bone with:

AnatomyPlot3D[Entity["AnatomicalStructure", "LeftFemur"]]

and I could animate it manually.

Also, looking at the InputForm[] of the result, shows that it is drawn with a GraphicsComplex[] and there is a ViewPoint-> option, so you should be able to animate it programmatically.