/* $Id: bmp2tiff.c,v 1.23 2010-03-10 18:56:49 bfriesen Exp $

*

* Project: libtiff tools

* Purpose: Convert Windows BMP files in TIFF.

* Author: Andrey Kiselev, dron@ak4719.spb.edu

*

******************************************************************************

* Copyright (c) 2004, Andrey Kiselev <dron@ak4719.spb.edu>

*

* Permission to use, copy, modify, distribute, and sell this software and

* its documentation for any purpose is hereby granted without fee, provided

* that (i) the above copyright notices and this permission notice appear in

* all copies of the software and related documentation, and (ii) the names of

* Sam Leffler and Silicon Graphics may not be used in any advertising or

* publicity relating to the software without the specific, prior written

* permission of Sam Leffler and Silicon Graphics.

*

* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,

* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY

* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.

*

* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR

* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,

* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF

* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE

* OF THIS SOFTWARE.

*/

#include "tif_config.h"

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#include <sys/types.h>

#include <sys/stat.h>

#ifdef HAVE_UNISTD_H

# include <unistd.h>

#endif

#if HAVE_FCNTL_H

# include <fcntl.h>

#endif

#if HAVE_SYS_TYPES_H

# include <sys/types.h>

#endif

#if HAVE_IO_H

# include <io.h>

#endif

#ifdef NEED_LIBPORT

# include "libport.h"

#endif

#include "tiffio.h"

#ifndef O_BINARY

# define O_BINARY 0

#endif

enum BMPType

{

BMPT_WIN4, /* BMP used in Windows 3.0/NT 3.51/95 */

BMPT_WIN5, /* BMP used in Windows NT 4.0/98/Me/2000/XP */

BMPT_OS21, /* BMP used in OS/2 PM 1.x */

BMPT_OS22 /* BMP used in OS/2 PM 2.x */

};

/*

* Bitmap file consists of a BMPFileHeader structure followed by a

* BMPInfoHeader structure. An array of BMPColorEntry structures (also called

* a colour table) follows the bitmap information header structure. The colour

* table is followed by a second array of indexes into the colour table (the

* actual bitmap data). Data may be comressed, for 4-bpp and 8-bpp used RLE

* compression.

*

* +---------------------+

* | BMPFileHeader |

* +---------------------+

* | BMPInfoHeader |

* +---------------------+

* | BMPColorEntry array |

* +---------------------+

* | Colour-index array |

* +---------------------+

*

* All numbers stored in Intel order with least significant byte first.

*/

enum BMPComprMethod

{

BMPC_RGB = 0L, /* Uncompressed */

BMPC_RLE8 = 1L, /* RLE for 8 bpp images */

BMPC_RLE4 = 2L, /* RLE for 4 bpp images */

BMPC_BITFIELDS = 3L, /* Bitmap is not compressed and the colour table

* consists of three DWORD color masks that specify

* the red, green, and blue components of each

* pixel. This is valid when used with

* 16- and 32-bpp bitmaps. */

BMPC_JPEG = 4L, /* Indicates that the image is a JPEG image. */

BMPC_PNG = 5L /* Indicates that the image is a PNG image. */

};

enum BMPLCSType /* Type of logical color space. */

{

BMPLT_CALIBRATED_RGB = 0, /* This value indicates that endpoints and

* gamma values are given in the appropriate

* fields. */

BMPLT_DEVICE_RGB = 1,

BMPLT_DEVICE_CMYK = 2

};

typedef struct

{

int32 iCIEX;

int32 iCIEY;

int32 iCIEZ;

} BMPCIEXYZ;

typedef struct /* This structure contains the x, y, and z */

{ /* coordinates of the three colors that */

/* correspond */

BMPCIEXYZ iCIERed; /* to the red, green, and blue endpoints for */

BMPCIEXYZ iCIEGreen; /* a specified logical color space. */

BMPCIEXYZ iCIEBlue;

} BMPCIEXYZTriple;

typedef struct

