\documentclass{ppex}
\nonstopmode
\usepackage [curve]{xy}
\pagestyle{empty}
\setlength\textwidth{183.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage [curve]{xy}
\[\begin{xy}
0*+{L};(50,20)*+{R}
**\crv{~*=<2mm>{.}(20,30)&(30,35)}
**\crv~Lc{~**@{==}~*{\bullet}%
(20,-15)&(30,-15)}
\end{xy}\]
\end{document}