# Anatomical movements

AnatomyPlot3D[{Entity["AnatomicalStructure", "Humerus"],

• Look up Rotate[g,θ,w,p]. Apply it to the elements g in Cases[ap, {__, _[_GraphicsComplex, __]}, Infinity], where ap is the plot above. You will need to use Translate[] as well. – Michael E2 Nov 19 '18 at 12:22