{

char bType[2]; /* Signature "BM" */

uint32 iSize; /* Size in bytes of the bitmap file. Should

* always be ignored while reading because

* of error in Windows 3.0 SDK's description

* of this field */

uint16 iReserved1; /* Reserved, set as 0 */

uint16 iReserved2; /* Reserved, set as 0 */

uint32 iOffBits; /* Offset of the image from file start in bytes */

} BMPFileHeader;

/* File header size in bytes: */

const int BFH_SIZE = 14;

typedef struct

{

uint32 iSize; /* Size of BMPInfoHeader structure in bytes.

* Should be used to determine start of the

* colour table */

int32 iWidth; /* Image width */

int32 iHeight; /* Image height. If positive, image has bottom

* left origin, if negative --- top left. */

int16 iPlanes; /* Number of image planes (must be set to 1) */

int16 iBitCount; /* Number of bits per pixel (1, 4, 8, 16, 24

* or 32). If 0 then the number of bits per

* pixel is specified or is implied by the

* JPEG or PNG format. */

uint32 iCompression; /* Compression method */

uint32 iSizeImage; /* Size of uncomressed image in bytes. May

* be 0 for BMPC_RGB bitmaps. If iCompression

* is BI_JPEG or BI_PNG, iSizeImage indicates

* the size of the JPEG or PNG image buffer. */

int32 iXPelsPerMeter; /* X resolution, pixels per meter (0 if not used) */

int32 iYPelsPerMeter; /* Y resolution, pixels per meter (0 if not used) */

uint32 iClrUsed; /* Size of colour table. If 0, iBitCount should

* be used to calculate this value

* (1<<iBitCount). This value should be

* unsigned for proper shifting. */

int32 iClrImportant; /* Number of important colours. If 0, all

* colours are required */

/*

* Fields above should be used for bitmaps, compatible with Windows NT 3.51

* and earlier. Windows 98/Me, Windows 2000/XP introduces additional fields:

*/

int32 iRedMask; /* Colour mask that specifies the red component

* of each pixel, valid only if iCompression

* is set to BI_BITFIELDS. */

int32 iGreenMask; /* The same for green component */

int32 iBlueMask; /* The same for blue component */

int32 iAlphaMask; /* Colour mask that specifies the alpha

* component of each pixel. */

uint32 iCSType; /* Colour space of the DIB. */

BMPCIEXYZTriple sEndpoints; /* This member is ignored unless the iCSType

* member specifies BMPLT_CALIBRATED_RGB. */

int32 iGammaRed; /* Toned response curve for red. This member

* is ignored unless color values are

* calibrated RGB values and iCSType is set to

* BMPLT_CALIBRATED_RGB. Specified

* in 16^16 format. */

int32 iGammaGreen; /* Toned response curve for green. */

int32 iGammaBlue; /* Toned response curve for blue. */

} BMPInfoHeader;

/*

* Info header size in bytes:

*/

const unsigned int BIH_WIN4SIZE = 40; /* for BMPT_WIN4 */

const unsigned int BIH_WIN5SIZE = 57; /* for BMPT_WIN5 */

const unsigned int BIH_OS21SIZE = 12; /* for BMPT_OS21 */

const unsigned int BIH_OS22SIZE = 64; /* for BMPT_OS22 */

/*

* We will use plain byte array instead of this structure, but declaration

* provided for reference

*/

typedef struct

{

char bBlue;

char bGreen;

char bRed;

char bReserved; /* Must be 0 */

} BMPColorEntry;

static uint16 compression = (uint16) -1;

static int jpegcolormode = JPEGCOLORMODE_RGB;

static int quality = 75; /* JPEG quality */

static uint16 predictor = 0;

static void usage(void);

static int processCompressOptions(char*);

static void rearrangePixels(char *, uint32, uint32);

int

main(int argc, char* argv[])

