/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
|