<<Graphics`Polyhedra`

th0=Pi/180 45; ph=Pi/180 90; g=9.8 3600^2; Td=1/10;
r=67; r0=15; r1=40 Sqrt[2]; r2=r1/2; z1=-80; z2=-40;
T=24/Sin[ph]; wz=2 Pi/24 Sin[ph]; th1=th0 Sin[Sqrt[g/r] t+Pi/2];
th2=2 Pi t+Pi; th3=2 Pi/12 t+Pi;

x=r Sin[th1] Cos[wz t];
y=-r Sin[th1] Sin[wz t];
z=-r Cos[th1];
x1=-60 Sin[th2]; y1=-60 Cos[th2]; 
x2=-30 Sin[th3]; y2=-30 Cos[th3];

hari1={AbsoluteThickness[2],Line[{{0,0,z1},{x1,y1,z1}}]};
hari2={AbsoluteThickness[5],Line[{{0,0,z1},{x2,y2,z1}}]};
clock=Polygon[{{-z1,0,z1},{r1,-r1,z1},{0,z1,z1},
			{-r1,-r1,z1},{z1,0,z1},{-r1,r1,z1},
			{0,-z1,z1},{r1,r1,z1}}];
ten={PointSize[0.02],Point[{0,0,0}]};
sen={AbsoluteThickness[1],Line[{{0,0,0},{x,y,z}}]};
kyu=Polyhedron[Dodecahedron,{x,y,z},r0];

anime=
	Table[
		Show[
			Geodesate[kyu,2,{x,y,z},r0],
			Graphics3D[{clock,hari2,hari1,sen,ten}],
			{PlotRange->{{-80,80},{-80,80},{-80,0}},
			AspectRatio->Automatic,Boxed->False,
			ViewPoint->{0,-1.5,0.7}}
		],
		{t,0,T,Td}
 	];