Fresnel

\[Theta] = 2 Pi/9;
a = 0.1;
\[Alpha] = 1.3;
f = {1, 0};
n = 5;
Manipulate[
 Graphics[
  {
   Table[
    Block[{dd},
     dd = Min[d,
       Max[Cos[\[Phi]], Cos[\[Phi] + \[Theta]/n]] - Cos[\[Theta]]];
     {
      Translate[
       Circle[{-1, 0}, 1, {\[Phi], \[Phi] + \[Theta]/n}],
       {-dd, 0}],
      Line[{{-1 + Cos[\[Phi] + \[Theta]/n] - dd,
         Sin[\[Phi] + \[Theta]/n]}, {-1 + Cos[\[Theta]] - a,
         Sin[\[Phi] + \[Theta]/n]}, {-1 + Cos[\[Theta]] - a,
         Sin[\[Phi]]}, {-1 + Cos[\[Phi]] - dd, Sin[\[Phi]]}}]
      }
     ]
    , {\[Phi], -\[Theta], \[Theta] - \[Theta]/n, \[Theta]/n}]
   ,
   {Blue,
    Table[
     Block[{x, y, dd, \[Phi]2, d\[Phi]},
      dd =
       Min[d, Max[Cos[\[Phi]], Cos[\[Phi] + \[Theta]/n]] -
         Cos[\[Theta]]];
      \[Phi] += (\[Theta]/(2 n));
      \[Phi]2 = \[Phi];
      y = Sin[\[Phi]];
      x = -1 + Sqrt[1 - y^2] - dd;
      d\[Phi] = \[Phi] - ArcSin[\[Alpha] y];
      {
       Line[{{-1, y}, {x, y}}],
       Line[{{x, y} , {x, y} + 2 {Cos[d\[Phi]], Sin[d\[Phi]]}}]
       }
      ]
     , {\[Phi], - \[Theta], \[Theta] - \[Theta]/n, \[Theta]/n}
     ]
    }
   }
  , PlotRange -> {{-1, 1}, {-1, 1}}],
 {d, 0, 0.244}
 ]