/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% BBBB M M PPPP %
% B B MM MM P P %
% BBBB M M M PPPP %
% B B M M P %
% BBBB M M P %
% %
% %
% Read/Write ImageMagick Image Format. %
% %
% %
% Software Design %
% John Cristy %
% July 1992 %
% %
% %
% Copyright (C) 2001 ImageMagick Studio, a non-profit organization dedicated %
% to making software imaging solutions freely available. %
% %
% Permission is hereby granted, free of charge, to any person obtaining a %
% copy of this software and associated documentation files ("ImageMagick"), %
% to deal in ImageMagick without restriction, including without limitation %
% the rights to use, copy, modify, merge, publish, distribute, sublicense, %
% and/or sell copies of ImageMagick, and to permit persons to whom the %
% ImageMagick is furnished to do so, subject to the following conditions: %
% %
% The above copyright notice and this permission notice shall be included in %
% all copies or substantial portions of ImageMagick. %
% %
% The software is provided "as is", without warranty of any kind, express or %
% implied, including but not limited to the warranties of merchantability, %
% fitness for a particular purpose and noninfringement. In no event shall %
% ImageMagick Studio be liable for any claim, damages or other liability, %
% whether in an action of contract, tort or otherwise, arising from, out of %
% or in connection with ImageMagick or the use or other dealings in %
% ImageMagick. %
% %
% Except as contained in this notice, the name of the ImageMagick Studio %
% shall not be used in advertising or otherwise to promote the sale, use or %
% other dealings in ImageMagick without prior written authorization from the %
% ImageMagick Studio. %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
*/
/*
Include declarations.
*/
#include "magick.h"
#include "defines.h"
/*
Typedef declarations.
*/
typedef struct _BMPInfo
{
unsigned long
file_size,
ba_offset,
offset_bits,
size;
long
width,
height;
unsigned short
planes,
bits_per_pixel;
unsigned long
compression,
image_size,
x_pixels,
y_pixels,
number_colors,
colors_important;
unsigned short
red_mask,
green_mask,
blue_mask,
alpha_mask;
long
colorspace;
PointInfo
red_primary,
green_primary,
blue_primary,
gamma_scale;
} BMPInfo;
/*
Forward declarations.
*/
static unsigned int
WriteBMPImage(const ImageInfo *,Image *);
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% D e c o d e I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method DecodeImage unpacks the packed image pixels into runlength-encoded
% pixel packets.
%
% The format of the DecodeImage method is:
%
% unsigned int DecodeImage(Image *image,const unsigned int compression,
% unsigned char *pixels)
%
% A description of each parameter follows:
%
% o status: Method DecodeImage returns True if all the pixels are
% uncompressed without error, otherwise False.
%
% o image: The address of a structure of type Image.
%
% o compression: A value of 1 means the compressed pixels are runlength
% encoded for a 256-color bitmap. A value of 2 means a 16-color bitmap.
%
% o pixels: The address of a byte (8 bits) array of pixel data created by
% the decoding process.
%
%
*/
static unsigned int DecodeImage(Image *image,const unsigned int compression,
unsigned char *pixels)
{
int
byte,
count,
y;
register int
i,
x;
register unsigned char
*q;
assert(image != (Image *) NULL);
assert(pixels != (unsigned char *) NULL);
memset(pixels,0,image->columns*image->rows);
byte=0;
x=0;
q=pixels;
for (y=0; y < (int) image->rows; )
{
count=ReadBlobByte(image);
if (count == EOF)
break;
if (count != 0)
{
/*
Encoded mode.
*/
byte=ReadBlobByte(image);
for (i=0; i < count; i++)
{
if (compression == 1)
*q++=(unsigned char) byte;
else
*q++=(i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f);
x++;
}
}
else
{
/*
Escape mode.
*/
count=ReadBlobByte(image);
if (count == 0x01)
return(True);
switch (count)
{
case 0x00:
{
/*
End of line.
*/
x=0;
y++;
q=pixels+y*image->columns;
break;
}
case 0x02:
{
/*
Delta mode.
*/
x+=ReadBlobByte(image);
y+=ReadBlobByte(image);
q=pixels+y*image->columns+x;
break;
}
default:
{
/*
Absolute mode.
*/
for (i=0; i < count; i++)
{
if (compression == 1)
*q++=ReadBlobByte(image);
else
{
if ((i & 0x01) == 0)
byte=ReadBlobByte(image);
*q++=(i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f);
}
x++;
}
/*
Read pad byte.
*/
if (compression == 1)
{
if (count & 0x01)
(void) ReadBlobByte(image);
}
else
if (((count & 0x03) == 1) || ((count & 0x03) == 2))
(void) ReadBlobByte(image);
break;
}
}
}
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,y,image->rows);
}
(void) ReadBlobByte(image); /* end of line */
(void) ReadBlobByte(image);
return(True);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% E n c o d e I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method EncodeImage compresses pixels using a runlength encoded format.
%
% The format of the EncodeImage method is:
%
% static unsigned int EncodeImage(Image *image,
% const unsigned int bytes_per_line,const unsigned char *pixels,
% unsigned char *compressed_pixels)
%
% A description of each parameter follows:
%
% o status: Method EncodeImage returns the number of bytes in the
% runlength encoded compress_pixels array.
%
% o image: A pointer to a Image structure.
%
% o pixels: The address of a byte (8 bits) array of pixel data created by
% the compression process.
%
% o compressed_pixels: The address of a byte (8 bits) array of compressed
% pixel data.
%
%
*/
static unsigned int EncodeImage(Image *image,const unsigned int bytes_per_line,
const unsigned char *pixels,unsigned char *compressed_pixels)
{
int
y;
register const unsigned char
*p;
register int
i,
x;
register unsigned char
*q;
/*
Runlength encode pixels.
*/
assert(image != (Image *) NULL);
assert(pixels != (const unsigned char *) NULL);
assert(compressed_pixels != (unsigned char *) NULL);
p=pixels;
q=compressed_pixels;
i=0;
for (y=0; y < (int) image->rows; y++)
{
for (x=0; x < (int) bytes_per_line; x+=i)
{
/*
Determine runlength.
*/
for (i=1; ((x+i) < (int) bytes_per_line); i++)
if ((*(p+i) != *p) || (i == 255))
break;
*q++=(unsigned char) i;
*q++=(*p);
p+=i;
}
/*
End of line.
*/
*q++=0x00;
*q++=0x00;
if (QuantumTick(y,image->rows))
MagickMonitor(SaveImageText,y,image->rows);
}
/*
End of bitmap.
*/
*q++=0;
*q++=0x01;
return((unsigned int) (q-compressed_pixels));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% I s B M P %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method IsBMP returns True if the image format type, identified by the
% magick string, is BMP.
%
% The format of the IsBMP method is:
%
% unsigned int IsBMP(const unsigned char *magick,
% const unsigned int length)
%
% A description of each parameter follows:
%
% o status: Method IsBMP returns True if the image format type is BMP.
%
% o magick: This string is generally the first few bytes of an image file
% or blob.
%
% o length: Specifies the length of the magick string.
%
%
*/
static unsigned int IsBMP(const unsigned char *magick,const unsigned int length)
{
if (length < 2)
return(False);
if (LocaleNCompare((char *) magick,"BA",2) == 0)
return(True);
if (LocaleNCompare((char *) magick,"BM",2) == 0)
return(True);
if (LocaleNCompare((char *) magick,"IC",2) == 0)
return(True);
if (LocaleNCompare((char *) magick,"PI",2) == 0)
return(True);
if (LocaleNCompare((char *) magick,"CI",2) == 0)
return(True);
if (LocaleNCompare((char *) magick,"CP",2) == 0)
return(True);
return(False);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d B M P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method ReadBMPImage reads a Microsoft Windows bitmap image file and
% returns it. It allocates the memory necessary for the new Image structure
% and returns a pointer to the new image.
%
% The format of the ReadBMPImage method is:
%
% image=ReadBMPImage(image_info)
%
% A description of each parameter follows:
%
% o image: Method ReadBMPImage returns a pointer to the image after
% reading. A null image is returned if there is a memory shortage or
% if the image cannot be read.
%
% o image_info: Specifies a pointer to an ImageInfo structure.
%
% o exception: return any errors or warnings in this structure.
%
%
*/
static Image *ReadBMPImage(const ImageInfo *image_info,ExceptionInfo *exception)
{
BMPInfo
bmp_info;
Image
*image;
IndexPacket
index;
int
bit,
y;
long
start_position;
register IndexPacket
*indexes;
register int
i,
x;
register PixelPacket
*q;
register unsigned char
*p;
unsigned char
magick[12],
*pixels;
unsigned int
bytes_per_line,
image_size,
status;
/*
Open image file.
*/
image=AllocateImage(image_info);
status=OpenBlob(image_info,image,ReadBinaryType);
if (status == False)
ThrowReaderException(FileOpenWarning,"Unable to open file",image);
/*
Determine if this is a BMP file.
*/
memset(&bmp_info,0,sizeof(BMPInfo));
bmp_info.ba_offset=0;
start_position=0;
status=ReadBlob(image,2,(char *) magick);
do
{
/*
Verify BMP identifier.
*/
if (bmp_info.ba_offset == 0)
start_position=TellBlob(image)-2;
bmp_info.ba_offset=0;
while (LocaleNCompare((char *) magick,"BA",2) == 0)
{
bmp_info.file_size=ReadBlobLSBLong(image);
bmp_info.ba_offset=ReadBlobLSBLong(image);
bmp_info.offset_bits=ReadBlobLSBLong(image);
status=ReadBlob(image,2,(char *) magick);
}
if ((status == False) ||
((LocaleNCompare((char *) magick,"BM",2) != 0) &&
(LocaleNCompare((char *) magick,"CI",2) != 0)))
ThrowReaderException(CorruptImageWarning,"Not a BMP image file",image);
bmp_info.file_size=ReadBlobLSBLong(image);
(void) ReadBlobLSBLong(image);
bmp_info.offset_bits=ReadBlobLSBLong(image);
bmp_info.size=ReadBlobLSBLong(image);
if (bmp_info.size == 12)
{
/*
OS/2 BMP image file.
*/
bmp_info.width=ReadBlobLSBShort(image);
bmp_info.height=ReadBlobLSBShort(image);
bmp_info.planes=ReadBlobLSBShort(image);
bmp_info.bits_per_pixel=ReadBlobLSBShort(image);
bmp_info.x_pixels=0;
bmp_info.y_pixels=0;
bmp_info.number_colors=0;
bmp_info.compression=0;
bmp_info.image_size=0;
}
else
{
/*
Microsoft Windows BMP image file.
*/
bmp_info.width=ReadBlobLSBLong(image);
bmp_info.height=ReadBlobLSBLong(image);
bmp_info.planes=ReadBlobLSBShort(image);
bmp_info.bits_per_pixel=ReadBlobLSBShort(image);
bmp_info.compression=ReadBlobLSBLong(image);
bmp_info.image_size=ReadBlobLSBLong(image);
bmp_info.x_pixels=ReadBlobLSBLong(image);
bmp_info.y_pixels=ReadBlobLSBLong(image);
bmp_info.number_colors=ReadBlobLSBLong(image);
bmp_info.colors_important=ReadBlobLSBLong(image);
for (i=0; i < ((int) bmp_info.size-40); i++)
(void) ReadBlobByte(image);
if ((bmp_info.compression == 3) && ((bmp_info.bits_per_pixel == 16) ||
(bmp_info.bits_per_pixel == 32)))
{
bmp_info.red_mask=ReadBlobLSBShort(image);
bmp_info.green_mask=ReadBlobLSBShort(image);
bmp_info.blue_mask=ReadBlobLSBShort(image);
if (bmp_info.size > 40)
{
/*
Read color management information.
*/
bmp_info.alpha_mask=ReadBlobLSBShort(image);
bmp_info.colorspace=ReadBlobLSBLong(image);
bmp_info.red_primary.x=ReadBlobLSBLong(image);
bmp_info.red_primary.y=ReadBlobLSBLong(image);
bmp_info.red_primary.z=ReadBlobLSBLong(image);
bmp_info.green_primary.x=ReadBlobLSBLong(image);
bmp_info.green_primary.y=ReadBlobLSBLong(image);
bmp_info.green_primary.z=ReadBlobLSBLong(image);
bmp_info.blue_primary.x=ReadBlobLSBLong(image);
bmp_info.blue_primary.y=ReadBlobLSBLong(image);
bmp_info.blue_primary.z=ReadBlobLSBLong(image);
bmp_info.gamma_scale.x=ReadBlobLSBShort(image);
bmp_info.gamma_scale.y=ReadBlobLSBShort(image);
bmp_info.gamma_scale.z=ReadBlobLSBShort(image);
}
}
}
image->matte=bmp_info.bits_per_pixel == 32;
image->columns=(unsigned int) bmp_info.width;
image->rows=(unsigned int) AbsoluteValue(bmp_info.height);
image->depth=8;
if ((bmp_info.number_colors != 0) || (bmp_info.bits_per_pixel < 16))
{
image->storage_class=PseudoClass;
image->colors=(unsigned int) bmp_info.number_colors;
if (image->colors == 0)
image->colors=1 << bmp_info.bits_per_pixel;
}
if (image_info->ping)
{
CloseBlob(image);
return(image);
}
if (image->storage_class == PseudoClass)
{
unsigned char
*bmp_colormap;
unsigned int
packet_size;
/*
Read BMP raster colormap.
*/
if (!AllocateImageColormap(image,image->colors))
ThrowReaderException(ResourceLimitWarning,"Memory allocation failed",
image);
bmp_colormap=(unsigned char *) AcquireMemory(4*image->colors);
if (bmp_colormap == (unsigned char *) NULL)
ThrowReaderException(ResourceLimitWarning,"Memory allocation failed",
image);
packet_size=4;
if ((bmp_info.size == 12) || (bmp_info.size == 64))
packet_size=3;
(void) ReadBlob(image,packet_size*image->colors,(char *) bmp_colormap);
p=bmp_colormap;
for (i=0; i < (int) image->colors; i++)
{
image->colormap[i].blue=UpScale(*p++);
image->colormap[i].green=UpScale(*p++);
image->colormap[i].red=UpScale(*p++);
if (packet_size == 4)
p++;
}
LiberateMemory((void **) &bmp_colormap);
}
SeekBlob(image,start_position+bmp_info.offset_bits,SEEK_SET);
/*
Read image data.
*/
if (bmp_info.compression == 2)
bmp_info.bits_per_pixel<<=1;
bytes_per_line=4*((image->columns*bmp_info.bits_per_pixel+31)/32);
image_size=bytes_per_line*image->rows;
pixels=(unsigned char *) AcquireMemory(image_size);
if (pixels == (unsigned char *) NULL)
ThrowReaderException(ResourceLimitWarning,"Memory allocation failed",
image);
if ((bmp_info.compression == 0) || (bmp_info.compression == 3))
(void) ReadBlob(image,image_size,(char *) pixels);
else
{
/*
Convert run-length encoded raster pixels.
*/
status=DecodeImage(image,(unsigned int) bmp_info.compression,pixels);
if (status == False)
ThrowReaderException(CorruptImageWarning,"runlength decoding failed",
image);
}
/*
Initialize image structure.
*/
image->units=PixelsPerCentimeterResolution;
image->x_resolution=bmp_info.x_pixels/100.0;
image->y_resolution=bmp_info.y_pixels/100.0;
/*
Convert BMP raster image to pixel packets.
*/
switch (bmp_info.bits_per_pixel)
{
case 1:
{
/*
Convert bitmap scanline.
*/
for (y=image->rows-1; y >= 0; y--)
{
p=pixels+(image->rows-y-1)*bytes_per_line;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < ((int) image->columns-7); x+=8)
{
for (bit=0; bit < 8; bit++)
{
index=((*p) & (0x80 >> bit) ? 0x01 : 0x00);
indexes[x+bit]=index;
*q++=image->colormap[index];
}
p++;
}
if ((image->columns % 8) != 0)
{
for (bit=0; bit < (int) (image->columns % 8); bit++)
{
index=((*p) & (0x80 >> bit) ? 0x01 : 0x00);
indexes[x+bit]=index;
*q++=image->colormap[index];
}
p++;
}
if (!SyncImagePixels(image))
break;
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,image->rows-y-1,image->rows);
}
break;
}
case 4:
{
/*
Convert PseudoColor scanline.
*/
for (y=image->rows-1; y >= 0; y--)
{
p=pixels+(image->rows-y-1)*bytes_per_line;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < ((int) image->columns-1); x+=2)
{
index=ValidateColormapIndex(image,(*p >> 4) & 0xf);
indexes[x]=index;
*q++=image->colormap[index];
index=ValidateColormapIndex(image,*p & 0xf);
indexes[x+1]=index;
*q++=image->colormap[index];
p++;
}
if ((image->columns % 2) != 0)
{
index=ValidateColormapIndex(image,(*p >> 4) & 0xf);
indexes[x]=index;
*q++=image->colormap[index];
p++;
}
if (!SyncImagePixels(image))
break;
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,image->rows-y-1,image->rows);
}
break;
}
case 8:
{
/*
Convert PseudoColor scanline.
*/
if ((bmp_info.compression == 1) || (bmp_info.compression == 2))
bytes_per_line=image->columns;
for (y=image->rows-1; y >= 0; y--)
{
p=pixels+(image->rows-y-1)*bytes_per_line;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (int) image->columns; x++)
{
index=ValidateColormapIndex(image,*p);
indexes[x]=index;
*q=image->colormap[index];
p++;
q++;
}
if (!SyncImagePixels(image))
break;
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,image->rows-y-1,image->rows);
}
break;
}
case 16:
{
unsigned short
word;
/*
Convert PseudoColor scanline.
*/
image->storage_class=DirectClass;
if (bmp_info.compression == 1)
bytes_per_line=2*image->columns;
for (y=image->rows-1; y >= 0; y--)
{
p=pixels+(image->rows-y-1)*bytes_per_line;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
for (x=0; x < (int) image->columns; x++)
{
word=(*p++);
word|=(*p++ << 8);
if (bmp_info.red_mask == 0)
{
q->red=UpScale(ScaleColor5to8((word >> 10) & 0x1f));
q->green=UpScale(ScaleColor5to8((word >> 5) & 0x1f));
q->blue=UpScale(ScaleColor5to8(word & 0x1f));
}
else
{
q->red=UpScale(ScaleColor5to8((word >> 11) & 0x1f));
q->green=UpScale(ScaleColor6to8((word >> 5) & 0x3f));
q->blue=UpScale(ScaleColor5to8(word & 0x1f));
}
q++;
}
if (!SyncImagePixels(image))
break;
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,image->rows-y-1,image->rows);
}
break;
}
case 24:
case 32:
{
/*
Convert DirectColor scanline.
*/
for (y=image->rows-1; y >= 0; y--)
{
p=pixels+(image->rows-y-1)*bytes_per_line;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
for (x=0; x < (int) image->columns; x++)
{
q->blue=UpScale(*p++);
q->green=UpScale(*p++);
q->red=UpScale(*p++);
if (image->matte)
q->opacity=UpScale(*p++);
q++;
}
if (!SyncImagePixels(image))
break;
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(LoadImageText,image->rows-y-1,image->rows);
}
break;
}
default:
ThrowReaderException(CorruptImageWarning,"Not a BMP image file",image);
}
LiberateMemory((void **) &pixels);
if (bmp_info.height < 0)
{
Image
*flipped_image;
/*
Correct image orientation.
*/
flipped_image=FlipImage(image,exception);
if (flipped_image == (Image *) NULL)
{
DestroyImages(image);
return((Image *) NULL);
}
DestroyImage(image);
image=flipped_image;
}
/*
Proceed to next image.
*/
if (image_info->subrange != 0)
if (image->scene >= (image_info->subimage+image_info->subrange-1))
break;
*magick='\0';
if (bmp_info.ba_offset > 0)
SeekBlob(image,bmp_info.ba_offset,SEEK_SET);
(void) ReadBlob(image,2,(char *) magick);
if (IsBMP(magick,2))
{
/*
Acquire next image structure.
*/
AllocateNextImage(image_info,image);
if (image->next == (Image *) NULL)
{
DestroyImages(image);
return((Image *) NULL);
}
image=image->next;
MagickMonitor(LoadImagesText,TellBlob(image),image->filesize);
}
} while (IsBMP(magick,2));
while (image->previous != (Image *) NULL)
image=image->previous;
CloseBlob(image);
return(image);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e g i s t e r B M P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method RegisterBMPImage adds attributes for the BMP image format to
% the list of supported formats. The attributes include the image format
% tag, a method to read and/or write the format, whether the format
% supports the saving of more than one frame to the same file or blob,
% whether the format supports native in-memory I/O, and a brief
% description of the format.
%
% The format of the RegisterBMPImage method is:
%
% RegisterBMPImage(void)
%
*/
ModuleExport void RegisterBMPImage(void)
{
MagickInfo
*entry;
entry=SetMagickInfo("BMP");
entry->decoder=ReadBMPImage;
entry->encoder=WriteBMPImage;
entry->magick=IsBMP;
entry->description=AllocateString("Microsoft Windows bitmap image");
entry->module=AllocateString("BMP");
RegisterMagickInfo(entry);
entry=SetMagickInfo("DIB");
entry->decoder=ReadBMPImage;
entry->encoder=WriteBMPImage;
entry->description=AllocateString("Microsoft Windows bitmap image");
entry->module=AllocateString("BMP");
RegisterMagickInfo(entry);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% U n r e g i s t e r B M P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method UnregisterBMPImage removes format registrations made by the
% BMP module from the list of supported formats.
%
% The format of the UnregisterBMPImage method is:
%
% UnregisterBMPImage(void)
%
*/
ModuleExport void UnregisterBMPImage(void)
{
UnregisterMagickInfo("BMP");
UnregisterMagickInfo("DIB");
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% W r i t e B M P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Method WriteBMPImage writes an image in Microsoft Windows bitmap encoded
% image format.
%
% The format of the WriteBMPImage method is:
%
% unsigned int WriteBMPImage(const ImageInfo *image_info,Image *image)
%
% A description of each parameter follows.
%
% o status: Method WriteBMPImage return True if the image is written.
% False is returned is there is a memory shortage or if the image file
% fails to write.
%
% o image_info: Specifies a pointer to an ImageInfo structure.
%
% o image: A pointer to a Image structure.
%
%
*/
static unsigned int WriteBMPImage(const ImageInfo *image_info,Image *image)
{
BMPInfo
bmp_info;
int
y;
register IndexPacket
*indexes;
register int
i,
x;
register PixelPacket
*p;
register unsigned char
*q;
unsigned char
*bmp_data,
*pixels;
unsigned int
bytes_per_line,
scene,
status;
/*
Open output image file.
*/
status=OpenBlob(image_info,image,WriteBinaryType);
if (status == False)
ThrowWriterException(FileOpenWarning,"Unable to open file",image);
scene=0;
do
{
/*
Initialize BMP raster file header.
*/
TransformRGBImage(image,RGBColorspace);
bmp_info.file_size=14+40;
bmp_info.offset_bits=14+40;
if (image->storage_class == DirectClass)
{
/*
Full color BMP raster.
*/
bmp_info.number_colors=0;
bmp_info.bits_per_pixel=image->matte ? 32 : 24;
}
else
{
/*
Colormapped BMP raster.
*/
bmp_info.bits_per_pixel=8;
if (IsMonochromeImage(image))
bmp_info.bits_per_pixel=1;
bmp_info.file_size+=4*(1 << bmp_info.bits_per_pixel);
bmp_info.offset_bits+=4*(1 << bmp_info.bits_per_pixel);
bmp_info.number_colors=1 << bmp_info.bits_per_pixel;
}
bytes_per_line=4*((image->columns*bmp_info.bits_per_pixel+31)/32);
bmp_info.ba_offset=0;
bmp_info.size=40;
bmp_info.width=image->columns;
bmp_info.height=image->rows;
bmp_info.planes=1;
bmp_info.compression=0;
bmp_info.image_size=bytes_per_line*image->rows;
bmp_info.file_size+=bmp_info.image_size;
bmp_info.x_pixels=75*39;
bmp_info.y_pixels=75*39;
if (image->units == PixelsPerInchResolution)
{
bmp_info.x_pixels=(unsigned long) (100.0*image->x_resolution/2.54);
bmp_info.y_pixels=(unsigned long) (100.0*image->y_resolution/2.54);
}
if (image->units == PixelsPerCentimeterResolution)
{
bmp_info.x_pixels=(unsigned long) (100.0*image->x_resolution);
bmp_info.y_pixels=(unsigned long) (100.0*image->y_resolution);
}
bmp_info.colors_important=bmp_info.number_colors;
/*
Convert MIFF to BMP raster pixels.
*/
pixels=(unsigned char *) AcquireMemory(bmp_info.image_size);
if (pixels == (unsigned char *) NULL)
ThrowWriterException(ResourceLimitWarning,"Memory allocation failed",
image);
switch (bmp_info.bits_per_pixel)
{
case 1:
{
register unsigned char
bit,
byte,
polarity;
/*
Convert PseudoClass image to a BMP monochrome image.
*/
polarity=Intensity(image->colormap[0]) > (MaxRGB >> 1);
if (image->colors == 2)
polarity=
Intensity(image->colormap[1]) > Intensity(image->colormap[0]);
for (y=0; y < (int) image->rows; y++)
{
p=GetImagePixels(image,0,y,image->columns,1);
if (p == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
q=pixels+(image->rows-y-1)*bytes_per_line;
bit=0;
byte=0;
for (x=0; x < (int) image->columns; x++)
{
byte<<=1;
if (indexes[x] == polarity)
byte|=0x01;
bit++;
if (bit == 8)
{
*q++=byte;
bit=0;
byte=0;
}
p++;
}
if (bit != 0)
*q++=byte << (8-bit);
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(SaveImageText,y,image->rows);
}
break;
}
case 8:
{
/*
Convert PseudoClass packet to BMP pixel.
*/
for (y=0; y < (int) image->rows; y++)
{
p=GetImagePixels(image,0,y,image->columns,1);
if (p == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
q=pixels+(image->rows-y-1)*bytes_per_line;
for (x=0; x < (int) image->columns; x++)
{
*q++=indexes[x];
p++;
}
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(SaveImageText,y,image->rows);
}
break;
}
case 24:
case 32:
{
/*
Convert DirectClass packet to BMP RGB pixel.
*/
for (y=0; y < (int) image->rows; y++)
{
p=GetImagePixels(image,0,y,image->columns,1);
if (p == (PixelPacket *) NULL)
break;
q=pixels+(image->rows-y-1)*bytes_per_line;
for (x=0; x < (int) image->columns; x++)
{
*q++=DownScale(p->blue);
*q++=DownScale(p->green);
*q++=DownScale(p->red);
if (image->matte)
*q++=DownScale(p->opacity);
p++;
}
if (image->previous == (Image *) NULL)
if (QuantumTick(y,image->rows))
MagickMonitor(SaveImageText,y,image->rows);
}
break;
}
}
if (bmp_info.bits_per_pixel == 8)
if (image_info->compression != NoCompression)
{
unsigned int
packets;
/*
Convert run-length encoded raster pixels.
*/
packets=(unsigned int) 2*(bytes_per_line+2)*(image->rows+2)+2;
bmp_data=(unsigned char *) AcquireMemory(packets);
if (pixels == (unsigned char *) NULL)
{
LiberateMemory((void **) &pixels);
ThrowWriterException(ResourceLimitWarning,
"Memory allocation failed",image);
}
bmp_info.file_size-=bmp_info.image_size;
bmp_info.image_size=EncodeImage(image,bytes_per_line,pixels,bmp_data);
bmp_info.file_size+=bmp_info.image_size;
LiberateMemory((void **) &pixels);
pixels=bmp_data;
bmp_info.compression=1;
}
/*
Write BMP header.
*/
(void) WriteBlob(image,2,"BM");
(void) WriteBlobLSBLong(image,bmp_info.file_size);
(void) WriteBlobLSBLong(image,bmp_info.ba_offset);
(void) WriteBlobLSBLong(image,bmp_info.offset_bits);
(void) WriteBlobLSBLong(image,bmp_info.size);
(void) WriteBlobLSBLong(image,bmp_info.width);
(void) WriteBlobLSBLong(image,bmp_info.height);
(void) WriteBlobLSBShort(image,bmp_info.planes);
(void) WriteBlobLSBShort(image,bmp_info.bits_per_pixel);
(void) WriteBlobLSBLong(image,bmp_info.compression);
(void) WriteBlobLSBLong(image,bmp_info.image_size);
(void) WriteBlobLSBLong(image,bmp_info.x_pixels);
(void) WriteBlobLSBLong(image,bmp_info.y_pixels);
(void) WriteBlobLSBLong(image,bmp_info.number_colors);
(void) WriteBlobLSBLong(image,bmp_info.colors_important);
if (image->storage_class == PseudoClass)
{
unsigned char
*bmp_colormap;
/*
Dump colormap to file.
*/
bmp_colormap=(unsigned char *)
AcquireMemory(4*(1 << bmp_info.bits_per_pixel));
if (bmp_colormap == (unsigned char *) NULL)
ThrowWriterException(ResourceLimitWarning,"Memory allocation failed",
image);
q=bmp_colormap;
for (i=0; i < (int) image->colors; i++)
{
*q++=DownScale(image->colormap[i].blue);
*q++=DownScale(image->colormap[i].green);
*q++=DownScale(image->colormap[i].red);
*q++=(Quantum) 0x0;
}
for ( ; i < (int) (1 << bmp_info.bits_per_pixel); i++)
{
*q++=(Quantum) 0x0;
*q++=(Quantum) 0x0;
*q++=(Quantum) 0x0;
*q++=(Quantum) 0x0;
}
(void) WriteBlob(image,4*(1 << bmp_info.bits_per_pixel),
(char *) bmp_colormap);
LiberateMemory((void **) &bmp_colormap);
}
(void) WriteBlob(image,bmp_info.image_size,(char *) pixels);
LiberateMemory((void **) &pixels);
if (image->next == (Image *) NULL)
break;
image=GetNextImage(image);
MagickMonitor(SaveImagesText,scene++,GetNumberScenes(image));
} while (image_info->adjoin);
if (image_info->adjoin)
while (image->previous != (Image *) NULL)
image=image->previous;
CloseBlob(image);
return(True);
}
