\documentclass{ppex}
\nonstopmode
\usepackage [all,poly]{xy}
\pagestyle{empty}
\setlength\textwidth{183.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [all,poly]{xy}
\[\begin{xy} /r1cm/:
  {\xypolygon4"F"{~:{(0,.6)::}}},+(.8,1.3)
 ,{\xypolygon4"B"{~:{(.7,0):(0,.7)::}}}
 ,"F1";"B1"**@{.} ,"F2";"B2"**@{.}
 ,"F3";"B3"**@{.} ,"F4";"B4"**@{.}
\end{xy}
\qquad
\begin{xy} /1cm/:
  {\xypolygon4"F"{~:{(0,.6)::}}},+(.8,1.3)
 ,{\xypolygon4"B"{~:{(.7,0):(0,.7)::}}}
 ,"F1";"B1"**@{.} ,"F2";"B2"**@{.}
 ,"F3";"B3"**@{.} ,"F4";"B4"**@{.}
\end{xy}\]
\end{document}