title: animate 3d plot with some further requirements in mathematica
body: <p>I posted at <a href="https://stackoverflow.com/questions/5148491/how-to-animate-3d-plot-given-a-rotation-axis-in-mathematics">this post</a> before, but I still could not solve the following problem completely. As an example:</p>
  
  <pre><code>{pA, pB, pC, pD} = {{0, 0, Sqrt[61/3]}, {Sqrt[7], 4*Sqrt[2/3], 0}, {0, -5*Sqrt[2/3], 0}, {-Sqrt[71], 4*Sqrt[2/3], 0}};
  axis={1,0,0};pt={0,1,0};
  plotPolygon[{a_, b_, c_}] := {Opacity[.4], Polygon[{a, b, c}]};
  graph=Graphics3D[{plotPolygon[{pA, pB, pC}], plotPolygon[{pA, pB, pD}], 
              plotPolygon[{pB, pC, pD}], plotPolygon[{pA, pC, pD}]}, 
              Axes -&gt; True, AxesOrigin-&gt;pt];
  Animate[graph/.gg : Graphics3D[___] :&gt; Rotate[gg, theta, axis], {theta, 0., 2.*Pi}]
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/PaKX4.gif" alt="enter image description here"></p>
  
  <p>I want to rotate along an axis <code>axis={1,0,0}</code> which passes the point <code>pt={0,1,0}</code>. But I don't know how to specify the point information. Also the rotation animation seems very chaotic in the sense that I would expect at least one point (in this case, the origin?) is not rotating.</p>