Fichier ncdiagg.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 40 def %% longueur en picas du bras en A
/angleA 180 def %% angle de depart en A
/linearc .5 def %% rayon en unites jps du cercle pour arrondir les
%% angles
/A {3 3} def
/B {3 -3} def
/C {-3 0} def
/dx_boxit 3 def
/dy_boxit 3 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
/dx_boxit 1 def
/dy_boxit 1 def
circleit %% encerclement du prochain label
(C) cnode %% declaration d'un node circulaire (C)
() C cctext %% node vide
(A) (C) (-) ncdiagg
(B) (C) (-) ncdiagg
<tex>
\hsize 280pt
La commande {\tt ncdiagg} trace d'abord, en $A$ et à l'angle $angleA$,
le bras de longueur $armA$. Ensuite, ce bras est directement connecté
au point $B$. Le pa\-ra\-mè\-tre $linearc$ est utilisé pour arrondir
les angles.
</tex>
xmin xmax add 2 div ymin uctexlabel