{

uint32 width, length;

uint16 nbands = 1; /* number of bands in input image */

uint16 depth = 8; /* bits per pixel in input image */

uint32 rowsperstrip = (uint32) -1;

uint16 photometric = PHOTOMETRIC_MINISBLACK;

int fd = 0;

struct stat instat;

char *outfilename = NULL, *infilename = NULL;

TIFF *out = NULL;

BMPFileHeader file_hdr;

BMPInfoHeader info_hdr;

int bmp_type;

uint32 clr_tbl_size, n_clr_elems = 3;

unsigned char *clr_tbl;

unsigned short *red_tbl = NULL, *green_tbl = NULL, *blue_tbl = NULL;

uint32 row, clr;

int c;

extern int optind;

extern char* optarg;

while ((c = getopt(argc, argv, "c:r:o:h")) != -1) {

switch (c) {

case 'c': /* compression scheme */

if (!processCompressOptions(optarg))

usage();

break;

case 'r': /* rows/strip */

rowsperstrip = atoi(optarg);

break;

case 'o':

outfilename = optarg;

break;

case 'h':

usage();

default:

break;

}

}

if (argc - optind < 2)

usage();

if (outfilename == NULL)

outfilename = argv[argc-1];

out = TIFFOpen(outfilename, "w");

if (out == NULL) {

TIFFError(infilename, "Cannot open file %s for output",

outfilename);

goto bad3;

}

while (optind < argc-1) {

infilename = argv[optind];

optind++;

fd = open(infilename, O_RDONLY|O_BINARY, 0);

if (fd < 0) {

TIFFError(infilename, "Cannot open input file");

return -1;

}

read(fd, file_hdr.bType, 2);

if(file_hdr.bType[0] != 'B' || file_hdr.bType[1] != 'M') {

TIFFError(infilename, "File is not BMP");

goto bad;

}

/* -------------------------------------------------------------------- */

/* Read the BMPFileHeader. We need iOffBits value only */

/* -------------------------------------------------------------------- */

lseek(fd, 10, SEEK_SET);

read(fd, &file_hdr.iOffBits, 4);

#ifdef WORDS_BIGENDIAN

TIFFSwabLong(&file_hdr.iOffBits);

#endif

fstat(fd, &instat);

file_hdr.iSize = instat.st_size;

/* -------------------------------------------------------------------- */

/* Read the BMPInfoHeader. */

/* -------------------------------------------------------------------- */

lseek(fd, BFH_SIZE, SEEK_SET);

read(fd, &info_hdr.iSize, 4);

#ifdef WORDS_BIGENDIAN

TIFFSwabLong(&info_hdr.iSize);

#endif

if (info_hdr.iSize == BIH_WIN4SIZE)

bmp_type = BMPT_WIN4;

else if (info_hdr.iSize == BIH_OS21SIZE)

bmp_type = BMPT_OS21;

else if (info_hdr.iSize == BIH_OS22SIZE

|| info_hdr.iSize == 16)

bmp_type = BMPT_OS22;

else

bmp_type = BMPT_WIN5;

if (bmp_type == BMPT_WIN4

|| bmp_type == BMPT_WIN5

|| bmp_type == BMPT_OS22) {

read(fd, &info_hdr.iWidth, 4);

read(fd, &info_hdr.iHeight, 4);

read(fd, &info_hdr.iPlanes, 2);

read(fd, &info_hdr.iBitCount, 2);

read(fd, &info_hdr.iCompression, 4);

read(fd, &info_hdr.iSizeImage, 4);

read(fd, &info_hdr.iXPelsPerMeter, 4);

read(fd, &info_hdr.iYPelsPerMeter, 4);

read(fd, &info_hdr.iClrUsed, 4);

read(fd, &info_hdr.iClrImportant, 4);

#ifdef WORDS_BIGENDIAN

TIFFSwabLong((uint32*) &info_hdr.iWidth);

TIFFSwabLong((uint32*) &info_hdr.iHeight);

TIFFSwabShort((uint16*) &info_hdr.iPlanes);

TIFFSwabShort((uint16*) &info_hdr.iBitCount);

TIFFSwabLong((uint32*) &info_hdr.iCompression);

TIFFSwabLong((uint32*) &info_hdr.iSizeImage);

TIFFSwabLong((uint32*) &info_hdr.iXPelsPerMeter);

TIFFSwabLong((uint32*) &info_hdr.iYPelsPerMeter);

TIFFSwabLong((uint32*) &info_hdr.iClrUsed);

TIFFSwabLong((uint32*) &info_hdr.iClrImportant);

#endif

n_clr_elems = 4;

}

if (bmp_type == BMPT_OS22) {

/*

* FIXME: different info in different documents

* regarding this!

*/

n_clr_elems = 3;

}

if (bmp_type == BMPT_OS21) {

int16 iShort;

read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

TIFFSwabShort((uint16*) &iShort);

#endif

info_hdr.iWidth = iShort;

read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

TIFFSwabShort((uint16*) &iShort);

#endif

info_hdr.iHeight = iShort;

read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

TIFFSwabShort((uint16*) &iShort);

#endif

info_hdr.iPlanes = iShort;

read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

TIFFSwabShort((uint16*) &iShort);

#endif

info_hdr.iBitCount = iShort;

info_hdr.iCompression = BMPC_RGB;

n_clr_elems = 3;

}

if (info_hdr.iBitCount != 1 && info_hdr.iBitCount != 4 &&

info_hdr.iBitCount != 8 && info_hdr.iBitCount != 16 &&

info_hdr.iBitCount != 24 && info_hdr.iBitCount != 32) {

TIFFError(infilename,

"Cannot process BMP file with bit count %d",

info_hdr.iBitCount);

close(fd);

return 0;

}

if (info_hdr.iCompression == BMPC_RLE4 && info_hdr.iBitCount != 4)

{

TIFFError(infilename,

"Cannot process BMP file with bit count %d and RLE 4-bit/pixel compression",

info_hdr.iBitCount);

close(fd);

return 0;

}

if (info_hdr.iCompression == BMPC_RLE8 && info_hdr.iBitCount != 8)

{

TIFFError(infilename,

"Cannot process BMP file with bit count %d and RLE 8-bit/pixel compression",

info_hdr.iBitCount);

close(fd);

return 0;

}

width = info_hdr.iWidth;

length = (info_hdr.iHeight > 0) ? info_hdr.iHeight : -info_hdr.iHeight;

if( width <= 0 || length <= 0 )

{

TIFFError(infilename,

"Invalid dimensions of BMP file" );

close(fd);

return -1;

}

switch (info_hdr.iBitCount)

{

case 1:

case 4:

case 8:

nbands = 1;

depth = info_hdr.iBitCount;

photometric = PHOTOMETRIC_PALETTE;

/* Allocate memory for colour table and read it. */

if (info_hdr.iClrUsed)

clr_tbl_size =

((uint32)(1<<depth)<info_hdr.iClrUsed)

? (uint32) (1 << depth)

: info_hdr.iClrUsed;

else

clr_tbl_size = 1 << depth;

clr_tbl = (unsigned char *)

_TIFFmalloc(n_clr_elems * clr_tbl_size);

if (!clr_tbl) {

TIFFError(infilename,

"Can't allocate space for color table");

goto bad;

}

lseek(fd, BFH_SIZE + info_hdr.iSize, SEEK_SET);

read(fd, clr_tbl, n_clr_elems * clr_tbl_size);

red_tbl = (unsigned short*)

_TIFFmalloc(((tmsize_t)1)<<depth * sizeof(unsigned short));

if (!red_tbl) {

TIFFError(infilename,

"Can't allocate space for red component table");

_TIFFfree(clr_tbl);

goto bad1;

}

green_tbl = (unsigned short*)

_TIFFmalloc(((tmsize_t)1)<<depth * sizeof(unsigned short));

if (!green_tbl) {

TIFFError(infilename,

"Can't allocate space for green component table");

_TIFFfree(clr_tbl);

goto bad2;

}

blue_tbl = (unsigned short*)

_TIFFmalloc(((tmsize_t)1)<<depth * sizeof(unsigned short));

if (!blue_tbl) {

TIFFError(infilename,

"Can't allocate space for blue component table");

_TIFFfree(clr_tbl);

goto bad3;

}

for(clr = 0; clr < clr_tbl_size; clr++) {

red_tbl[clr] = 257*clr_tbl[clr*n_clr_elems+2];

green_tbl[clr] = 257*clr_tbl[clr*n_clr_elems+1];

blue_tbl[clr] = 257*clr_tbl[clr*n_clr_elems];

}

_TIFFfree(clr_tbl);

break;

case 16:

case 24:

nbands = 3;

depth = info_hdr.iBitCount / nbands;

photometric = PHOTOMETRIC_RGB;

break;

case 32:

nbands = 3;

depth = 8;

photometric = PHOTOMETRIC_RGB;

break;

default:

break;

}

/* -------------------------------------------------------------------- */

/* Create output file. */

/* -------------------------------------------------------------------- */

TIFFSetField(out, TIFFTAG_IMAGEWIDTH, width);

TIFFSetField(out, TIFFTAG_IMAGELENGTH, length);

TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);

TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, nbands);

TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, depth);

TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);

TIFFSetField(out, TIFFTAG_PHOTOMETRIC, photometric);

TIFFSetField(out, TIFFTAG_ROWSPERSTRIP,

TIFFDefaultStripSize(out, rowsperstrip));

if (red_tbl && green_tbl && blue_tbl) {

TIFFSetField(out, TIFFTAG_COLORMAP,

red_tbl, green_tbl, blue_tbl);

}

if (compression == (uint16) -1)

compression = COMPRESSION_PACKBITS;

TIFFSetField(out, TIFFTAG_COMPRESSION, compression);

switch (compression) {

case COMPRESSION_JPEG:

if (photometric == PHOTOMETRIC_RGB

&& jpegcolormode == JPEGCOLORMODE_RGB)

photometric = PHOTOMETRIC_YCBCR;

TIFFSetField(out, TIFFTAG_JPEGQUALITY, quality);

TIFFSetField(out, TIFFTAG_JPEGCOLORMODE, jpegcolormode);

break;

case COMPRESSION_LZW:

case COMPRESSION_DEFLATE:

if (predictor != 0)

TIFFSetField(out, TIFFTAG_PREDICTOR, predictor);

break;

}

/* -------------------------------------------------------------------- */

/* Read uncompressed image data. */

/* -------------------------------------------------------------------- */

