-2 8 setyrange -3 7 setxrange quadrillage tracerepere marks /A {-2 5} def /B {2 -1} def /C {5 1} def /D {15 4 div -.5} def /I {A C milieu} def /G {I I B vecteur 1 3 div mulv addv} def I I A distance cercle [G I] {times2} plot [A B C D] points [A B C] polygone A B C angledroit pointilles [I B] ligne setTimesItalic (O) O drtext (A) A ultext (B) B drtext (C) C drtext (D) D drtext (I) I urtext (G) G urtext