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 40 def        %% longueur en picas du bras en A
/angleA 180 def     %% angle de depart en A

/linearc .5 def     %% rayon en unites jps du cercle pour arrondir les
                    %% angles
/A {3 3} def
/B {3 -3} def
/C {-3 0} def

[A B C] points

A C pcdiagg
B C pcdiagg

<tex>
\hsize 280pt
La commande {\tt pcdiagg} trace d'abord, en $A$ et à l'angle $angleA$,
le bras de longueur $armA$. Ensuite, ce bras est directement connecté
au point $B$. Le pa\-ra\-mè\-tre $linearc$ est utilisé pour arrondir
les angles. 
</tex>
xmin xmax add 2 div ymin uctexlabel