\documentclass[a4paper]{article}
%\usepackage[nodump]{ldump}
%\usepackage{ldump}
\usepackage[dvips,arrow,matrix,ps,color,line]{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}
$$
\everyentry={{\RCsum=\Row \advance\RCsum\Col
 \ifnum\RCsum>10\relax 
  \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 @*{[green][thicker]}[d]}
\def\rar{\ar @*{[blue][thicker]}[r]}
\def\uar{\ar @*{[red][thicker]}[ur]}
%\def\udar{\ar @*{[blue][thicker]}[ur]}
\def\udar{\ar @*{[red][thicker]}[ur]}
\def\objectstyle{\mathbf}
\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 & 9,6 & 10,6 \\
 &&&& 5,5 & 6,5 & 7,5 & 8,5 & 9,5 & 10,5 \\
 &&& 4,4 & 5,4 & 6,4 & 7,4 & 8,4 & 9,4 & 10,4 \\
 && 3,3 & 4,3 & 5,3 & 6,3 & 7,3 & 8,3 & 9,3 & 10,3 \\
 & 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 & 9,1 & 10,1 }
}\endxy
$$
\bigskip
\begin{center}\LARGE
Directed graph used to study the endomorphism ring\\
of a large module.
\end{center}
\vfill
\begin{flushright}\Large\bfseries
Typeset using \Xy-pic.
\end{flushright}
\vfill
\end{document}
