\documentclass{standalone}

\usepackage{tikz}
\usepackage{dimer}

\begin{document}
\begin{tikzpicture}

%% mantles
\fill[color=gray](2,10.5)--++(18,0)--++(0.5,-0.5)--++(0,-4)--++(-0.5,-0.5)--++(-4,0)--++(-0.5,-0.5)--++(0,-3)--++(0.5,-0.5)--++(11,0)--++(0.5,0.5)--++(0,26)--++(-0.5,0.5)--++(-25,0)--++(-0.5,-0.5)--++(0,-17)--cycle;
\fill[color=white](4,11.5)--++(17,0)--++(1,-1)--++(0.5,-0.5)--++(0,-4)--++(-1.5,-1.5)--++(-3,0)--++(-0.5,-0.5)--++(0,-1)--++(0.5,-0.5)--++(7,0)--++(0.5,0.5)--++(0,24)--++(-0.5,0.5)--++(-21,0)--++(-0.5,-0.5)--++(0,-15)--cycle;
\fill[color=gray](7,16.5)--++(10,0)--++(0.5,0.5)--++(0,7)--++(-0.5,0.5)--++(-10,0)--++(-0.5,-0.5)--++(0,-7)--cycle;
\fill[color=white](8,18.5)--++(8,0)--++(0.5,0.5)--++(0,3)--++(-0.5,0.5)--++(-8,0)--++(-0.5,-0.5)--++(0,-3)--cycle;

% iota
\fill[color=cyan](4,11.5)--++(17,0)--++(1.5,-1.5)--++(3,0)--++(0,17)--++(-0.5,0.5)--++(-21,0)--++(-0.5,-0.5)--++(0,-3)--++(3,0)--++(0.5,0.5)--++(10,0)--++(0.5,-0.5)--++(0,-7)--++(-0.5,-0.5)--++(-10,0)--++(-0.5,.5)--++(-3,0)--++(0,-5)--cycle;

%% segments
\draw[color=red, line width=20pt](3.5,17)--++(3,0);
\draw[color=red, line width=20pt](3.5,24)--++(3,0);
\foreach \i in {18,...,23}{
  \draw[color=gray, line width=15pt](3.5,\i)--++(3,0);
}
\draw[color=red, line width=20pt](22.5,10)--++(3,0);
\foreach \i in {6,...,9}{
  \draw[color=gray, line width=15pt](22.5,\i)--++(3,0);
}

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

%% loops
\draw[color=black, line width=5pt](2,10.5)--++(18,0)--++(0.5,-0.5)--++(0,-4)--++(-0.5,-0.5)--++(-4,0)--++(-0.5,-0.5)--++(0,-3)--++(0.5,-0.5)--++(11,0)--++(0.5,0.5)--++(0,26)--++(-0.5,0.5)--++(-25,0)--++(-0.5,-0.5)--++(0,-17)--cycle;
\draw[color=black, line width=5pt](7,16.5)--++(10,0)--++(0.5,0.5)--++(0,7)--++(-0.5,0.5)--++(-10,0)--++(-0.5,-0.5)--++(0,-7)--cycle;

\end{tikzpicture}
\end{document}

