Présentation de ncangles.jps

/syracuse/bbgraf/albums/connect/ncangles.jpg
15 setxunit -10 10 setxrange -8 4 setyrange /A {-3 3} def /B {3 -2} def /nodesep 3 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 20 def %% longueur en picas du bras en B /angleA -90 def %% angle de depart en A /angleB 0 def %% angle d'arrivee en B /linearc .5 def %% rayon en unites jps du cercle pour arrondir les %% angles /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) (->) ncangles <tex> \hsize 280pt La commande {\tt ncangles} trace en $A$ (resp. $B$), et suivant l'angle $angleA$ (resp. $angleB$) un bras de longueur $armA$ (resp. $armB$), puis elle connecte les 2~bras par un double segment à angle droit (en partant de $B$). Le paramètre $linearc$ est utilisé pour arrondir les angles. </tex> xmin xmax add 2 div ymin uctexlabel