![enter image description here](http://community.wolfram.com//c/portal/getImageAttachment?filename=7677out.gif&userId=73716)
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}]