15 setxunit
-10 10 setxrange
-8 4 setyrange

/arcangleA 10 def   %% angle au depart de la fleche
/arcangleB 10 def   %% oppose de l'angle a l'arrivee de la fleche
/nodesep 4 def      %% espace en picas separant les points A et B de
                    %% l'extremite de la connexion              

/dx_boxit 3 store
/dy_boxit 3 store
/A {-3 -2} def
/B {3 2} def

setTimes
circleit            %% encerclement du prochain label
(A) cnode           %% declaration d'un node circulaire (A)
(A) A cctext
circleit            %% encerclement du prochain label
(B) cnode           %% declaration d'un node circulaire (B)
(B) B cctext

(B) (A) (->) ncarc
(A) (B) (->) ncarc

<tex>
\hsize 280pt
La commande {\tt ncarc} connecte les points avec une courbe de
Bézier, en utilisant le paramètre $nodesep$. La courbe se connecte en
$A$ avec un angle $arcangleA$ par rapport à la droite $(AB)$ et se
connecte en $B$ avec un angle $-arcangleB$ par rapport à la droite
$(AB)$. 
</tex>
xmin xmax add 2 div ymin uctexlabel