a=2.2;b=1;diag=(Sqrt[(a^2)+(b^2)]);

Graphics[{   EdgeForm[{Thick,Black}],White,Rectangle[{-a/2,-a/2},{a/2,a/2}],Triangle[{{-a/2,-a/2},{a/2,-a/2},{-a/2,-a/2-b},{-a/2,-a/2}}],
Rectangle[{-a/2-b,-a/2-b},{-a/2,-a/2}],Rotate[Rectangle[{a/2,-a/2},{a/2-diag,-a/2-diag}],ArcTan[b/a],{a/2,-a/2}],Black,Line[{{-b/2,a/2},{b/2,-a/2}}],
Line[{{-a/2,-b/2},{a/2,b/2}}],Dashed,Line[{{-b/2,a/2},{-b/2,-a/2}}]     }]

quad[1]=Line[{{-a/2,a/2},{-b/2,a/2},{0,0},{-a/2,-b/2},{-a/2,a/2}}];
quad[2]=Line[{{-b/2,a/2},{a/2,a/2},{a/2,b/2},{0,0},{-b/2,a/2}}];
quad[3]=Line[{{a/2,b/2},{a/2,-a/2},{b/2,-a/2},{0,0},{a/2,b/2}}];
quad[4]=Line[{{b/2,-a/2},{-a/2,-a/2},{-a/2,-b/2},{0,0},{b/2,-a/2}}];

Graphics[{quad[1],quad[2],quad[3],quad[4],
Red,Rotate[quad[1],-Pi-ArcTan[b/a],{-a/2,a/2}],
Rotate[quad[2],-Pi-ArcTan[b/a],{a/2,a/2}],
Rotate[quad[3],-Pi-ArcTan[b/a],{a/2,-a/2}],
Rotate[quad[4],-Pi-ArcTan[b/a],{-a/2,-a/2}]}]

ListAnimate[Join[Table[ Graphics[
{Red,Rotate[quad[1],-u,{-a/2,a/2}],
Rotate[quad[2],-u,{a/2,a/2}],
Rotate[quad[3],-u,{a/2,-a/2}],
Rotate[quad[4],-u,{-a/2,-a/2}]},Epilog->{quad[1],quad[2],quad[3],quad[4]},PlotRange->2.75],{u,0,Pi+ArcTan[b/a],(Pi+ArcTan[b/a])/20} ],

Table[Graphics[{Red,Translate[Rotate[quad[1],(-Pi-ArcTan[b/a]),{-a/2,a/2}],u{-(Sqrt[(a^2)+(b^2)])/2,(Sqrt[(a^2)+(b^2)])/2}-u{-a/2-(a-b)(a/2)/diag,a/2+(a+b)(a/2)/diag}],
Translate[Rotate[quad[2],(-Pi-ArcTan[b/a]),{a/2,a/2}],u{(Sqrt[(a^2)+(b^2)])/2,(Sqrt[(a^2)+(b^2)])/2}-u{a/2+(a+b)(a/2)/diag,a/2+(a-b)(a/2)/diag}],
Translate[Rotate[quad[3],(-Pi-ArcTan[b/a]),{a/2,-a/2}],u{(Sqrt[(a^2)+(b^2)])/2,-(Sqrt[(a^2)+(b^2)])/2}+u{-a/2-(a-b)(a/2)/diag,a/2+(a+b)(a/2)/diag}],
Translate[Rotate[quad[4],(-Pi-ArcTan[b/a]),{-a/2,-a/2}],u{-(Sqrt[(a^2)+(b^2)])/2,-(Sqrt[(a^2)+(b^2)])/2}+u{a/2+(a+b)(a/2)/diag,a/2+(a-b)(a/2)/diag}]},Epilog->{quad[1],quad[2],quad[3],quad[4]},PlotRange->2.75],{u,0,1,1/20}] ]    

]

ListAnimate[Join[Table[ Graphics[
{Red,Rotate[quad[1],-u,{-a/2,a/2}],
Rotate[quad[2],-u,{a/2,a/2}],
Rotate[quad[3],-u,{a/2,-a/2}],
Rotate[quad[4],-u,{-a/2,-a/2}]},Epilog->{quad[1],quad[2],quad[3],quad[4]},PlotRange->4.5],{u,0,Pi+ArcTan[b/a],(Pi+ArcTan[b/a])/20} ],

Table[Graphics[{EdgeForm[{Thick,Black}],White,Thick,Rectangle[{-a/2,-a/2},{a/2,a/2}],Triangle[{{-a/2,-a/2},{a/2,-a/2},{-a/2,-a/2-b},{-a/2,-a/2}}],
Rectangle[{-a/2-b,-a/2-b},{-a/2,-a/2}],Rotate[Rectangle[{a/2,-a/2},{a/2-diag,-a/2-diag}],ArcTan[b/a],{a/2,-a/2}],Black,Line[{{-b/2,a/2},{b/2,-a/2}}],
Line[{{-a/2,-b/2},{a/2,b/2}}],Dashed,Line[{{-b/2,a/2},{-b/2,-a/2}}] ,Red,Translate[Rotate[quad[1],(-Pi-ArcTan[b/a]),{-a/2,a/2}],u{-(Sqrt[(a^2)+(b^2)])/2,(Sqrt[(a^2)+(b^2)])/2}-u{-a/2-(a-b)(a/2)/diag,a/2+(a+b)(a/2)/diag}],
Translate[Rotate[quad[2],(-Pi-ArcTan[b/a]),{a/2,a/2}],u{(Sqrt[(a^2)+(b^2)])/2,(Sqrt[(a^2)+(b^2)])/2}-u{a/2+(a+b)(a/2)/diag,a/2+(a-b)(a/2)/diag}],
Translate[Rotate[quad[3],(-Pi-ArcTan[b/a]),{a/2,-a/2}],u{(Sqrt[(a^2)+(b^2)])/2,-(Sqrt[(a^2)+(b^2)])/2}+u{-a/2-(a-b)(a/2)/diag,a/2+(a+b)(a/2)/diag}],
Translate[Rotate[quad[4],(-Pi-ArcTan[b/a]),{-a/2,-a/2}],u{-(Sqrt[(a^2)+(b^2)])/2,-(Sqrt[(a^2)+(b^2)])/2}+u{a/2+(a+b)(a/2)/diag,a/2+(a-b)(a/2)/diag}]},PlotRange->4.5],{u,0,1,1/20}] ]    ]