%% ell A elltangente --> la droite tangente a l'ellipse ell en A (A sur
%% l'ellipse E)
/elltangente {
5 dict begin
/A defpoint
aload pop
/alpha exch def
/b exch def
/a exch def
/I defpoint
/theta I A angle def
A
%% un vecteur tangent
a neg theta sin mul
b theta cos mul
addv
A
end
} def
|