Animate[
line1=Line[{{-2Cos[t]-2,-2Sin[t]-2},{2Cos[t]+2,2Sin[t]-2},{-2Cos[t]+2,-2Sin[t]+2},{2Cos[t]-2,2Sin[t]+2},{-2Cos[t]-2,-2Sin[t]-2}}];
  line2=Line[{{0,0},{-2Cos[t]-2,-2Sin[t]-2}}];
  line3=Line[{{0,0},{2Cos[t]+2,2Sin[t]-2}}];
  line4=Line[{{0,0},{-2Cos[t]+2,-2Sin[t]+2}}];
  line5=Line[{{0,0},{2Cos[t]-2,2Sin[t]+2}}];
line10=Line[{{-2+2(t^2)/Pi^2,-2+2(t^2)/Pi^2},{-2+2(t^2)/Pi^2,2-2(t^2)/Pi^2}}];
line11=Line[{{2-2(t^2)/Pi^2,-2+2(t^2)/Pi^2},{2-2(t^2)/Pi^2,2-2(t^2)/Pi^2}}];
line12=Line[{{-2Cos[t]-2,-2Sin[t]-2},{-2Cos[t]+2,-2Sin[t]+2}}];
line13=Line[{{2Cos[t]+2,2Sin[t]-2},{2Cos[t]-2,2Sin[t]+2}}];


  waku= Graphics[{Dashed,Blue,line2,line3,line4,line5},PlotRange->{{-5,5},{-5,5}}];
sen=Graphics[{Red,line1,line12,line13},PlotRange->{{-5,5},{-5,5}}];
Show[waku,sen],
{t,-Pi,Pi,Pi/20}

]