%% 
%%  Ein Beispiel der DANTE-Edition
%% 
%% 
%%  Copyright (C) 2010 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{190.324pt}
\setlength\parindent{0pt}
\StartShownPreambleCommands
\usepackage{pstricks,pst-node}
\SpecialCoor
\makeatletter
\def\SpecialCnode{\@ifnextchar[{\SpecialCnode@i}{\SpecialCnode@i[]}}
\def\SpecialCnode@i[#1](#2,#3)#4{{%
  \psset{#1}
  \cnode@ii(#2,#3){\psk@radius}{#4}%
  \pst@dimc=\psk@radius%
  \pnode(!#2 \pst@number\pst@dimc \pst@number\psxunit div sub #3){#4L}%
  \pnode(!#2 \pst@number\pst@dimc \pst@number\psxunit div add #3){#4R}%
  \pnode(!#2 #3 \pst@number\pst@dimc \pst@number\psyunit div add){#4T}%
  \pnode(!#2 #3 \pst@number\pst@dimc \pst@number\psyunit div sub){#4B}%
}}
\makeatother
\StopShownPreambleCommands
\begin{document}

\SpecialCnode[fillstyle=solid,fillcolor=blue!20,radius=0.75,linecolor=blue](1,0.8){d}
\psdots(d)(dL)(dT)(dR)(dB)
\uput[90](dT){dT}\uput[0](dR){dR}\uput[-90](dB){dB}\uput[180](dL){dL}
%
\SpecialCnode[fillstyle=solid,fillcolor=red!20,linecolor=red,radius=0.5](5,0.8){c}
\psdots(c)(cL)(cT)(cR)(cB)
\uput[90](cT){cT}\uput[0](cR){cR}\uput[-90](cB){cB}\uput[180](cL){cL}
%
\nccurve[angleA=90,angleB=180,ncurv=2,linecolor=green,linewidth=1pt]{cT}{dL}
\nccurve[angleA=0,angleB=45,ncurv=2,linecolor=magenta,linewidth=1pt]{->}{cR}{dT}
\end{document}
