teatro5=ContourPlot[y==0,{x,-6,-2},{y,0,4},ContourStyle->{Thick,Blue},GridLines->Automatic];

pinkrabo[λ_]:= Graphics[{{LightPink,Disk[{-4,1},1,{π/4,3π/2}]},{PointSize[Large],Red,Thick,Circle[{-4,1+1/(Sqrt[2])},0.1],Circle[{-4,2/λ},2/λ,{(3π/2)-λ(π/4),3π/2}],Circle[{-4,1},1,{π/4,3π/2}],Line[{{-4,1}+{1/(Sqrt[2]),1/(Sqrt[2])},{-4,1},{-4,0}}],Point[{{-4,1}+{1/(Sqrt[2]),1/(Sqrt[2])},{-4,1},{-4,0},{-4,1+1/(Sqrt[2])},{-4+(2/λ)Cos[(3π/2)-λ(π/4)],(2/λ)+(2/λ)Sin[(3π/2)-λ(π/4)]}}]}}];

Manipulate[Show[teatro5,pinkrabo[λ]],{λ,0.2,2}]