-3 6 setxrange
quadrillage

.7 setlinewidth
tracerepere
marks

/f {
   setxvar
   2 x mul
   x dup mul sub
   3 add
} def
/d {neg 3 add} def
/A {0 3} def
/B {3 0} def

1.3 setlinewidth
{f} courbe
(d) courbe
(2 sub dup mul 1 sub) courbe

[A B] points

16 setfontsize
setTimesItalic
   (C) -1.5 dup f (-5 0) ultext
   (f) indice
   (A) A (2 0) brtext
   (B) B urtext
   (D) -2 5 urtext