60 setangle_repere

-10 10 setxrange
-6 12 setyrange

masque
/I {5 -4} def
/J {-8 5} def

quadrillage

marks
tracerepere

{} courbe
[I J] points
bleu
I 2.5 cercle
rouge
J 2.5 cercle

noir
setTimesItalic
   (I) I urtext
   (J) J urtext