# fields, Tools for spatial data
# Copyright 2004-2007, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html

"fields.style" <-
function () 
{
    par(bg = "wheat4", cex.axis = 1.2, cex.lab = 1.2, cex = 1.2, 
        cex.sub = 1.2, cex.main = 1.2, lwd=1.5)
    palette( c("orange1","green2", "blue2", "red1"))

}