Grid drawing over the filled.contour's legend

Add the following lines before grid:

     # insert 3 lines of code, stolen from filled.contour():
     mar.orig <- par("mar")
     w <- (3 + mar.orig[2]) * par("csi") * 2.54
     layout(matrix(c(2, 1), nc = 2), widths = c(1, lcm(w)))

Taken from thil list somewhere.
Ciao!
                     mario

Ing. Mario Valle
Data Analysis and Visualization Group            | http://www.cscs.ch/~mvalle
Swiss National Supercomputing Centre (CSCS)      | Tel:  +41 (91) 610.82.60
v. Cantonale Galleria 2, 6928 Manno, Switzerland | Fax:  +41 (91) 610.82.82