Message Boards Message Boards

GROUPS:
Staff Picks Visual Arts Geometry Graphics and Visualization Wolfram Language
Sander Huisman

[GIF] Walking cube

Sander Huisman, University of Twente
Posted 6 years ago
6622 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}]
POSTED BY: Sander Huisman
Answer
3 Replies
Sort By:

Wow! that is pretty cool indeed! Thanks for sharing!
POSTED BY: Sander Huisman
Answer

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

enter image description here
POSTED BY: Kuba Podkalicki
Answer

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
Answer
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract