Présentation de ncbar.jps

/syracuse/bbgraf/albums/connect/ncbar.jpg
15 setxunit -10 10 setxrange -8 4 setyrange /nodesep 2 def %% espace en picas separant les points A et B de %% l'extremite de la connexion /armA 10 def %% longueur en picas du bras en A /armB 10 def %% longueur en picas du bras en B /angleA -90 def %% angle de depart en A /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 (B) (A) (->) ncbar <tex> \hsize 280pt La commande {\tt ncbar} trace d'abord les bras de longueurs res\-pec\-ti\-ves $armA$ et $armB$ à un angle $angleA$. Ensuite, l'un des bras est étendu puis connecté, de telle façon que la ligne finale soit composée de 3~segments à angle droit. Le paramètre $linearc$ est utilisé pour arrondir les angles. </tex> xmin xmax add 2 div ymin uctexlabel