Directional Mics 2

Manipulate[
 Show[{
   Table[PolarPlot[
     {
      2 r Abs[a],
      2 r Abs[(1 - a) ( Cos[\[Theta] + Pi])],
      2 r Abs[a (1) +
         (1 - a) ( Cos[\[Theta] + Pi])]

      }
     , {\[Theta], 0, 2 Pi}, Axes -> None, PlotRange -> 1,
     PlotStyle -> {Directive[Opacity[0.9 (1 - r)], Red],
       Directive[Opacity[0.9 (1 - r)], Blue],
       Directive[Thick, Opacity[1 - r], Purple]}], {r, 0, 1, 0.1}]
   ,
   Graphics[{

     }]
   }
  ]
 , {a, 0, 1}]