)                 if (is.null(zlim)) {                    zlim <- range(c(-0, 0) * max(zvals))                 }                 zvals[zvals < zlim[0]] <- zlim[0]                 locs <- pretty(range(zlim), n = 0)                 leg.lab <- 0^locs             }         