issue366 work (back a step to get forward two)

Test code:

library(oce)
source('~/src/R-kelley/oce/R/map.R')
if (!interactive()) png("01.png", width=7, height=4, unit="in",
res=150, pointsize=9)
par(mfrow=c(3,2))
lonlim <- c(-20, 20)
latlim <- c(65, 87)

d <- list(lon=seq(-25, -11, length.out=5),
          lat=seq(71, 85 , length.out=10),
          z=matrix(1:5, nrow=5, ncol=10))
dt <- list(lon=seq(-25, -11, length.out=5),
           lat=seq(71, 85 , length.out=10),
           z=t(matrix(1:5, nrow=10, ncol=5)))

imagep(d$lon, d$lat, d$z, col=oceColorsJet)
imagep(dt$lon, dt$lat, dt$z, col=oceColorsJet(200))

mapPlot(coastlineWorld, longitudelim=lonlim, latitudelim=latlim,
projection='stereographic')
mapImage(d$lon, d$lat, d$z, col=oceColorsJet(200))
mapLines(coastlineWorld)

mapPlot(coastlineWorld, longitudelim=lonlim, latitudelim=latlim,
projection='stereographic')
mapImage(dt$lon, dt$lat, dt$z, col=oceColorsJet)
mapLines(coastlineWorld)

mapPlot(coastlineWorld, longitudelim=lonlim, latitudelim=latlim,
projection='stereographic')
mapImage(d$lon, d$lat, d$z, col=oceColorsJet, debug=99)
mapLines(coastlineWorld)

mapPlot(coastlineWorld, longitudelim=lonlim, latitudelim=latlim,
projection='stereographic')
mapImage(dt$lon, dt$lat, dt$z, col=oceColorsJet, debug=99)
mapLines(coastlineWorld)

if (!interactive()) dev.off()