quadrillage

.7 setlinewidth
tracerepere
marks

1.2 setlinewidth

{4 add} courbe
{4 add neg} courbe

%% /d1 {4 add} def
%% /d2 {4 add neg} def
%% 
%% (d1) courbe
%% (d2) courbe


setTimesItalic
   (d) -5.5 -2 bctext
setTimes
   (1) indice
setTimesItalic
   (d) -5.5 1.5 uctext
setTimes
   (2) indice