400 setwidth
400 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