Rotation generation definitions

colors = {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1], RGBColor[1, 0, 1]} ;

s1 = {Polyhedron[Cube], {{1, 1, 1, 1, 1}, {1, 1, 1, 1, 2}, {1, 1, 2, 1, 4}}} ;

RowBox[{RowBox[{s2, , =,   , RowBox[{{, RowBox[{RowBox[{Stellate, [, RowBox[{Polyhe ... ,, , 6.}], ]}], ,, , {{1, 1, 1, 1, 1, 1}, {1, 1, 2, 1, 1, 1}, {1, 1, 3, 1, 1, 1}}}], }}]}], ;}]

rotationBoth[lst_, g_, parts_] := <br />    Module[{p, plrng, pts, lst2, e ... oints = ", estdist] ; <br />         {lst2, plrng}] ;

rotEuler[start_, stop_, n_, {g_, parts_}] := <br />    Module[{lst, i}, <b ... uate[1/n]}] ; <br />        rotationBoth[lst, g, parts]] ;

rotQuat[start_, stop_, n_, {g_, parts_}] := <br />    Module[{r1, r2, q1, ... mp; /@ rlst ; <br />        rotationBoth[lst, g, parts]] ;

rotLerp[start_, stop_, n_, {g_, parts_}] := <br />    Module[{r1, r2, q1, ... mp; /@ rlst ; <br />        rotationBoth[lst, g, parts]] ;

vis[{lst_, plrng_}] := <br />         Show[#, PlotRange->plrng, Boxed->False] & /@ lst ;

vis2[{lst_, plrng_}] := <br />        Show[Drop[lst // Transpose, 1] // Transpose, PlotRange -> plrng, Boxed->True] ;

Created by Mathematica  (September 7, 2003)