15 setxunit
-10 10 setxrange
-4 4 setyrange
/nodesep 2 def %% espace en picas separant les points A et B de
%% l'extremite de la connexion
/A {-3 3} def
/B {3 1} 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
(A) (B) (->) ncline
<tex>
\hsize 280pt
La commande {\tt ncline} trace une simple ligne entre les nodes $A$
et $B$. Seul le paramètre $nodesep$ est utilisé.
</tex>
xmin xmax add 2 div ymin uctexlabel
|