\documentclass{ppex}
\nonstopmode
\usepackage [all,poly]{xy}
\pagestyle{empty}
\setlength\textwidth{135.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [all,poly]{xy}
\newcounter{node}
%
\[
\renewcommand{\objectstyle}{\scriptstyle}
\newcommand{\Letter}%
{{\setcounter{node}%
{\xypolynode}\Alph{node}}}
%
\begin{xy} /r11mm/:
(2,4.8), {\xypolygon6{~*{\xypolynode}}}
,(2,2.5), {*{0}*\cir<5pt>{}
\xypolygon6{~*{\xybox{%
*{\xypolynode}*\cir<2mm>{}}}}}
,(2,0) , {\xypolygon6{%
~><{@/_.5ex/}
~>>{_{\delta^{\xypolynode}_{\xypolynum}}}
~<<{@{=}}
~<>{|\uparrow}
~*{\Letter}}}
\end{xy}
\]
\end{document}