[Therion] create area filled with a colour

[Bruce]

If you want to create a user defined area, you could copy the area water
code from here http://therion.speleo.sk/wiki/doku.php?id=metapost 
And modify it like this say...

  code metapost
    def a_u_myarea (expr p) =
      T:=identity;
      thfill p withcolor black;  % or 0.5green + 0.1red for example
    enddef;
  endcode

initsymbol("a_u_myarea ")

#to include the new symbol in the legend...
code metapost
def a_u_myarea_legend =
  a_u_myarea(<some appropriate code in here>)
enddef;
endcode

>Dear friends,

>Is there a way to create a simple filled area? Suppose I want to
>create a black area enclosed by a line of type border to draw the
>outline of a pillar, which is to big to be represented as a point
>symbol.

>Mihai T.