quadrillage marks
10 setxunit

/fillstyle {rouge fill} def
-4 -4 2 2 frame*
/fillstyle {jaune fill} def
%% on encapsule le chgt de fillopacity
1 dict begin
   .5 setfillopacity
   0 0 4 4 frame*
end
%% retour au fillopacity par defaut
2 -4 2 cercle*