/ovaln@deencours false def
 /dian@deencours false def
 /Rn@deencours false def
 /n@deencours false def
 /cn@deencours false def
 /Cn@deencours false def

 /arrowscale {1 1} def
 /ahlength {6 arrowscale pop mul} def
 /ahangle 35 def
 /ahcoeff 1 def
 /arcsep 2 def

%%%%% parametres pour les "points connexion"
 /arcangleA 10 def   %% angle au depart de la fleche
 /arcangleB 10 def   %% oppose de l'angle a l'arrivee de la fleche
 /nodesep 0 def      %% espace en picas separant les points A et B de
 		     %% l'extremite de la connexion              
 /armA 10 def        %% longueur en picas du bras en A
 /armB 10 def        %% longueur en picas du bras en B
 /angleB 0 def       %% angle d'arrivee en B
 /angleA 0 def       %% angle de depart en A