imagep(): draw palette triangles if zclip=TRUE

Test code below

    library(oce)
    m <- matrix(1:100, nrow=10)
    par(mfrow=c(1,2))
    imagep(m)
    imagep(m, zclip=TRUE)