%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/plein0 {.9 pl@in} def
/plein1 {.7 pl@in} def
/plein {.5 pl@in} def
/plein2 {.3 pl@in} def
/plein3 {.1 pl@in} def
%% syntaxe : x y e pl@in --> e = niveau de gris
%% parametre : rectwidth
/pl@in { %% x, y, e
gsave
setgray
exch %% y, x
newpath
rectwidth 2 div sub Oy smoveto
rectpath
fill
grestore
} def
|