%% auteur : Peric
-5 7 setxrange
-9 6 setyrange
50 setxunit
25 setyunit
2 setymkstep

/xmarkstyle {[1.3 dup] drtext} def
/ymarkstyle {[1.3 dup] ultext} def
/quadrillagewidth[.5 .4 .1] def
pointilles
gris
[0.5 1]{0.7 setlinewidth} Quadrillage
noir
continu
1.4 setlinewidth
%0.5 0.5 setsubtkstep
traceaxes
ticks
marks
%tracerepere
axesarrow

/A{-4 -7} def
/B{-3 -2} def
/C{-2 1} def
/D{-1.5 2} def
/E{0 3} def
/F{2 2} def
/G{4 1} def
/H{5.5 2} def
/I{6 3} def
/J{7 0} def
/K{8 -3} def

(A) A [1.5 dup] ultext
(B) I [1.5 dup] urtext
%(1) 1 0 [1.5 dup] dltext
%(5) 5 0 [1.5 dup] dltext
%(1) 0 1 [1.5 dup] cltext
%(5) 0 5 [1.5 dup] cltext

2.5 setlinewidth
[A .. B .. C .. D .. E{right} .. F .. G{right} .. H .. I] (*-*) draw
[A B C E F G I] {point2} papply

1.5 setlinewidth
{0 mul -2 add} courbe
{setxvar 3} courbe
{setxvar 4} courbe
[A I] ligne

1.5 setlinewidth
pointilles
[-4 0 -4 -7] ligne
[0 -7 -4 -7] ligne
[2 0 2 2] ligne
[0 2 2 2] ligne
[6 0 6 3] ligne
[0 3 6 3] ligne
[-3 -2 0 -2] ligne
[-3 0 -3 -2] ligne
[-2 1 4 1] ligne
[-2 0 -2 1] ligne
[4 0 4 1] ligne