Message Boards Message Boards

GROUPS:

[GIF] Walking cube

Posted 2 years ago
2617 Views
|
3 Replies
|
12 Total Likes
|

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}]
3 Replies

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!

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

enter image description here

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

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