package ij.io;
import ij.*;
import ij.process.*;
import java.io.*;
import java.net.*;
import java.awt.image.BufferedImage;
import javax.imageio.ImageIO;
import java.util.zip.Inflater;
import java.util.zip.DataFormatException;


/** Reads raw 8-bit, 16-bit or 32-bit (float or RGB)
    images from a stream or URL. */
public class ImageReader {

    private static final int CLEAR_CODE = 256;
    private static final int EOI_CODE = 257;

    private FileInfo fi;
    private int width, height;
    private long skipCount;
    private int bytesPerPixel, bufferSize, nPixels;
    private long byteCount;
    private boolean showProgressBar=true;
    private int eofErrorCount;
    private long startTime;
    public double min, max; // readRGB48() calculates min/max pixel values

    /**
    Constructs a new ImageReader using a FileInfo object to describe the file to be read.
    @see ij.io.FileInfo
    */
    public ImageReader (FileInfo fi) {
        this.fi = fi;
        width = fi.width;
        height = fi.height;
        skipCount = fi.getOffset();
    }
    
    void eofError() {
        eofErrorCount++;
    }
    
    byte[] read8bitImage(InputStream in) throws IOException {
        if (fi.compression>FileInfo.COMPRESSION_NONE)
            return readCompressed8bitImage(in);
        byte[] pixels = new byte[nPixels];
        // assume contiguous strips
        int count, actuallyRead;
        int totalRead = 0;
        while (totalRead<byteCount) {
            if (totalRead+bufferSize>byteCount)
                count = (int)(byteCount-totalRead);
            else
                count = bufferSize;
            actuallyRead = in.read(pixels, totalRead, count);
            if (actuallyRead==-1) {eofError(); break;}
            totalRead += actuallyRead;
            showProgress(totalRead, byteCount);
        }
        return pixels;
    }
    
    byte[] readCompressed8bitImage(InputStream in) throws IOException {
        byte[] pixels = new byte[nPixels];
        int current = 0;
        byte last = 0;
        for (int i=0; i<fi.stripOffsets.length; i++) {
            if (in instanceof RandomAccessStream)
                ((RandomAccessStream)in).seek(fi.stripOffsets[i]);
            else if (i > 0) {
                long skip = (fi.stripOffsets[i]&0xffffffffL) - (fi.stripOffsets[i-1]&0xffffffffL) - fi.stripLengths[i-1];
                if (skip > 0L) in.skip(skip);
            }
            byte[] byteArray = new byte[fi.stripLengths[i]];
            int read = 0, left = byteArray.length;
            while (left > 0) {
                int r = in.read(byteArray, read, left);
                if (r == -1) {eofError(); break;}
                read += r;
                left -= r;
            }
            byteArray = uncompress(byteArray);
            int length = byteArray.length;
            length = length - (length%fi.width);
            if (fi.compression==FileInfo.LZW_WITH_DIFFERENCING) {
                for (int b=0; b<length; b++) {
                    byteArray[b] += last;
                    last = b % fi.width == fi.width - 1 ? 0 : byteArray[b];
                }
            }
            if (current+length>pixels.length) length = pixels.length-current;
            System.arraycopy(byteArray, 0, pixels, current, length);
            current += length;
            showProgress(i+1, fi.stripOffsets.length);
        }
        return pixels;
    }
    
    /** Reads a 16-bit image. Signed pixels are converted to unsigned by adding 32768. */
    short[] read16bitImage(InputStream in) throws IOException {
        if (fi.compression>FileInfo.COMPRESSION_NONE || (fi.stripOffsets!=null&&fi.stripOffsets.length>1) && fi.fileType!=FileInfo.RGB48_PLANAR)
            return readCompressed16bitImage(in);
        int pixelsRead;
        byte[] buffer = new byte[bufferSize];
        short[] pixels = new short[nPixels];
        long totalRead = 0L;
        int base = 0;
        int count, value;
        int bufferCount;
        
        while (totalRead<byteCount) {
            if ((totalRead+bufferSize)>byteCount)
                bufferSize = (int)(byteCount-totalRead);
            bufferCount = 0;
            while (bufferCount<bufferSize) { // fill the buffer
                count = in.read(buffer, bufferCount, bufferSize-bufferCount);
                if (count==-1) {
                    if (bufferCount>0)
                        for (int i=bufferCount; i<bufferSize; i++) buffer[i] = 0;
                    totalRead = byteCount;
                    eofError();
                    break;
                }
                bufferCount += count;
            }
            totalRead += bufferSize;
            showProgress(totalRead, byteCount);
            pixelsRead = bufferSize/bytesPerPixel;
            if (fi.intelByteOrder) {
                if (fi.fileType==FileInfo.GRAY16_SIGNED)
                    for (int i=base,j=0; i<(base+pixelsRead); i++,j+=2)
                        pixels[i] = (short)((((buffer[j+1]&0xff)<<8) | (buffer[j]&0xff))+32768);
                else
                    for (int i=base,j=0; i<(base+pixelsRead); i++,j+=2)
                        pixels[i] = (short)(((buffer[j+1]&0xff)<<8) | (buffer[j]&0xff));
            } else {
                if (fi.fileType==FileInfo.GRAY16_SIGNED)
                    for (int i=base,j=0; i<(base+pixelsRead); i++,j+=2)
                        pixels[i] = (short)((((buffer[j]&0xff)<<8) | (buffer[j+1]&0xff))+32768);
                else
                    for (int i=base,j=0; i<(base+pixelsRead); i++,j+=2)
                        pixels[i] = (short)(((buffer[j]&0xff)<<8) | (buffer[j+1]&0xff));
            }
            base += pixelsRead;
        }
        return pixels;
    }
    
    short[] readCompressed16bitImage(InputStream in) throws IOException {
        if (IJ.debugMode) IJ.log("ImageReader.read16bit, offset="+fi.stripOffsets[0]);
        short[] pixels = new short[nPixels];
        int base = 0;
        short last = 0;
        for (int k=0; k<fi.stripOffsets.length; k++) {
            //IJ.log("seek: "+fi.stripOffsets[k]+" "+fi.stripLengths[k]+"  "+(in instanceof RandomAccessStream));
            if (in instanceof RandomAccessStream)
                ((RandomAccessStream)in).seek(fi.stripOffsets[k]);
            else if (k > 0) {
                long skip = (fi.stripOffsets[k]&0xffffffffL) - (fi.stripOffsets[k-1]&0xffffffffL) - fi.stripLengths[k-1];
                if (skip > 0L) in.skip(skip);
            }
            byte[] byteArray = new byte[fi.stripLengths[k]];
            int read = 0, left = byteArray.length;
            while (left > 0) {
                int r = in.read(byteArray, read, left);
                if (r == -1) {eofError(); break;}
                read += r;
                left -= r;
            }
            byteArray = uncompress(byteArray);
            int pixelsRead = byteArray.length/bytesPerPixel;
            pixelsRead = pixelsRead - (pixelsRead%fi.width);
            int pmax = base+pixelsRead;
            if (pmax > nPixels) pmax = nPixels;
            if (fi.intelByteOrder) {
                for (int i=base,j=0; i<pmax; i++,j+=2)
                    pixels[i] = (short)(((byteArray[j+1]&0xff)<<8) | (byteArray[j]&0xff));
            } else {
                for (int i=base,j=0; i<pmax; i++,j+=2)
                    pixels[i] = (short)(((byteArray[j]&0xff)<<8) | (byteArray[j+1]&0xff));
            }
            if (fi.compression==FileInfo.LZW_WITH_DIFFERENCING) {
                for (int b=base; b<pmax; b++) {
                    pixels[b] += last;
                    last = b % fi.width == fi.width - 1 ? 0 : pixels[b];
                }
            }
            base += pixelsRead;
            showProgress(k+1, fi.stripOffsets.length);
        }
        if (fi.fileType==FileInfo.GRAY16_SIGNED) {
            // convert to unsigned
            for (int i=0; i<nPixels; i++)
                pixels[i] = (short)(pixels[i]+32768);
        }
        return pixels;
    }

    float[] read32bitImage(InputStream in) throws IOException {
        if (fi.compression>FileInfo.COMPRESSION_NONE || (fi.stripOffsets!=null&&fi.stripOffsets.length>1))
            return readCompressed32bitImage(in);
        int pixelsRead;
        byte[] buffer = new byte[bufferSize];
        float[] pixels = new float[nPixels];
        long totalRead = 0L;
        int base = 0;
        int count, value;
        int bufferCount;
        int tmp;
        
        while (totalRead<byteCount) {
            if ((totalRead+bufferSize)>byteCount)
                bufferSize = (int)(byteCount-totalRead);
            bufferCount = 0;
            while (bufferCount<bufferSize) { // fill the buffer
                count = in.read(buffer, bufferCount, bufferSize-bufferCount);
                if (count==-1) {
                    if (bufferCount>0)
                        for (int i=bufferCount; i<bufferSize; i++) buffer[i] = 0;
                    totalRead = byteCount;
                    eofError();
                    break;
                }
                bufferCount += count;
            }
            totalRead += bufferSize;
            showProgress(totalRead, byteCount);
            pixelsRead = bufferSize/bytesPerPixel;
            int pmax = base+pixelsRead;
            if (pmax>nPixels) pmax = nPixels;
            int j = 0;
            if (fi.intelByteOrder)
                for (int i=base; i<pmax; i++) {
                    tmp = (int)(((buffer[j+3]&0xff)<<24) | ((buffer[j+2]&0xff)<<16) | ((buffer[j+1]&0xff)<<8) | (buffer[j]&0xff));
                    if (fi.fileType==FileInfo.GRAY32_FLOAT)
                        pixels[i] = Float.intBitsToFloat(tmp);
                    else if (fi.fileType==FileInfo.GRAY32_UNSIGNED)
                        pixels[i] = (float)(tmp&0xffffffffL);
                    else
                        pixels[i] = tmp;
                    j += 4;
                }
            else
                for (int i=base; i<pmax; i++) {
                    tmp = (int)(((buffer[j]&0xff)<<24) | ((buffer[j+1]&0xff)<<16) | ((buffer[j+2]&0xff)<<8) | (buffer[j+3]&0xff));
                    if (fi.fileType==FileInfo.GRAY32_FLOAT)
                        pixels[i] = Float.intBitsToFloat(tmp);
                    else if (fi.fileType==FileInfo.GRAY32_UNSIGNED)
                        pixels[i] = (float)(tmp&0xffffffffL);
                    else
                        pixels[i] = tmp;
                    j += 4;
                }
            base += pixelsRead;
        }
        return pixels;
    }
    
    float[] readCompressed32bitImage(InputStream in) throws IOException {
        float[] pixels = new float[nPixels];
        int base = 0;
        float last = 0;
        for (int k=0; k<fi.stripOffsets.length; k++) {
            if (in instanceof RandomAccessStream)
                ((RandomAccessStream)in).seek(fi.stripOffsets[k]);
            else if (k > 0) {
                long skip = (fi.stripOffsets[k]&0xffffffffL) - (fi.stripOffsets[k-1]&0xffffffffL) - fi.stripLengths[k-1];
                if (skip > 0L) in.skip(skip);
            }
            byte[] byteArray = new byte[fi.stripLengths[k]];
            int read = 0, left = byteArray.length;
            while (left > 0) {
                int r = in.read(byteArray, read, left);
                if (r == -1) {eofError(); break;}
                read += r;
                left -= r;
            }
            byteArray = uncompress(byteArray);
            int pixelsRead = byteArray.length/bytesPerPixel;
            pixelsRead = pixelsRead - (pixelsRead%fi.width);
            int pmax = base+pixelsRead;
            if (pmax > nPixels) pmax = nPixels;
            int tmp;
            if (fi.intelByteOrder) {
                for (int i=base,j=0; i<pmax; i++,j+=4) {
                    tmp = (int)(((byteArray[j+3]&0xff)<<24) | ((byteArray[j+2]&0xff)<<16) | ((byteArray[j+1]&0xff)<<8) | (byteArray[j]&0xff));
                    if (fi.fileType==FileInfo.GRAY32_FLOAT)
                        pixels[i] = Float.intBitsToFloat(tmp);
                    else if (fi.fileType==FileInfo.GRAY32_UNSIGNED)
                        pixels[i] = (float)(tmp&0xffffffffL);
                    else
                        pixels[i] = tmp;
                }
            } else {
                for (int i=base,j=0; i<pmax; i++,j+=4) {
                    tmp = (int)(((byteArray[j]&0xff)<<24) | ((byteArray[j+1]&0xff)<<16) | ((byteArray[j+2]&0xff)<<8) | (byteArray[j+3]&0xff));
                    if (fi.fileType==FileInfo.GRAY32_FLOAT)
                        pixels[i] = Float.intBitsToFloat(tmp);
                    else if (fi.fileType==FileInfo.GRAY32_UNSIGNED)
                        pixels[i] = (float)(tmp&0xffffffffL);
                    else
                        pixels[i] = tmp;
                }
            }
            if (fi.compression==FileInfo.LZW_WITH_DIFFERENCING) {
                for (int b=base; b<pmax; b++) {
                    pixels[b] += last;
                    last = b % fi.width == fi.width - 1 ? 0 : pixels[b];
                }
            }
            base += pixelsRead;
            showProgress(k+1, fi.stripOffsets.length);
        }
        return pixels;
    }

    float[] read64bitImage(InputStream in) throws IOException {
        int pixelsRead;
        byte[] buffer = new byte[bufferSize];
        float[] pixels = new float[nPixels];
        long totalRead = 0L;
        int base = 0;
        int count, value;
        int bufferCount;
        long tmp;
        long b1, b2, b3, b4, b5, b6, b7, b8;
        
        while (totalRead<byteCount) {
            if ((totalRead+bufferSize)>byteCount)
                bufferSize = (int)(byteCount-totalRead);
            bufferCount = 0;
            while (bufferCount<bufferSize) { // fill the buffer
                count = in.read(buffer, bufferCount, bufferSize-bufferCount);
                if (count==-1) {
                    if (bufferCount>0)
                        for (int i=bufferCount; i<bufferSize; i++) buffer[i] = 0;
                    totalRead = byteCount;
                    eofError();
                    break;
                }
                bufferCount += count;
            }
            totalRead += bufferSize;
            showProgress(totalRead, byteCount);
            pixelsRead = bufferSize/bytesPerPixel;
            int j = 0;
            for (int i=base; i < (base+pixelsRead); i++) {
                b1 = buffer[j+7]&0xff;  b2 = buffer[j+6]&0xff;  b3 = buffer[j+5]&0xff;  b4 = buffer[j+4]&0xff; 
                b5 = buffer[j+3]&0xff;  b6 = buffer[j+2]&0xff;  b7 = buffer[j+1]&0xff;  b8 = buffer[j]&0xff; 
                if (fi.intelByteOrder)
                    tmp = (long)((b1<<56)|(b2<<48)|(b3<<40)|(b4<<32)|(b5<<24)|(b6<<16)|(b7<<8)|b8);
                else
                    tmp = (long)((b8<<56)|(b7<<48)|(b6<<40)|(b5<<32)|(b4<<24)|(b3<<16)|(b2<<8)|b1);
                pixels[i] = (float)Double.longBitsToDouble(tmp);
                j += 8;
            }
            base += pixelsRead;
        }
        return pixels;
    }

    int[] readChunkyRGB(InputStream in) throws IOException {
        if (fi.compression==FileInfo.JPEG)
            return readJPEG(in);
        else if (fi.compression>FileInfo.COMPRESSION_NONE || (fi.stripOffsets!=null&&fi.stripOffsets.length>1))
            return readCompressedChunkyRGB(in);
        int pixelsRead;
        bufferSize = 24*width;
        byte[] buffer = new byte[bufferSize];
        int[] pixels = new int[nPixels];
        long totalRead = 0L;
        int base = 0;
        int count, value;
        int bufferCount;
        int r, g, b, a;
        
        while (totalRead<byteCount) {
            if ((totalRead+bufferSize)>byteCount)
                bufferSize = (int)(byteCount-totalRead);
            bufferCount = 0;
            while (bufferCount<bufferSize) { // fill the buffer
                count = in.read(buffer, bufferCount, bufferSize-bufferCount);
                if (count==-1) {
                    if (bufferCount>0)
                        for (int i=bufferCount; i<bufferSize; i++) buffer[i] = 0;
                    totalRead = byteCount;
                    eofError();
                    break;
                }
                bufferCount += count;
            }
            totalRead += bufferSize;
            showProgress(totalRead, byteCount);
            pixelsRead = bufferSize/bytesPerPixel;
            boolean bgr = fi.fileType==FileInfo.BGR;
            int j = 0;
            for (int i=base; i<(base+pixelsRead); i++) {
                if (bytesPerPixel==4) {
                    if (fi.fileType==FileInfo.BARG) {  // MCID
                        b = buffer[j++]&0xff;
                        j++; // ignore alfa byte
                        r = buffer[j++]&0xff;
                        g = buffer[j++]&0xff;
                    } else if (fi.fileType==FileInfo.ABGR) {
                        b = buffer[j++]&0xff;
                        g = buffer[j++]&0xff;
                        r = buffer[j++]&0xff;
                        j++; // ignore alfa byte
                    } else if (fi.fileType==FileInfo.CMYK) {
                        r = buffer[j++] & 0xff; // c
                        g = buffer[j++] & 0xff; // m
                        b = buffer[j++] & 0xff; // y
                        a = buffer[j++] & 0xff; // k
                        if (a>0) { // if k>0 then  c=c*(1-k)+k
                            r = ((r*(256 - a))>>8) + a;
                            g = ((g*(256 - a))>>8) + a;
                            b = ((b*(256 - a))>>8) + a;
                        } // else  r=1-c, g=1-m and b=1-y, which IJ does by inverting image
                    } else { // ARGB
                        r = buffer[j++]&0xff;
                        g = buffer[j++]&0xff;
                        b = buffer[j++]&0xff;
                        j++; // ignore alfa byte
                    }
                } else {
                    r = buffer[j++]&0xff;
                    g = buffer[j++]&0xff;
                    b = buffer[j++]&0xff;
                }
                if (bgr)
                    pixels[i] = 0xff000000 | (b<<16) | (g<<8) | r;
                else
                    pixels[i] = 0xff000000 | (r<<16) | (g<<8) | b;
            }
            base += pixelsRead;
        }
        return pixels;
    }

    int[] readCompressedChunkyRGB(InputStream in) throws IOException {
        int[] pixels = new int[nPixels];
        int base = 0;
        int lastRed=0, lastGreen=0, lastBlue=0;
        int nextByte;
        int red=0, green=0, blue=0, alpha = 0;
        boolean bgr = fi.fileType==FileInfo.BGR;
        boolean cmyk = fi.fileType==FileInfo.CMYK;
        boolean differencing = fi.compression == FileInfo.LZW_WITH_DIFFERENCING;
        for (int i=0; i<fi.stripOffsets.length; i++) {
            if (in instanceof RandomAccessStream)
                ((RandomAccessStream)in).seek(fi.stripOffsets[i]);
            else if (i > 0) {
                long skip = (fi.stripOffsets[i]&0xffffffffL) - (fi.stripOffsets[i-1]&0xffffffffL) - fi.stripLengths[i-1];
                if (skip > 0L) in.skip(skip);
            }
            byte[] byteArray = new byte[fi.stripLengths[i]];
            int read = 0, left = byteArray.length;
            while (left > 0) {
                int r = in.read(byteArray, read, left);
                if (r == -1) {eofError(); break;}
                read += r;
                left -= r;
            }
            byteArray = uncompress(byteArray);
            if (differencing) {
                for (int b=0; b<byteArray.length; b++) {
                    if (b / bytesPerPixel % fi.width == 0) continue;
                    byteArray[b] += byteArray[b - bytesPerPixel];
                }
            }
            int k = 0;
            int pixelsRead = byteArray.length/bytesPerPixel;
            pixelsRead = pixelsRead - (pixelsRead%fi.width);
            int pmax = base+pixelsRead;
            if (pmax > nPixels) pmax = nPixels;
            for (int j=base; j<pmax; j++) {
                if (bytesPerPixel==4) {
                    red = byteArray[k++]&0xff;
                    green = byteArray[k++]&0xff;
                    blue = byteArray[k++]&0xff;
                    alpha = byteArray[k++]&0xff;
                    if (cmyk && alpha>0) {
                        red = ((red*(256-alpha))>>8) + alpha;
                        green = ((green*(256-alpha))>>8) + alpha;
                        blue = ((blue*(256-alpha))>>8) + alpha;
                    }
                } else {
                    red = byteArray[k++]&0xff;
                    green = byteArray[k++]&0xff;
                    blue = byteArray[k++]&0xff;
                }
                if (bgr)
                    pixels[j] = 0xff000000 | (blue<<16) | (green<<8) | red;
                else
                    pixels[j] = 0xff000000 | (red<<16) | (green<<8) | blue;
            }
            base += pixelsRead;
            showProgress(i+1, fi.stripOffsets.length);
        }
        return pixels;
    }
    
    int[] readJPEG(InputStream in) throws IOException {
        BufferedImage bi = ImageIO.read(in);
        ImageProcessor ip =  new ColorProcessor(bi);
        return (int[])ip.getPixels();
    }

    int[] readPlanarRGB(InputStream in) throws IOException {
        if (fi.compression>FileInfo.COMPRESSION_NONE)
            return readCompressedPlanarRGBImage(in);
        DataInputStream dis = new DataInputStream(in);
        int planeSize = nPixels; // 1/3 image size
        byte[] buffer = new byte[planeSize];
        int[] pixels = new int[nPixels];
        int r, g, b;

        startTime = 0L;
        showProgress(10, 100);
        dis.readFully(buffer);
        for (int i=0; i < planeSize; i++) {
            r = buffer[i]&0xff;
            pixels[i] = 0xff000000 | (r<<16);
        }
        
        showProgress(40, 100);
        dis.readFully(buffer);
        for (int i=0; i < planeSize; i++) {
            g = buffer[i]&0xff;
            pixels[i] |= g<<8;
        }

        showProgress(70, 100);
        dis.readFully(buffer);
        for (int i=0; i < planeSize; i++) {
            b = buffer[i]&0xff;
            pixels[i] |= b;
        }

        showProgress(90, 100);
        return pixels;
    }

    int[] readCompressedPlanarRGBImage(InputStream in) throws IOException {
        int[] pixels = new int[nPixels];
        int r, g, b;
        nPixels *= 3; // read all 3 planes
        byte[] buffer = readCompressed8bitImage(in);
        nPixels /= 3;
        for (int i=0; i<nPixels; i++) {
            r = buffer[i]&0xff;
            pixels[i] = 0xff000000 | (r<<16);
        }
        for (int i=0; i<nPixels; i++) {
            g = buffer[nPixels+i]&0xff;
            pixels[i] |= g<<8;
        }
        for (int i=0; i<nPixels; i++) {
            b = buffer[nPixels*2+i]&0xff;
            pixels[i] |= b;
        }
        return pixels;
    }

    private void showProgress(int current, int last) {
        if (showProgressBar && (System.currentTimeMillis()-startTime)>500L)
            IJ.showProgress(current, last);
    }
    
    private void showProgress(long current, long last) {
        showProgress((int)(current/10L), (int)(last/10L));
    }
    
    Object readRGB48(InputStream in) throws IOException {
        if (fi.compression>FileInfo.COMPRESSION_NONE)
            return readCompressedRGB48(in);
        int channels = fi.samplesPerPixel;
        if (channels==1) channels=3;
        short[][] stack = new short[channels][nPixels];
        DataInputStream dis = new DataInputStream(in);
        int pixel = 0;
        int min=65535, max=0;
        if (fi.stripLengths==null) {
            fi.stripLengths = new int[fi.stripOffsets.length];
            fi.stripLengths[0] = width*height*bytesPerPixel;
        }
        for (int i=0; i<fi.stripOffsets.length; i++) {
            if (i>0) {
                long skip = (fi.stripOffsets[i]&0xffffffffL) - (fi.stripOffsets[i-1]&0xffffffffL) - fi.stripLengths[i-1];
                if (skip>0L) dis.skip(skip);
            }
            int len = fi.stripLengths[i];
            int bytesToGo = (nPixels-pixel)*channels*2;
            if (len>bytesToGo) len = bytesToGo;
            byte[] buffer = new byte[len];
            dis.readFully(buffer);
            int value;
            int channel=0;
            boolean intel = fi.intelByteOrder;
            for (int base=0; base<len; base+=2) {
                if (intel)
                    value = ((buffer[base+1]&0xff)<<8) | (buffer[base]&0xff);
                else
                    value = ((buffer[base]&0xff)<<8) | (buffer[base+1]&0xff);
                if (value<min) min = value;
                if (value>max) max = value;
                stack[channel][pixel] = (short)(value);
                channel++;
                if (channel==channels) {
                    channel = 0;
                    pixel++;
                }
            }
            showProgress(i+1, fi.stripOffsets.length);
        }
        this.min=min; this.max=max;
        return stack;
    }

    Object readCompressedRGB48(InputStream in) throws IOException {
        if (fi.compression==FileInfo.LZW_WITH_DIFFERENCING)
            throw new IOException("ImageJ cannot open 48-bit LZW compressed TIFFs with predictor");
        int channels = 3;
        short[][] stack = new short[channels][nPixels];
        DataInputStream dis = new DataInputStream(in);
        int pixel = 0;
        int min=65535, max=0;
        for (int i=0; i<fi.stripOffsets.length; i++) {
            if (i>0) {
                long skip = (fi.stripOffsets[i]&0xffffffffL) - (fi.stripOffsets[i-1]&0xffffffffL) - fi.stripLengths[i-1];
                if (skip>0L) dis.skip(skip);
            }
            int len = fi.stripLengths[i];
            byte[] buffer = new byte[len];
            dis.readFully(buffer);
            buffer = uncompress(buffer);
            len = buffer.length;
            if (len % 2 != 0) len--;
            int value;
            int channel=0;
            boolean intel = fi.intelByteOrder;
            for (int base=0; base<len && pixel<nPixels; base+=2) {
                if (intel)
                    value = ((buffer[base+1]&0xff)<<8) | (buffer[base]&0xff);
                else
                    value = ((buffer[base]&0xff)<<8) | (buffer[base+1]&0xff);
                if (value<min) min = value;
                if (value>max) max = value;
                stack[channel][pixel] = (short)(value);
                channel++;
                if (channel==channels) {
                    channel = 0;
                    pixel++;
                }
            }
            showProgress(i+1, fi.stripOffsets.length);
        }
        this.min=min; this.max=max;
        return stack;
    }

    Object readRGB48Planar(InputStream in) throws IOException {
        int channels = fi.samplesPerPixel;
        if (channels==1) channels=3;
        Object[] stack = new Object[channels];
        for (int i=0; i<channels; i++) 
            stack[i] = read16bitImage(in);
        return stack;
    }

    short[] read12bitImage(InputStream in) throws IOException {
        int bytesPerLine = (int)(width*1.5);
        if ((width&1)==1) bytesPerLine++; // add 1 if odd
        byte[] buffer = new byte[bytesPerLine*height];
        short[] pixels = new short[nPixels];
        DataInputStream dis = new DataInputStream(in);
        dis.readFully(buffer);
        for (int y=0; y<height; y++) {
            int index1 = y*bytesPerLine;
            int index2 = y*width;
            int count = 0;
            while (count<width) {
                pixels[index2+count] = (short)(((buffer[index1]&0xff)*16) + ((buffer[index1+1]>>4)&0xf));
                count++;
                if (count==width) break;
                pixels[index2+count] = (short)(((buffer[index1+1]&0xf)*256) + (buffer[index1+2]&0xff));
                count++; index1+=3;
            }
        }
        return pixels;
    }

    float[] read24bitImage(InputStream in) throws IOException {
        byte[] buffer = new byte[width*3];
        float[] pixels = new float[nPixels];
        int b1, b2, b3;
        DataInputStream dis = new DataInputStream(in);
        for (int y=0; y<height; y++) {
            //IJ.log("read24bitImage: ");
            dis.readFully(buffer);
            int b = 0;
            for (int x=0; x<width; x++) {
                b1 = buffer[b++]&0xff;
                b2 = buffer[b++]&0xff;
                b3 = buffer[b++]&0xff;
                pixels[x+y*width] = (b3<<16) | (b2<<8) | b1;
            }
        }
        return pixels;
    }

    byte[] read1bitImage(InputStream in) throws IOException {
        if (fi.compression==FileInfo.LZW)
            throw new IOException("ImageJ cannot open 1-bit LZW compressed TIFFs");
        int scan=(int)Math.ceil(width/8.0);
        int len = scan*height;
        byte[] buffer = new byte[len];
        byte[] pixels = new byte[nPixels];
        DataInputStream dis = new DataInputStream(in);
        dis.readFully(buffer);
        int value1,value2, offset, index;
        for (int y=0; y<height; y++) {
            offset = y*scan;
            index = y*width;
            for (int x=0; x<scan; x++) {
                value1 = buffer[offset+x]&0xff;
                for (int i=7; i>=0; i--) {
                    value2 = (value1&(1<<i))!=0?255:0;
                    if (index<pixels.length)
                        pixels[index++] = (byte)value2;
                }
            }
        }
        return pixels;
    }

    void skip(InputStream in) throws IOException {
        if (skipCount>0) {
            long bytesRead = 0;
            int skipAttempts = 0;
            long count;
            while (bytesRead<skipCount) {
                count = in.skip(skipCount-bytesRead);
                skipAttempts++;
                if (count==-1 || skipAttempts>5) break;
                bytesRead += count;
                //IJ.log("skip: "+skipCount+" "+count+" "+bytesRead+" "+skipAttempts);
            }
        }
        byteCount = ((long)width)*height*bytesPerPixel;
        if (fi.fileType==FileInfo.BITMAP) {
            int scan=width/8, pad = width%8;
            if (pad>0) scan++;
            byteCount = scan*height;
        }
        nPixels = width*height;
        bufferSize = (int)(byteCount/25L);
        if (bufferSize<8192)
            bufferSize = 8192;
        else
            bufferSize = (bufferSize/8192)*8192;
    }
    
    /** 
    Reads the image from the InputStream and returns the pixel
    array (byte, short, int or float). Returns null if there
    was an IO exception. Does not close the InputStream.
    */
    public Object readPixels(InputStream in) {
        Object pixels;
        startTime = System.currentTimeMillis();
        try {
            switch (fi.fileType) {
                case FileInfo.GRAY8:
                case FileInfo.COLOR8:
                    bytesPerPixel = 1;
                    skip(in);
                    pixels = (Object)read8bitImage(in);
                    break;
                case FileInfo.GRAY16_SIGNED:
                case FileInfo.GRAY16_UNSIGNED:
                    bytesPerPixel = 2;
                    skip(in);
                    pixels = (Object)read16bitImage(in);
                    break;
                case FileInfo.GRAY32_INT:
                case FileInfo.GRAY32_UNSIGNED:
                case FileInfo.GRAY32_FLOAT:
                    bytesPerPixel = 4;
                    skip(in);
                    pixels = (Object)read32bitImage(in);
                    break;
                case FileInfo.GRAY64_FLOAT:
                    bytesPerPixel = 8;
                    skip(in);
                    pixels = (Object)read64bitImage(in);
                    break;
                case FileInfo.RGB:
                case FileInfo.BGR:
                case FileInfo.ARGB:
                case FileInfo.ABGR:
                case FileInfo.BARG:
                case FileInfo.CMYK:
                    bytesPerPixel = fi.getBytesPerPixel();
                    skip(in);
                    pixels = (Object)readChunkyRGB(in);
                    break;
                case FileInfo.RGB_PLANAR:
                    bytesPerPixel = 3;
                    skip(in);
                    pixels = (Object)readPlanarRGB(in);
                    break;
                case FileInfo.BITMAP:
                    bytesPerPixel = 1;
                    skip(in);
                    pixels = (Object)read1bitImage(in);
                    break;
                case FileInfo.RGB48:
                    bytesPerPixel = 6;
                    skip(in);
                    pixels = (Object)readRGB48(in);
                    break;
                case FileInfo.RGB48_PLANAR:
                    bytesPerPixel = 2;
                    skip(in);
                    pixels = (Object)readRGB48Planar(in);
                    break;
                case FileInfo.GRAY12_UNSIGNED:
                    skip(in);
                    short[] data = read12bitImage(in);
                    pixels = (Object)data;
                    break;
                case FileInfo.GRAY24_UNSIGNED:
                    skip(in);
                    pixels = (Object)read24bitImage(in);
                    break;
                default:
                    pixels = null;
            }
            showProgress(1, 1);
            return pixels;
        }
        catch (IOException e) {
            IJ.log("" + e);
            return null;
        }
    }
    
    /** 
    Skips the specified number of bytes, then reads an image and 
    returns the pixel array (byte, short, int or float). Returns
    null if there was an IO exception. Does not close the InputStream.
    */
    public Object readPixels(InputStream in, long skipCount) {
        this.skipCount = skipCount;
        showProgressBar = false;
        Object pixels = readPixels(in);
        if (eofErrorCount>0)
            return null;
        else
            return pixels;
    }
    
    /** 
    Reads the image from a URL and returns the pixel array (byte, 
    short, int or float). Returns null if there was an IO exception.
    */
    public Object readPixels(String url) {
        java.net.URL theURL;
        InputStream is;
        try {theURL = new URL(url);}
        catch (MalformedURLException e) {IJ.log(""+e); return null;}
        try {is = theURL.openStream();}
        catch (IOException e) {IJ.log(""+e); return null;}
        return readPixels(is);
    }
    
    private byte[] uncompress(byte[] input) {
        if (fi.compression==FileInfo.PACK_BITS)
            return packBitsUncompress(input, fi.rowsPerStrip*fi.width*fi.getBytesPerPixel());
        else if (fi.compression==FileInfo.LZW || fi.compression==FileInfo.LZW_WITH_DIFFERENCING)
            return lzwUncompress(input);
        else if (fi.compression==FileInfo.ZIP)
            return zipUncompress(input);
        else
            return input;
    }

