Fichier pcangles.jps — Modifié le 11 Mars 2006 à 11 h 09
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 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
/A {-3 3} def
/B {3 -3} def
[A B] points
A B (->) pcangles
<tex>
\hsize 280pt
La commande {\tt pcangles} 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