-5 5 setxrange
-3 4 setyrange
quadrillage
marks

/regle_graduee_var {
5 dict begin
/longueur exch def
gsave
   currentpoint ptojpoint stranslate    
   %% le corps de la regle
   -1 -1 longueur 1 add 0 frame
   %% l'etendue de ses graduations
   0 longueur .01 add setxrange
   .1 setxsubtkstep            %% le pas pour les sous-graduations
   %% redef des macros de graduations (chgt de longueur)
   /xtick {4 xt@ck} def
   /xsubtick {2.5 xt@ck} def
   %% du coup on descend l'inscription des marques
   /xmarkstyle {(0 -4) dctext} def
   %% le dessin
   gsave
   0 -4 translate	%% pour que les traits ne depassent pas de la regle
      xticks		%% les graduations
      xmarks		%% les marques
      O xmark		%% et le 0 qui n'est pas marque par defaut
   grestore
   0 -2.5 translate	%% pour que les traits ne depassent pas de la regle
   xsubticks		%% les graduations
grestore
end
} def

%% cette regle est statique
/regle_graduee {
   5 regle_graduee_var
} def

%% donc ses dimensions aussi
/regle_graduee_dim {
   -1 -1 jtoppoint
   6 0 jtoppoint
} def

%% on la place avec le point bc en (0, -1)
0 -1 
dupp point
(regle_graduee) bcpict

%% on la place avec le point bb en (-3, 3)
-3 3
dupp point
(regle_graduee) bbpict