\documentclass[a4paper]{article}
%\usepackage[nodump]{ldump}
%\usepackage{ldump}
\usepackage[dvips,matrix,arrow,ps,color,line,curve,frame]{xy}

\thispagestyle{empty}
\addtolength\hoffset{-1.5cm}
\addtolength\voffset{-4cm}
\addtolength\textheight{2cm}
\addtolength\textwidth{4cm}

\makeatletter
%
%  work with all Xy-pic versions 3.0+
%
\ifx\Row\undefined \let\Row=\Row \let\Col=\Col \fi
%
\makeatother

% use a count-register
\newcount\RCsum


%\latexdump
\UsePSheader{}
\begin{document}

\mathversion{bold}
$$
\def\thickred{\let\dar=\brdar \let\rar=\brrar \let\uar=\bruar \let\udar=\bruar}
\def\thickredA{\let\dar=\brdar}
\def\thickredB{\let\uar=\bruar}
\def\thickgreen{\let\dar=\bguar \let\rar=\bglar \let\uar=\bgdar}
\def\thickgreenA{\let\uar=\bgdar}
%
\def\checkblue{%
  \ifnum\RCsum>12\relax 
   \ifnum\Col>7\relax
    \ifnum\RCsum<18\relax \aftergroup\thickgreen
    \else\ifnum\RCsum=18\relax \aftergroup\thickgreenA\fi
  \fi\fi\fi }
%
\def\checkred{%
  \ifnum\RCsum<13\relax 
   \ifnum\Col>2\relax
    \ifnum\Col<7\relax\aftergroup\thickred
    \else\ifnum\Col=7\relax \aftergroup\thickredA\fi
    \fi
   \fi
  \else\ifnum\RCsum=13\relax
   \ifnum\Col<7\relax \aftergroup\thickredB\fi
  \fi\fi }
%
\everyentry={{\RCsum=\Row \advance\RCsum\Col %
 \ifnum\RCsum>10\relax 
  \checkred \checkblue
  \ifnum\Row<10 \aftergroup\dar\fi
  \ifnum\Col<10 
   \ifnum\RCsum=11\relax\aftergroup\udar
    \else\aftergroup\uar\fi
   \ifnum\Row<10\aftergroup\rar\fi
  \fi 
 \fi}}
%
\def\dar{\ar @*{[gray]}[d]}
\def\rar{\ar @*{[gray]}[r]}
\def\uar{\ar @*{[gray]}[ur]}
\def\udar{\ar @*{[gray]}[ur]}
\def\brdar{\ar @*{[red][thicker]}[d]}
\def\brrar{\ar @*{[red][thicker]}[r]}
\def\bruar{\ar @*{[red][thicker]}[ur]}
\def\bgdar{\ar @{<-}@*{[blue][thicker]}[ur]}
\def\bglar{\ar @{<-}@*{[blue][thicker]}[r]}
\def\bguar{\ar @{<-}@*{[blue][thicker]}[d]}
\def\objectstyle{\mathbf}
\def\Hviii{\relax\drop+++++[blue]!UL\txt\LARGE{$\varepsilon_{8,6}^{}\,H $}}
\def\Hiii{\relax\drop+[red]!DR\txt\LARGE{$ H\,\varepsilon_{7,5}^{} $}}
\def\Nx{\relax\drop+!UL\txt\LARGE{$N=10$}}
%
\xy\drop[thicker]\xybox{%
\xymatrix{
 &\Nx &&&&&&&& 10,10 \\
 &&&&&&&& 9,9 & 10,9 \\
 &&&&&&& 8,8 & 9,8 & 10,8 \\
 &&&&&& 7,7 & 8,7 & 9,7 & 10,7 \\
 &&&&& 6,6 & 7,6 & 8,6\drop[blue][thicker]\frm{o} & 9,6 & 10,6 \\
 &&&\Hiii& 5,5 & 6,5 & 7,5\drop[red][thicker]\frm{o} & 8,5 & 9,5 & 10,5 \\
 &&& 4,4 & 5,4 & 6,4 & 7,4 & 8,4 & 9,4 & 10,4 \\
 && 3,3\drop[red][thicker]\frm{o} 
     & 4,3 & 5,3 & 6,3 & 7,3 & 8,3 & 9,3 & 10,3\drop[blue][thicker]\frm{o} \\
 & 2,2 & 3,2 & 4,2 & 5,2 & 6,2 & 7,2 & 8,2 & 9,2 & 10,2 \\
  1,1 & 2,1 & 3,1 & 4,1 & 5,1 & 6,1 & 7,1 & 8,1\Hviii & 9,1 & 10,1 }
}\endxy
$$
\bigskip
\begin{center}\LARGE
A directed graph used to study the ideal lattice\\
of an endomorphism ring of a large module.
\end{center}
\vfill
\begin{flushright}\Large\bfseries
Typeset using \Xy-pic.
\end{flushright}
\vfill
\end{document}


