Source
20 setfontsize

1 setxyrapport
25 setxunit
7.5 setborder
90 setangle_repere
-5.5 6.5 setxrange
-10.5 5.5 setyrange
1 setquadrillagexstep
1 setquadrillageystep
/quadrillagegray 0 def
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
marks
traceaxes
axesarrow

/A {-5 1} def
/B {-4 -6.5} def
/C {-3 -9} def
/D {-2 -7.7} def
/E {-1 -5} def
/F {0 -2} def
/G {1 0} def
/H {2 0.5} def
/I {3 0} def
/J {4 -0.5} def
/K {4.5 0} def
/L {5 1} def
/M {6 5} def

/.. {1.2 1.2} def

gsave
bleu
1 setlinewidth

[ A{0 0 1 -8 vecteur} .. {0 0 1 -8 vecteur}B{0 0 1 -5 vecteur} 2 2 C{right} .. D .. E .. F .. G .. H{right} .. I .. J .. K .. L .. M] draw

grestore

noir
setTimesItalic
(O) O [1.25 1.25] dltext
%% adresse IP : 82.230.142.134