marks
-6 10 setxrange
-6 10 setyrange
quadrillage
.7 setlinewidth
tracerepere

%% on se donne un cercle et une droite
/I {3 1} def
/C {I 5} def
/d {O 3 -4} def

%% on cherche les tangentes au cercle paralleles a la droite donnee

d I perp /d' defdroite
d' C interdroitecercle /A defpoint /B defpoint
d A paral /d1 defdroite
d B paral /d2 defdroite

[I A B] points
C cercle
[d d1 d2] {droite} dapply

I d1 angledroit
I d2 angledroit

pointilles
d' droite

setTimesItalic
   (I) I ultext
setSymbol
   (D) -4.3 6 urtext
   (D) -5 2 drtext
   (1) indice
   (D) 5 7 urtext
   (2) indice