layout area_surface_grey
  code metapost
  % area with grey filling
    def a_u_surface_grey (expr p) =
    T:=identity;
    thfill p withcolor (0.8, 0.8, 0.8);
    enddef;
    initsymbol("a_u_surface_grey");
  endcode
endlayout