World

require(OceanView)
require(shape)
cols <- ramp.col(c( "lightblue1", "grey10"), n = 100)
par(mar = c(0, 0, 0, 1))
image2D(Hypsometry, col = cols, shade = 0.1, rasterImage = TRUE, 
   contour = list(levels = 0, draw = F), axes = FALSE, xlab = "", ylab = "",  
   colkey = list(width = 0.5, length = 0.5, cex.axis = 0.7))