/* * GDI device-independent bitmaps * * Copyright 1993,1994 Alexandre Julliard */ #include #include "ts_xlib.h" #include "ts_xutil.h" #include "dc.h" #include "bitmap.h" #include "callback.h" #include "palette.h" #include "color.h" #include "global.h" #include "debug.h" static int bitmapDepthTable[] = { 8, 1, 32, 16, 24, 15, 4, 0 }; static int ximageDepthTable[] = { 0, 0, 0, 0, 0, 0, 0 }; /* This structure holds the arguments for DIB_SetImageBits() */ typedef struct { DC *dc; LPCVOID bits; XImage *image; int lines; DWORD infoWidth; WORD depth; WORD infoBpp; WORD compression; int *colorMap; int nColorMap; Drawable drawable; GC gc; int xSrc; int ySrc; int xDest; int yDest; int width; int height; } DIB_SETIMAGEBITS_DESCR; /*********************************************************************** * DIB_Init */ BOOL32 DIB_Init(void) { int i; XImage* testimage; for( i = 0; bitmapDepthTable[i]; i++ ) { testimage = TSXCreateImage(display, DefaultVisualOfScreen(screen), bitmapDepthTable[i], ZPixmap, 0, NULL, 1, 1, 32, 20 ); if( testimage ) ximageDepthTable[i] = testimage->bits_per_pixel; else return FALSE; TSXDestroyImage(testimage); } return TRUE; } /*********************************************************************** * DIB_GetXImageWidthBytes * * Return the width of an X image in bytes */ int DIB_GetXImageWidthBytes( int width, int depth ) { int i; if (!ximageDepthTable[0]) { DIB_Init(); } for( i = 0; bitmapDepthTable[i] ; i++ ) if( bitmapDepthTable[i] == depth ) return (4 * ((width * ximageDepthTable[i] + 31)/32)); WARN(bitmap, "(%d): Unsupported depth\n", depth ); return (4 * width); } /*********************************************************************** * DIB_GetDIBWidthBytes * * Return the width of a DIB bitmap in bytes. DIB bitmap data is 32-bit aligned. * http://www.microsoft.com/msdn/sdk/platforms/doc/sdk/win32/struc/src/str01.htm */ int DIB_GetDIBWidthBytes( 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 * 3 + 3)/4; break; default: WARN(bitmap, "(%d): Unsupported depth\n", depth ); /* fall through */ case 32: words = width; } return 4 * words; } /*********************************************************************** * DIB_BitmapInfoSize * * Return the size of the bitmap info structure including color table. */ int DIB_BitmapInfoSize( BITMAPINFO * info, WORD coloruse ) { int colors; if (info->bmiHeader.biSize == sizeof(BITMAPCOREHEADER)) { BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)info; colors = (core->bcBitCount <= 8) ? 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 <= 8)) colors = 1 << info->bmiHeader.biBitCount; return sizeof(BITMAPINFOHEADER) + colors * ((coloruse == DIB_RGB_COLORS) ? sizeof(RGBQUAD) : sizeof(WORD)); } } /*********************************************************************** * DIB_GetBitmapInfo * * Get the info from a bitmap header. * Return 1 for INFOHEADER, 0 for COREHEADER, -1 for error. */ static int DIB_GetBitmapInfo( const BITMAPINFOHEADER *header, DWORD *width, int *height, WORD *bpp, WORD *compr ) { if (header->biSize == sizeof(BITMAPINFOHEADER)) { *width = header->biWidth; *height = header->biHeight; *bpp = header->biBitCount; *compr = header->biCompression; return 1; } if (header->biSize == sizeof(BITMAPCOREHEADER)) { BITMAPCOREHEADER *core = (BITMAPCOREHEADER *)header; *width = core->bcWidth; *height = core->bcHeight; *bpp = core->bcBitCount; *compr = 0; return 0; } WARN(bitmap, "(%ld): wrong size for header\n", header->biSize ); return -1; } /*********************************************************************** * DIB_BuildColorMap * * Build the color map from the bitmap palette. Should not be called * for a >8-bit deep bitmap. */ static int *DIB_BuildColorMap( DC *dc, WORD coloruse, WORD depth, const BITMAPINFO *info, int *nColors ) { int i, colors; BOOL32 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 (colors > 256) { ERR(bitmap, "DIB_BuildColorMap called with >256 colors!\n"); return NULL; } if (!(colorMapping = (int *)HeapAlloc(GetProcessHeap(), 0, 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) ); } *nColors = colors; return colorMapping; } /*********************************************************************** * DIB_MapColor */ static int DIB_MapColor( int *physMap, int nPhysMap, int phys ) { int color; for (color = 0; color < nPhysMap; color++) if (physMap[color] == phys) return color; WARN(bitmap, "Strange color %08x\n", phys); return 0; } /*********************************************************************** * DIB_SetImageBits_1_Line * * Handles a single line of 1 bit data. */ static void DIB_SetImageBits_1_Line(DWORD dstwidth, int left, int *colors, XImage *bmpImage, int h, const BYTE *bits) { BYTE pix; DWORD i, x; dstwidth += left; bits += left >> 3; /* FIXME: should avoid putting x 0); i--) { pix = *bits++; XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 6) & 1] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 5) & 1] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 4) & 1] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 3) & 1] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 2) & 1] ); XPutPixel( bmpImage, x++, h, colors[(pix >> 1) & 1] ); XPutPixel( bmpImage, x++, h, colors[pix & 1] ); } pix = *bits; switch(dstwidth & 7) { case 7: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 6: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 5: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 4: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 3: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 2: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); pix <<= 1; case 1: XPutPixel( bmpImage, x++, h, colors[pix >> 7] ); } } /*********************************************************************** * DIB_SetImageBits_1 * * SetDIBits for a 1-bit deep DIB. */ static void DIB_SetImageBits_1( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, int *colors, XImage *bmpImage ) { int h; /* 32 bit aligned */ DWORD linebytes = ((srcwidth + 31) & ~31) / 8; if (lines > 0) { for (h = lines-1; h >=0; h--) { DIB_SetImageBits_1_Line(dstwidth, left, colors, bmpImage, h, srcbits); srcbits += linebytes; } } else { lines = -lines; for (h = 0; h < lines; h++) { DIB_SetImageBits_1_Line(dstwidth, left, colors, bmpImage, h, srcbits); srcbits += linebytes; } } } /*********************************************************************** * DIB_SetImageBits_4 * * SetDIBits for a 4-bit deep DIB. */ static void DIB_SetImageBits_4( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, int *colors, XImage *bmpImage ) { DWORD i, x; int h; const BYTE *bits = srcbits + (left >> 1); /* 32 bit aligned */ DWORD linebytes = ((srcwidth+7)&~7)/2; dstwidth += left; /* FIXME: should avoid putting x 0) { for (h = lines-1; h >= 0; h--) { for (i = dstwidth/2, x = left&~1; i > 0; i--) { BYTE pix = *bits++; XPutPixel( bmpImage, x++, h, colors[pix >> 4] ); XPutPixel( bmpImage, x++, h, colors[pix & 0x0f] ); } if (dstwidth & 1) XPutPixel( bmpImage, x, h, colors[*bits >> 4] ); srcbits += linebytes; bits = srcbits + (left >> 1); } } else { lines = -lines; for (h = 0; h < lines; h++) { for (i = dstwidth/2, x = left&~1; i > 0; i--) { BYTE pix = *bits++; XPutPixel( bmpImage, x++, h, colors[pix >> 4] ); XPutPixel( bmpImage, x++, h, colors[pix & 0x0f] ); } if (dstwidth & 1) XPutPixel( bmpImage, x, h, colors[*bits >> 4] ); srcbits += linebytes; bits = srcbits + (left >> 1); } } } /*********************************************************************** * DIB_GetImageBits_4 * * GetDIBits for a 4-bit deep DIB. */ static void DIB_GetImageBits_4( int lines, BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, int *colors, int nColors, XImage *bmpImage ) { DWORD i, x; int h; BYTE *bits = srcbits + (left >> 1); /* 32 bit aligned */ DWORD linebytes = ((srcwidth+7)&~7)/2; dstwidth += left; /* FIXME: should avoid putting x 0) { for (h = lines-1; h >= 0; h--) { for (i = dstwidth/2, x = left&~1; i > 0; i--) { *bits++ = (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) << 4) | (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) & 0x0f); } if (dstwidth & 1) *bits = (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) << 4); srcbits += linebytes; bits = srcbits + (left >> 1); } } else { lines = -lines; for (h = 0; h < lines; h++) { for (i = dstwidth/2, x = left&~1; i > 0; i--) { *bits++ = (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) << 4) | (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) & 0x0f); } if (dstwidth & 1) *bits = (DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x++, h )) << 4); srcbits += linebytes; bits = srcbits + (left >> 1); } } } #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( int lines, const BYTE *bits, DWORD width, DWORD dstwidth, int left, int *colors, XImage *bmpImage ) { int x = 0, c, length; const BYTE *begin = bits; dstwidth += left; /* FIXME: avoid putting x= 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( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, int *colors, XImage *bmpImage ) { DWORD x; int h; const BYTE *bits = srcbits + left; /* align to 32 bit */ DWORD linebytes = (srcwidth + 3) & ~3; dstwidth+=left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits++) { XPutPixel( bmpImage, x, h, colors[*bits] ); } bits = (srcbits += linebytes) + left; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits++) { XPutPixel( bmpImage, x, h, colors[*bits] ); } bits = (srcbits += linebytes) + left; } } } /*********************************************************************** * DIB_GetImageBits_8 * * GetDIBits for an 8-bit deep DIB. */ static void DIB_GetImageBits_8( int lines, BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, int *colors, int nColors, XImage *bmpImage ) { DWORD x; int h; BYTE *bits = srcbits + left; /* align to 32 bit */ DWORD linebytes = (srcwidth + 3) & ~3; dstwidth+=left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits++) { if ( XGetPixel( bmpImage, x, h ) != colors[*bits] ) *bits = DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x, h ) ); } bits = (srcbits += linebytes) + left; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits++) { if ( XGetPixel( bmpImage, x, h ) != colors[*bits] ) *bits = DIB_MapColor( colors, nColors, XGetPixel( bmpImage, x, h ) ); } bits = (srcbits += linebytes) + left; } } } /*********************************************************************** * 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 * [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( int lines, const BYTE *bits, DWORD width, DWORD dstwidth, int left, int *colors, XImage *bmpImage ) { int x; /* X-positon on each line. Increases. */ int line; /* Line #. Starts at lines-1, decreases */ const 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; dstwidth += left; /* FIXME: avoid putting x2, 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) ) { TRACE(bitmap, "End-of-bitmap " "without (strictly) proper escape code. Last two " "bytes were: %02X %02X.\n", (int)*(pIn-2), (int)*(pIn-1)); } } /*********************************************************************** * DIB_SetImageBits_16 * * SetDIBits for a 16-bit deep DIB. */ static void DIB_SetImageBits_16( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, DC *dc, XImage *bmpImage ) { DWORD x; LPWORD ptr; WORD val; int h; BYTE r, g, b; /* align to 32 bit */ DWORD linebytes = (srcwidth * 2 + 3) & ~3; dstwidth += left; ptr = (LPWORD) srcbits + left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, ptr++) { val = *ptr; r = (BYTE) ((val & 0x7c00) >> 7); g = (BYTE) ((val & 0x03e0) >> 2); b = (BYTE) ((val & 0x001f) << 3); XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(r,g,b)) ); } ptr = (LPWORD) (srcbits += linebytes) + left; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, ptr++) { val = *ptr; r = (BYTE) ((val & 0x7c00) >> 7); g = (BYTE) ((val & 0x03e0) >> 2); b = (BYTE) ((val & 0x001f) << 3); XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(r,g,b)) ); } ptr = (LPWORD) (srcbits += linebytes) + left; } } } /*********************************************************************** * DIB_GetImageBits_16 * * GetDIBits for an 16-bit deep DIB. */ static void DIB_GetImageBits_16( int lines, BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, XImage *bmpImage ) { DWORD x; LPWORD ptr; int h; BYTE r, g, b; /* align to 32 bit */ DWORD linebytes = (srcwidth * 2 + 3) & ~3; dstwidth += left; ptr = (LPWORD) srcbits + left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, ptr++) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); r = (BYTE) GetRValue(pixel); g = (BYTE) GetGValue(pixel); b = (BYTE) GetBValue(pixel); *ptr = ( ((r << 7) & 0x7c00) | ((g << 2) & 0x03e0) | ((b >> 3) & 0x001f) ); } ptr = (LPWORD) (srcbits += linebytes) + left; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, ptr++) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); r = (BYTE) GetRValue(pixel); g = (BYTE) GetGValue(pixel); b = (BYTE) GetBValue(pixel); *ptr = ( ((r << 7) & 0x7c00) | ((g << 2) & 0x03e0) | ((b >> 3) & 0x001f) ); } ptr = (LPWORD) (srcbits += linebytes) + left; } } } /*********************************************************************** * DIB_SetImageBits_24 * * SetDIBits for a 24-bit deep DIB. */ static void DIB_SetImageBits_24( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, DC *dc, XImage *bmpImage ) { DWORD x; const BYTE *bits = srcbits + left * 3; int h; /* align to 32 bit */ DWORD linebytes = (srcwidth * 3 + 3) & ~3; dstwidth += left; /* "bits" order is reversed for some reason */ if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits += 3) { XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(bits[2],bits[1],bits[0]))); } bits = (srcbits += linebytes) + left * 3; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits += 3) { XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(bits[2],bits[1],bits[0]))); } bits = (srcbits += linebytes) + left * 3; } } } /*********************************************************************** * DIB_GetImageBits_24 * * GetDIBits for an 24-bit deep DIB. */ static void DIB_GetImageBits_24( int lines, BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, XImage *bmpImage ) { DWORD x; int h; BYTE *bits = srcbits + (left * 3); /* align to 32 bit */ DWORD linebytes = (srcwidth * 3 + 3) & ~3; dstwidth += left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits += 3) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); bits[0] = GetRValue(pixel); bits[1] = GetGValue(pixel); bits[2] = GetBValue(pixel); } bits = (srcbits += linebytes) + (left * 3); } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits += 3) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); bits[0] = GetRValue(pixel); bits[1] = GetGValue(pixel); bits[2] = GetBValue(pixel); } bits = (srcbits += linebytes) + (left * 3); } } } /*********************************************************************** * DIB_SetImageBits_32 * * SetDIBits for a 32-bit deep DIB. */ static void DIB_SetImageBits_32( int lines, const BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, DC *dc, XImage *bmpImage ) { DWORD x; const BYTE *bits = srcbits + left * 4; int h; DWORD linebytes = (srcwidth * 4); dstwidth += left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits += 4) { XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(bits[2],bits[1],bits[0]))); } bits = (srcbits += linebytes) + left * 4; } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits += 4) { XPutPixel( bmpImage, x, h, COLOR_ToPhysical(dc, RGB(bits[2],bits[1],bits[0]))); } bits = (srcbits += linebytes) + left * 4; } } } /*********************************************************************** * DIB_GetImageBits_32 * * GetDIBits for an 32-bit deep DIB. */ static void DIB_GetImageBits_32( int lines, BYTE *srcbits, DWORD srcwidth, DWORD dstwidth, int left, XImage *bmpImage ) { DWORD x; int h; BYTE *bits = srcbits + (left * 4); /* align to 32 bit */ DWORD linebytes = (srcwidth * 4); dstwidth += left; if (lines > 0) { for (h = lines - 1; h >= 0; h--) { for (x = left; x < dstwidth; x++, bits += 4) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); bits[0] = GetRValue(pixel); bits[1] = GetGValue(pixel); bits[2] = GetBValue(pixel); } bits = (srcbits += linebytes) + (left * 4); } } else { lines = -lines; for (h = 0; h < lines; h++) { for (x = left; x < dstwidth; x++, bits += 4) { COLORREF pixel = COLOR_ToLogical( XGetPixel( bmpImage, x, h ) ); bits[0] = GetRValue(pixel); bits[1] = GetGValue(pixel); bits[2] = GetBValue(pixel); } bits = (srcbits += linebytes) + (left * 4); } } } /*********************************************************************** * DIB_SetImageBits * * Transfer the bits to an X image. * Helper function for SetDIBits() and SetDIBitsToDevice(). * The Xlib critical section must be entered before calling this function. */ static int DIB_SetImageBits( const DIB_SETIMAGEBITS_DESCR *descr ) { int lines = descr->lines >= 0 ? descr->lines : -descr->lines; XImage *bmpImage; if ( descr->dc && descr->dc->w.flags & DC_DIRTY ) CLIPPING_UpdateGCRegion( descr->dc ); if (descr->image) bmpImage = descr->image; else XCREATEIMAGE( bmpImage, descr->infoWidth, lines, descr->depth ); /* Transfer the pixels */ switch(descr->infoBpp) { case 1: DIB_SetImageBits_1( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, bmpImage ); break; case 4: if (descr->compression) DIB_SetImageBits_RLE4( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, bmpImage ); else DIB_SetImageBits_4( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, bmpImage ); break; case 8: if (descr->compression) DIB_SetImageBits_RLE8( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, bmpImage ); else DIB_SetImageBits_8( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, bmpImage ); break; case 15: case 16: DIB_SetImageBits_16( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->dc, bmpImage); break; case 24: DIB_SetImageBits_24( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->dc, bmpImage ); break; case 32: DIB_SetImageBits_32( descr->lines, descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->dc, bmpImage); break; default: WARN(bitmap, "(%d): Invalid depth\n", descr->infoBpp ); break; } XPutImage( display, descr->drawable, descr->gc, bmpImage, descr->xSrc, descr->ySrc, descr->xDest, descr->yDest, descr->width, descr->height ); if (!descr->image) XDestroyImage( bmpImage ); return lines; } /*********************************************************************** * DIB_GetImageBits * * Transfer the bits from an X image. * The Xlib critical section must be entered before calling this function. */ static int DIB_GetImageBits( const DIB_SETIMAGEBITS_DESCR *descr ) { int lines = descr->lines >= 0 ? descr->lines : -descr->lines; XImage *bmpImage; if (descr->image) bmpImage = descr->image; else XCREATEIMAGE( bmpImage, descr->infoWidth, lines, descr->depth ); XGetSubImage( display, descr->drawable, descr->xDest, descr->yDest, descr->width, descr->height, AllPlanes, ZPixmap, bmpImage, descr->xSrc, descr->ySrc ); /* Transfer the pixels */ switch(descr->infoBpp) { case 1: FIXME(bitmap, "Depth 1 not yet supported!\n"); break; case 4: if (descr->compression) FIXME(bitmap, "Compression not yet supported!\n"); else DIB_GetImageBits_4( descr->lines, (LPVOID)descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, descr->nColorMap, bmpImage ); break; case 8: if (descr->compression) FIXME(bitmap, "Compression not yet supported!\n"); else DIB_GetImageBits_8( descr->lines, (LPVOID)descr->bits, descr->infoWidth, descr->width, descr->xSrc, descr->colorMap, descr->nColorMap, bmpImage ); break; case 15: case 16: DIB_GetImageBits_16( descr->lines, (LPVOID)descr->bits, descr->infoWidth, descr->width, descr->xSrc, bmpImage ); break; case 24: DIB_GetImageBits_24( descr->lines, (LPVOID)descr->bits, descr->infoWidth, descr->width, descr->xSrc, bmpImage ); break; case 32: DIB_GetImageBits_32( descr->lines, (LPVOID)descr->bits, descr->infoWidth, descr->width, descr->xSrc, bmpImage ); break; default: WARN(bitmap, "(%d): Invalid depth\n", descr->infoBpp ); break; } if (!descr->image) XDestroyImage( bmpImage ); return lines; } /*********************************************************************** * StretchDIBits16 (GDI.439) */ INT16 WINAPI StretchDIBits16(HDC16 hdc, INT16 xDst, INT16 yDst, INT16 widthDst, INT16 heightDst, INT16 xSrc, INT16 ySrc, INT16 widthSrc, INT16 heightSrc, const VOID *bits, const BITMAPINFO *info, UINT16 wUsage, DWORD dwRop ) { return (INT16)StretchDIBits32( hdc, xDst, yDst, widthDst, heightDst, xSrc, ySrc, widthSrc, heightSrc, bits, info, wUsage, dwRop ); } /*********************************************************************** * StretchDIBits32 (GDI32.351) */ INT32 WINAPI StretchDIBits32(HDC32 hdc, INT32 xDst, INT32 yDst, INT32 widthDst, INT32 heightDst, INT32 xSrc, INT32 ySrc, INT32 widthSrc, INT32 heightSrc, const void *bits, const BITMAPINFO *info, UINT32 wUsage, DWORD dwRop ) { HBITMAP32 hBitmap, hOldBitmap; HDC32 hdcMem; hBitmap = CreateDIBitmap32( hdc, &info->bmiHeader, CBM_INIT, bits, info, wUsage ); hdcMem = CreateCompatibleDC32( hdc ); hOldBitmap = SelectObject32( hdcMem, hBitmap ); StretchBlt32( hdc, xDst, yDst, widthDst, heightDst, hdcMem, xSrc, ySrc, widthSrc, heightSrc, dwRop ); SelectObject32( hdcMem, hOldBitmap ); DeleteDC32( hdcMem ); DeleteObject32( hBitmap ); return heightSrc; } /*********************************************************************** * SetDIBits16 (GDI.440) */ INT16 WINAPI SetDIBits16( HDC16 hdc, HBITMAP16 hbitmap, UINT16 startscan, UINT16 lines, LPCVOID bits, const BITMAPINFO *info, UINT16 coloruse ) { return SetDIBits32( hdc, hbitmap, startscan, lines, bits, info, coloruse ); } /****************************************************************************** * SetDIBits32 [GDI32.312] Sets pixels in a bitmap using colors from DIB * * PARAMS * hdc [I] Handle to device context * hbitmap [I] Handle to bitmap * startscan [I] Starting scan line * lines [I] Number of scan lines * bits [I] Array of bitmap bits * info [I] Address of structure with data * coloruse [I] Type of color indexes to use * * RETURNS * Success: Number of scan lines copied * Failure: 0 */ INT32 WINAPI SetDIBits32( HDC32 hdc, HBITMAP32 hbitmap, UINT32 startscan, UINT32 lines, LPCVOID bits, const BITMAPINFO *info, UINT32 coloruse ) { DIB_SETIMAGEBITS_DESCR descr; BITMAPOBJ * bmp; int height, tmpheight; INT32 result; /* Check parameters */ descr.dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); if (!descr.dc) { descr.dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!descr.dc) return 0; } if (!(bmp = (BITMAPOBJ *)GDI_GetObjPtr( hbitmap, BITMAP_MAGIC ))) { GDI_HEAP_UNLOCK( hdc ); return 0; } if (DIB_GetBitmapInfo( &info->bmiHeader, &descr.infoWidth, &height, &descr.infoBpp, &descr.compression ) == -1) { GDI_HEAP_UNLOCK( hbitmap ); GDI_HEAP_UNLOCK( hdc ); return 0; } tmpheight = height; if (height < 0) height = -height; if (!lines || (startscan >= height)) { GDI_HEAP_UNLOCK( hbitmap ); GDI_HEAP_UNLOCK( hdc ); return 0; } if (startscan + lines > height) lines = height - startscan; if (descr.infoBpp <= 8) { descr.colorMap = DIB_BuildColorMap( descr.dc, coloruse, bmp->bitmap.bmBitsPixel, info, &descr.nColorMap ); if (!descr.colorMap) { GDI_HEAP_UNLOCK( hbitmap ); GDI_HEAP_UNLOCK( hdc ); return 0; } } descr.bits = bits; descr.image = NULL; descr.lines = tmpheight >= 0 ? lines : -lines; descr.depth = bmp->bitmap.bmBitsPixel; descr.drawable = bmp->pixmap; descr.gc = BITMAP_GC(bmp); descr.xSrc = 0; descr.ySrc = 0; descr.xDest = 0; descr.yDest = height - startscan - lines; descr.width = bmp->bitmap.bmWidth; descr.height = lines; EnterCriticalSection( &X11DRV_CritSection ); result = CALL_LARGE_STACK( DIB_SetImageBits, &descr ); LeaveCriticalSection( &X11DRV_CritSection ); HeapFree(GetProcessHeap(), 0, descr.colorMap); GDI_HEAP_UNLOCK( hdc ); GDI_HEAP_UNLOCK( hbitmap ); return result; } /*********************************************************************** * SetDIBitsToDevice16 (GDI.443) */ INT16 WINAPI SetDIBitsToDevice16(HDC16 hdc, INT16 xDest, INT16 yDest, INT16 cx, INT16 cy, INT16 xSrc, INT16 ySrc, UINT16 startscan, UINT16 lines, LPCVOID bits, const BITMAPINFO *info, UINT16 coloruse ) { return SetDIBitsToDevice32( hdc, xDest, yDest, cx, cy, xSrc, ySrc, startscan, lines, bits, info, coloruse ); } /*********************************************************************** * SetDIBitsToDevice32 (GDI32.313) */ INT32 WINAPI SetDIBitsToDevice32(HDC32 hdc, INT32 xDest, INT32 yDest, DWORD cx, DWORD cy, INT32 xSrc, INT32 ySrc, UINT32 startscan, UINT32 lines, LPCVOID bits, const BITMAPINFO *info, UINT32 coloruse ) { DIB_SETIMAGEBITS_DESCR descr; DC * dc; DWORD width, oldcy = cy; INT32 result; int height, tmpheight; /* Check parameters */ dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); if (!dc) { dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!dc) return 0; } if (DIB_GetBitmapInfo( &info->bmiHeader, &width, &height, &descr.infoBpp, &descr.compression ) == -1) return 0; tmpheight = height; if (height < 0) height = -height; 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 */ TSXSetFunction( display, dc->u.x.gc, DC_XROPfunction[dc->w.ROPmode-1] ); if (descr.infoBpp <= 8) { descr.colorMap = DIB_BuildColorMap( dc, coloruse, dc->w.bitsPerPixel, info, &descr.nColorMap ); if (!descr.colorMap) return 0; } descr.dc = dc; descr.bits = bits; descr.image = NULL; descr.lines = tmpheight >= 0 ? lines : -lines; descr.infoWidth = width; descr.depth = dc->w.bitsPerPixel; descr.drawable = dc->u.x.drawable; descr.gc = dc->u.x.gc; descr.xSrc = xSrc; descr.ySrc = tmpheight >= 0 ? lines-(ySrc-startscan)-cy+(oldcy-cy) : ySrc - startscan; descr.xDest = dc->w.DCOrgX + XLPTODP( dc, xDest ); descr.yDest = dc->w.DCOrgY + YLPTODP( dc, yDest ) + (tmpheight >= 0 ? oldcy-cy : 0); descr.width = cx; descr.height = cy; EnterCriticalSection( &X11DRV_CritSection ); result = CALL_LARGE_STACK( DIB_SetImageBits, &descr ); LeaveCriticalSection( &X11DRV_CritSection ); HeapFree(GetProcessHeap(), 0, descr.colorMap); return result; } /*********************************************************************** * SetDIBColorTable32 (GDI32.311) */ UINT32 WINAPI SetDIBColorTable32( HDC32 hdc, UINT32 startpos, UINT32 entries, RGBQUAD *colors ) { DC * dc; PALETTEENTRY * palEntry; PALETTEOBJ * palette; RGBQUAD *end; dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); if (!dc) { dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!dc) return 0; } if (!(palette = (PALETTEOBJ*)GDI_GetObjPtr( dc->w.hPalette, PALETTE_MAGIC ))) { return 0; } /* Transfer color info */ if (dc->w.bitsPerPixel <= 8) { palEntry = palette->logpalette.palPalEntry + startpos; if (startpos + entries > (1 << dc->w.bitsPerPixel)) { entries = (1 << dc->w.bitsPerPixel) - startpos; } for (end = colors + entries; colors < end; palEntry++, colors++) { palEntry->peRed = colors->rgbRed; palEntry->peGreen = colors->rgbGreen; palEntry->peBlue = colors->rgbBlue; } } else { entries = 0; } GDI_HEAP_UNLOCK( dc->w.hPalette ); return entries; } /*********************************************************************** * GetDIBColorTable32 (GDI32.169) */ UINT32 WINAPI GetDIBColorTable32( HDC32 hdc, UINT32 startpos, UINT32 entries, RGBQUAD *colors ) { DC * dc; PALETTEENTRY * palEntry; PALETTEOBJ * palette; RGBQUAD *end; dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); if (!dc) { dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!dc) return 0; } if (!(palette = (PALETTEOBJ*)GDI_GetObjPtr( dc->w.hPalette, PALETTE_MAGIC ))) { return 0; } /* Transfer color info */ if (dc->w.bitsPerPixel <= 8) { palEntry = palette->logpalette.palPalEntry + startpos; if (startpos + entries > (1 << dc->w.bitsPerPixel)) { entries = (1 << dc->w.bitsPerPixel) - startpos; } for (end = colors + entries; colors < end; palEntry++, colors++) { colors->rgbRed = palEntry->peRed; colors->rgbGreen = palEntry->peGreen; colors->rgbBlue = palEntry->peBlue; colors->rgbReserved = 0; } } else { entries = 0; } GDI_HEAP_UNLOCK( dc->w.hPalette ); return entries; } /*********************************************************************** * GetDIBits16 (GDI.441) */ INT16 WINAPI GetDIBits16( HDC16 hdc, HBITMAP16 hbitmap, UINT16 startscan, UINT16 lines, LPSTR bits, BITMAPINFO * info, UINT16 coloruse ) { return GetDIBits32( hdc, hbitmap, startscan, lines, bits, info, coloruse ); } /****************************************************************************** * GetDIBits32 [GDI32.170] Retrieves bits of bitmap and copies to buffer * * RETURNS * Success: Number of scan lines copied from bitmap * Failure: 0 * * http://www.microsoft.com/msdn/sdk/platforms/doc/sdk/win32/func/src/f30_14.htm */ INT32 WINAPI GetDIBits32( HDC32 hdc, /* [in] Handle to device context */ HBITMAP32 hbitmap, /* [in] Handle to bitmap */ UINT32 startscan, /* [in] First scan line to set in dest bitmap */ UINT32 lines, /* [in] Number of scan lines to copy */ LPSTR bits, /* [out] Address of array for bitmap bits */ BITMAPINFO * info, /* [out] Address of structure with bitmap data */ UINT32 coloruse) /* [in] RGB or palette index */ { DC * dc; BITMAPOBJ * bmp; PALETTEENTRY * palEntry; PALETTEOBJ * palette; XImage * bmpImage; int i, x, y; if (!lines) return 0; dc = (DC *) GDI_GetObjPtr( hdc, DC_MAGIC ); if (!dc) { dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!dc) return 0; } if (!(bmp = (BITMAPOBJ *)GDI_GetObjPtr( hbitmap, BITMAP_MAGIC ))) return 0; if (!(palette = (PALETTEOBJ*)GDI_GetObjPtr( dc->w.hPalette, PALETTE_MAGIC ))) { GDI_HEAP_UNLOCK( hbitmap ); return 0; } /* Transfer color info */ if (info->bmiHeader.biBitCount<=8) { 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; } } if (bits) { BYTE* bbits = bits; int pad, yend, xend = bmp->bitmap.bmWidth; TRACE(bitmap, "%u scanlines of (%i,%i) -> (%i,%i) starting from %u\n", lines, bmp->bitmap.bmWidth, bmp->bitmap.bmHeight, (int)info->bmiHeader.biWidth, (int)info->bmiHeader.biHeight, startscan ); /* adjust number of scanlines to copy */ if( lines > info->bmiHeader.biHeight ) lines = info->bmiHeader.biHeight; yend = startscan + lines; if( startscan >= bmp->bitmap.bmHeight ) { GDI_HEAP_UNLOCK( hbitmap ); GDI_HEAP_UNLOCK( dc->w.hPalette ); return FALSE; } if( yend > bmp->bitmap.bmHeight ) yend = bmp->bitmap.bmHeight; /* adjust scanline width */ pad = info->bmiHeader.biWidth - bmp->bitmap.bmWidth; if( pad < 0 ) { /* bitmap is wider than DIB, copy only a part */ pad = 0; xend = info->bmiHeader.biWidth; } EnterCriticalSection( &X11DRV_CritSection ); bmpImage = (XImage *)CALL_LARGE_STACK( BITMAP_GetXImage, bmp ); switch( info->bmiHeader.biBitCount ) { case 8: /* pad up to 32 bit */ pad += (4 - (info->bmiHeader.biWidth & 3)) & 3; for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) *bbits++ = XGetPixel( bmpImage, x, y ); bbits += pad; } break; case 1: pad += ((32 - (info->bmiHeader.biWidth & 31)) / 8) & 3; for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) { if (!(x&7)) *bbits = 0; *bbits |= XGetPixel( bmpImage, x, y)<<(7-(x&7)); if ((x&7)==7) bbits++; } bbits += pad; } break; case 4: pad += ((8 - (info->bmiHeader.biWidth & 7)) / 2) & 3; for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) { if (!(x&1)) *bbits = 0; *bbits |= XGetPixel( bmpImage, x, y)<<(4*(1-(x&1))); if ((x&1)==1) bbits++; } bbits += pad; } break; case 15: case 16: pad += (4 - ((info->bmiHeader.biWidth*2) & 3)) & 3; for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) { unsigned long pixel=XGetPixel( bmpImage, x, y); *bbits++ = pixel & 0xff; *bbits++ = (pixel >> 8) & 0xff; } bbits += pad; } break; case 24: pad += (4 - ((info->bmiHeader.biWidth*3) & 3)) & 3; for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) { unsigned long pixel=XGetPixel( bmpImage, x, y); *bbits++ = (pixel >>16) & 0xff; *bbits++ = (pixel >> 8) & 0xff; *bbits++ = pixel & 0xff; } bbits += pad; } break; case 32: for( y = yend - 1; (int)y >= (int)startscan; y-- ) { for( x = 0; x < xend; x++ ) { unsigned long pixel=XGetPixel( bmpImage, x, y); *bbits++ = (pixel >>16) & 0xff; *bbits++ = (pixel >> 8) & 0xff; *bbits++ = pixel & 0xff; } } break; default: WARN(bitmap,"Unsupported depth %d\n", info->bmiHeader.biBitCount); break; } XDestroyImage( bmpImage ); LeaveCriticalSection( &X11DRV_CritSection ); info->bmiHeader.biCompression = 0; } else if( info->bmiHeader.biSize >= sizeof(BITMAPINFOHEADER) ) { /* fill in struct members */ info->bmiHeader.biWidth = bmp->bitmap.bmWidth; info->bmiHeader.biHeight = bmp->bitmap.bmHeight; info->bmiHeader.biPlanes = 1; info->bmiHeader.biBitCount = bmp->bitmap.bmBitsPixel; info->bmiHeader.biSizeImage = bmp->bitmap.bmHeight * DIB_GetDIBWidthBytes( bmp->bitmap.bmWidth, bmp->bitmap.bmBitsPixel ); info->bmiHeader.biCompression = 0; } GDI_HEAP_UNLOCK( hbitmap ); GDI_HEAP_UNLOCK( dc->w.hPalette ); return lines; } /*********************************************************************** * CreateDIBitmap16 (GDI.442) */ HBITMAP16 WINAPI CreateDIBitmap16( HDC16 hdc, const BITMAPINFOHEADER * header, DWORD init, LPCVOID bits, const BITMAPINFO * data, UINT16 coloruse ) { return CreateDIBitmap32( hdc, header, init, bits, data, coloruse ); } /*********************************************************************** * CreateDIBitmap32 (GDI32.37) */ HBITMAP32 WINAPI CreateDIBitmap32( HDC32 hdc, const BITMAPINFOHEADER *header, DWORD init, LPCVOID bits, const BITMAPINFO *data, UINT32 coloruse ) { HBITMAP32 handle; BOOL32 fColor; DWORD width; int height; WORD bpp; WORD compr; if (DIB_GetBitmapInfo( header, &width, &height, &bpp, &compr ) == -1) return 0; if (height < 0) height = -height; /* 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 { WARN(bitmap, "(%ld): wrong size for data\n", data->bmiHeader.biSize ); return 0; } } /* Now create the bitmap */ handle = fColor ? CreateBitmap32( width, height, 1, screenDepth, NULL ) : CreateBitmap32( width, height, 1, 1, NULL ); if (!handle) return 0; if (init == CBM_INIT) SetDIBits32( hdc, handle, 0, height, bits, data, coloruse ); return handle; } /*********************************************************************** * DIB_DoProtectDIBSection */ static void DIB_DoProtectDIBSection( BITMAPOBJ *bmp, DWORD new_prot ) { DIBSECTION *dib = &bmp->dib->dibSection; INT32 effHeight = dib->dsBm.bmHeight >= 0? dib->dsBm.bmHeight : -dib->dsBm.bmHeight; INT32 totalSize = dib->dsBmih.biSizeImage? dib->dsBmih.biSizeImage : dib->dsBm.bmWidthBytes * effHeight; DWORD old_prot; VirtualProtect(dib->dsBm.bmBits, totalSize, new_prot, &old_prot); TRACE(bitmap, "Changed protection from %ld to %ld\n", old_prot, new_prot); } /*********************************************************************** * DIB_DoUpdateDIBSection */ static void DIB_DoUpdateDIBSection( BITMAPOBJ *bmp, BOOL32 toDIB ) { DIBSECTIONOBJ *dib = bmp->dib; DIB_SETIMAGEBITS_DESCR descr; if (DIB_GetBitmapInfo( &dib->dibSection.dsBmih, &descr.infoWidth, &descr.lines, &descr.infoBpp, &descr.compression ) == -1) return; descr.dc = NULL; descr.image = dib->image; descr.colorMap = dib->colorMap; descr.nColorMap = dib->nColorMap; descr.bits = dib->dibSection.dsBm.bmBits; descr.depth = bmp->bitmap.bmBitsPixel; descr.drawable = bmp->pixmap; descr.gc = BITMAP_GC(bmp); descr.xSrc = 0; descr.ySrc = 0; descr.xDest = 0; descr.yDest = 0; descr.width = bmp->bitmap.bmWidth; descr.height = bmp->bitmap.bmHeight; if (toDIB) { TRACE(bitmap, "Copying from Pixmap to DIB bits\n"); EnterCriticalSection( &X11DRV_CritSection ); CALL_LARGE_STACK( DIB_GetImageBits, &descr ); LeaveCriticalSection( &X11DRV_CritSection ); } else { TRACE(bitmap, "Copying from DIB bits to Pixmap\n"); EnterCriticalSection( &X11DRV_CritSection ); CALL_LARGE_STACK( DIB_SetImageBits, &descr ); LeaveCriticalSection( &X11DRV_CritSection ); } } /*********************************************************************** * DIB_FaultHandler */ static BOOL32 DIB_FaultHandler( LPVOID res, LPVOID addr ) { BOOL32 handled = FALSE; BITMAPOBJ *bmp; bmp = (BITMAPOBJ *)GDI_GetObjPtr( (HBITMAP32)res, BITMAP_MAGIC ); if (!bmp) return FALSE; if (bmp->dib) switch (bmp->dib->status) { case DIB_GdiMod: TRACE( bitmap, "called in status DIB_GdiMod\n" ); DIB_DoProtectDIBSection( bmp, PAGE_READWRITE ); DIB_DoUpdateDIBSection( bmp, TRUE ); DIB_DoProtectDIBSection( bmp, PAGE_READONLY ); bmp->dib->status = DIB_InSync; handled = TRUE; break; case DIB_InSync: TRACE( bitmap, "called in status DIB_InSync\n" ); DIB_DoProtectDIBSection( bmp, PAGE_READWRITE ); bmp->dib->status = DIB_AppMod; handled = TRUE; break; case DIB_AppMod: FIXME( bitmap, "called in status DIB_AppMod: " "this can't happen!\n" ); break; case DIB_NoHandler: FIXME( bitmap, "called in status DIB_NoHandler: " "this can't happen!\n" ); break; } GDI_HEAP_UNLOCK( (HBITMAP32)res ); return handled; } /*********************************************************************** * DIB_UpdateDIBSection */ void DIB_UpdateDIBSection( DC *dc, BOOL32 toDIB ) { BITMAPOBJ *bmp; /* Ensure this is a Compatible DC that has a DIB section selected */ if (!dc) return; if (!(dc->w.flags & DC_MEMORY)) return; bmp = (BITMAPOBJ *)GDI_GetObjPtr( dc->w.hBitmap, BITMAP_MAGIC ); if (!bmp) return; if (!bmp->dib) { GDI_HEAP_UNLOCK(dc->w.hBitmap); return; } if (!toDIB) { /* Prepare for access to the DIB by GDI functions */ switch (bmp->dib->status) { default: case DIB_NoHandler: DIB_DoUpdateDIBSection( bmp, FALSE ); break; case DIB_GdiMod: TRACE( bitmap, "fromDIB called in status DIB_GdiMod\n" ); /* nothing to do */ break; case DIB_InSync: TRACE( bitmap, "fromDIB called in status DIB_InSync\n" ); /* nothing to do */ break; case DIB_AppMod: TRACE( bitmap, "fromDIB called in status DIB_AppMod\n" ); DIB_DoUpdateDIBSection( bmp, FALSE ); DIB_DoProtectDIBSection( bmp, PAGE_READONLY ); bmp->dib->status = DIB_InSync; break; } } else { /* Acknowledge write access to the DIB by GDI functions */ switch (bmp->dib->status) { default: case DIB_NoHandler: DIB_DoUpdateDIBSection( bmp, TRUE ); break; case DIB_GdiMod: TRACE( bitmap, " toDIB called in status DIB_GdiMod\n" ); /* nothing to do */ break; case DIB_InSync: TRACE( bitmap, " toDIB called in status DIB_InSync\n" ); DIB_DoProtectDIBSection( bmp, PAGE_NOACCESS ); bmp->dib->status = DIB_GdiMod; break; case DIB_AppMod: FIXME( bitmap, " toDIB called in status DIB_AppMod: " "this can't happen!\n" ); break; } } GDI_HEAP_UNLOCK(dc->w.hBitmap); } /*********************************************************************** * CreateDIBSection16 (GDI.489) */ HBITMAP16 WINAPI CreateDIBSection16 (HDC16 hdc, BITMAPINFO *bmi, UINT16 usage, LPVOID **bits, HANDLE16 section, DWORD offset) { return CreateDIBSection32(hdc, bmi, usage, bits, section, offset); } /*********************************************************************** * CreateDIBSection32 (GDI32.36) */ HBITMAP32 WINAPI CreateDIBSection32 (HDC32 hdc, BITMAPINFO *bmi, UINT32 usage, LPVOID **bits,HANDLE32 section, DWORD offset) { HBITMAP32 res = 0; BITMAPOBJ *bmp = NULL; DIBSECTIONOBJ *dib = NULL; int *colorMap = NULL; int nColorMap; /* Fill BITMAP32 structure with DIB data */ BITMAPINFOHEADER *bi = &bmi->bmiHeader; INT32 effHeight, totalSize; BITMAP32 bm; TRACE(bitmap, "format (%ld,%ld), planes %d, bpp %d, size %ld, colors %ld (%s)\n", bi->biWidth, bi->biHeight, bi->biPlanes, bi->biBitCount, bi->biSizeImage, bi->biClrUsed, usage == DIB_PAL_COLORS? "PAL" : "RGB"); bm.bmType = 0; bm.bmWidth = bi->biWidth; bm.bmHeight = bi->biHeight; bm.bmWidthBytes = DIB_GetDIBWidthBytes(bm.bmWidth, bi->biBitCount); bm.bmPlanes = bi->biPlanes; bm.bmBitsPixel = bi->biBitCount; bm.bmBits = NULL; /* Get storage location for DIB bits */ effHeight = bm.bmHeight >= 0 ? bm.bmHeight : -bm.bmHeight; totalSize = bi->biSizeImage? bi->biSizeImage : bm.bmWidthBytes * effHeight; if (section) bm.bmBits = MapViewOfFile(section, FILE_MAP_ALL_ACCESS, 0L, offset, totalSize); else bm.bmBits = VirtualAlloc(NULL, totalSize, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE); /* Create Color Map */ if (bm.bmBits && bm.bmBitsPixel <= 8) { DC *dc = hdc? (DC *)GDI_GetObjPtr(hdc, DC_MAGIC) : NULL; if (hdc && !dc) dc = (DC *)GDI_GetObjPtr(hdc, METAFILE_DC_MAGIC); if (!hdc || dc) colorMap = DIB_BuildColorMap( dc, usage, bm.bmBitsPixel, bmi, &nColorMap ); GDI_HEAP_UNLOCK(hdc); } /* Allocate Memory for DIB and fill structure */ if (bm.bmBits) dib = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(DIBSECTIONOBJ)); if (dib) { dib->dibSection.dsBm = bm; dib->dibSection.dsBmih = *bi; /* FIXME: dib->dibSection.dsBitfields ??? */ dib->dibSection.dshSection = section; dib->dibSection.dsOffset = offset; dib->status = DIB_NoHandler; dib->nColorMap = nColorMap; dib->colorMap = colorMap; } /* Create Device Dependent Bitmap and add DIB pointer */ if (dib) { res = CreateDIBitmap32(hdc, bi, 0, NULL, bmi, usage); bmp = (BITMAPOBJ *) GDI_GetObjPtr(res, BITMAP_MAGIC); if (bmp) bmp->dib = dib; } /* Create XImage */ if (dib && bmp) XCREATEIMAGE( dib->image, bm.bmWidth, effHeight, bmp->bitmap.bmBitsPixel ); /* Clean up in case of errors */ if (!res || !bmp || !dib || !bm.bmBits || (bm.bmBitsPixel <= 8 && !colorMap)) { if (bm.bmBits) if (section) UnmapViewOfFile(bm.bmBits), bm.bmBits = NULL; else VirtualFree(bm.bmBits, MEM_RELEASE, 0L), bm.bmBits = NULL; if (dib->image) XDestroyImage(dib->image), dib->image = NULL; if (colorMap) HeapFree(GetProcessHeap(), 0, colorMap), colorMap = NULL; if (dib) HeapFree(GetProcessHeap(), 0, dib), dib = NULL; if (res) DeleteObject32(res), res = 0; } /* Install fault handler, if possible */ if (bm.bmBits) if (VIRTUAL_SetFaultHandler(bm.bmBits, DIB_FaultHandler, (LPVOID)res)) { DIB_DoProtectDIBSection( bmp, PAGE_READONLY ); dib->status = DIB_InSync; } /* Return BITMAP handle and storage location */ if (res) GDI_HEAP_UNLOCK(res); if (bm.bmBits && bits) *bits = bm.bmBits; return res; } /*********************************************************************** * DIB_DeleteDIBSection */ void DIB_DeleteDIBSection( BITMAPOBJ *bmp ) { if (bmp && bmp->dib) { DIBSECTIONOBJ *dib = bmp->dib; if (dib->dibSection.dsBm.bmBits) if (dib->dibSection.dshSection) UnmapViewOfFile(dib->dibSection.dsBm.bmBits); else VirtualFree(dib->dibSection.dsBm.bmBits, MEM_RELEASE, 0L); if (dib->image) XDestroyImage( dib->image ); if (dib->colorMap) HeapFree(GetProcessHeap(), 0, dib->colorMap); HeapFree(GetProcessHeap(), 0, dib); bmp->dib = NULL; } }