Présentation de ncdiagg.jps

/syracuse/bbgraf/albums/connect/ncdiagg.jpg
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