Présentation de ncangle.jps

/syracuse/bbgraf/albums/connect/ncangle.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 /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 /A {-3 3} def /B {3 -3} def /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) (->) ncangle <tex> \hsize 280pt La commande {\tt ncangle} trace en $B$, et suivant l'angle $angleB$ un bras de longueur $armB$, puis elle connecte ce bras en $A$, suivant l'angle $angleA$ par un double segment à angle droit. Le paramètre $linearc$ est utilisé pour arrondir les angles. </tex> xmin xmax add 2 div ymin uctexlabel /orthoproj {} def