if (info_hdr.iCompression == BMPC_RGB) {

uint32 offset, size;

char *scanbuf;

/* XXX: Avoid integer overflow. We can calculate size

* in one step using

*

* size = ((width * info_hdr.iBitCount + 31) & ~31) / 8

*

* formulae, but we should check for overflow

* conditions during calculation.

*/

size = width * info_hdr.iBitCount + 31;

if (!width || !info_hdr.iBitCount

|| (size - 31) / info_hdr.iBitCount != width ) {

TIFFError(infilename,

"Wrong image parameters; can't "

"allocate space for scanline buffer");

goto bad3;

}

size = (size & ~31) / 8;

scanbuf = (char *) _TIFFmalloc(size);

if (!scanbuf) {

TIFFError(infilename,

"Can't allocate space for scanline buffer");

goto bad3;

}

for (row = 0; row < length; row++) {

if (info_hdr.iHeight > 0)

offset = file_hdr.iOffBits+(length-row-1)*size;

else

offset = file_hdr.iOffBits + row * size;

if (lseek(fd, offset, SEEK_SET) == (off_t)-1) {

TIFFError(infilename,

"scanline %lu: Seek error",

(unsigned long) row);

break;

}

if (read(fd, scanbuf, size) < 0) {

TIFFError(infilename,

"scanline %lu: Read error",

(unsigned long) row);

break;

}

rearrangePixels(scanbuf, width, info_hdr.iBitCount);

if (TIFFWriteScanline(out, scanbuf, row, 0)<0) {

TIFFError(infilename,

"scanline %lu: Write error",

(unsigned long) row);

break;

}

}

_TIFFfree(scanbuf);

/* -------------------------------------------------------------------- */

/* Read compressed image data. */

/* -------------------------------------------------------------------- */

} else if ( info_hdr.iCompression == BMPC_RLE8

|| info_hdr.iCompression == BMPC_RLE4 ) {

uint32 i, j, k, runlength;

uint32 compr_size, uncompr_size;

uint32 bits = 0;

unsigned char *comprbuf;

unsigned char *uncomprbuf;

compr_size = file_hdr.iSize - file_hdr.iOffBits;

bits = info_hdr.iBitCount;

if (bits > 8) // bit depth is > 8bit, adjust size

{

uncompr_size = width * length * (bits / 8);

/* Detect int overflow */

if (uncompr_size / width / (bits / 8) != length) {

TIFFError(infilename,

"Invalid dimensions of BMP file");

close(fd);

return -1;

}

}

else

{

uncompr_size = width * length;

/* Detect int overflow */

if (uncompr_size / width != length) {

TIFFError(infilename,

"Invalid dimensions of BMP file");

close(fd);

return -1;

}

}

comprbuf = (unsigned char *) _TIFFmalloc( compr_size );

if (!comprbuf) {

TIFFError(infilename,

"Can't allocate space for compressed scanline buffer");

goto bad3;

}

uncomprbuf = (unsigned char *)_TIFFmalloc(uncompr_size);

if (!uncomprbuf) {

TIFFError(infilename,

"Can't allocate space for uncompressed scanline buffer");

goto bad3;

}

lseek(fd, file_hdr.iOffBits, SEEK_SET);

read(fd, comprbuf, compr_size);

i = 0;

j = 0;

if (info_hdr.iBitCount == 8) { /* RLE8 */

while(j < uncompr_size && i < compr_size) {

if ( comprbuf[i] ) {

runlength = comprbuf[i++];

while( runlength > 0

&& j < uncompr_size

&& i < compr_size ) {

uncomprbuf[j++] = comprbuf[i];

runlength--;

}

i++;

} else {

i++;

if (comprbuf[i] == 0) /* Next scanline */

i++;

else if (comprbuf[i] == 1) /* End of image */

break;

else if (comprbuf[i] == 2) { /* Move to... */

i++;

if (i < compr_size - 1) {

j+=comprbuf[i]+comprbuf[i+1]*width;

i += 2;

}

else

break;

} else { /* Absolute mode */

runlength = comprbuf[i++];

for (k = 0; k < runlength && j < uncompr_size && i < compr_size; k++)

uncomprbuf[j++] = comprbuf[i++];

if ( k & 0x01 )

i++;

}

}

}

}

else { /* RLE4 */

while( j < uncompr_size && i < compr_size ) {

if ( comprbuf[i] ) {

runlength = comprbuf[i++];

while( runlength > 0 && j < uncompr_size && i < compr_size ) {

if ( runlength & 0x01 )

uncomprbuf[j++] = (comprbuf[i] & 0xF0) >> 4;

else

uncomprbuf[j++] = comprbuf[i] & 0x0F;

runlength--;

}

i++;

} else {

i++;

if (comprbuf[i] == 0) /* Next scanline */

i++;

else if (comprbuf[i] == 1) /* End of image */

break;

else if (comprbuf[i] == 2) { /* Move to... */

i++;

if (i < compr_size - 1) {

j+=comprbuf[i]+comprbuf[i+1]*width;

i += 2;

}

else

break;

} else { /* Absolute mode */

runlength = comprbuf[i++];

for (k = 0; k < runlength && j < uncompr_size && i < compr_size; k++) {

if (k & 0x01)

uncomprbuf[j++] = comprbuf[i++] & 0x0F;

else

uncomprbuf[j++] = (comprbuf[i] & 0xF0) >> 4;

}

if (k & 0x01)

i++;

}

}

}

}

_TIFFfree(comprbuf);

for (row = 0; row < length; row++) {

if (TIFFWriteScanline(out,

uncomprbuf + (length - row - 1) * width,

row, 0) < 0) {

TIFFError(infilename,

"scanline %lu: Write error.\n",

(unsigned long) row);

}

}

_TIFFfree(uncomprbuf);

}

