%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/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
|