%% syntaxe : A B angle
%% --> num, l'angle defini par le vecteur AB dans le repere orthonorme jps
/angle {
vecteur exch atan
dup 180 gt
{360 sub}
if
} def
%% syntaxe : A B pangle
%% --> num, l'angle defini par le vecteur AB dans le repere postscript
/pangle {
jtoppoint exchp jtoppoint exchp vecteur exch atan
dup 180 gt
{360 sub}
if
} def
|