838 lines
25 KiB
C
838 lines
25 KiB
C
/*
|
|
* GDI device-independent bitmaps
|
|
*
|
|
* Copyright 1993,1994 Alexandre Julliard
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <X11/Xlib.h>
|
|
#include <X11/Xutil.h>
|
|
#include "dc.h"
|
|
#include "bitmap.h"
|
|
#include "callback.h"
|
|
#include "palette.h"
|
|
#include "stackframe.h"
|
|
#include "stddebug.h"
|
|
#include "color.h"
|
|
#include "debug.h"
|
|
#include "xmalloc.h"
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_GetImageWidthBytes
|
|
*
|
|
* Return the width of an X image in bytes
|
|
*/
|
|
int DIB_GetImageWidthBytes( int width, int depth )
|
|
{
|
|
int words;
|
|
|
|
switch(depth)
|
|
{
|
|
case 1: words = (width + 31) / 32; break;
|
|
case 4: words = (width + 7) / 8; break;
|
|
case 8: words = (width + 3) / 4; break;
|
|
case 15:
|
|
case 16: words = (width + 1) / 2; break;
|
|
case 24: words = width; break;
|
|
default:
|
|
fprintf(stderr, "DIB: unsupported depth %d.\n", depth );
|
|
exit(1);
|
|
}
|
|
return 4 * words;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_BitmapInfoSize
|
|
*
|
|
* Return the size of the bitmap info structure.
|
|
*/
|
|
int DIB_BitmapInfoSize( BITMAPINFO * info, WORD coloruse )
|
|
{
|
|
int colors;
|
|
|
|
if (info->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
|
|
{
|
|
BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)info;
|
|
colors = (core->bcBitCount != 24) ? 1 << core->bcBitCount : 0;
|
|
return sizeof(BITMAPCOREHEADER) + colors *
|
|
((coloruse == DIB_RGB_COLORS) ? sizeof(RGBTRIPLE) : sizeof(WORD));
|
|
}
|
|
else /* assume BITMAPINFOHEADER */
|
|
{
|
|
colors = info->bmiHeader.biClrUsed;
|
|
if (!colors && (info->bmiHeader.biBitCount != 24))
|
|
colors = 1 << info->bmiHeader.biBitCount;
|
|
return sizeof(BITMAPINFOHEADER) + colors *
|
|
((coloruse == DIB_RGB_COLORS) ? sizeof(RGBQUAD) : sizeof(WORD));
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_DIBmpToImage
|
|
*
|
|
* Create an XImage pointing to the bitmap data.
|
|
*/
|
|
static XImage *DIB_DIBmpToImage( BITMAPINFOHEADER * bmp, void * bmpData )
|
|
{
|
|
extern void _XInitImageFuncPtrs( XImage* );
|
|
XImage * image;
|
|
|
|
image = XCreateImage(display, DefaultVisualOfScreen( screen ),
|
|
bmp->biBitCount, ZPixmap, 0, bmpData,
|
|
bmp->biWidth, bmp->biHeight, 32,
|
|
DIB_GetImageWidthBytes(bmp->biWidth,bmp->biBitCount));
|
|
if (!image) return 0;
|
|
image->byte_order = MSBFirst;
|
|
image->bitmap_bit_order = MSBFirst;
|
|
image->bitmap_unit = 16;
|
|
_XInitImageFuncPtrs(image);
|
|
return image;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_GetBitmapInfo
|
|
*
|
|
* Get the info from a bitmap header.
|
|
* Return 1 for INFOHEADER, 0 for COREHEADER, -1 for error.
|
|
*/
|
|
static int DIB_GetBitmapInfo( BITMAPINFOHEADER *header, DWORD *width,
|
|
DWORD *height, WORD *bpp )
|
|
{
|
|
if (header->biSize == sizeof(BITMAPINFOHEADER))
|
|
{
|
|
*width = header->biWidth;
|
|
*height = header->biHeight;
|
|
*bpp = header->biBitCount;
|
|
return 1;
|
|
}
|
|
if (header->biSize == sizeof(BITMAPCOREHEADER))
|
|
{
|
|
BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)header;
|
|
*width = core->bcWidth;
|
|
*height = core->bcHeight;
|
|
*bpp = core->bcBitCount;
|
|
return 0;
|
|
}
|
|
fprintf( stderr, "DIB_GetBitmapInfo: wrong size (%ld) for header\n",
|
|
header->biSize );
|
|
return -1;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_BuildColorMap
|
|
*
|
|
* Build the color map from the bitmap palette. Should not be called
|
|
* for a 24-bit deep bitmap.
|
|
*/
|
|
static int *DIB_BuildColorMap( DC *dc, WORD coloruse, WORD depth,
|
|
BITMAPINFO *info )
|
|
{
|
|
int i, colors;
|
|
BOOL isInfo;
|
|
WORD *colorPtr;
|
|
int *colorMapping;
|
|
|
|
if ((isInfo = (info->bmiHeader.biSize == sizeof(BITMAPINFOHEADER))))
|
|
{
|
|
colors = info->bmiHeader.biClrUsed;
|
|
if (!colors) colors = 1 << info->bmiHeader.biBitCount;
|
|
colorPtr = (WORD *)info->bmiColors;
|
|
}
|
|
else /* assume BITMAPCOREINFO */
|
|
{
|
|
colors = 1 << ((BITMAPCOREHEADER *)&info->bmiHeader)->bcBitCount;
|
|
colorPtr = (WORD *)((BITMAPCOREINFO *)info)->bmciColors;
|
|
}
|
|
if (!(colorMapping = (int *)malloc( colors * sizeof(int) ))) return NULL;
|
|
|
|
if (coloruse == DIB_RGB_COLORS)
|
|
{
|
|
if (isInfo)
|
|
{
|
|
RGBQUAD * rgb = (RGBQUAD *)colorPtr;
|
|
|
|
if (depth == 1) /* Monochrome */
|
|
for (i = 0; i < colors; i++, rgb++)
|
|
colorMapping[i] = (rgb->rgbRed + rgb->rgbGreen +
|
|
rgb->rgbBlue > 255*3/2);
|
|
else
|
|
for (i = 0; i < colors; i++, rgb++)
|
|
colorMapping[i] = COLOR_ToPhysical( dc, RGB(rgb->rgbRed,
|
|
rgb->rgbGreen,
|
|
rgb->rgbBlue));
|
|
}
|
|
else
|
|
{
|
|
RGBTRIPLE * rgb = (RGBTRIPLE *)colorPtr;
|
|
|
|
if (depth == 1) /* Monochrome */
|
|
for (i = 0; i < colors; i++, rgb++)
|
|
colorMapping[i] = (rgb->rgbtRed + rgb->rgbtGreen +
|
|
rgb->rgbtBlue > 255*3/2);
|
|
else
|
|
for (i = 0; i < colors; i++, rgb++)
|
|
colorMapping[i] = COLOR_ToPhysical( dc, RGB(rgb->rgbtRed,
|
|
rgb->rgbtGreen,
|
|
rgb->rgbtBlue));
|
|
}
|
|
}
|
|
else /* DIB_PAL_COLORS */
|
|
{
|
|
for (i = 0; i < colors; i++, colorPtr++)
|
|
colorMapping[i] = COLOR_ToPhysical( dc, PALETTEINDEX(*colorPtr) );
|
|
}
|
|
return colorMapping;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_1
|
|
*
|
|
* SetDIBits for a 1-bit deep DIB.
|
|
*/
|
|
static void DIB_SetImageBits_1( WORD lines, BYTE *bits, WORD width,
|
|
int *colors, XImage *bmpImage )
|
|
{
|
|
WORD i, x;
|
|
BYTE pad, pix;
|
|
|
|
if (!(width & 31)) pad = 0;
|
|
else pad = ((32 - (width & 31)) + 7) / 8;
|
|
|
|
while (lines--)
|
|
{
|
|
for (i = width/8, x = 0; (i > 0); i--)
|
|
{
|
|
pix = *bits++;
|
|
XPutPixel( bmpImage, x++, lines, colors[pix >> 7] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 6) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 5) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 4) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 3) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 2) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[(pix >> 1) & 1] );
|
|
XPutPixel( bmpImage, x++, lines, colors[pix & 1] );
|
|
}
|
|
pix = *bits;
|
|
switch(width & 7)
|
|
{
|
|
case 7: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 6: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 5: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 4: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 3: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 2: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] ); pix <<= 1;
|
|
case 1: XPutPixel( bmpImage, x++, lines, colors[pix >> 7] );
|
|
}
|
|
bits += pad;
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_4
|
|
*
|
|
* SetDIBits for a 4-bit deep DIB.
|
|
*/
|
|
static void DIB_SetImageBits_4( WORD lines, BYTE *bits, WORD width,
|
|
int *colors, XImage *bmpImage )
|
|
{
|
|
WORD i, x;
|
|
BYTE pad;
|
|
|
|
if (!(width & 7)) pad = 0;
|
|
else pad = ((8 - (width & 7)) + 1) / 2;
|
|
|
|
while (lines--)
|
|
{
|
|
for (i = width/2, x = 0; i > 0; i--)
|
|
{
|
|
BYTE pix = *bits++;
|
|
XPutPixel( bmpImage, x++, lines, colors[pix >> 4] );
|
|
XPutPixel( bmpImage, x++, lines, colors[pix & 0x0f] );
|
|
}
|
|
if (width & 1) XPutPixel( bmpImage, x, lines, colors[*bits >> 4] );
|
|
bits += pad;
|
|
}
|
|
}
|
|
|
|
#define check_xy(x,y) \
|
|
if (x > width) { \
|
|
x = 0; \
|
|
if (lines) \
|
|
lines--; \
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_RLE4
|
|
*
|
|
* SetDIBits for a 4-bit deep compressed DIB.
|
|
*/
|
|
static void DIB_SetImageBits_RLE4( WORD lines, BYTE *bits, WORD width,
|
|
int *colors, XImage *bmpImage )
|
|
{
|
|
int x = 0, c, length;
|
|
BYTE *begin = bits;
|
|
|
|
lines--;
|
|
while ((short)lines >= 0)
|
|
{
|
|
length = *bits++;
|
|
if (length) { /* encoded */
|
|
c = *bits++;
|
|
while (length--) {
|
|
XPutPixel(bmpImage, x++, lines, colors[c >> 4]);
|
|
check_xy(x, y);
|
|
if (length) {
|
|
length--;
|
|
XPutPixel(bmpImage, x++, lines, colors[c & 0xf]);
|
|
check_xy(x, y);
|
|
}
|
|
}
|
|
} else {
|
|
length = *bits++;
|
|
switch (length) {
|
|
case 0: /* eol */
|
|
x = 0;
|
|
lines--;
|
|
continue;
|
|
|
|
case 1: /* eopicture */
|
|
return;
|
|
|
|
case 2: /* delta */
|
|
x += *bits++;
|
|
lines -= *bits++;
|
|
continue;
|
|
|
|
default: /* absolute */
|
|
while (length--) {
|
|
c = *bits++;
|
|
XPutPixel(bmpImage, x++, lines, colors[c >> 4]);
|
|
check_xy(x, y);
|
|
if (length) {
|
|
length--;
|
|
XPutPixel(bmpImage, x++, lines, colors[c & 0xf]);
|
|
check_xy(x, y);
|
|
}
|
|
}
|
|
if ((bits - begin) & 1)
|
|
bits++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_8
|
|
*
|
|
* SetDIBits for an 8-bit deep DIB.
|
|
*/
|
|
static void DIB_SetImageBits_8( WORD lines, BYTE *bits, WORD width,
|
|
int *colors, XImage *bmpImage )
|
|
{
|
|
WORD x;
|
|
BYTE pad = (4 - (width & 3)) & 3;
|
|
|
|
while (lines--)
|
|
{
|
|
for (x = 0; x < width; x++)
|
|
XPutPixel( bmpImage, x, lines, colors[*bits++] );
|
|
bits += pad;
|
|
}
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_RLE8
|
|
*
|
|
* SetDIBits for an 8-bit deep compressed DIB.
|
|
*
|
|
* This function rewritten 941113 by James Youngman. WINE blew out when I
|
|
* first ran it because my desktop wallpaper is a (large) RLE8 bitmap.
|
|
*
|
|
* This was because the algorithm assumed that all RLE8 bitmaps end with the
|
|
* 'End of bitmap' escape code. This code is very much laxer in what it
|
|
* allows to end the expansion. Possibly too lax. See the note by
|
|
* case RleDelta. BTW, MS's documentation implies that a correct RLE8
|
|
* bitmap should end with RleEnd, but on the other hand, software exists
|
|
* that produces ones that don't and Windows 3.1 doesn't complain a bit
|
|
* about it.
|
|
*
|
|
* (No) apologies for my English spelling. [Emacs users: c-indent-level=4].
|
|
* James A. Youngman <mbcstjy@afs.man.ac.uk>
|
|
* [JAY]
|
|
*/
|
|
|
|
enum Rle8_EscapeCodes
|
|
{
|
|
/*
|
|
* Apologies for polluting your file's namespace...
|
|
*/
|
|
RleEol = 0, /* End of line */
|
|
RleEnd = 1, /* End of bitmap */
|
|
RleDelta = 2 /* Delta */
|
|
};
|
|
|
|
static void DIB_SetImageBits_RLE8(WORD lines,
|
|
BYTE *bits,
|
|
WORD width,
|
|
int *colors,
|
|
XImage *bmpImage)
|
|
{
|
|
int x; /* X-positon on each line. Increases. */
|
|
int line; /* Line #. Starts at lines-1, decreases */
|
|
BYTE *pIn = bits; /* Pointer to current position in bits */
|
|
BYTE length; /* The length pf a run */
|
|
BYTE color_index; /* index into colors[] as read from bits */
|
|
BYTE escape_code; /* See enum Rle8_EscapeCodes.*/
|
|
WORD color; /* value of colour[color_index] */
|
|
|
|
if (lines == 0) /* Let's hope this doesn't happen. */
|
|
return;
|
|
|
|
/*
|
|
* Note that the bitmap data is stored by Windows starting at the
|
|
* bottom line of the bitmap and going upwards. Within each line,
|
|
* the data is stored left-to-right. That's the reason why line
|
|
* goes from lines-1 to 0. [JAY]
|
|
*/
|
|
|
|
x = 0;
|
|
line = lines-1;
|
|
do
|
|
{
|
|
length = *pIn++;
|
|
|
|
/*
|
|
* If the length byte is not zero (which is the escape value),
|
|
* We have a run of length pixels all the same colour. The colour
|
|
* index is stored next.
|
|
*
|
|
* If the length byte is zero, we need to read the next byte to
|
|
* know what to do. [JAY]
|
|
*/
|
|
if (length != 0)
|
|
{
|
|
/*
|
|
* [Run-Length] Encoded mode
|
|
*/
|
|
color_index = (*pIn++); /* Get the colour index. */
|
|
color = colors[color_index];
|
|
|
|
while(length--)
|
|
XPutPixel(bmpImage, x++, line, color);
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
* Escape codes (may be an absolute sequence though)
|
|
*/
|
|
escape_code = (*pIn++);
|
|
switch(escape_code)
|
|
{
|
|
case RleEol: /* =0, end of line */
|
|
{
|
|
x = 0;
|
|
line--;
|
|
break;
|
|
}
|
|
|
|
case RleEnd: /* =1, end of bitmap */
|
|
{
|
|
/*
|
|
* Not all RLE8 bitmaps end with this
|
|
* code. For example, Paint Shop Pro
|
|
* produces some that don't. That's (I think)
|
|
* what caused the previous implementation to
|
|
* fail. [JAY]
|
|
*/
|
|
line=-1; /* Cause exit from do loop. */
|
|
break;
|
|
}
|
|
|
|
case RleDelta: /* =2, a delta */
|
|
{
|
|
/*
|
|
* Note that deltaing to line 0
|
|
* will cause an exit from the loop,
|
|
* which may not be what is intended.
|
|
* The fact that there is a delta in the bits
|
|
* almost certainly implies that there is data
|
|
* to follow. You may feel that we should
|
|
* jump to the top of the loop to avoid exiting
|
|
* in this case.
|
|
*
|
|
* TODO: Decide what to do here in that case. [JAY]
|
|
*/
|
|
x += (*pIn++);
|
|
line -= (*pIn++);
|
|
if (line == 0)
|
|
{
|
|
dprintf_bitmap(stddeb,
|
|
"DIB_SetImageBits_RLE8(): "
|
|
"Delta to last line of bitmap "
|
|
"(wrongly?) causes loop exit\n");
|
|
}
|
|
break;
|
|
}
|
|
|
|
default: /* >2, switch to absolute mode */
|
|
{
|
|
/*
|
|
* Absolute Mode
|
|
*/
|
|
length = escape_code;
|
|
while(length--)
|
|
{
|
|
color_index = (*pIn++);
|
|
XPutPixel(bmpImage, x++, line,
|
|
colors[color_index]);
|
|
}
|
|
|
|
/*
|
|
* If you think for a moment you'll realise that the
|
|
* only time we could ever possibly read an odd
|
|
* number of bytes is when there is a 0x00 (escape),
|
|
* a value >0x02 (absolute mode) and then an odd-
|
|
* length run. Therefore this is the only place we
|
|
* need to worry about it. Everywhere else the
|
|
* bytes are always read in pairs. [JAY]
|
|
*/
|
|
if (escape_code & 1)
|
|
pIn++; /* Throw away the pad byte. */
|
|
break;
|
|
}
|
|
} /* switch (escape_code) : Escape sequence */
|
|
} /* process either an encoded sequence or an escape sequence */
|
|
|
|
/* We expect to come here more than once per line. */
|
|
} while (line >= 0); /* Do this until the bitmap is filled */
|
|
|
|
/*
|
|
* Everybody comes here at the end.
|
|
* Check how we exited the loop and print a message if it's a bit odd.
|
|
* [JAY]
|
|
*/
|
|
if ( (*(pIn-2) != 0/*escape*/) || (*(pIn-1)!= RleEnd) )
|
|
{
|
|
dprintf_bitmap(stddeb, "DIB_SetImageBits_RLE8(): End-of-bitmap "
|
|
"without (strictly) proper escape code. Last two "
|
|
"bytes were: %02X %02X.\n",
|
|
(int)*(pIn-2),
|
|
(int)*(pIn-1));
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits_24
|
|
*
|
|
* SetDIBits for a 24-bit deep DIB.
|
|
*/
|
|
static void DIB_SetImageBits_24( WORD lines, BYTE *bits, WORD width,
|
|
DC *dc, XImage *bmpImage )
|
|
{
|
|
WORD x;
|
|
BYTE pad = (4 - ((width*3) & 3)) & 3;
|
|
|
|
while (lines--)
|
|
{
|
|
for (x = 0; x < width; x++, bits += 3)
|
|
{
|
|
XPutPixel( bmpImage, x, lines,
|
|
COLOR_ToPhysical( dc, RGB(bits[0],bits[1],bits[2]) ));
|
|
}
|
|
bits += pad;
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* DIB_SetImageBits
|
|
*
|
|
* Transfer the bits to an X image.
|
|
* Helper function for SetDIBits() and SetDIBitsToDevice().
|
|
*/
|
|
static int DIB_SetImageBits( DC *dc, WORD lines, WORD depth, LPSTR bits,
|
|
DWORD infoWidth, WORD infoBpp, DWORD compression,
|
|
BITMAPINFO *info, WORD coloruse,
|
|
Drawable drawable, GC gc, int xSrc, int ySrc,
|
|
int xDest, int yDest, int width, int height )
|
|
{
|
|
int *colorMapping;
|
|
XImage *bmpImage;
|
|
|
|
/* Build the color mapping table */
|
|
|
|
if (infoBpp == 24) colorMapping = NULL;
|
|
else
|
|
if (!(colorMapping = DIB_BuildColorMap( dc, coloruse, depth, info )))
|
|
return 0;
|
|
|
|
/* Transfer the pixels */
|
|
XCREATEIMAGE(bmpImage, infoWidth, lines, depth );
|
|
|
|
switch(infoBpp)
|
|
{
|
|
case 1:
|
|
DIB_SetImageBits_1( lines, bits, infoWidth,
|
|
colorMapping, bmpImage );
|
|
break;
|
|
case 4:
|
|
if (compression) DIB_SetImageBits_RLE4( lines, bits, infoWidth,
|
|
colorMapping, bmpImage );
|
|
else DIB_SetImageBits_4( lines, bits, infoWidth,
|
|
colorMapping, bmpImage );
|
|
break;
|
|
case 8:
|
|
if (compression) DIB_SetImageBits_RLE8( lines, bits, infoWidth,
|
|
colorMapping, bmpImage );
|
|
else DIB_SetImageBits_8( lines, bits, infoWidth,
|
|
colorMapping, bmpImage );
|
|
break;
|
|
case 24:
|
|
DIB_SetImageBits_24( lines, bits, infoWidth, dc, bmpImage );
|
|
break;
|
|
default:
|
|
fprintf( stderr, "Invalid depth %d for SetDIBits!\n", infoBpp );
|
|
break;
|
|
}
|
|
if (colorMapping) free(colorMapping);
|
|
XPutImage( display, drawable, gc, bmpImage, xSrc, ySrc,
|
|
xDest, yDest, width, height );
|
|
XDestroyImage( bmpImage );
|
|
return lines;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* StretchDIBits (GDI.439)
|
|
*/
|
|
int StretchDIBits( HDC hdc,
|
|
WORD xDest, WORD yDest, WORD wDestWidth, WORD wDestHeight,
|
|
WORD xSrc, WORD ySrc, WORD wSrcWidth, WORD wSrcHeight,
|
|
LPSTR bits, LPBITMAPINFO info, WORD wUsage, DWORD dwRop )
|
|
{
|
|
HBITMAP hBitmap, hOldBitmap;
|
|
HDC hdcMem;
|
|
|
|
hBitmap = CreateDIBitmap( hdc, &info->bmiHeader, CBM_INIT,
|
|
bits, info, wUsage );
|
|
hdcMem = CreateCompatibleDC( hdc );
|
|
hOldBitmap = SelectObject( hdcMem, hBitmap );
|
|
StretchBlt( hdc, xDest, yDest, wDestWidth, wDestHeight,
|
|
hdcMem, xSrc, ySrc, wSrcWidth, wSrcHeight, dwRop );
|
|
SelectObject( hdcMem, hOldBitmap );
|
|
DeleteDC( hdcMem );
|
|
DeleteObject( hBitmap );
|
|
return wSrcHeight;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* SetDIBits (GDI.440)
|
|
*/
|
|
int SetDIBits( HDC hdc, HBITMAP hbitmap, WORD startscan, WORD lines,
|
|
LPSTR bits, BITMAPINFO * info, WORD coloruse )
|
|
{
|
|
DC * dc;
|
|
BITMAPOBJ * bmp;
|
|
DWORD width, height, compression = 0;
|
|
WORD bpp;
|
|
|
|
/* Check parameters */
|
|
|
|
if (!(dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ))) return 0;
|
|
if (!(bmp = (BITMAPOBJ *)GDI_GetObjPtr( hbitmap, BITMAP_MAGIC )))
|
|
return 0;
|
|
if (DIB_GetBitmapInfo( &info->bmiHeader, &width, &height, &bpp ) == -1)
|
|
return 0;
|
|
if (info->bmiHeader.biSize == sizeof(BITMAPINFOHEADER))
|
|
compression = info->bmiHeader.biCompression;
|
|
if (!lines || (startscan >= (WORD)height)) return 0;
|
|
if (startscan + lines > height) lines = height - startscan;
|
|
|
|
return CallTo32_LargeStack( (int(*)())DIB_SetImageBits, 17,
|
|
dc, lines, bmp->bitmap.bmBitsPixel,
|
|
bits, width, bpp, compression, info,
|
|
coloruse, bmp->pixmap, BITMAP_GC(bmp), 0, 0, 0,
|
|
startscan, bmp->bitmap.bmWidth, lines );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* SetDIBitsToDevice (GDI.443)
|
|
*/
|
|
int SetDIBitsToDevice( HDC hdc, short xDest, short yDest, WORD cx, WORD cy,
|
|
WORD xSrc, WORD ySrc, WORD startscan, WORD lines,
|
|
LPSTR bits, BITMAPINFO * info, WORD coloruse )
|
|
{
|
|
DC * dc;
|
|
DWORD width, height, compression = 0;
|
|
WORD bpp;
|
|
|
|
/* Check parameters */
|
|
|
|
if (!(dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ))) return 0;
|
|
if (DIB_GetBitmapInfo( &info->bmiHeader, &width, &height, &bpp ) == -1)
|
|
return 0;
|
|
if (info->bmiHeader.biSize == sizeof(BITMAPINFOHEADER))
|
|
compression = info->bmiHeader.biCompression;
|
|
if (!lines || (startscan >= height)) return 0;
|
|
if (startscan + lines > height) lines = height - startscan;
|
|
if (ySrc < startscan) ySrc = startscan;
|
|
else if (ySrc >= startscan + lines) return 0;
|
|
if (xSrc >= width) return 0;
|
|
if (ySrc + cy >= startscan + lines) cy = startscan + lines - ySrc;
|
|
if (xSrc + cx >= width) cx = width - xSrc;
|
|
if (!cx || !cy) return 0;
|
|
|
|
DC_SetupGCForText( dc ); /* To have the correct colors */
|
|
XSetFunction( display, dc->u.x.gc, DC_XROPfunction[dc->w.ROPmode-1] );
|
|
return CallTo32_LargeStack( (int(*)())DIB_SetImageBits, 17,
|
|
dc, lines, dc->w.bitsPerPixel, bits, width,
|
|
bpp, compression, info, coloruse,
|
|
dc->u.x.drawable, dc->u.x.gc,
|
|
xSrc, ySrc - startscan,
|
|
dc->w.DCOrgX + XLPTODP( dc, xDest ),
|
|
dc->w.DCOrgY + YLPTODP( dc, yDest ),
|
|
cx, cy );
|
|
}
|
|
|
|
|
|
|
|
/***********************************************************************
|
|
* GetDIBits (GDI.441)
|
|
*/
|
|
int GetDIBits( HDC hdc, HBITMAP hbitmap, WORD startscan, WORD lines,
|
|
LPSTR bits, BITMAPINFO * info, WORD coloruse )
|
|
{
|
|
DC * dc;
|
|
BITMAPOBJ * bmp;
|
|
PALETTEENTRY * palEntry;
|
|
PALETTEOBJ * palette;
|
|
XImage * bmpImage, * dibImage;
|
|
int i, x, y;
|
|
|
|
if (!lines) return 0;
|
|
if (!(dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ))) return 0;
|
|
if (!(bmp = (BITMAPOBJ *)GDI_GetObjPtr( hbitmap, BITMAP_MAGIC )))
|
|
return 0;
|
|
if (!(palette = (PALETTEOBJ*)GDI_GetObjPtr( dc->w.hPalette, PALETTE_MAGIC )))
|
|
return 0;
|
|
|
|
/* Transfer color info */
|
|
|
|
palEntry = palette->logpalette.palPalEntry;
|
|
for (i = 0; i < info->bmiHeader.biClrUsed; i++, palEntry++)
|
|
{
|
|
if (coloruse == DIB_RGB_COLORS)
|
|
{
|
|
info->bmiColors[i].rgbRed = palEntry->peRed;
|
|
info->bmiColors[i].rgbGreen = palEntry->peGreen;
|
|
info->bmiColors[i].rgbBlue = palEntry->peBlue;
|
|
info->bmiColors[i].rgbReserved = 0;
|
|
}
|
|
else ((WORD *)info->bmiColors)[i] = (WORD)i;
|
|
}
|
|
|
|
/* Transfer the pixels (very slow...) */
|
|
|
|
if (bits)
|
|
{
|
|
bmpImage = (XImage *)CallTo32_LargeStack( (int (*)())XGetImage, 8,
|
|
display, bmp->pixmap, 0, 0, bmp->bitmap.bmWidth,
|
|
bmp->bitmap.bmHeight, AllPlanes, ZPixmap );
|
|
dibImage = DIB_DIBmpToImage( &info->bmiHeader, bits );
|
|
|
|
for (y = 0; y < lines; y++)
|
|
{
|
|
for (x = 0; x < info->bmiHeader.biWidth; x++)
|
|
{
|
|
XPutPixel( dibImage, x, y,
|
|
XGetPixel(bmpImage, x, bmp->bitmap.bmHeight-startscan-y-1) );
|
|
|
|
}
|
|
}
|
|
|
|
dibImage->data = NULL;
|
|
XDestroyImage( dibImage );
|
|
XDestroyImage( bmpImage );
|
|
}
|
|
info->bmiHeader.biCompression = 0;
|
|
return lines;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CreateDIBitmap (GDI.442)
|
|
*/
|
|
HBITMAP CreateDIBitmap( HDC hdc, BITMAPINFOHEADER * header, DWORD init,
|
|
LPVOID bits, BITMAPINFO * data, UINT coloruse )
|
|
{
|
|
HBITMAP handle;
|
|
BOOL fColor;
|
|
DWORD width, height;
|
|
WORD bpp;
|
|
|
|
if (DIB_GetBitmapInfo( header, &width, &height, &bpp ) == -1) return 0;
|
|
|
|
/* Check if we should create a monochrome or color bitmap. */
|
|
/* We create a monochrome bitmap only if it has exactly 2 */
|
|
/* colors, which are either black or white, nothing else. */
|
|
/* In all other cases, we create a color bitmap. */
|
|
|
|
if (bpp != 1) fColor = TRUE;
|
|
else if ((coloruse != DIB_RGB_COLORS) ||
|
|
(init != CBM_INIT) || !data) fColor = FALSE;
|
|
else
|
|
{
|
|
if (data->bmiHeader.biSize == sizeof(BITMAPINFOHEADER))
|
|
{
|
|
RGBQUAD *rgb = data->bmiColors;
|
|
DWORD col = RGB( rgb->rgbRed, rgb->rgbGreen, rgb->rgbBlue );
|
|
if ((col == RGB(0,0,0)) || (col == RGB(0xff,0xff,0xff)))
|
|
{
|
|
rgb++;
|
|
col = RGB( rgb->rgbRed, rgb->rgbGreen, rgb->rgbBlue );
|
|
fColor = ((col != RGB(0,0,0)) && (col != RGB(0xff,0xff,0xff)));
|
|
}
|
|
else fColor = TRUE;
|
|
}
|
|
else if (data->bmiHeader.biSize == sizeof(BITMAPCOREHEADER))
|
|
{
|
|
RGBTRIPLE *rgb = ((BITMAPCOREINFO *)data)->bmciColors;
|
|
DWORD col = RGB( rgb->rgbtRed, rgb->rgbtGreen, rgb->rgbtBlue );
|
|
if ((col == RGB(0,0,0)) || (col == RGB(0xff,0xff,0xff)))
|
|
{
|
|
rgb++;
|
|
col = RGB( rgb->rgbtRed, rgb->rgbtGreen, rgb->rgbtBlue );
|
|
fColor = ((col != RGB(0,0,0)) && (col != RGB(0xff,0xff,0xff)));
|
|
}
|
|
else fColor = TRUE;
|
|
}
|
|
else
|
|
{
|
|
fprintf( stderr, "CreateDIBitmap: wrong size (%ld) for data\n",
|
|
data->bmiHeader.biSize );
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* Now create the bitmap */
|
|
|
|
handle = fColor ? CreateCompatibleBitmap( hdc, width, height ) :
|
|
CreateBitmap( width, height, 1, 1, NULL );
|
|
if (!handle) return 0;
|
|
|
|
if (init == CBM_INIT)
|
|
SetDIBits( hdc, handle, 0, height, bits, data, coloruse );
|
|
return handle;
|
|
}
|