15 setxunit
-10 10 setxrange
-8 4 setyrange

/nodesep 5 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

[A B] points

A B (->) pcangle

<tex>
\hsize 280pt
La commande {\tt pcangle} 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