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 \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. xmin xmax add 2 div ymin uctexlabel