# 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"))
}