TIFFWriteDirectory(out);

if (blue_tbl) {

_TIFFfree(blue_tbl);

blue_tbl=NULL;

}

if (green_tbl) {

_TIFFfree(green_tbl);

green_tbl=NULL;

}

if (red_tbl) {

_TIFFfree(red_tbl);

red_tbl=NULL;

}

}

bad3:

if (blue_tbl)

_TIFFfree(blue_tbl);

bad2:

if (green_tbl)

_TIFFfree(green_tbl);

bad1:

if (red_tbl)

_TIFFfree(red_tbl);

bad:

close(fd);

if (out)

TIFFClose(out);

return 0;

}

/*

* Image data in BMP file stored in BGR (or ABGR) format. We should rearrange

* pixels to RGB (RGBA) format.

*/

static void

rearrangePixels(char *buf, uint32 width, uint32 bit_count)

{

char tmp;

uint32 i;

switch(bit_count) {

case 16: /* FIXME: need a sample file */

break;

case 24:

for (i = 0; i < width; i++, buf += 3) {

tmp = *buf;

*buf = *(buf + 2);

*(buf + 2) = tmp;

}

break;

case 32:

{

char *buf1 = buf;

for (i = 0; i < width; i++, buf += 4) {

tmp = *buf;

*buf1++ = *(buf + 2);

*buf1++ = *(buf + 1);

*buf1++ = tmp;

}

}

break;

default:

break;

}

}

static int

processCompressOptions(char* opt)

{

if (strcmp(opt, "none") == 0)

compression = COMPRESSION_NONE;

else if (strcmp(opt, "packbits") == 0)

compression = COMPRESSION_PACKBITS;

else if (strncmp(opt, "jpeg", 4) == 0) {

char* cp = strchr(opt, ':');

compression = COMPRESSION_JPEG;

while( cp )

{

if (isdigit((int)cp[1]))

quality = atoi(cp+1);

else if (cp[1] == 'r' )

jpegcolormode = JPEGCOLORMODE_RAW;

else

usage();

cp = strchr(cp+1,':');

}

} else if (strncmp(opt, "lzw", 3) == 0) {

char* cp = strchr(opt, ':');

if (cp)

predictor = atoi(cp+1);

compression = COMPRESSION_LZW;

} else if (strncmp(opt, "zip", 3) == 0) {

char* cp = strchr(opt, ':');

if (cp)

predictor = atoi(cp+1);

compression = COMPRESSION_DEFLATE;

} else

return (0);

return (1);

}

static char* stuff[] = {

"bmp2tiff --- convert Windows BMP files to TIFF",

"usage: bmp2tiff [options] input.bmp [input2.bmp ...] output.tif",

"where options are:",

" -r # make each strip have no more than # rows",

"",

" -c lzw[:opts] compress output with Lempel-Ziv & Welch encoding",

" -c zip[:opts] compress output with deflate encoding",

" -c jpeg[:opts]compress output with JPEG encoding",

" -c packbits compress output with packbits encoding",

" -c none use no compression algorithm on output",

"",

"JPEG options:",

" # set compression quality level (0-100, default 75)",

" r output color image as RGB rather than YCbCr",

"For example, -c jpeg:r:50 to get JPEG-encoded RGB data with 50% comp. quality",

"",

"LZW and deflate options:",

" # set predictor value",

"For example, -c lzw:2 to get LZW-encoded data with horizontal differencing",

" -o out.tif write output to out.tif",

" -h this help message",

NULL

};

static void

usage(void)

{

char buf[BUFSIZ];

int i;

setbuf(stderr, buf);

fprintf(stderr, "%s\n\n", TIFFGetVersion());

for (i = 0; stuff[i] != NULL; i++)

fprintf(stderr, "%s\n", stuff[i]);

exit(-1);

}

/* vim: set ts=8 sts=8 sw=8 noet: */

/*

* Local Variables:

* mode: c

* c-basic-offset: 8

* fill-column: 78

* End:

*/