\documentclass{standalone}

\usepackage{tikz}
\usepackage{dimer}

\begin{document}
\begin{tikzpicture}

%% mantles
\fill[color=gray](2,1.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,2.5)--++(9,0)--++(0.5,0.5)--++(0,6)--++(-0.5,0.5)--++(-9,0)--++(-0.5,-0.5)--++(0,-6)--cycle;
\fill[color=gray](4,3.5)--++(4,0)--++(0.5,0.5)--++(0,4)--++(-0.5,0.5)--++(-4,0)--++(-0.5,-0.5)--++(0,-4)--cycle;
\fill[color=white](5,5.5)--++(2,0)--++(0.5,0.5)--++(0,0)--++(-0.5,0.5)--++(-2,0)--++(-0.5,-0.5)--++(0,-0)--cycle;

%% segments
\foreach \i in {4,...,8}{
  \draw[color=gray, line width=15pt](8.5,\i)--++(5,0);
}

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


%% loops
\draw[color=black, line width=5pt](2,1.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, line width=5pt](3.5,4)--++(0.5,-0.5)--++(4,0)--++(0.5,0.5)--++(0,4)--++(-0.5,0.5)--++(-4,0)--++(-0.5,-0.5);
\draw[color=red, line width=10pt](3.5,8)--++(0,-4);

\end{tikzpicture}
\end{document}