Message Boards Message Boards

[GIF] Walking cube

enter image description here

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}]
POSTED BY: Sander Huisman
3 Replies

Here's related topic on MMA.SE: Random polyhedra walk

enter image description here

POSTED BY: Kuba Podkalicki

Wow! that is pretty cool indeed! Thanks for sharing!

POSTED BY: Sander Huisman

enter image description here - another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!

POSTED BY: Moderation Team
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract