able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/multimedia/opengl/server/generic/wglsup.c

2165 lines
67 KiB
C
Raw Permalink Normal View History

Add source files
2020-09-26 03:20:57 -05:00
/******************************Module*Header*******************************\
* Module Name: wglsup.c *
* *
* WGL support routines. *
* *
* Created: 15-Dec-1994 *
* Author: Gilman Wong [gilmanw] *
* *
* Copyright (c) 1994 Microsoft Corporation *
\**************************************************************************/
#include "precomp.h"
#pragma hdrstop
#include "devlock.h"
#define DONTUSE(x) ( (x) = (x) )
//!!!XXX -- Patrick says is necessary, but so far we seem OK. I think
// it is really the apps responsibility.
//!!!dbug
#if 1
#define REALIZEPALETTE(hdc) RealizePalette((hdc))
#else
#define REALIZEPALETTE(hdc)
#endif
//!!!XXX -- BitBlt's involving DIB sections are batched.
// A GdiFlush is required, but perhaps can be taken out when
// GDI goes to kernel-mode. Can probably take out for Win95.
//#ifdef _OPENGL_NT_
#if 1
#define GDIFLUSH GdiFlush()
#else
#define GDIFLUSH
#endif
/******************************Public*Routine******************************\
* wglPixelVisible
*
* Determines if the pixel (x, y) is visible in the window associated with
* the given DC. The determination is made by checking the coordinate
* against the visible region data cached in the GLGENwindow structure for
* this winodw.
*
* Returns:
* TRUE if pixel (x, y) is visible, FALSE if clipped out.
*
\**************************************************************************/
BOOL APIENTRY wglPixelVisible(LONG x, LONG y)
{
BOOL bRet = FALSE;
__GLGENcontext *gengc = (__GLGENcontext *) GLTEB_SRVCONTEXT();
GLGENwindow *pwnd = gengc->pwndLocked;
// If direct screen access isn't active we shouldn't call this function
// since there's no need to do any visibility clipping ourselves
ASSERTOPENGL(GLDIRECTSCREEN,
"wglPixelVisible called without direct access\n");
// Quick test against bounds.
if (
pwnd->prgndat && pwnd->pscandat &&
x >= pwnd->prgndat->rdh.rcBound.left &&
x < pwnd->prgndat->rdh.rcBound.right &&
y >= pwnd->prgndat->rdh.rcBound.top &&
y < pwnd->prgndat->rdh.rcBound.bottom
)
{
ULONG cScans = pwnd->pscandat->cScans;
GLGENscan *pscan = pwnd->pscandat->aScans;
// Find right scan.
for ( ; cScans; cScans--, pscan = pscan->pNext )
{
// Check if point is above scan.
if ( pscan->top > y )
{
// Since scans are ordered top-down, we can conclude that
// point is also above subsequent scans. Therefore intersection
// must be NULL and we can terminate search.
break;
}
// Check if point is within scan.
else if ( pscan->bottom > y )
{
LONG *plWalls = pscan->alWalls;
LONG *plWallsEnd = plWalls + pscan->cWalls;
// Check x against each pair of walls.
for ( ; plWalls < plWallsEnd; plWalls+=2 )
{
// Each pair of walls (inclusive-exclusive) defines
// a non-NULL interval in the span that is visible.
ASSERTOPENGL(
plWalls[0] < plWalls[1],
"wglPixelVisible(): bad walls in span\n"
);
// Check if x is within current interval.
if ( x >= plWalls[0] && x < plWalls[1] )
{
bRet = TRUE;
break;
}
}
break;
}
// Point is below current scan. Try next scan.
}
}
return bRet;
}
/******************************Public*Routine******************************\
* wglSpanVisible
*
* Determines the visibility of the span [(x, y), (x+w, y)) (test is
* inclusive-exclusive) in the current window. The span is either
* completely visible, partially visible (clipped), or completely
* clipped out (WGL_SPAN_ALL, WGL_SPAN_PARTIAL, and WGL_SPAN_NONE,
* respectively).
*
* WGL_SPAN_ALL
* ------------
* The entire span is visible. *pcWalls and *ppWalls are not set.
*
* WGL_SPAN_NONE
* -------------
* The span is completely obscured (clipped out). *pcWalls and *ppWalls
* are not set.
*
* WGL_SPAN_PARTIAL
* ----------------
* If the span is WGL_SPAN_PARTIAL, the function also returns a pointer
* to the wall array (starting with the first wall actually intersected
* by the span) and a count of the walls at this pointer.
*
* If the wall count is even, then the span starts outside the visible
* region and the first wall is where the span enters a visible portion.
*
* If the wall count is odd, then the span starts inside the visible
* region and the first wall is where the span exits a visible portion.
*
* The span may or may not cross all the walls in the array, but definitely
* does cross the first wall.
*
* Return:
* Returns WGL_SPAN_ALL, WGL_SPAN_NONE, or WGL_SPAN_PARTIAL. In
* addition, if return is WGL_SPAN_PARTIAL, pcWalls and ppWalls will
* be set (see above).
*
* History:
* 06-Dec-1994 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
ULONG APIENTRY
wglSpanVisible(LONG x, LONG y, ULONG w, LONG *pcWalls, LONG **ppWalls)
{
ULONG ulRet = WGL_SPAN_NONE;
__GLGENcontext *gengc = (__GLGENcontext *) GLTEB_SRVCONTEXT();
GLGENwindow *pwnd = gengc->pwndLocked;
LONG xRight = x + w; // Right edge of span (exclusive)
// If direct access is not active we shouldn't call this function since
// there's no need to do any visibility clipping ourselves
ASSERTOPENGL(GLDIRECTSCREEN,
"wglSpanVisible called without direct access\n");
// Quick test against bounds.
if (
pwnd->prgndat && pwnd->pscandat &&
(x < pwnd->prgndat->rdh.rcBound.right ) &&
(xRight > pwnd->prgndat->rdh.rcBound.left ) &&
(y >= pwnd->prgndat->rdh.rcBound.top ) &&
(y < pwnd->prgndat->rdh.rcBound.bottom)
)
{
ULONG cScans = pwnd->pscandat->cScans;
GLGENscan *pscan = pwnd->pscandat->aScans;
// Find right scan.
for ( ; cScans; cScans--, pscan = pscan->pNext )
{
// Check if span is above scan.
if ( pscan->top > y ) // Scans have gone past span
{
// Since scans are ordered top-down, we can conclude that
// span will aslo be above subsequent scans. Therefore
// intersection must be NULL and we can terminate search.
goto wglSpanVisible_exit;
}
// Span is below top of scan. If span is also above bottom,
// span vertically intersects this scan and only this scan.
else if ( pscan->bottom > y )
{
LONG *plWalls = pscan->alWalls;
ULONG cWalls = pscan->cWalls;
ASSERTOPENGL(
(cWalls & 0x1) == 0,
"wglSpanVisible(): wall count must be even!\n"
);
// Check span against each pair of walls. Walls are walked
// from left to right.
//
// Possible intersections where "[" is inclusive
// and ")" is exclusive:
// left wall right wall
// [ )
// case 1a [-----) [ )
// 1b [-----) )
// [ )
// case 2a [-----) ) return
// 2b [-------------------) left wall
// [ )
// case 3a [-----) )
// 3b [ [-----) )
// 3c [ [-----)
// 3d [----------------)
// [ )
// case 4a [ [-----) return
// 4b [-------------------) right wall
// [ )
// case 5a [ [-----)
// 5b [ ) [-----)
// [ )
// case 6 [----------------------) return
// [ ) left wall
for ( ; cWalls; cWalls-=2, plWalls+=2 )
{
// Each pair of walls (inclusive-exclusive) defines
// a non-NULL interval in the span that is visible.
ASSERTOPENGL(
plWalls[0] < plWalls[1],
"wglSpanVisible(): bad walls in span\n"
);
// Checking right end against left wall will partition the
// set into case 1 vs. case 2 thru 6.
if ( plWalls[0] >= xRight )
{
// Case 1 -- span outside interval on the left.
//
// The walls are ordered from left to right (i.e., low
// to high). So if span is left of this interval, it
// must also be left of all subsequent intervals and
// we can terminate the search.
goto wglSpanVisible_exit;
}
// Cases 2 thru 6.
//
// Checking left end against right wall will partition subset
// into case 5 vs. cases 2, 3, 4, 6.
else if ( plWalls[1] > x )
{
// Cases 2, 3, 4, and 6.
//
// Checking left end against left wall will partition
// subset into cases 2, 6 vs. cases 3, 4.
if ( plWalls[0] <= x )
{
// Cases 3 and 4.
//
// Checking right end against right wall will
// distinguish between the two cases.
if ( plWalls[1] >= xRight )
{
// Case 3 -- completely visible.
ulRet = WGL_SPAN_ALL;
}
else
{
// Case 4 -- partially visible, straddling the
// right wall.
ulRet = WGL_SPAN_PARTIAL;
*ppWalls = &plWalls[1];
*pcWalls = cWalls - 1;
}
}
else
{
// Cases 2 and 6 -- in either case its a partial
// intersection where the first intersection is with
// the left wall.
ulRet = WGL_SPAN_PARTIAL;
*ppWalls = &plWalls[0];
*pcWalls = cWalls;
}
goto wglSpanVisible_exit;
}
// Case 5 -- span outside interval to the right. Try
// next pair of walls.
}
// A span can intersect only one scan. We don't need to check
// any other scans.
goto wglSpanVisible_exit;
}
// Span is below current scan. Try next scan.
}
}
wglSpanVisible_exit:
return ulRet;
}
/******************************Public*Routine******************************\
* bComputeLogicalToSurfaceMap
*
* Copy logical palette to surface palette translation vector to the buffer
* pointed to by pajVector. The logical palette is specified by hpal. The
* surface is specified by hdc.
*
* Note: The hdc may identify either a direct (display) dc or a DIB memory dc.
* If hdc is a display dc, then the surface palette is the system palette.
* If hdc is a memory dc, then the surface palette is the DIB color table.
*
* History:
* 27-Jan-1996 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
BOOL bComputeLogicalToSurfaceMap(HPALETTE hpal, HDC hdc, BYTE *pajVector)
{
BOOL bRet = FALSE;
HPALETTE hpalSurf;
ULONG cEntries, cSysEntries;
DWORD dwDcType = wglObjectType(hdc);
LPPALETTEENTRY lppeTmp, lppeEnd;
BYTE aj[sizeof(LOGPALETTE) + (sizeof(PALETTEENTRY) * 512) + (sizeof(RGBQUAD) * 256)];
LOGPALETTE *ppal = (LOGPALETTE *) aj;
LPPALETTEENTRY lppeSurf = &ppal->palPalEntry[0];
LPPALETTEENTRY lppe = lppeSurf + 256;
RGBQUAD *prgb = (RGBQUAD *) (lppe + 256);
// Determine number of colors in each palette.
cEntries = GetPaletteEntries(hpal, 0, 1, NULL);
if (dwDcType == OBJ_DC)
cSysEntries = wglGetSystemPaletteEntries(hdc, 0, 1, NULL);
else
cSysEntries = 256;
// Dynamic color depth changing can cause this.
if ((cSysEntries > 256) || (cEntries > 256))
{
WARNING("wglCopyTranslationVector(): palette on > 8BPP device\n");
// Drawing will have corrupted colors, but at least we should not crash.
cSysEntries = min(cSysEntries, 256);
cEntries = min(cEntries, 256);
}
// Get the logical palette entries.
cEntries = GetPaletteEntries(hpal, 0, cEntries, lppe);
// Get the surface palette entries.
if (dwDcType == OBJ_DC)
{
cSysEntries = wglGetSystemPaletteEntries(hdc, 0, cSysEntries, lppeSurf);
lppeTmp = lppeSurf;
lppeEnd = lppeSurf + cSysEntries;
for (; lppeTmp < lppeEnd; lppeTmp++)
lppeTmp->peFlags = 0;
}
else
{
RGBQUAD *prgbTmp;
// First get RGBQUADs from DIB color table...
cSysEntries = GetDIBColorTable(hdc, 0, cSysEntries, prgb);
// ...then convert RGBQUADs into PALETTEENTRIES.
prgbTmp = prgb;
lppeTmp = lppeSurf;
lppeEnd = lppeSurf + cSysEntries;
while (lppeTmp < lppeEnd)
{
lppeTmp->peRed = prgbTmp->rgbRed;
lppeTmp->peGreen = prgbTmp->rgbGreen;
lppeTmp->peBlue = prgbTmp->rgbBlue;
lppeTmp->peFlags = 0;
lppeTmp++;
prgbTmp++;
}
}
// Construct a translation vector by using GetNearestPaletteIndex to
// map each entry in the logical palette to the surface palette.
if (cEntries && cSysEntries)
{
// Create a temporary logical palette that matches the surface
// palette retrieved above.
ppal->palVersion = 0x300;
ppal->palNumEntries = (USHORT) cSysEntries;
if ( hpalSurf = CreatePalette(ppal) )
{
// Translate each logical palette entry into a surface palette index.
lppeTmp = lppe;
lppeEnd = lppe + cEntries;
for ( ; lppeTmp < lppeEnd; lppeTmp++, pajVector++)
{
*pajVector = (BYTE) GetNearestPaletteIndex(
hpalSurf,
RGB(lppeTmp->peRed,
lppeTmp->peGreen,
lppeTmp->peBlue)
);
ASSERTOPENGL(
*pajVector != CLR_INVALID,
"bComputeLogicalToSurfaceMap: GetNearestPaletteIndex failed\n"
);
}
bRet = TRUE;
DeleteObject(hpalSurf);
}
else
{
WARNING("bComputeLogicalToSurfaceMap: CreatePalette failed\n");
}
}
else
{
WARNING("bComputeLogicalToSurfaceMap: failed to get pal info\n");
}
return bRet;
}
/******************************Public*Routine******************************\
* wglCopyTranslateVector
*
* Create a logical palette index to system palette index translation
* vector.
*
* This is done by first reading both the logical palette and system palette
* entries. A temporary palette is created from the read system palette
* entries. This will be passed to GetNearestPaletteIndex to translate
* each logical palette entry into the desired system palette entry.
*
* Note: when GetNearestColor was called instead, very unstable results
* were obtained. GetNearestPaletteIndex is definitely the right way to go.
*
* Returns:
* TRUE if successful, FALSE otherwise.
*
* History:
* 25-Oct-1994 -by- Gilman Wong [gilmanw]
* Ported from gdi\gre\wglsup.cxx.
\**************************************************************************/
static GLubyte vubRGBtoVGA[8] = {
0x0,
0x9,
0xa,
0xb,
0xc,
0xd,
0xe,
0xf
};
BOOL APIENTRY wglCopyTranslateVector(__GLGENcontext *gengc, BYTE *pajVector,
ULONG cEntries)
{
BOOL bRet = FALSE;
ULONG i;
HDC hdc;
CHECKSCREENLOCKOUT();
if (gengc->dwCurrentFlags & GLSURF_DIRECTDRAW)
{
// DirectDraw palettes are set directly into the hardware so
// the translation vector is always identity
for (i = 0; i < cEntries; i++)
{
*pajVector++ = (BYTE)i;
}
return TRUE;
}
hdc = gengc->gwidCurrent.hdc;
if (GLSURF_IS_MEMDC(gengc->dwCurrentFlags))
{
HBITMAP hbm, hbmSave;
// Technically this assert is invalid
// because we can't be sure that cEntries will be one
// of these two cases. To fix this we'd have to add
// another parameter to this function indicating the
// bit depth desired and go by that.
ASSERTOPENGL(cEntries == 16 || cEntries == 256,
"wglCopyTranslateVector: Unknown cEntries\n");
if (gengc->dwCurrentFlags & GLSURF_DIRECT_ACCESS)
{
// For compatibility, do not do this if the stock palette is
// selected. The old behavior assumed that the logical palette
// can be ignored because the bitmap will have a color table
// that exactly corresponds to the format specified by the
// pixelformat. Thus, if no palette is selected into the memdc,
// OpenGL would still render properly since it assumed 1-to-1.
//
// However, to enable using optimized DIB sections (i.e., DIBs
// whose color tables match the system palette exactly), we need
// to be able to specify the logical palette in the memdc.
//
// Therefore the hack is to assume 1-to-1 iff the stock
// palette is selected into the memdc. Otherwise, we will
// compute the logical to surface mapping.
if ( gengc->gc.modes.rgbMode &&
(GetCurrentObject(hdc, OBJ_PAL) !=
GetStockObject(DEFAULT_PALETTE)) )
{
// If an RGB DIB section, compute a mapping from logical
// palette to surface (DIB color table).
bRet = bComputeLogicalToSurfaceMap(
GetCurrentObject(hdc, OBJ_PAL),
hdc,
pajVector
);
}
return bRet;
}
// 4bpp has a fixed color table so we can just copy the standard
// translation into the output vector.
if (cEntries == 16)
{
// For RGB mode, 4bpp uses a 1-1-1 format. We want to utilize
// bright versions which exist in the upper 8 entries.
if ( gengc->gc.modes.rgbMode )
{
memcpy(pajVector, vubRGBtoVGA, 8);
// Set the other mappings to white to make problems show up
memset(pajVector+8, 15, 8);
bRet = TRUE;
}
// For CI mode, just return FALSE and use the trivial vector.
return bRet;
}
// For bitmaps, we can determine the forward translation vector by
// filling a compatible bitmap with palette index specifiers from
// 1 to 255 and reading the bits back with GetBitmapBits.
hbm = CreateCompatibleBitmap(hdc, cEntries, 1);
if (hbm)
{
LONG cBytes;
hbmSave = SelectObject(hdc, hbm);
RealizePalette(hdc);
for (i = 0; i < cEntries; i++)
SetPixel(hdc, i, 0, PALETTEINDEX(i));
cBytes = 256;
if ( GetBitmapBits(hbm, cBytes, (LPVOID) pajVector) >= cBytes )
bRet = TRUE;
#if DBG
else
WARNING("wglCopyTranslateVector: GetBitmapBits failed\n");
#endif
SelectObject(hdc, hbmSave);
DeleteObject(hbm);
RealizePalette(hdc);
}
return bRet;
}
// Determine number of colors in logical and system palettes, respectively.
cEntries = min(GetPaletteEntries(GetCurrentObject(hdc, OBJ_PAL),
0, cEntries, NULL),
cEntries);
if (cEntries == 16)
{
// For 16-color displays we are using RGB 1-1-1 since the
// full 16-color palette doesn't make for very good mappings
// Since we're only using the first eight of the colors we
// want to map them to the bright colors in the VGA palette
// rather than having them map to the dark colors as they would
// if we ran the loop below
if ( gengc->gc.modes.rgbMode )
{
memcpy(pajVector, vubRGBtoVGA, 8);
// Set the other mappings to white to make problems show up
memset(pajVector+8, 15, 8);
bRet = TRUE;
}
// For CI mode, return FALSE and use the trivial translation vector.
return bRet;
}
// Compute logical to surface palette mapping.
bRet = bComputeLogicalToSurfaceMap(GetCurrentObject(hdc, OBJ_PAL), hdc,
pajVector);
return bRet;
}
/******************************Public*Routine******************************\
* wglCopyBits
*
* Calls DrvCopyBits to copy scanline bits into or out of the driver surface.
*
\**************************************************************************/
VOID APIENTRY wglCopyBits(
__GLGENcontext *gengc,
GLGENwindow *pwnd,
HBITMAP hbm, // ignore
LONG x, // screen coordinate of scan
LONG y,
ULONG cx, // width of scan
BOOL bIn) // if TRUE, copy from bm to dev; otherwise, dev to bm
{
CHECKSCREENLOCKOUT();
// Convert screen coordinates to window coordinates.
x -= pwnd->rclClient.left;
y -= pwnd->rclClient.top;
// this shouldn't happen, but better safe than sorry
if (y < 0)
return;
//!!!XXX
REALIZEPALETTE(gengc->gwidCurrent.hdc);
// Copy from bitmap to device.
if (bIn)
{
LONG xSrc, x0Dst, x1Dst;
if (x < 0)
{
xSrc = -x;
x0Dst = 0;
x1Dst = x + (LONG)cx;
}
else
{
xSrc = 0;
x0Dst = x;
x1Dst = x + (LONG)cx;
}
if (x1Dst <= x0Dst)
return;
BitBlt(gengc->gwidCurrent.hdc, x0Dst, y, cx, 1,
gengc->ColorsMemDC, xSrc, 0, SRCCOPY);
}
// Copy from device to bitmap.
else
{
LONG xSrc, x0Dst, x1Dst;
if (x < 0)
{
xSrc = 0;
x0Dst = -x;
x1Dst = (LONG)cx;
}
else
{
xSrc = x;
x0Dst = 0;
x1Dst = (LONG)cx;
}
if (x1Dst <= x0Dst)
return;
if (dwPlatformId == VER_PLATFORM_WIN32_NT ||
GLSURF_IS_MEMDC(gengc->dwCurrentFlags))
{
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
gengc->gwidCurrent.hdc, xSrc, y, SRCCOPY);
}
else
{
/* If we're copying from the screen,
copy through a DDB to avoid some layers of unnecessary
code in Win95 that deals with translating between
different bitmap layouts */
if (gengc->ColorsDdbDc)
{
BitBlt(gengc->ColorsDdbDc, 0, 0, cx, 1,
gengc->gwidCurrent.hdc, xSrc, y, SRCCOPY);
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
gengc->ColorsDdbDc, 0, 0, SRCCOPY);
}
else
{
//!!!Viper fix -- Diamond Viper (Weitek 9000) fails
//!!! CreateCompatibleBitmap for some
//!!! (currently unknown) reason. Thus,
//!!! the DDB does not exist and we will
//!!! have to incur the perf. hit.
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
gengc->gwidCurrent.hdc, xSrc, y, SRCCOPY);
}
}
}
GDIFLUSH;
}
/******************************Public*Routine******************************\
* wglCopyBits2
*
* Calls DrvCopyBits to copy scanline bits into or out of the driver surface.
*
\**************************************************************************/
VOID APIENTRY wglCopyBits2(
HDC hdc, // dst/src device
GLGENwindow *pwnd, // clipping
__GLGENcontext *gengc,
LONG x, // screen coordinate of scan
LONG y,
ULONG cx, // width of scan
BOOL bIn) // if TRUE, copy from bm to dev; otherwise, dev to bm
{
CHECKSCREENLOCKOUT();
// Convert screen coordinates to window coordinates.
x -= pwnd->rclClient.left;
y -= pwnd->rclClient.top;
// this shouldn't happen, but better safe than sorry
if (y < 0)
return;
//!!!XXX
REALIZEPALETTE(hdc);
// Copy from bitmap to device.
if (bIn)
{
LONG xSrc, x0Dst, x1Dst;
if (x < 0)
{
xSrc = -x;
x0Dst = 0;
x1Dst = x + (LONG)cx;
}
else
{
xSrc = 0;
x0Dst = x;
x1Dst = x + (LONG)cx;
}
if (x1Dst <= x0Dst)
return;
BitBlt(hdc, x0Dst, y, cx, 1,
gengc->ColorsMemDC, xSrc, 0, SRCCOPY);
}
// Copy from device to bitmap.
else
{
LONG xSrc, x0Dst, x1Dst;
if (x < 0)
{
xSrc = 0;
x0Dst = -x;
x1Dst = (LONG)cx;
}
else
{
xSrc = x;
x0Dst = 0;
x1Dst = (LONG)cx;
}
if (x1Dst <= x0Dst)
return;
if (dwPlatformId == VER_PLATFORM_WIN32_NT ||
GLSURF_IS_MEMDC(gengc->dwCurrentFlags))
{
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
hdc, xSrc, y, SRCCOPY);
}
else
{
/* If we're copying from the screen,
copy through a DDB to avoid some layers of unnecessary
code in Win95 that deals with translating between
different bitmap layouts */
if (gengc->ColorsDdbDc)
{
BitBlt(gengc->ColorsDdbDc, 0, 0, cx, 1,
hdc, xSrc, y, SRCCOPY);
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
gengc->ColorsDdbDc, 0, 0, SRCCOPY);
}
else
{
//!!!Viper fix -- Diamond Viper (Weitek 9000) fails
//!!! CreateCompatibleBitmap for some
//!!! (currently unknown) reason. Thus,
//!!! the DDB does not exist and we will
//!!! have to incur the perf. hit.
BitBlt(gengc->ColorsMemDC, x0Dst, 0, cx, 1,
hdc, xSrc, y, SRCCOPY);
}
}
}
GDIFLUSH;
}
/******************************Public*Routine******************************\
*
* wglTranslateColor
*
* Transforms a GL logical color into a Windows COLORREF
*
* Note: This is relatively expensive so it should be avoided if possible
*
* History:
* Tue Aug 15 15:23:29 1995 -by- Drew Bliss [drewb]
* Created
*
\**************************************************************************/
COLORREF wglTranslateColor(COLORREF crColor,
HDC hdc,
__GLGENcontext *gengc,
PIXELFORMATDESCRIPTOR *ppfd)
{
//!!!XXX
REALIZEPALETTE(hdc);
// If palette managed, then crColor is actually a palette index.
if ( ppfd->cColorBits <= 8 )
{
PALETTEENTRY peTmp;
ASSERTOPENGL(
crColor < (COLORREF) (1 << ppfd->cColorBits),
"TranslateColor(): bad color\n"
);
// If rendering to a bitmap, we need to do different things depending
// on whether it's a DIB or DDB
if ( gengc->gc.drawBuffer->buf.flags & MEMORY_DC )
{
DIBSECTION ds;
// Check whether we're drawing to a DIB or a DDB
if (GetObject(GetCurrentObject(hdc, OBJ_BITMAP),
sizeof(ds), &ds) == sizeof(ds) && ds.dsBm.bmBits)
{
RGBQUAD rgbq;
// Drawing to a DIB so retrieve the color from the
// DIB color table
if (GetDIBColorTable(hdc, crColor, 1, &rgbq))
{
crColor = RGB(rgbq.rgbRed, rgbq.rgbGreen,
rgbq.rgbBlue);
}
else
{
WARNING("TranslateColor(): GetDIBColorTable failed\n");
crColor = RGB(0, 0, 0);
}
}
else
{
// Reverse the forward translation so that we get back
// to a normal palette index
crColor = gengc->pajInvTranslateVector[crColor];
// Drawing to a DDB so we can just use the palette
// index directly since going through the inverse
// translation table has given us an index into
// the logical palette
crColor = PALETTEINDEX((WORD) crColor);
}
}
// Otherwise...
else
{
// I hate to have to confess this, but I don't really understand
// why this needs to be this way. Either way should work regardless
// of the bit depth.
//
// The reality is that 4bpp we *have* to go into the system palette
// and fetch an RGB value. At 8bpp on the MGA driver (and possibly
// others), we *have* to specify PALETTEINDEX.
if ( ppfd->cColorBits == 4 )
{
if ( wglGetSystemPaletteEntries(hdc, crColor, 1, &peTmp) )
{
crColor = RGB(peTmp.peRed, peTmp.peGreen, peTmp.peBlue);
}
else
{
WARNING("TranslateColor(): wglGetSystemPaletteEntries failed\n");
crColor = RGB(0, 0, 0);
}
}
else
{
if (!(gengc->flags & GENGC_MCD_BGR_INTO_RGB))
crColor = gengc->pajInvTranslateVector[crColor];
crColor = PALETTEINDEX((WORD) crColor);
}
}
}
// If 24BPP DIB section, BGR ordering is implied.
else if ( ppfd->cColorBits == 24 )
{
crColor = RGB((crColor & 0xff0000) >> 16,
(crColor & 0x00ff00) >> 8,
(crColor & 0x0000ff));
}
// Win95 and 16 BPP case.
//
// On Win95, additional munging is necessary to get a COLORREF value
// that will result in a non-dithered brush.
else if ( (dwPlatformId == VER_PLATFORM_WIN32_WINDOWS) &&
(ppfd->cColorBits == 16) )
{
HBITMAP hbmTmp;
HDC hdcTmp;
if (hdcTmp = CreateCompatibleDC(hdc))
{
if (hbmTmp = CreateCompatibleBitmap(hdc, 1, 1))
{
HBITMAP hbmOld;
hbmOld = SelectObject(hdcTmp, hbmTmp);
if (SetBitmapBits(hbmTmp, 2, (VOID *) &crColor))
{
crColor = GetPixel(hdcTmp, 0, 0);
}
else
{
WARNING("TranslateColor(): SetBitmapBits failed\n");
}
SelectObject(hdcTmp, hbmOld);
DeleteObject(hbmTmp);
}
else
{
WARNING("TranslateColor(): CreateCompatibleBitmap failed\n");
}
DeleteDC(hdcTmp);
}
else
{
WARNING("TranslateColor(): CreateCompatibleDC failed\n");
}
}
// Bitfield format (16BPP or 32BPP).
else
{
// Shift right to position bits at zero and then scale into
// an 8-bit quantity
//!!!XXX -- use rounding?!?
crColor =
RGB(((crColor & gengc->gc.modes.redMask) >> ppfd->cRedShift) *
255 / ((1 << ppfd->cRedBits) - 1),
((crColor & gengc->gc.modes.greenMask) >> ppfd->cGreenShift) *
255 / ((1 << ppfd->cGreenBits) - 1),
((crColor & gengc->gc.modes.blueMask) >> ppfd->cBlueShift) *
255 / ((1 << ppfd->cBlueBits) - 1));
}
return crColor;
}
/******************************Public*Routine******************************\
* wglFillRect
*
* Calls DrvBitBlt to fill a rectangle area of a driver surface with a
* given color.
*
\**************************************************************************/
VOID APIENTRY wglFillRect(
__GLGENcontext *gengc,
GLGENwindow *pwnd,
PRECTL prcl, // screen coordinate of the rectangle area
COLORREF crColor) // color to set
{
HBRUSH hbr;
PIXELFORMATDESCRIPTOR *ppfd = &gengc->gsurf.pfd;
CHECKSCREENLOCKOUT();
// If the rectangle is empty, return.
if ( (prcl->left >= prcl->right) || (prcl->top >= prcl->bottom) )
{
WARNING("wglFillRect(): bad or empty rectangle\n");
return;
}
// Convert from screen to window coordinates.
prcl->left -= pwnd->rclClient.left;
prcl->right -= pwnd->rclClient.left;
prcl->top -= pwnd->rclClient.top;
prcl->bottom -= pwnd->rclClient.top;
// Make a solid color brush and fill the rectangle.
// If the fill color is the same as the last one, we can reuse
// the cached brush rather than creating a new one
if (crColor == gengc->crFill &&
gengc->gwidCurrent.hdc == gengc->hdcFill)
{
hbr = gengc->hbrFill;
ASSERTOPENGL(hbr != NULL, "Cached fill brush is null\n");
}
else
{
if (gengc->hbrFill != NULL)
{
DeleteObject(gengc->hbrFill);
}
gengc->crFill = crColor;
crColor = wglTranslateColor(crColor, gengc->gwidCurrent.hdc, gengc, ppfd);
hbr = CreateSolidBrush(crColor);
gengc->hbrFill = hbr;
if (hbr == NULL)
{
gengc->crFill = COLORREF_UNUSED;
return;
}
gengc->hdcFill = gengc->gwidCurrent.hdc;
}
FillRect(gengc->gwidCurrent.hdc, (RECT *) prcl, hbr);
GDIFLUSH;
}
/******************************Public*Routine******************************\
* wglCopyBuf
*
* Calls DrvCopyBits to copy a bitmap into the driver surface.
*
\**************************************************************************/
//!!!XXX -- change to a macro
VOID APIENTRY wglCopyBuf(
HDC hdc, // dst/src DCOBJ
HDC hdcBmp, // scr/dst bitmap
LONG x, // dst rect (UL corner) in window coord.
LONG y,
ULONG cx, // width of dest rect
ULONG cy // height of dest rect
)
{
CHECKSCREENLOCKOUT();
//!!!XXX
REALIZEPALETTE(hdc);
if (!BitBlt(hdc, x, y, cx, cy, hdcBmp, 0, 0, SRCCOPY))
{
WARNING1("wglCopyBuf BitBlt failed %d\n", GetLastError());
}
GDIFLUSH;
}
/******************************Public*Routine******************************\
* wglCopyBufRECTLIST
*
* Calls DrvCopyBits to copy a bitmap into the driver surface.
*
\**************************************************************************/
VOID APIENTRY wglCopyBufRECTLIST(
HDC hdc, // dst/src DCOBJ
HDC hdcBmp, // scr/dst bitmap
LONG x, // dst rect (UL corner) in window coord.
LONG y,
ULONG cx, // width of dest rect
ULONG cy, // height of dest rect
PRECTLIST prl
)
{
PYLIST pylist;
CHECKSCREENLOCKOUT();
//!!!XXX
REALIZEPALETTE(hdc);
for (pylist = prl->pylist; pylist != NULL; pylist = pylist->pnext)
{
PXLIST pxlist;
for (pxlist = pylist->pxlist; pxlist != NULL; pxlist = pxlist->pnext)
{
int xx = pxlist->s;
int cxx = pxlist->e - pxlist->s;
int yy = pylist->s;
int cyy = pylist->e - pylist->s;
if (!BitBlt(hdc, xx, yy, cxx, cyy, hdcBmp, xx, yy, SRCCOPY))
{
WARNING1("wglCopyBufRL BitBlt failed %d\n", GetLastError());
}
}
}
GDIFLUSH;
}
/******************************Public*Routine******************************\
* wglPaletteChanged
*
* Check if the palette changed.
*
* If the surface for the DC is palette managed we care about the
* foreground realization, so, return iUniq
*
* If the surface is not palette managed, return ulTime
*
\**************************************************************************/
ULONG APIENTRY wglPaletteChanged(__GLGENcontext *gengc,
GLGENwindow *pwnd)
{
ULONG ulRet = 0;
HDC hdc;
// Palette must stay fixed for DirectDraw after initialization
if (gengc->dwCurrentFlags & GLSURF_DIRECTDRAW)
{
if (gengc->PaletteTimestamp == 0xffffffff)
{
return 0;
}
else
{
return gengc->PaletteTimestamp;
}
}
hdc = gengc->gwidCurrent.hdc;
// Technically we shouldn't be making these GDI calls while we
// have a screen lock but currently it would be very difficult
// to fix because we're actually invoking this routine in
// glsrvGrabLock in order to ensure that we have stable information
// while we have the lock
// We don't seem to be having too many problems so for the moment
// this will be commented out
// CHECKSCREENLOCKOUT();
if (pwnd)
{
PIXELFORMATDESCRIPTOR *ppfd = &gengc->gsurf.pfd;
BYTE cBitsThreshold;
// WM_PALETTECHANGED messages are sent for 8bpp on Win95 when the
// palette is realized. This allows us to update the palette time.
//
// When running WinNT on >= 8bpp or running Win95 on >= 16bpp,
// WM_PALETTECHANGED is not sent so we need to manually examine
// the contents of the logical palette and compare it with a previously
// cached copy to look for a palette change.
cBitsThreshold = ( dwPlatformId == VER_PLATFORM_WIN32_NT ) ? 8 : 16;
if (((ppfd->cColorBits >= cBitsThreshold) &&
(ppfd->iPixelType == PFD_TYPE_COLORINDEX)) )
{
if ( !gengc->ppalBuf )
{
UINT cjPal, cjRgb;
// Allocate buffer space for *two* copies of the palette.
// That way we don't need to dynamically allocate space
// for temp storage of the palette. Also,we don't need
// to copy the current palette to the save buffer if we
// keep two pointers (one for the temp storage and one for
// the saved copy) and swap them.
cjRgb = 0;
cjPal = sizeof(LOGPALETTE) +
(MAXPALENTRIES * sizeof(PALETTEENTRY));
gengc->ppalBuf = (LOGPALETTE *)
ALLOC((cjPal + cjRgb) * 2);
if ( gengc->ppalBuf )
{
// Setup the logical palette buffers.
gengc->ppalSave = gengc->ppalBuf;
gengc->ppalTemp = (LOGPALETTE *)
(((BYTE *) gengc->ppalBuf) + cjPal);
gengc->ppalSave->palVersion = 0x300;
gengc->ppalTemp->palVersion = 0x300;
// How many palette entries? Note that only the first
// MAXPALENTRIES are significant to generic OpenGL. The
// rest are ignored.
gengc->ppalSave->palNumEntries =
(WORD) GetPaletteEntries(
GetCurrentObject(hdc, OBJ_PAL),
0, 0, (LPPALETTEENTRY) NULL
);
gengc->ppalSave->palNumEntries =
min(gengc->ppalSave->palNumEntries, MAXPALENTRIES);
gengc->ppalSave->palNumEntries =
(WORD) GetPaletteEntries(
GetCurrentObject(hdc, OBJ_PAL),
0, gengc->ppalSave->palNumEntries,
gengc->ppalSave->palPalEntry
);
// Since we had to allocate buffer, this must be the
// first time wglPaletteChanged was called for this
// context.
pwnd->ulPaletteUniq++;
}
}
else
{
BOOL bNewPal = FALSE; // TRUE if log palette is different
// How many palette entries? Note that only the first
// MAXPALENTRIES are significant to generic OpenGL. The
// rest are ignored.
gengc->ppalTemp->palNumEntries =
(WORD) GetPaletteEntries(
GetCurrentObject(hdc, OBJ_PAL),
0, 0, (LPPALETTEENTRY) NULL
);
gengc->ppalTemp->palNumEntries =
min(gengc->ppalTemp->palNumEntries, MAXPALENTRIES);
gengc->ppalTemp->palNumEntries =
(WORD) GetPaletteEntries(
GetCurrentObject(hdc, OBJ_PAL),
0, gengc->ppalTemp->palNumEntries,
gengc->ppalTemp->palPalEntry
);
// If number of entries differ, know the palette has changed.
// Otherwise, need to do the hard word of comparing each entry.
ASSERTOPENGL(
sizeof(PALETTEENTRY) == sizeof(ULONG),
"wglPaletteChanged(): PALETTEENTRY should be 4 bytes\n"
);
// If color table comparison already detected a change, no
// need to do logpal comparison.
//
// However, we will still go ahead and swap logpal pointers
// below because we want the palette cache to stay current.
if ( !bNewPal )
{
bNewPal = (gengc->ppalSave->palNumEntries != gengc->ppalTemp->palNumEntries);
if ( !bNewPal )
{
bNewPal = !LocalCompareUlongMemory(
gengc->ppalSave->palPalEntry,
gengc->ppalTemp->palPalEntry,
gengc->ppalSave->palNumEntries * sizeof(PALETTEENTRY)
);
}
}
// So, if palette is different, increment uniqueness and
// update the saved copy.
if ( bNewPal )
{
LOGPALETTE *ppal;
pwnd->ulPaletteUniq++;
// Update saved palette by swapping pointers.
ppal = gengc->ppalSave;
gengc->ppalSave = gengc->ppalTemp;
gengc->ppalTemp = ppal;
}
}
}
ulRet = pwnd->ulPaletteUniq;
}
return ulRet;
}
/******************************Public*Routine******************************\
* wglPaletteSize
*
* Return the size of the current palette
*
\**************************************************************************/
//!!!XXX -- make into a macro?
ULONG APIENTRY wglPaletteSize(__GLGENcontext *gengc)
{
CHECKSCREENLOCKOUT();
if (gengc->dwCurrentFlags & GLSURF_DIRECTDRAW)
{
DWORD dwCaps;
LPDIRECTDRAWPALETTE pddp = NULL;
HRESULT hr;
if (gengc->gsurf.dd.gddsFront.pdds->lpVtbl->
GetPalette(gengc->gsurf.dd.gddsFront.pdds, &pddp) != DD_OK ||
pddp == NULL)
{
return 0;
}
hr = pddp->lpVtbl->GetCaps(pddp, &dwCaps);
pddp->lpVtbl->Release(pddp);
if (hr != DD_OK)
{
return 0;
}
if (dwCaps & DDPCAPS_1BIT)
{
return 1;
}
else if (dwCaps & DDPCAPS_2BIT)
{
return 4;
}
else if (dwCaps & DDPCAPS_4BIT)
{
return 16;
}
else if (dwCaps & DDPCAPS_8BIT)
{
return 256;
}
else
return 0;
}
else
{
return GetPaletteEntries(GetCurrentObject(gengc->gwidCurrent.hdc,
OBJ_PAL), 0, 0, NULL);
}
}
/******************************Public*Routine******************************\
* wglComputeIndexedColors
*
* Copy current index-to-color table to the supplied array. Colors are
* formatted as specified in the current pixelformat and are put into the
* table as DWORDs (i.e., DWORD alignment) starting at the second DWORD.
* The first DWORD in the table is the number of colors in the table.
*
* History:
* 15-Dec-1994 -by- Gilman Wong [gilmanw]
* Ported from gdi\gre\wglsup.cxx.
\**************************************************************************/
BOOL APIENTRY wglComputeIndexedColors(__GLGENcontext *gengc, ULONG *rgbTable,
ULONG cEntries)
{
UINT cColors = 0;
LPPALETTEENTRY lppe, lppeTable;
UINT i;
LPDIRECTDRAWPALETTE pddp = NULL;
CHECKSCREENLOCKOUT();
// first element in table is number of entries
rgbTable[0] = min(wglPaletteSize(gengc), cEntries);
lppeTable = (LPPALETTEENTRY)
ALLOC(sizeof(PALETTEENTRY) * rgbTable[0]);
if (lppeTable)
{
int rScale, gScale, bScale;
int rShift, gShift, bShift;
rScale = (1 << gengc->gsurf.pfd.cRedBits ) - 1;
gScale = (1 << gengc->gsurf.pfd.cGreenBits) - 1;
bScale = (1 << gengc->gsurf.pfd.cBlueBits ) - 1;
rShift = gengc->gsurf.pfd.cRedShift ;
gShift = gengc->gsurf.pfd.cGreenShift;
bShift = gengc->gsurf.pfd.cBlueShift ;
if (gengc->dwCurrentFlags & GLSURF_DIRECTDRAW)
{
if (gengc->gsurf.dd.gddsFront.pdds->lpVtbl->
GetPalette(gengc->gsurf.dd.gddsFront.pdds, &pddp) != DD_OK ||
pddp == NULL)
{
return 0;
}
if (pddp->lpVtbl->GetEntries(pddp, 0, 0,
rgbTable[0], lppeTable) != DD_OK)
{
cColors = 0;
}
else
{
cColors = rgbTable[0];
}
}
else
{
cColors = GetPaletteEntries(GetCurrentObject(gengc->gwidCurrent.hdc,
OBJ_PAL),
0, rgbTable[0], lppeTable);
}
for (i = 1, lppe = lppeTable; i <= cColors; i++, lppe++)
{
// Whack the PALETTEENTRY color into proper color format. Store as
// ULONG.
//!!!XXX -- use rounding?!?
rgbTable[i] = (((ULONG)lppe->peRed * rScale / 255) << rShift) |
(((ULONG)lppe->peGreen * gScale / 255) << gShift) |
(((ULONG)lppe->peBlue * bScale / 255) << bShift);
}
FREE(lppeTable);
}
if (pddp != NULL)
{
pddp->lpVtbl->Release(pddp);
}
return(cColors != 0);
}
/******************************Public*Routine******************************\
* wglValidPixelFormat
*
* Determines if a pixelformat is usable with the DC specified.
*
\**************************************************************************/
BOOL APIENTRY wglValidPixelFormat(HDC hdc, int ipfd, DWORD dwObjectType,
LPDIRECTDRAWSURFACE pdds,
DDSURFACEDESC *pddsd)
{
BOOL bRet = FALSE;
PIXELFORMATDESCRIPTOR pfd, pfdDC;
if ( wglDescribePixelFormat(hdc, ipfd, sizeof(pfd), &pfd) )
{
if ( dwObjectType == OBJ_DC )
{
// We have a display DC; make sure the pixelformat allows drawing
// to the window.
bRet = ( (pfd.dwFlags & PFD_DRAW_TO_WINDOW) != 0 );
if (!bRet)
{
SetLastError(ERROR_INVALID_FLAGS);
}
}
else if ( dwObjectType == OBJ_MEMDC )
{
// We have a memory DC. Make sure pixelformat allows drawing
// to a bitmap.
if ( pfd.dwFlags & PFD_DRAW_TO_BITMAP )
{
// Make sure that the bitmap and pixelformat have the same
// color depth.
HBITMAP hbm;
BITMAP bm;
ULONG cBitmapColorBits;
hbm = CreateCompatibleBitmap(hdc, 1, 1);
if ( hbm )
{
if ( GetObject(hbm, sizeof(bm), &bm) )
{
cBitmapColorBits = bm.bmPlanes * bm.bmBitsPixel;
bRet = ( cBitmapColorBits == pfd.cColorBits );
if (!bRet)
{
SetLastError(ERROR_INVALID_FUNCTION);
}
}
else
{
WARNING("wglValidPixelFormat: GetObject failed\n");
}
DeleteObject(hbm);
}
else
{
WARNING("wglValidPixelFormat: Unable to create cbm\n");
}
}
}
else if (dwObjectType == OBJ_ENHMETADC)
{
// We don't know anything about what surfaces this
// metafile will be played back on so allow any kind
// of pixel format
bRet = TRUE;
}
else if (dwObjectType == OBJ_DDRAW)
{
DDSCAPS ddscaps;
LPDIRECTDRAWSURFACE pddsZ;
DDSURFACEDESC ddsdZ;
// We have a DDraw surface.
// Check that DDraw is supported and that double buffering
// is not defined.
if ((pfd.dwFlags & PFD_SUPPORT_DIRECTDRAW) == 0 ||
(pfd.dwFlags & PFD_DOUBLEBUFFER))
{
WARNING1("DDSurf pfd has bad flags 0x%08lX\n", pfd.dwFlags);
SetLastError(ERROR_INVALID_FLAGS);
return FALSE;
}
// We only understand 4 and 8bpp paletted formats plus RGB
// We don't support alpha-only or Z-only surfaces
if ((pddsd->ddpfPixelFormat.dwFlags & (DDPF_PALETTEINDEXED4 |
DDPF_PALETTEINDEXED8 |
DDPF_RGB)) == 0 ||
(pddsd->ddpfPixelFormat.dwFlags & (DDPF_ALPHA |
DDPF_ZBUFFER)) != 0)
{
WARNING1("DDSurf ddpf has bad flags, 0x%08lX\n",
pddsd->ddpfPixelFormat.dwFlags);
SetLastError(ERROR_INVALID_PIXEL_FORMAT);
return FALSE;
}
if (DdPixelDepth(pddsd) != pfd.cColorBits)
{
WARNING2("DDSurf pfd cColorBits %d "
"doesn't match ddsd depth %d\n",
pfd.cColorBits, DdPixelDepth(pddsd));
SetLastError(ERROR_INVALID_PIXEL_FORMAT);
return FALSE;
}
// Check for alpha
if (pfd.cAlphaBits > 0)
{
// Interleaved destination alpha is not supported.
if (pddsd->ddpfPixelFormat.dwFlags & DDPF_ALPHAPIXELS)
{
WARNING("DDSurf has alpha pixels\n");
SetLastError(ERROR_INVALID_PIXEL_FORMAT);
return FALSE;
}
}
// Check for an attached Z buffer
memset(&ddscaps, 0, sizeof(ddscaps));
ddscaps.dwCaps = DDSCAPS_ZBUFFER;
if (pdds->lpVtbl->
GetAttachedSurface(pdds, &ddscaps, &pddsZ) == DD_OK)
{
HRESULT hr;
memset(&ddsdZ, 0, sizeof(ddsdZ));
ddsdZ.dwSize = sizeof(ddsdZ);
hr = pddsZ->lpVtbl->GetSurfaceDesc(pddsZ, &ddsdZ);
pddsZ->lpVtbl->Release(pddsZ);
if (hr != DD_OK)
{
WARNING("Unable to get Z ddsd\n");
return FALSE;
}
// Ensure that the Z surface depth is the same as the
// one in the pixel format
if (pfd.cDepthBits !=
(BYTE)DdPixDepthToCount(ddsdZ.ddpfPixelFormat.
dwZBufferBitDepth))
{
WARNING2("DDSurf pfd cDepthBits %d doesn't match "
"Z ddsd depth %d\n", pfd.cDepthBits,
DdPixDepthToCount(ddsdZ.ddpfPixelFormat.
dwZBufferBitDepth));
SetLastError(ERROR_INVALID_PIXEL_FORMAT);
return FALSE;
}
}
else
{
// No Z so make sure the pfd doesn't ask for it
if (pfd.cDepthBits > 0)
{
WARNING("DDSurf pfd wants depth with no Z attached\n");
SetLastError(ERROR_INVALID_PIXEL_FORMAT);
return FALSE;
}
}
bRet = TRUE;
}
else
{
WARNING("wglValidPixelFormat: not a valid DC!\n");
}
}
else
{
WARNING("wglValidPixelFormat: wglDescribePixelFormat failed\n");
}
return bRet;
}
/******************************Public*Routine******************************\
* wglMakeScans
*
* Converts the visible rectangle list in the provided GLGENwindow to a
* scan-based data structure. The scan-data is put into the GLGENwindow
* structure.
*
* Note: this function assumes that the rectangles are already organized
* top-down, left-right in scans. This is true for Windows NT 3.5 and
* Windows 95. This is because the internal representation of regions
* in both systems is already a scan-based structure. When the APIs
* (such as GetRegionData) convert the scans to rectangles, the rectangles
* automatically have this property.
*
* Returns:
* TRUE if successful, FALSE otherwise.
* Note: if failure, clipping info is invalid.
*
* History:
* 05-Dec-1994 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
BOOL APIENTRY wglMakeScans(GLGENwindow *pwnd)
{
RECT *prc, *prcEnd;
LONG lPrevScanTop;
ULONG cScans = 0;
UINT cjNeed;
GLGENscan *pscan;
LONG *plWalls;
ASSERTOPENGL(
pwnd->prgndat,
"wglMakeScans(): NULL region data\n"
);
ASSERTOPENGL(
pwnd->prgndat->rdh.iType == RDH_RECTANGLES,
"wglMakeScans(): not RDH_RECTANGLES!\n"
);
// Bail out if no rectangles.
if (pwnd->prgndat->rdh.nCount == 0)
return TRUE;
// First pass: determine the number of scans.
lPrevScanTop = -(LONG) 0x7FFFFFFF;
prc = (RECT *) pwnd->prgndat->Buffer;
prcEnd = prc + pwnd->prgndat->rdh.nCount;
for ( ; prc < prcEnd; prc++)
{
if (prc->top != lPrevScanTop)
{
lPrevScanTop = prc->top;
cScans++;
}
}
// Determine the size needed: 1 GLGENscanData PLUS a GLGENscan per scan PLUS
// two walls per rectangle.
cjNeed = offsetof(GLGENscanData, aScans) +
cScans * offsetof(GLGENscan, alWalls) +
pwnd->prgndat->rdh.nCount * sizeof(LONG) * 2;
// Allocate the scan structure.
if ( cjNeed > pwnd->cjscandat || !pwnd->pscandat )
{
if ( pwnd->pscandat )
FREE(pwnd->pscandat);
pwnd->pscandat = ALLOC(pwnd->cjscandat = cjNeed);
if ( !pwnd->pscandat )
{
WARNING("wglMakeScans(): memory failure\n");
pwnd->cjscandat = 0;
return FALSE;
}
}
// Second pass: fill the scan structure.
pwnd->pscandat->cScans = cScans;
lPrevScanTop = -(LONG) 0x7FFFFFFF;
prc = (RECT *) pwnd->prgndat->Buffer; // need to reset prc but prcEnd OK
plWalls = (LONG *) pwnd->pscandat->aScans;
pscan = (GLGENscan *) NULL;
for ( ; prc < prcEnd; prc++ )
{
// Do we need to start a new scan?
if ( prc->top != lPrevScanTop )
{
// Scan we just finished needs pointer to the next scan. Next
// will start just after this scan (which, conveniently enough,
// plWalls is pointing at).
if ( pscan )
pscan->pNext = (GLGENscan *) plWalls;
lPrevScanTop = prc->top;
// Start the new span.
pscan = (GLGENscan *) plWalls;
pscan->cWalls = 0;
pscan->top = prc->top;
pscan->bottom = prc->bottom;
plWalls = pscan->alWalls;
}
pscan->cWalls+=2;
*plWalls++ = prc->left;
*plWalls++ = prc->right;
}
if ( pscan )
pscan->pNext = (GLGENscan *) NULL; // don't leave ptr unitialized in
// the last scan
#if DBG
DBGLEVEL1(LEVEL_INFO, "\n-----\nwglMakeScans(): cScans = %ld\n", pwnd->pscandat->cScans);
cScans = pwnd->pscandat->cScans;
pscan = pwnd->pscandat->aScans;
for ( ; cScans; cScans--, pscan = pscan->pNext )
{
LONG *plWalls = pscan->alWalls;
LONG *plWallsEnd = plWalls + pscan->cWalls;
DBGLEVEL3(LEVEL_INFO, "Scan: top = %ld, bottom = %ld, walls = %ld\n", pscan->top, pscan->bottom, pscan->cWalls);
for ( ; plWalls < plWallsEnd; plWalls+=2 )
{
DBGLEVEL2(LEVEL_INFO, "\t%ld, %ld\n", plWalls[0], plWalls[1]);
}
}
#endif
return TRUE;
}
/******************************Public*Routine******************************\
* wglGetClipList
*
* Gets the visible region in the form of a list of rectangles,
* for the window associated with the given window. The data is placed
* in the GLGENwindow structure.
*
* Returns:
* TRUE if successful, FALSE otherwise.
*
* History:
* 01-Dec-1994 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
BOOL APIENTRY wglGetClipList(GLGENwindow *pwnd)
{
UINT cj;
RECT rc;
// Set clipping to empty. If an error occurs getting clip information,
// all drawing will be clipped.
pwnd->clipComplexity = CLC_RECT;
pwnd->rclBounds.left = 0;
pwnd->rclBounds.top = 0;
pwnd->rclBounds.right = 0;
pwnd->rclBounds.bottom = 0;
// Make sure we have enough memory to cache the clip list.
if (pwnd->pddClip->lpVtbl->
GetClipList(pwnd->pddClip, NULL, NULL, &cj) == DD_OK)
{
if ( cj > pwnd->cjrgndat || !pwnd->prgndat )
{
if ( pwnd->prgndat )
FREE(pwnd->prgndat);
pwnd->prgndat = ALLOC(pwnd->cjrgndat = cj);
if ( !pwnd->prgndat )
{
WARNING("wglGetClipList(): memory failure\n");
pwnd->cjrgndat = 0;
return FALSE;
}
}
}
else
{
WARNING("wglGetClipList(): clipper failed to return size\n");
return FALSE;
}
// Get the clip list (RGNDATA format).
if ( pwnd->pddClip->lpVtbl->
GetClipList(pwnd->pddClip, NULL, pwnd->prgndat, &cj) == DD_OK )
{
// Compose the scan version of the clip list.
if (!wglMakeScans(pwnd))
{
WARNING("wglGetClipList(): scan conversion failed\n");
return FALSE;
}
}
else
{
WARNING("wglGetClipList(): clipper failed\n");
return FALSE;
}
// Fixup the protected portions of the window.
ASSERT_WINCRIT(pwnd);
{
__GLGENbuffers *buffers;
// Update rclBounds to match RGNDATA bounds.
pwnd->rclBounds = *(RECTL *) &pwnd->prgndat->rdh.rcBound;
// Update rclClient to match client area. We cannot do this from the
// information in RGNDATA as the bounds may be smaller than the window
// client area. We will have to call GetClientRect().
GetClientRect(pwnd->gwid.hwnd, (LPRECT) &pwnd->rclClient);
ClientToScreen(pwnd->gwid.hwnd, (LPPOINT) &pwnd->rclClient);
pwnd->rclClient.right += pwnd->rclClient.left;
pwnd->rclClient.bottom += pwnd->rclClient.top;
//
// Setup window clip complexity
//
if ( pwnd->prgndat->rdh.nCount > 1 )
{
// Clip list will be used for clipping.
pwnd->clipComplexity = CLC_COMPLEX;
}
else if ( pwnd->prgndat->rdh.nCount == 1 )
{
RECT *prc = (RECT *) pwnd->prgndat->Buffer;
// Recently, DirectDraw has been occasionally returning rclBounds
// set to the screen dimensions. This is being investigated as a
// bug on DDraw's part, but let us protect ourselves in any case.
//
// When there is only a single clip rectangle, it should be
// the same as the bounds.
pwnd->rclBounds = *((RECTL *) prc);
// If bounds rectangle is smaller than client area, we need to
// clip to the bounds rectangle. Otherwise, clip to the window
// client area.
if ( (pwnd->rclBounds.left <= pwnd->rclClient.left ) &&
(pwnd->rclBounds.right >= pwnd->rclClient.right ) &&
(pwnd->rclBounds.top <= pwnd->rclClient.top ) &&
(pwnd->rclBounds.bottom >= pwnd->rclClient.bottom) )
pwnd->clipComplexity = CLC_TRIVIAL;
else
pwnd->clipComplexity = CLC_RECT;
}
else
{
// Clip count is zero. Bounds should be an empty rectangle.
pwnd->clipComplexity = CLC_RECT;
pwnd->rclBounds.left = 0;
pwnd->rclBounds.top = 0;
pwnd->rclBounds.right = 0;
pwnd->rclBounds.bottom = 0;
}
// Finally, the window has changed, so change the uniqueness number.
if ((buffers = pwnd->buffers))
{
buffers->WndUniq++;
// Don't let it hit -1. -1 is special and is used by
// MakeCurrent to signal that an update is required
if (buffers->WndUniq == -1)
buffers->WndUniq = 0;
}
}
return TRUE;
}
/******************************Public*Routine******************************\
* wglCleanupWindow
*
* Removes references to the specified window from
* all contexts by running through the list of RCs in the handle manager
* table.
*
* History:
* 05-Jul-1994 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
VOID APIENTRY wglCleanupWindow(GLGENwindow *pwnd)
{
if (pwnd)
{
//!!!XXX -- For now remove reference from current context. Need to
//!!!XXX scrub all contexts for multi-threaded cleanup to work.
//!!!XXX We need to implement a gengc tracking mechanism.
__GLGENcontext *gengc = (__GLGENcontext *) GLTEB_SRVCONTEXT();
if ( gengc && (gengc->pwndMakeCur == pwnd) )
{
// Found a victim. Must NULL out the pointer both in the RC
// and in the generic context.
glsrvCleanupWindow(gengc, pwnd);
}
}
}
/******************************Public*Routine******************************\
* wglGetSystemPaletteEntries
*
* Internal version of GetSystemPaletteEntries.
*
* GetSystemPaletteEntries fails on some 4bpp devices. This wgl version
* will detect the 4bpp case and supply the hardcoded 16-color VGA palette.
* Otherwise, it will pass the call on to GDI's GetSystemPaletteEntries.
*
* It is expected that this call will only be called in the 4bpp and 8bpp
* cases as it is not necessary for OpenGL to query the system palette
* for > 8bpp devices.
*
* History:
* 17-Aug-1995 -by- Gilman Wong [gilmanw]
* Wrote it.
\**************************************************************************/
static PALETTEENTRY gapeVgaPalette[16] =
{
{ 0, 0, 0, 0 },
{ 0x80,0, 0, 0 },
{ 0, 0x80,0, 0 },
{ 0x80,0x80,0, 0 },
{ 0, 0, 0x80, 0 },
{ 0x80,0, 0x80, 0 },
{ 0, 0x80,0x80, 0 },
{ 0x80,0x80,0x80, 0 },
{ 0xC0,0xC0,0xC0, 0 },
{ 0xFF,0, 0, 0 },
{ 0, 0xFF,0, 0 },
{ 0xFF,0xFF,0, 0 },
{ 0, 0, 0xFF, 0 },
{ 0xFF,0, 0xFF, 0 },
{ 0, 0xFF,0xFF, 0 },
{ 0xFF,0xFF,0xFF, 0 }
};
UINT APIENTRY wglGetSystemPaletteEntries(
HDC hdc,
UINT iStartIndex,
UINT nEntries,
LPPALETTEENTRY lppe)
{
int nDeviceBits;
nDeviceBits = GetDeviceCaps(hdc, BITSPIXEL) * GetDeviceCaps(hdc, PLANES);
if ( nDeviceBits == 4 )
{
if ( lppe )
{
nEntries = min(nEntries, (16 - iStartIndex));
memcpy(lppe, &gapeVgaPalette[iStartIndex],
nEntries * sizeof(PALETTEENTRY));
}
else
nEntries = 16;
return nEntries;
}
else
{
return GetSystemPaletteEntries(hdc, iStartIndex, nEntries, lppe);
}
}
Reference in a new issue Copy permalink