%% auteur : 

-7 6 setxrange
-2 6 setyrange
50 setxunit
50 setyunit
/A{-4 5} def
/B{4 4} def
/C{2 1} def
/D{-6 2} def
/quadrillagewidth[.7 .4 .1] def
[1 1 .5 .5 ]{.7 setgray} Quadrillage

1.2 setlinewidth
1 1 setmkstep
  ticks
subticks
%marks

traceaxes
ticks
%marks
traceaxes
axesarrow



[A B C D] points
[A B C] polygone

#latex#$I$
1 0  [2 2] dctexlabel

#latex#$J$
0 1  [2 2] cltexlabel
#latex#$A$
-4 5  [2 2] ultexlabel

#latex#$B$
4 4  [2 2] urtexlabel
#latex#$C$
2 1  [2 2] dctexlabel

#latex#$D$
D  [2 2] cltexlabel

setTimes
%(1) 1 0 [1.5 1.5] dtext
%(1) 0 1 [1.5 1.5] ltext
(O) O [1.5 1.5] dltext
setTimesItalic
   (x) xmax 0 (-10 0) ultext
   (y) 0 ymax  (0 -10) drtext