x=Cos[t];
y=Sin[t];
sun={If[t>0,{	Circle[{8x,8y},0.7],		
			   Line[{{8x+1.1,8y},{8x+1.5,8y}}],
		     Line[{{8x-1.1,8y},{8x-1.5,8y}}],
				 Line[{{8x,8y+1.1},{8x,8y+1.5}}],
				 Line[{{8x,8y-1.1},{8x,8y-1.5}}], Line[{{8x+0.8,8y+0.8},{8x+1.2,8y+1.2}}], Line[{{8x+0.8,8y-0.8},{8x+1.2,8y-1.2}}], Line[{{8x-0.8,8y-0.8},{8x-1.2,8y-1.2}}], Line[{{8x-0.8,8y+0.8},{8x-1.2,8y+1.2}}]},
			
			{Circle[{-8x,-8y},0.7]}]};

mt={If[t>0,{		
				{GrayLevel[(-t*t+Pi*t)/5],Disk[{-8,-1.5},{2,3},{0,Pi}]},
				{GrayLevel[(-t*t+Pi*t)/4],Disk[{-5.5,-2},{2.5,4},{0,Pi}]},
				{GrayLevel[(-t*t+Pi*t)/3.5],Disk[{7.5,-1.5},{2.5,4},{0,Pi}]},
				{GrayLevel[(-t*t+Pi*t)/5.5],
					Disk[{5,-2},{2,3},{0,Pi}]}},
		
				{	{GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/8],Disk[{-8,-1.5},{2,3},{0,Pi}]},
				{GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/7],Disk[{-5.5,-2},{2.5,4},{0,Pi}]},
				{GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/6.5],Disk[{7.5,-1.5},{2.5,4},{0,Pi}]},
				{GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/8.5],
					Disk[{5,-2},{2,3},{0,Pi}]}}]};

tree={If[t>0,{
			   {GrayLevel[(-t*t+(Pi+1)*t+1)/8],Polygon[{{0,-2.5},{-0.2,-5},{0.2,-5}}]},
          {GrayLevel[(-t*t+Pi*t)/8],Polygon[{{0,-2},{-0.4,-3},{0.4,-3}}]},{GrayLevel[(-t*t+Pi*t)/8],Polygon[{{0,-2.5},{-0.6,-4},{0.6,-4}}]}},

	{		 {GrayLevel[(-(t+Pi)*(t+Pi)+(Pi+1)*(t+Pi)+1)/8],Polygon[{{0,-2.5},{-0.2,-5},{0.2,-5}}]},
          {GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/8],Polygon[{{0,-2},{-0.4,-3},{0.4,-3}}]},{GrayLevel[(-(t+Pi)*(t+Pi)+Pi*(t+Pi))/8],Polygon[{{0,-2.5},{-0.6,-4},{0.6,-4}}]}}]};
				
shadow={If[t>0,{
				{GrayLevel[(t*t-Pi*t+2.5)/2.5],Polygon[{{-5*x,-2*y-5},{-0.2,-5},{0.2,-5}}]},{GrayLevel[(t*t-Pi*t+2.5)/2.5],Polygon[{{-5*x,-2*y-5},{-10/3*x+0.4,-4/3*y-5},{-10/3*x-0.4,-4/3*y-5}}]},{GrayLevel[(t*t-Pi*t+2.5)/2.5],Polygon[{{-4*x,-4/3*y-5},{-5/3*x+0.6,-2/3*y-5},{-5/3*x-0.6,-2/3*y-5}}]}},

				{{GrayLevel[((t+Pi)*(t+Pi)-Pi*(t+Pi)+2.5)/2.5],Polygon[{{5*x,2*y-5},{-0.2,-5},{0.2,-5}}]},{GrayLevel[((t+Pi)*(t+Pi)-Pi*(t+Pi)+2.5)/2.5],Polygon[{{5*x,2*y-5},{10/3*x+0.4,4/3*y-5},{10/3*x-0.4,4/3*y-5}}]},{GrayLevel[((t+Pi)*(t+Pi)-Pi*(t+Pi)+2.5)/2.5],Polygon[{{4*x,4/3*y-5},{5/3*x+0.6,2/3*y-5},{5/3*x-0.6,2/3*y-5}}]}}]};
					
home={Polygon[{{5,-2.5},{7,-2.5},{8,-3.5},{4,-3.5}}],
	{GrayLevel[0.3],Polygon[{{4.5,-3.5},{7.5,-3.5},{7.5,-5},{4.5,-5}}]},
	If[t<3*Pi/20 && t> -Pi/2,{{GrayLevel[1],Polygon[{{5,-3.7},{7,-3.7},{7,-4.7},{5,-4.7}}]},
				{GrayLevel[0.3],Line[{{6,-3.7},{6,-4.7}}]},
				{GrayLevel[0.3],Line[{{5,-4.2},{7,-4.2}}]}},{{GrayLevel[0.5],Polygon[{{5,-3.7},{7,-3.7},{7,-4.7},{5,-4.7}}]},
				{GrayLevel[0.3],Line[{{6,-3.7},{6,-4.7}}]},
				{GrayLevel[0.3],Line[{{5,-4.2},{7,-4.2}}]}}
			
			]
	
	};

ListAnimate[Table[
	Show[
		Graphics[{
				sun,
          mt,
				tree,
			  shadow,
				home
			},
			{PlotRange->{{-10,10},{-10,10}},
				AspectRatio->1}
		]
	],{t,Pi,-Pi,-Pi/40}
]]