<< Graphics`ImplicitPlot`

\(\(Do[
      ImplicitPlot[{
		\((x + 2)\)\^2 + y\^2 == 1, 

          \((x - 2)\)\^2 + y\^2 == 1\/4, 

          \((a\^2 - 4)\)\ x\^2 + 3\/4\ x + a\^2\ y\^2 == 
            a\^2\ \((a\^2 - 4)\) + 5\/8\ a\^2 + 9\/256, 
		y == 5}, 

        	{x, \(-4\), 4}, 
		PlotRange -> {\(-2.3\), 2.3}, 
		
        PlotPoints -> 50, 
		
        PlotStyle -> {RGBColor[0, 0, 1], 
				RGBColor[0, 0, 1], 

            				RGBColor[1, 0, 0]}, 
	AspectRatio -> Automatic], 

      	{a, 0.004, 2.804, 0.05}]; \)\)