Fichier ncdiag.jps — Modifié le 11 Mars 2006 à 11 h 09
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
/armA 20 def %% longueur en picas du bras en A
/armB 20 def %% longueur en picas du bras en B
/angleA -90 def %% angle de depart en A
/angleB 90 def %% angle d'arrivee en B
/linearc .5 def %% rayon en unites jps du cercle pour arrondir les
%% angles
/A {-3 3} def
/B {3 -3} 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) (->) ncdiag
<tex>
\hsize 280pt
La commande {\tt ncdiag} trace d'abord les bras de longueurs
res\-pec\-ti\-ves $armA$ et $armB$ à des angles respectifs $angleA$ et
$angleB$. Ensuite, ces bras sont connecté par une ligne droite.
Le pa\-ra\-mè\-tre $linearc$ est utilisé pour arrondir les angles.
</tex>
xmin xmax add 2 div ymin uctexlabel