-8 8 setxrange
-8 8 setyrange

2 2 setmkstep
20 setxunit

/A {-2 4} def
/B {4 2} def
/C {-4 -2} def
/D {2 -4} def
/I {A B milieu} def
/J {C B milieu} def

A J C I interdroite /G defpoint

quadrillage
[A B C D I J G] points
tracerepere
marks

/f1 {.5 mul} def
/f2 {neg 10 add 3 div} def

C A B angledroit

{f1} courbe
{f2} courbe
A C droite
A O droite
[C D B] ligne
C I droite

setTimesItalic
   (O) O (2 -1) dltext
   (A) A (-2 1) dltext
   (B) B uctext
   (C) C ultext
   (D) D dltext
   (I) I uctext
   (J) J (0 1) urtext
   (G) G cltext
   (d) 7 dup f1 ultext
setTimes
   (1) indice
setTimesItalic
   (d) -7 dup f2 urtext
setTimes
   (2) indice
setTimesItalic
   (d) -5 A C xdpoint drtext
setTimes
   (3) indice
setTimesItalic
   (d) 3 A O xdpoint dltext
setTimes
   (4) indice