Rolling Polyhedron

Author

Eric W. Weisstein
November 2, 2018

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polyhedra/RollingPolyhedron.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RollingPolyhedron.html.

©2018 Wolfram Research, Inc. except for portions noted otherwise

Puzzle

rot[l_List,n_]:=Module[{c={.5,.5},a=Pi n/2},
			Append[c+(l-c).{{Cos[a],Sin[a]},{-Sin[a],Cos[a]}},1]
]

a[v_,n_]:=Module[{x=.15},
		{Line[{v+rot[{x,x},n],v+rot[{.5,1-x},n],v+rot[{1-x,x},n]}],
		Line[{v+rot[{.25+.5x,.5},n],v+rot[{.75-.5x,.5},n]}]}
]

lCuboid[l_List,n_]:={Cuboid[l],a[l,n]}
		
cubeCross:={Table[lCuboid[{-i,2,0},0],{i,2,4}],
	lCuboid[{-3,1,0},0],lCuboid[{-3,3,0},0]};

cubeLine:={lCuboid[{-2,-4,0},0],
		lCuboid[{-1,-4,0},3],
		Table[lCuboid[{i,-4,0},0],{i,0,2}]
}

Show[Graphics3D[{cubeCross,cubeLine,board3D}],Boxed->False,
ViewPoint->{0,-1,1}]