-5 5 setxrange
-5 5 setyrange

%% on se garde de la place pour inscrire les graduations
%% et on preserve un entourage de largeur 1
-4 4 setxrange
-4 4 setyrange

%% bricolage pour avoir un repere 'boxed'
4 dup setorigine
traceaxes
%% on met un dictionnaire pour que les redefinitions des 'markstyle'
%% restent locales. Et on redefinit ces styles pour que la
%% numerotation soit suffisamment eloignee du dessin
2 dict begin
   /xmarkstyle {(0 3) uctext} def
   /ymarkstyle {(3 0) brtext} def
   marks
   %% la commande 'marks' ne marque pas en O
   0 xmark
   0 ymark
end

%% et rebelote pour les 2 autres cotes de notre repere
-4 dup setorigine
traceaxes
2 dict begin
   /xmarkstyle {(0 -3) dctext} def
   /ymarkstyle {(-3 0) bltext} def
   marks
   %% la commande 'marks' ne marque pas en O
   0 xmark
   0 ymark
end


%% puis on masque pour rester dans notre nouvelle fenêtre de dessin
masque

quadrillage
0 -3 2 cercle