15 setxunit -10 10 setxrange -8 4 setyrange /nodesep 3 def %% espace en picas separant les points A et B de %% l'extremite de la connexion /angleA 0 def %% angle de depart en A /angleB 180 def %% angle d'arrivee en B /A {-3 -4} def /B {3 2} def /dx_boxit 5 store /dy_boxit 5 store setTimes /linearc .3 store %% pour arrondir les angles boxit %% encadrement du prochain label (A) node %% declaration d'un node rectangulaire (A) (Node A) A cctext circleit %% encerclement du prochain label (B) cnode %% declaration d'un node circulaire (B) #tex# \TeX B cctexlabel /arrowangle 7.5 def %% on ajuste la rotation de la fleche (A) (B) (->) nccurve \hsize 280pt La commande {\tt nccurve} trace une courbe de Bézier entre les points $A$ et $B$. Les paramètres $angleA$ et $angleB$ sont utilisés. xmin xmax add 2 div ymin uctexlabel