Présentation de pcangle.jps

/syracuse/bbgraf/albums/connect/pcangle.jpg
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