\begin{center}
\begin{tikzpicture}
\tkzDefPoint(0,0){A} \tkzDefPoint(8,0){B} \tkzDefPoint(8-3,0){Z}
\tkzDefPoint(5,0){dH}\tkzDefPoint(8-3-4,0){bH}\tkzDefPoint(8-4,0){bHB}
\tkzDrawLine(A,B) \tkzLabelLine[below](A,B){$a$} \tkzCompass(A,B)
\tkzCompass(B,Z)
\tkzInterCC(A,dH)(Z,bH) \tkzGetPoints{D1}{D2}
\tkzCompass(A,D1) \tkzCompass(Z,D1) \tkzCompass(A,D2)\tkzCompass(Z,D2)
\tkzDrawLine(A,D1) \tkzLabelLine[above left](A,D1){$d1$}
\tkzDrawLine(A,D2) \tkzLabelLine[below left](A,D2){$d2$}
\tkzInterLL(D1,D2)(A,B) \tkzGetPoint{M}
\tkzInterLC(D1,D2)(D1,M) \tkzGetPoints{D1X}{MAGAIN}\tkzCompass(D1,D1X)
\tkzInterLC(D1,D2)(D2,M) \tkzGetPoints{MAGAIN}{D2X}
\tkzDrawLine(D1X,D2X) \tkzCompass(D2,D2X)
\tkzInterCC(D1X,M)(M,D1X) \tkzGetPoints{V11}{V21}
\tkzCompass(D1X,V11) \tkzCompass(D1X,V21)
\tkzCompass(M,V11) \tkzCompass(M,V21) \tkzDrawLine(V11,V21)
\tkzInterCC(D2X,M)(M,D2X) \tkzGetPoints{V12}{V22}
\tkzCompass(D2X,V12) \tkzCompass(D2X,V22)
\tkzCompass(M,V12) \tkzCompass(M,V22) \tkzDrawLine(V12,V22)
\tkzCompass(B,bHB) \tkzInterLC(V11,V21)(B,bHB) \tkzGetPoints{C1}{USEL}
\tkzCompass(B,C1) \tkzDrawLine(B,C1)
\tkzLabelLine[below left](B,C1){$b1$}
\tkzCompass(B,bHB) \tkzInterLC(V12,V22)(B,bHB) \tkzGetPoints{USEL}{C2}
\tkzCompass(B,C2) \tkzDrawLine(B,C2)
\tkzLabelLine[below left](B,C2){$b1$}
\tkzLabelLine[below](D1,C1){$c1$}
\tkzLabelLine[below](D2,C2){$c2$}
\tkzDrawPolygon[fill=blue!30, opacity=.30](A,B,C1,D1)
\tkzDrawPolygon[fill=red!30, opacity=.30](A,B,C2,D2)
\tkzMarkRightAngles(A,M,D1 M,D1,V21 M,D2,C2)
\tkzDrawPoints(A) \tkzLabelPoints(A,B,Z,D1,D2,C1)
\end{tikzpicture}
\end{center}
