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

[A B] points

B A (->) pcbar

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