\documentclass{standalone}

\usepackage{tikz}
\usepackage{dimer}

\begin{document}
\begin{tikzpicture}[scale=0.2]

%% mantles

% blue
\fill[color=blue](2,6.5)--++(13,0)--++(0.5,0.5)--++(0,8)--++(-0.5,0.5)--++(-13,0)--++(-0.5,-0.5)--++(0,-8)--cycle;
\fill[color=white](4,7.5)--++(9,0)--++(0.5,0.5)--++(0,6)--++(-0.5,0.5)--++(-9,0)--++(-0.5,-0.5)--++(0,-6)--cycle;
% red
\fill[color=red](6,8.5)--++(4,0)--++(0.5,0.5)--++(0,5)--++(-0.5,0.5)--++(-4,0)--++(-0.5,-0.5)--++(0,-5)--cycle;
\fill[color=white](7,10.5)--++(2,0)--++(0.5,0.5)--++(0,1)--++(-0.5,0.5)--++(-2,0)--++(-0.5,-0.5)--++(0,-1)--cycle;
% teal
\fill[color=teal](9,19.5)--++(9,0)--++(0.5,-0.5)--++(0,-10)--++(0.5,-0.5)--++(15,0)--++(0.5,0.5)--++(0,22)--++(-0.5,0.5)--++(-25,0)--++(-0.5,-0.5)--++(0,-11)--cycle;
\fill[color=white](11,20.5)--++(7,0)--++(0.5,-0.5)--++(0.5,-0.5)--++(1,0)--++(0.5,-0.5)--++(0,-9)--++(0.5,-0.5)--++(11,0)--++(0.5,0.5)--++(0,20)--++(-0.5,0.5)--++(-21,0)--++(-0.5,-0.5)--++(0,-9)--cycle;
% magenta
\fill[color=teal](13,21.5)--++(18,0)--++(0.5,0.5)--++(0,7)--++(-0.5,0.5)--++(-18,0)--++(-0.5,-0.5)--++(0,-7)--cycle;
\fill[color=white](14,23.5)--++(16,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-16,0)--++(-0.5,-0.5)--++(0,-3)--cycle;
% cyan
\fill[color=cyan](25,13.5)--++(3,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-3,0)--++(-0.5,-0.5)--++(0,-3)--cycle;
% orange
\fill[color=teal](15,23.5)--++(5,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-5,0)--++(-0.5,-0.5)--++(0,-3)--cycle;
\fill[color=white](17,24.5)--++(1,0)--++(0.5,0.5)--++(0,1)--++(-0.5,0.5)--++(-1,0)--++(-0.5,-0.5)--++(0,-1)--cycle;
% green
\fill[color=teal](23,24.5)--++(3,0)--++(0.5,0.5)--++(0,1)--++(-0.5,0.5)--++(-3,0)--++(-0.5,-0.5)--++(0,-1)--cycle;


%% segments

\draw[color=teal, line width=3pt](10,15.5)--++(0,4);

\draw[color=red, line width=3pt](3.5,12)--++(2,0);

\foreach \i in {22,...,29}{
  \draw[color=teal, line width=3pt](31.5,\i)--++(1,0);
}

\foreach \i in {23,...,26}{
  \draw[color=teal, line width=3pt](\i,23.5)--++(0,1);
  \draw[color=teal, line width=3pt](\i,26.5)--++(0,1);
}

\draw[color=cyan, line width=3pt](25,13.5)--++(0,-4);

%% grid
\grid{36}{36}{[color=lightgray](0,0)}


%% loops

\draw[color=black, line width=1pt](2,6.5)--++(13,0)--++(0.5,0.5)--++(0,8)--++(-0.5,0.5)--++(-13,0)--++(-0.5,-0.5)--++(0,-8)--cycle;
\draw[color=black](2,16.5)node{\it a};

\draw[color=black, line width=1pt](6,8.5)--++(4,0)--++(0.5,0.5)--++(0,5)--++(-0.5,0.5)--++(-4,0)--++(-0.5,-0.5)--++(0,-5)--cycle;
\draw[color=black](4.5,13)node{\it b};

\draw[color=black, line width=1pt](9,19.5)--++(9,0)--++(0.5,-0.5)--++(0,-10)--++(0.5,-0.5)--++(15,0)--++(0.5,0.5)--++(0,22)--++(-0.5,0.5)--++(-25,0)--++(-0.5,-0.5)--++(0,-11)--cycle;
\draw[color=black](9,32.5)node{\it c};

\draw[color=black, line width=1pt](13,21.5)--++(18,0)--++(0.5,0.5)--++(0,7)--++(-0.5,0.5)--++(-18,0)--++(-0.5,-0.5)--++(0,-7)--cycle;

\draw[color=black, line width=1pt](25,13.5)--++(3,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-3,0)--++(-0.5,-0.5)--++(0,-3)--cycle;
\draw[color=black](23.5,18)node{\it e};

\draw[color=black, line width=1pt](15,23.5)--++(5,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-5,0)--++(-0.5,-0.5)--++(0,-3)--cycle;

\draw[color=black, line width=1pt](23,24.5)--++(3,0)--++(0.5,0.5)--++(0,1)--++(-0.5,0.5)--++(-3,0)--++(-0.5,-0.5)--++(0,-1)--cycle;

\end{tikzpicture}
\end{document}

