#ifdef HAVE_XWIN_CONFIG_H
#include <xwin-config.h>
#endif
#include "win.h"
extern int g_iPixmapPrivateIndex;
extern int g_iGCPrivateIndex;
extern int g_copyROP[];
extern void ROP16(HDC hdc, int rop);
#define TRANSLATE_COLOR(color) \
{ \
if (pDrawable->depth == 15) \
color = ((color & 0x1F) << 19) | ((color & 0x03E0) << 6) | \
((color & 0xF800) >> 8); \
else if (pDrawable->depth == 16) \
color = ((color & 0x1F) << 19) | ((color & 0x07E0) << 5) | \
((color & 0xF800) >> 8); \
else if (pDrawable->depth == 24 || pDrawable->depth == 32) \
color = ((color & 0xFF) << 16) | (color & 0xFF00) | \
((color & 0xFF0000) >> 16); \
}
void
winFillSpansNativeGDI (DrawablePtr pDrawable,
GCPtr pGC,
int iSpans,
DDXPointPtr pPoints,
int *piWidths,
int fSorted)
{
winGCPriv(pGC);
HBITMAP hbmpOrig = NULL, hbmpOrigStipple = NULL;
HBITMAP hPenOrig = NULL;
HBITMAP hBitmap = NULL;
PixmapPtr pPixmap = NULL;
winPrivPixmapPtr pPixmapPriv = NULL;
PixmapPtr pStipple = NULL;
winPrivPixmapPtr pStipplePriv = NULL;
PixmapPtr pTile = NULL;
winPrivPixmapPtr pTilePriv = NULL;
HDC hdcStipple = NULL, hdcTile = NULL;
HPEN hPen = NULL;
int iX;
int fg, bg;
RegionPtr pClip = pGC->pCompositeClip;
BoxPtr pextent, pbox;
int nbox;
int extentX1, extentX2, extentY1, extentY2;
int fullX1, fullX2, fullY1;
HRGN hrgn = NULL, combined = NULL;
nbox = REGION_NUM_RECTS (pClip);
pbox = REGION_RECTS (pClip);
if (!nbox) return;
combined = CreateRectRgn (pbox->x1, pbox->y1, pbox->x2, pbox->y2);
nbox--; pbox++;
while (nbox--)
{
hrgn = CreateRectRgn (pbox->x1, pbox->y1, pbox->x2, pbox->y2);
CombineRgn (combined, combined, hrgn, RGN_OR);
DeleteObject (hrgn);
hrgn = NULL;
pbox++;
}
pextent = REGION_EXTENTS (pGC->pScreen, pClip);
extentX1 = pextent->x1;
extentY1 = pextent->y1;
extentX2 = pextent->x2;
extentY2 = pextent->y2;
switch (pDrawable->type)
{
case DRAWABLE_PIXMAP:
SelectClipRgn (pGCPriv->hdcMem, combined);
DeleteObject (combined);
combined = NULL;
pPixmap = (PixmapPtr) pDrawable;
pPixmapPriv = winGetPixmapPriv (pPixmap);
hbmpOrig = SelectObject (pGCPriv->hdcMem, pPixmapPriv->hBitmap);
if (hbmpOrig == NULL)
FatalError ("winFillSpans - DRAWABLE_PIXMAP - "
"SelectObject () failed on\n\tpPixmapPriv->hBitmap: "
"%08x\n", (unsigned int) pPixmapPriv->hBitmap);
switch (pGC->fillStyle)
{
case FillSolid:
ROP16 (pGCPriv->hdcMem, pGC->alu);
if (pDrawable->depth == 1)
{
if (pGC->fgPixel == 0)
hPenOrig = SelectObject (pGCPriv->hdcMem,
GetStockObject (BLACK_PEN));
else
hPenOrig = SelectObject (pGCPriv->hdcMem,
GetStockObject (WHITE_PEN));
}
else
{
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
hPen = CreatePen (PS_SOLID, 0, fg);
hPenOrig = SelectObject (pGCPriv->hdcMem, hPen);
}
while (iSpans--)
{
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
MoveToEx (pGCPriv->hdcMem, fullX1, fullY1, NULL);
LineTo (pGCPriv->hdcMem, fullX2, fullY1);
}
SetROP2 (pGCPriv->hdcMem, R2_COPYPEN);
SelectObject (pGCPriv->hdcMem, hPenOrig);
if (pDrawable->depth != 1)
DeleteObject (hPen);
break;
case FillOpaqueStippled:
pStipple = pGC->stipple;
pStipplePriv = winGetPixmapPriv (pStipple);
hBitmap = CreateDIBitmap (pGCPriv->hdcMem,
(BITMAPINFOHEADER *)pStipplePriv->pbmih,
CBM_INIT,
pStipplePriv->pbBits,
(BITMAPINFO *)pStipplePriv->pbmih,
DIB_RGB_COLORS);
hdcStipple = CreateCompatibleDC (pGCPriv->hdcMem);
hbmpOrigStipple = SelectObject (hdcStipple, hBitmap);
if (hbmpOrigStipple == NULL)
FatalError ("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
"SelectObject () failed on hbmpOrigStipple\n");
bg = pGC->bgPixel;
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
TRANSLATE_COLOR (bg);
SetTextColor (pGCPriv->hdcMem, fg);
SetBkColor (pGCPriv->hdcMem, bg);
while (iSpans--)
{
int width = pStipple->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pStipple->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pStipple->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pStipple->drawable.width) - pStipple->drawable.width)) % pStipple->drawable.width;
else
xoffset = 0;
if (xoffset + width > pStipple->drawable.width)
width = pStipple->drawable.width - xoffset;
BitBlt (pGCPriv->hdcMem,
iX, fullY1,
width, 1,
hdcStipple,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pStipple->drawable.height) - pStipple->drawable.height)) % pStipple->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (hdcStipple, hbmpOrigStipple);
DeleteDC (hdcStipple);
DeleteObject (hBitmap);
break;
case FillStippled:
pStipple = pGC->stipple;
pStipplePriv = winGetPixmapPriv (pStipple);
hBitmap = CreateDIBitmap (pGCPriv->hdcMem,
(BITMAPINFOHEADER *)pStipplePriv->pbmih,
CBM_INIT,
pStipplePriv->pbBits,
(BITMAPINFO *)pStipplePriv->pbmih,
DIB_RGB_COLORS);
hdcStipple = CreateCompatibleDC (pGCPriv->hdcMem);
hbmpOrigStipple = SelectObject (hdcStipple, hBitmap);
if (hbmpOrigStipple == NULL)
FatalError ("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
"SelectObject () failed on hbmpOrigStipple\n");
bg = pGC->bgPixel;
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
TRANSLATE_COLOR (bg);
if (pGC->bgPixel != -1 && pGC->fgPixel != -1)
{
SetTextColor (pGCPriv->hdcMem, fg);
SetBkColor (pGCPriv->hdcMem, bg);
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0, 0,
0x330008);
}
else if (pGC->bgPixel == -1)
{
SetTextColor (pGCPriv->hdcMem, fg);
SetBkMode (pGCPriv->hdcMem, TRANSPARENT);
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0, 0,
0x330008);
}
else if (pGC->fgPixel == -1)
{
SetTextColor (pGCPriv->hdcMem, bg);
SetBkMode (pGCPriv->hdcMem, TRANSPARENT);
#if 0
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0, 0,
0x330008);
#endif
}
while (iSpans--)
{
int width = pStipple->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pStipple->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pStipple->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pStipple->drawable.width) - pStipple->drawable.width)) % pStipple->drawable.width;
else
xoffset = 0;
if (xoffset + width > pStipple->drawable.width)
width = pStipple->drawable.width - xoffset;
BitBlt (pGCPriv->hdcMem,
iX, fullY1,
width, 1,
hdcStipple,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pStipple->drawable.height) - pStipple->drawable.height)) % pStipple->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (hdcStipple, hbmpOrigStipple);
DeleteDC (hdcStipple);
DeleteObject (hBitmap);
SetBkMode (pGCPriv->hdcMem, OPAQUE);
break;
case FillTiled:
pTile = (PixmapPtr) pGC->tile.pixmap;
pTilePriv = winGetPixmapPriv (pTile);
hdcTile = CreateCompatibleDC (pGCPriv->hdcMem);
hbmpOrig = SelectObject (hdcTile, pTilePriv->hBitmap);
if (hbmpOrig == NULL)
FatalError ("winFillSpans - DRAWABLE_PIXMAP - FillTiled - "
"SelectObject () failed on pTilePriv->hBitmap\n");
while (iSpans--)
{
int width = pTile->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pTile->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pTile->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pTile->drawable.width) - pTile->drawable.width)) % pTile->drawable.width;
else
xoffset = 0;
if (xoffset + width > pTile->drawable.width)
width = pTile->drawable.width - xoffset;
BitBlt (pGCPriv->hdcMem,
iX, fullY1,
width, 1,
hdcTile,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pTile->drawable.height) - pTile->drawable.height)) % pTile->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (hdcTile, hbmpOrig);
DeleteDC (hdcTile);
break;
default:
ErrorF ("winFillSpans - DRAWABLE_PIXMAP - Unknown fillStyle\n");
break;
}
SelectClipRgn (pGCPriv->hdcMem, NULL);
SelectObject (pGCPriv->hdcMem, hbmpOrig);
break;
case DRAWABLE_WINDOW:
SelectClipRgn (pGCPriv->hdc, combined);
DeleteObject (combined);
combined = NULL;
switch (pGC->fillStyle)
{
case FillSolid:
ROP16 (pGCPriv->hdc, pGC->alu);
if (pDrawable->depth == 1)
{
if (pGC->fgPixel == 0)
hPenOrig = SelectObject (pGCPriv->hdc,
GetStockObject (BLACK_PEN));
else
hPenOrig = SelectObject (pGCPriv->hdc,
GetStockObject (WHITE_PEN));
}
else
{
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
hPen = CreatePen (PS_SOLID, 0, fg);
hPenOrig = SelectObject (pGCPriv->hdc, hPen);
}
while (iSpans--)
{
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
MoveToEx (pGCPriv->hdc, fullX1, fullY1, NULL);
LineTo (pGCPriv->hdc, fullX2, fullY1);
}
SetROP2 (pGCPriv->hdc, R2_COPYPEN);
SelectObject (pGCPriv->hdc, hPenOrig);
if (pDrawable->depth != 1)
DeleteObject (hPen);
break;
case FillOpaqueStippled:
pStipple = pGC->stipple;
pStipplePriv = winGetPixmapPriv (pStipple);
hBitmap = CreateDIBitmap (pGCPriv->hdc,
(BITMAPINFOHEADER *)pStipplePriv->pbmih,
CBM_INIT,
pStipplePriv->pbBits,
(BITMAPINFO *)pStipplePriv->pbmih,
DIB_RGB_COLORS);
hdcStipple = CreateCompatibleDC (pGCPriv->hdc);
hbmpOrigStipple = SelectObject (hdcStipple, hBitmap);
if (hbmpOrigStipple == NULL)
FatalError ("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
"SelectObject () failed on hbmpOrigStipple\n");
bg = pGC->bgPixel;
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
TRANSLATE_COLOR (bg);
SetTextColor (pGCPriv->hdc, fg);
SetBkColor (pGCPriv->hdc, bg);
while (iSpans--)
{
int width = pStipple->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pStipple->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pStipple->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pStipple->drawable.width) - pStipple->drawable.width)) % pStipple->drawable.width;
else
xoffset = 0;
if (xoffset + width > pStipple->drawable.width)
width = pStipple->drawable.width - xoffset;
BitBlt (pGCPriv->hdc,
iX, fullY1,
width, 1,
hdcStipple,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pStipple->drawable.height) - pStipple->drawable.height)) % pStipple->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (hdcStipple, hbmpOrigStipple);
DeleteDC (hdcStipple);
DeleteObject (hBitmap);
break;
case FillStippled:
pStipple = pGC->stipple;
pStipplePriv = winGetPixmapPriv (pStipple);
hBitmap = CreateDIBitmap (pGCPriv->hdcMem,
(BITMAPINFOHEADER *)pStipplePriv->pbmih,
CBM_INIT,
pStipplePriv->pbBits,
(BITMAPINFO *)pStipplePriv->pbmih,
DIB_RGB_COLORS);
hdcStipple = CreateCompatibleDC (pGCPriv->hdc);
hbmpOrigStipple = SelectObject (hdcStipple, hBitmap);
if (hbmpOrigStipple == NULL)
FatalError ("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
"SelectObject () failed on hbmpOrigStipple\n");
bg = pGC->bgPixel;
fg = pGC->fgPixel;
TRANSLATE_COLOR (fg);
TRANSLATE_COLOR (bg);
if (pGC->bgPixel != -1 && pGC->fgPixel != -1)
{
SetTextColor (pGCPriv->hdc, fg);
SetBkColor (pGCPriv->hdc, bg);
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0,0,
0x330008);
}
else if (pGC->bgPixel == -1)
{
SetTextColor (pGCPriv->hdc, fg);
SetBkMode (pGCPriv->hdc, TRANSPARENT);
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0,0,
0x330008);
}
else if (pGC->fgPixel == -1)
{
SetTextColor (pGCPriv->hdc, bg);
SetBkMode (pGCPriv->hdc, TRANSPARENT);
#if 0
BitBlt (hdcStipple,
0, 0,
pStipple->drawable.width, pStipple->drawable.height,
hdcStipple,
0, 0,
0x330008);
#endif
}
while (iSpans--)
{
int width = pStipple->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pStipple->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pStipple->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pStipple->drawable.width) - pStipple->drawable.width)) % pStipple->drawable.width;
else
xoffset = 0;
if (xoffset + width > pStipple->drawable.width)
width = pStipple->drawable.width - xoffset;
BitBlt (pGCPriv->hdc,
iX, fullY1,
width, 1,
hdcStipple,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pStipple->drawable.height) - pStipple->drawable.height)) % pStipple->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (hdcStipple, hbmpOrigStipple);
DeleteDC (hdcStipple);
DeleteObject (hBitmap);
SetBkMode (pGCPriv->hdc, OPAQUE);
break;
case FillTiled:
pTile = (PixmapPtr) pGC->tile.pixmap;
pTilePriv = winGetPixmapPriv (pTile);
hbmpOrig = SelectObject (pGCPriv->hdcMem, pTilePriv->hBitmap);
if (hbmpOrig == NULL)
FatalError ("winFillSpans - DRAWABLE_WINDOW - FillTiled - "
"SelectObject () failed on pTilePriv->hBitmap\n");
while (iSpans--)
{
int width = pTile->drawable.width;
fullX1 = pPoints->x;
fullY1 = pPoints->y;
fullX2 = fullX1 + (int) *piWidths;
pPoints++;
piWidths++;
if (fullY1 < extentY1 || extentY2 <= fullY1)
continue;
if (fullX1 < extentX1)
fullX1 = extentX1;
if (fullX2 > extentX2)
fullX2 = extentX2;
if (fullX1 >= fullX2)
continue;
for (iX = fullX1; iX < fullX2; iX += width)
{
int xoffset;
if ((iX + pTile->drawable.width) > fullX2)
width = fullX2 - iX;
else
width = pTile->drawable.width;
if (iX == fullX1)
xoffset = (fullX1 - (pDrawable->x + (pGC->patOrg.x % pTile->drawable.width) - pTile->drawable.width)) % pTile->drawable.width;
else
xoffset = 0;
if (xoffset + width > pTile->drawable.width)
width = pTile->drawable.width - xoffset;
BitBlt (pGCPriv->hdc,
iX, fullY1,
width, 1,
pGCPriv->hdcMem,
xoffset,
(fullY1 - (pDrawable->y + (pGC->patOrg.y % pTile->drawable.height) - pTile->drawable.height)) % pTile->drawable.height,
g_copyROP[pGC->alu]);
}
}
SelectObject (pGCPriv->hdcMem, hbmpOrig);
break;
default:
ErrorF ("winFillSpans - DRAWABLE_WINDOW - Unknown fillStyle\n");
break;
}
SelectClipRgn (pGCPriv->hdc, NULL);
break;
case UNDRAWABLE_WINDOW:
switch (pGC->fillStyle)
{
case FillSolid:
ErrorF ("winFillSpans - UNDRAWABLE_WINDOW - FillSolid - "
"Unimplemented\n");
break;
case FillStippled:
ErrorF ("winFillSpans - UNDRAWABLE_WINDOW - FillStippled - "
"Unimplemented\n");
break;
case FillTiled:
ErrorF ("winFillSpans - UNDRAWABLE_WINDOW - FillTiled - "
"Unimplemented\n");
break;
case FillOpaqueStippled:
ErrorF ("winFillSpans - UNDRAWABLE_WINDOW - OpaqueStippled - "
"Unimplemented\n");
break;
default:
ErrorF ("winFillSpans - UNDRAWABLE_WINDOW - Unknown fillStyle\n");
break;
}
break;
case DRAWABLE_BUFFER:
ErrorF ("winFillSpans - DRAWABLE_BUFFER - Unimplemented\n");
break;
default:
ErrorF ("winFillSpans - Unknown drawable type\n");
break;
}
}