Présentation de ncangles.jps

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