-5 8 setxrange
-3 8 setyrange

%.5 .5 setquadrillagestep
quadrillage
tracerepere
marks

1 setlinewidth
-4 3 2 1 droite         %% D3
0 -2 2 -2 droite	%% D2
-3 0 -1 1 droite	%% D1

%% /f {
%%    setxvar
%%    x dup mul neg 
%%    x 2 mul add
%%    4 add
%% } def
%% 
%% {f} courbe

setTimesItalic
   (D) -2 -2 ultext
setTimes
   (2) indice
setTimesItalic
   (D) 6 5 urtext
setTimes
   (1) indice
setTimesItalic
   (D) -3 2.7 dltext
setTimes
   (3) indice