800 setwidth
800 setheight

%% dimensions pour le calcul de l'echelle : on laisse de la place
%% pour pouvoir inscrire les legendes
11 141 setxrange
160 290 setyrange

%% maintenant les vreaies dimensions de quadrillage
26 126 setxrange
175 275 setyrange

26 175 setorigine %% inutile ?

[4 4] Quadrillage+

%% choix de la fonte
setTimes

/hauteur 5 def %% taille des barres verticales
/largeur 5 def %% taille des barres horizontales

%% les marques en bas
[xmin ymin xmin ymin hauteur sub] ligne
(26) xmin ymin hauteur sub dctext

[xmax ymin xmax ymin hauteur sub] ligne
(126) xmax ymin hauteur sub dctext

%% les marques en haut
[xmin ymax xmin ymax hauteur add] ligne
(26) xmin ymax hauteur add uctext

[xmax ymax xmax ymax hauteur add] ligne
(126) xmax ymax hauteur add uctext

%% les marques a droite
[xmin ymin xmin largeur sub ymin] ligne
(175) xmin largeur sub ymin cltext

[xmin ymax xmin largeur sub ymax] ligne
(275) xmin largeur sub ymax cltext

%% les marques a gauche
[xmax ymin xmax largeur add ymin] ligne
(175) xmax largeur add ymin crtext

[xmax ymax xmax largeur add ymax] ligne
(275) xmax largeur add ymax crtext
 
12 setfontsize

%% marques de 30 a 122 par pas de 4
%% en bas
26 175 setorigine 
30 4 122 {
   xmark
} for

%% marques de 175 a 275 par pas de 4
%% a gauche
179 4 271 {
   ymark
} for

%% marques de 30 a 122 par pas de 4
%% en haut
/xmarkstyle {uctext} def
26 275 setorigine 
30 4 122 {
   xmark
} for

%% marques de 175 a 275 par pas de 4
%% a droite
/ymarkstyle {crtext} def
126 275 setorigine 
179 4 271 {
   ymark
} for