quadrillage marks
10 setxunit

%% chgt global de fillopacity
.5 setfillopacity 
/fillstyle {rouge fill} def
-4 -4 2 2 frame*
/fillstyle {jaune fill} def
0 0 4 4 frame*
2 -4 2 cercle*