R/plotPix.R

In duncantl/Rtesseract: Interface to the tesseract OCR system

plot.Pix =
    #
    # p = pixRead("inst/images/DifferentFonts.png")
    # p2 = pixConvertTo8(p)
    #
function(x, y, rgb = pixGetDepth(x) > 8, pixMax = NA, invert = FALSE, ..., pix = as.raster.Pix(x, rgb, pixMax))   
{
    if(invert)
        pix = (pix - max(pix)) * -1
#    opar = par(no.readonly = TRUE)
#    on.exit(par(opar))
#    par(mar = c(2.1, 2.1, 4.1, 2.1))
    plot(0, type = "n", xlim = c(1, ncol(pix)), ylim = c(1, nrow(pix)), xlab = "", ylab = "", ...)
    rasterImage(pix, 1, 1, ncol(pix), nrow(pix))
}

setMethod("plot", "Pix", plot.Pix)