a = 10; c = 10  n; b = 0.1 + c;
\(\(star = {Polygon[
            Flatten[
			Table[{{Cos[t], Sin[t]}, 
                  2 {Cos[t + Pi/a], Sin[t + Pi/a]}}, 
				{t, 0, 2  Pi, 
                  Pi/a}], 1]]};\)
\)
\(\(hikari = {Thickness[0.01], RGBColor[1, 0, 0], 
          Table[Line[{{\((1.2 + c)\) Cos[t], \((1.2 + c)\) 
                    Sin[t]}, {\((1.2 + b)\) Cos[t], \((1.2 + b)\) 
                    Sin[t]}}], {t, 0, 2  Pi, Pi/8}]};\)
\)
\(\(kao = {CMYKColor[0, 0, 0.5, 0], Disk[{0, 0}, 1]};\)
\)
\(\(mei1 = {RGBColor[1, 1, 1], 
          Disk[{\(-0.5\), 0.2}, 0.15], 
		RGBColor[0, 0, 0], 
          Disk[{\(-0.5\), 0.2}, {0.08 + 1.1  n, 
              0.12 - 1.2  n}], 
	\ RGBColor[0, 0, 0], \ 
          Disk[{\(-0.48\) - 0.5  n, 0.55 - 0.4  n}, 0.15], 
	
          CMYKColor[0, 0, 0.5, 0], \ 
          Disk[{\(-0.45\) - 0.3  n, 0.58 - 0.4  n}, {0.2, 
              0.15}]};\)
\)
\(\(mei2 = {RGBColor[1, 1, 1], 
          Disk[{0.5, 0.2}, 0.15], 
\ \ \ 	RGBColor[0, 0, 0], 
          Disk[{0.5, 0.2}, {0.08 + 1.1  n, 0.12 - 1.2  n}], 
	\ \ RGBColor[
            0, 0, 0], \ Disk[{0.52 + 0.5  n, 0.55 - 0.4  n}, 0.15], 
	
          CMYKColor[0, 0, 0.5, 0], \ 
          Disk[{0.5 + 0.3  n, 0.58 - 0.4  n}, {0.2, 0.15}]};\)	
\)
hana = {Disk[{0, 0.2}, 
            0.4, {35  Pi/24 - n, 37  Pi/24 - n}]};
\(\(kuchi = {{RGBColor[1, 0, 0], 
            Disk[{0.2  n, \(-0.4\) - 0.2  n}, 0.3]}, 

          CMYKColor[0, 0, 0.5, 0], 
          Disk[{\(-n\), \(-0.2\) - n}, 0.35]};\)	
\)
gifs = {};
\(Do[

      gif = Graphics[{star, kao, mei1, mei2, kuchi, hana, hikari}, 
		
	
          AspectRatio\  -> \ Automatic\ ]; 
	AppendTo[gifs, gif]; 
	
      Show[gif], 
	{n, 0, 0.07, 0.003}
	]

		\)