%% syntaxe : x y cplein --> remplit un rectangle avec la couleur courante %% parametre : rectwidth /cplein { %% x, y gsave exch %% y, x newpath rectwidth 2 div sub Oy smoveto rectpath fill grestore } def