Just a small gif of a 'walking' cube:
MakeCube[fr_]:=Module[{\[Alpha],\[Beta],vp},
{\[Alpha],\[Beta]}=If[fr<0.5,{fr \[Pi],0},{\[Pi]/2,(fr-0.5)\[Pi]}];
vp={0.45 +fr,1.05 -fr,0};
Graphics3D[{EdgeForm[],Gray,Rotate[Rotate[Cuboid[],\[Alpha],{0,1,0},{1,0,0}],\[Beta],{1,0,0},{0,0,0}]},
ViewVector->{vp+5{1,-1,1.5},vp},ViewAngle->25*Degree,Lighting->"Neutral",
Boxed->False,Background->LightGray,ImageSize->600{1,1}]
]
Manipulate[MakeCube[fr],{fr,0,1}]