    /** TIFF Adobe ZIP support contributed by Jason Newton. */
    public byte[] zipUncompress(byte[] input) {
        ByteArrayOutputStream imageBuffer = new ByteArrayOutputStream();
        byte[] buffer = new byte[1024];
        Inflater decompressor = new Inflater();
        decompressor.setInput(input);
        try {
            while(!decompressor.finished()) {
                int rlen = decompressor.inflate(buffer);
                imageBuffer.write(buffer, 0, rlen);
            }
        } catch(DataFormatException e){
            IJ.log(e.toString());
        }
        decompressor.end();
        return imageBuffer.toByteArray();
    }

  /**
 * Utility method for decoding an LZW-compressed image strip. 
 * Adapted from the TIFF 6.0 Specification:
 * http://partners.adobe.com/asn/developer/pdfs/tn/TIFF6.pdf (page 61)
 * Author: Curtis Rueden (ctrueden at wisc.edu)
 */
    public byte[] lzwUncompress(byte[] input) {
        if (input==null || input.length==0)
            return input;
        byte[][] symbolTable = new byte[4096][1];
        int bitsToRead = 9;
        int nextSymbol = 258;
        int code;
        int oldCode = -1;
        ByteVector out = new ByteVector(8192);
        BitBuffer bb = new BitBuffer(input);
        byte[] byteBuffer1 = new byte[16];
        byte[] byteBuffer2 = new byte[16];
        
        while (out.size()<byteCount) {
            code = bb.getBits(bitsToRead);
            if (code==EOI_CODE || code==-1)
                break;
            if (code==CLEAR_CODE) {
                // initialize symbol table
                for (int i = 0; i < 256; i++)
                    symbolTable[i][0] = (byte)i;
                nextSymbol = 258;
                bitsToRead = 9;
                code = bb.getBits(bitsToRead);
                if (code==EOI_CODE || code==-1)
                    break;
                out.add(symbolTable[code]);
                oldCode = code;
            } else {
                if (code<nextSymbol) {
                    // code is in table
                    out.add(symbolTable[code]);
                    // add string to table
                    ByteVector symbol = new ByteVector(byteBuffer1);
                    symbol.add(symbolTable[oldCode]);
                    symbol.add(symbolTable[code][0]);
                    symbolTable[nextSymbol] = symbol.toByteArray(); //**
                    oldCode = code;
                    nextSymbol++;
                } else {
                    // out of table
                    ByteVector symbol = new ByteVector(byteBuffer2);
                    symbol.add(symbolTable[oldCode]);
                    symbol.add(symbolTable[oldCode][0]);
                    byte[] outString = symbol.toByteArray();
                    out.add(outString);
                    symbolTable[nextSymbol] = outString; //**
                    oldCode = code;
                    nextSymbol++;
                }
                if (nextSymbol == 511) { bitsToRead = 10; }
                if (nextSymbol == 1023) { bitsToRead = 11; }
                if (nextSymbol == 2047) { bitsToRead = 12; }
            }
        }
        return out.toByteArray();
    }
     
    /** Based on the Bio-Formats PackbitsCodec written by Melissa Linkert. */
    public byte[] packBitsUncompress(byte[] input, int expected) {
        if (expected==0) expected = Integer.MAX_VALUE;
        ByteVector output = new ByteVector(1024);
        int index = 0;
        while (output.size()<expected && index<input.length) {
            byte n = input[index++];
            if (n>=0) { // 0 <= n <= 127
                byte[] b = new byte[n+1];
                for (int i=0; i<n+1; i++)
                    b[i] = input[index++];
                output.add(b);
                b = null;
            } else if (n != -128) { // -127 <= n <= -1
                int len = -n + 1;
                byte inp = input[index++];
                for (int i=0; i<len; i++) output.add(inp);
            }
        }
        return output.toByteArray();
    }

    /*
    void debug(String label, InputStream in) {
        int offset = -1;
        if (in instanceof RandomAccessStream) {
            try {
                offset = ((RandomAccessStream)in).getFilePointer();
            } catch(Exception e) {}
        }
        IJ.log(label+": debug: offset="+offset+", fi="+fi);
    }
    */
}


/** A growable array of bytes. */
class ByteVector {
    private byte[] data;
    private int size;

    public ByteVector() {
        data = new byte[10];
        size = 0;
    }

    public ByteVector(int initialSize) {
        data = new byte[initialSize];
        size = 0;
    }

    public ByteVector(byte[] byteBuffer) {
        data = byteBuffer;
        size = 0;
    }

    public void add(byte x) {
        if (size>=data.length) {
            doubleCapacity();
            add(x);
        } else
            data[size++] = x;
    }

    public int size() {
        return size;
    }

    public void add(byte[] array) {
        int length = array.length;
        while (data.length-size<length)
            doubleCapacity();
        System.arraycopy(array, 0, data, size, length);
        size += length;
    }

    void doubleCapacity() {
        //IJ.log("double: "+data.length*2);
        byte[] tmp = new byte[data.length*2 + 1];
        System.arraycopy(data, 0, tmp, 0, data.length);
        data = tmp;
    }

    public void clear() {
        size = 0;
    }

    public byte[] toByteArray() {
        byte[] bytes = new byte[size];
        System.arraycopy(data, 0, bytes, 0, size);
        return bytes;
    }
    
}