%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/rect {2 r@ct} def
/rect0 {.5 r@ct} def
/rect1 {1 r@ct} def
/rect2 {3 r@ct} def
/rect3 {4 r@ct} def

/rectwidth .7 def

%% syntaxe : y rectpath                              __
%% parametre : rectwidth			   .|  |
%% si y non nul, ajoute au chemin courant les 3 cotes d'un rectangle de hauteur y et
%% de largeur rectwidth. sinon ne fait rien
 /rectpath {                %% y
   Oy sub
   dup			   %% y, y
   0 ne {		   %% y
      dup 0 exch           %% y, 0, y
      srlineto             %% y
      rectwidth 0 srlineto %% y
      0 exch               %% 0, y
      neg srlineto
   } 
   {pop}
   ifelse
} def

%% syntaxe : x y e r@ct --> e = epaisseur du trait
 /r@ct {         %% x, y, e
   gsave
   setlinewidth
   exch         %% y, x
   newpath
      rectwidth 2 div sub Oy smoveto
      rectpath
   stroke
   grestore
} def