/*
 *Copyright (C) 1994-2000 The XFree86 Project, Inc. All Rights Reserved.
 *
 *Permission is hereby granted, free of charge, to any person obtaining
 * a copy of this software and associated documentation files (the
 *"Software"), to deal in the Software without restriction, including
 *without limitation the rights to use, copy, modify, merge, publish,
 *distribute, sublicense, and/or sell copies of the Software, and to
 *permit persons to whom the Software is furnished to do so, subject to
 *the following conditions:
 *
 *The above copyright notice and this permission notice shall be
 *included in all copies or substantial portions of the Software.
 *
 *THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 *EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 *MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
 *NONINFRINGEMENT. IN NO EVENT SHALL THE XFREE86 PROJECT BE LIABLE FOR
 *ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
 *CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 *WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 *Except as contained in this notice, the name of the XFree86 Project
 *shall not be used in advertising or otherwise to promote the sale, use
 *or other dealings in this Software without prior written authorization
 *from the XFree86 Project.
 *
 * Authors:	Harold L Hunt II
 * 		Alan Hourihane <alanh@fairlite.demon.co.uk>
 */

#ifdef HAVE_XWIN_CONFIG_H
#include <xwin-config.h>
#endif
#include "win.h"

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);					\
}

/* See Porting Layer Definition - p. 54 */
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 = RegionNumRects(pClip);
    pbox = RegionRects(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 = RegionExtents(pClip);
    extentX1 = pextent->x1;
    extentY1 = pextent->y1;
    extentX2 = pextent->x2;
    extentY2 = pextent->y2;

    /* Branch on the type of drawable we have */
    switch (pDrawable->type) {
    case DRAWABLE_PIXMAP:

        SelectClipRgn(pGCPriv->hdcMem, combined);
        DeleteObject(combined);
        combined = NULL;

        /* Get a pixmap pointer from the drawable pointer, and fetch privates  */
        pPixmap = (PixmapPtr) pDrawable;
        pPixmapPriv = winGetPixmapPriv(pPixmap);

        /* Select the drawable pixmap into memory hdc */
        hbmpOrig = SelectObject(pGCPriv->hdcMem, pPixmapPriv->hBitmap);
        if (hbmpOrig == NULL)
            FatalError("winFillSpans - DRAWABLE_PIXMAP - "
                       "SelectObject () failed on\n\tpPixmapPriv->hBitmap: "
                       "%p\n", pPixmapPriv->hBitmap);

        /* Branch on the fill type */
        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);

            /* Give back the Pen */
            SelectObject(pGCPriv->hdcMem, hPenOrig);

            if (pDrawable->depth != 1)
                DeleteObject(hPen);
            break;

        case FillOpaqueStippled:

            pStipple = pGC->stipple;
            pStipplePriv = winGetPixmapPriv(pStipple);

            /* Create a device-dependent bitmap for the stipple */
            hBitmap = CreateDIBitmap(pGCPriv->hdcMem,
                                     (BITMAPINFOHEADER *) pStipplePriv->pbmih,
                                     CBM_INIT,
                                     pStipplePriv->pbBits,
                                     (BITMAPINFO *) pStipplePriv->pbmih,
                                     DIB_RGB_COLORS);

            /* Create a memory DC to hold the stipple */
            hdcStipple = CreateCompatibleDC(pGCPriv->hdcMem);

            /* Select the stipple bitmap into the stipple DC */
            hbmpOrigStipple = SelectObject(hdcStipple, hBitmap);
            if (hbmpOrigStipple == NULL)
                FatalError("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
                           "SelectObject () failed on hbmpOrigStipple\n");

            /* Make a temporary copy of the foreground and background colors */
            bg = pGC->bgPixel;
            fg = pGC->fgPixel;

            /* Translate the depth-dependent colors to Win32 COLORREFs */
            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]);
                }
            }

            /* Clear the stipple HDC */
            SelectObject(hdcStipple, hbmpOrigStipple);
            DeleteDC(hdcStipple);

            /* Delete the device dependent stipple bitmap */
            DeleteObject(hBitmap);

            break;
        case FillStippled:

            pStipple = pGC->stipple;
            pStipplePriv = winGetPixmapPriv(pStipple);

            /* Create a device-dependent bitmap for the stipple */
            hBitmap = CreateDIBitmap(pGCPriv->hdcMem,
                                     (BITMAPINFOHEADER *) pStipplePriv->pbmih,
                                     CBM_INIT,
                                     pStipplePriv->pbBits,
                                     (BITMAPINFO *) pStipplePriv->pbmih,
                                     DIB_RGB_COLORS);

            /* Create a memory DC to hold the stipple */
            hdcStipple = CreateCompatibleDC(pGCPriv->hdcMem);

            /* Select the stipple bitmap into the stipple DC */
            hbmpOrigStipple = SelectObject(hdcStipple, hBitmap);
            if (hbmpOrigStipple == NULL)
                FatalError("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
                           "SelectObject () failed on hbmpOrigStipple\n");

            /* Make a temporary copy of the foreground and background colors */
            bg = pGC->bgPixel;
            fg = pGC->fgPixel;

            /* Translate the depth-dependent colors to Win32 COLORREFs */
            TRANSLATE_COLOR(fg);
            TRANSLATE_COLOR(bg);

            /* this is fudgy, we should only invert on the last one
             * We need to get the black/white pixels right in the
             * colormap. But yeah ! it's working.. 
             */
            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]);
                }
            }

            /* Clear the stipple HDC */
            SelectObject(hdcStipple, hbmpOrigStipple);
            DeleteDC(hdcStipple);

            /* Delete the device dependent stipple bitmap */
            DeleteObject(hBitmap);

            /* Restore the background mode */
            SetBkMode(pGCPriv->hdcMem, OPAQUE);
            break;

        case FillTiled:

            /* Get a pixmap pointer from the tile pointer, and fetch privates  */
            pTile = (PixmapPtr) pGC->tile.pixmap;
            pTilePriv = winGetPixmapPriv(pTile);

            /* Create a memory DC to hold the tile */
            hdcTile = CreateCompatibleDC(pGCPriv->hdcMem);

            /* Select the tile into a DC */
            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]);
                }
            }

            /* Push the tile pixmap out of the memory HDC */
            SelectObject(hdcTile, hbmpOrig);

            /* Delete the tile */
            DeleteDC(hdcTile);
            break;

        default:
            ErrorF("winFillSpans - DRAWABLE_PIXMAP - Unknown fillStyle\n");
            break;
        }

        /* Reset clip region */
        SelectClipRgn(pGCPriv->hdcMem, NULL);

        /* Push the drawable pixmap out of the GC HDC */
        SelectObject(pGCPriv->hdcMem, hbmpOrig);
        break;

    case DRAWABLE_WINDOW:

        SelectClipRgn(pGCPriv->hdc, combined);
        DeleteObject(combined);
        combined = NULL;

        /* Branch on fill style */
        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);

            /* Give back the Brush */
            SelectObject(pGCPriv->hdc, hPenOrig);

            if (pDrawable->depth != 1)
                DeleteObject(hPen);
            break;

        case FillOpaqueStippled:

            pStipple = pGC->stipple;
            pStipplePriv = winGetPixmapPriv(pStipple);

            /* Create a device-dependent bitmap for the stipple */
            hBitmap = CreateDIBitmap(pGCPriv->hdc,
                                     (BITMAPINFOHEADER *) pStipplePriv->pbmih,
                                     CBM_INIT,
                                     pStipplePriv->pbBits,
                                     (BITMAPINFO *) pStipplePriv->pbmih,
                                     DIB_RGB_COLORS);

            /* Create a memory DC to hold the stipple */
            hdcStipple = CreateCompatibleDC(pGCPriv->hdc);

            /* Select the stipple bitmap into the stipple DC */
            hbmpOrigStipple = SelectObject(hdcStipple, hBitmap);
            if (hbmpOrigStipple == NULL)
                FatalError("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
                           "SelectObject () failed on hbmpOrigStipple\n");

            /* Make a temporary copy of the foreground and background colors */
            bg = pGC->bgPixel;
            fg = pGC->fgPixel;

            /* Translate the depth-dependent colors to Win32 COLORREFs */
            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]);
                }
            }

            /* Clear the stipple HDC */
            SelectObject(hdcStipple, hbmpOrigStipple);
            DeleteDC(hdcStipple);

            /* Delete the device dependent stipple bitmap */
            DeleteObject(hBitmap);

            break;

        case FillStippled:
            pStipple = pGC->stipple;
            pStipplePriv = winGetPixmapPriv(pStipple);

            /* Create a device-dependent bitmap for the stipple */
            hBitmap = CreateDIBitmap(pGCPriv->hdcMem,
                                     (BITMAPINFOHEADER *) pStipplePriv->pbmih,
                                     CBM_INIT,
                                     pStipplePriv->pbBits,
                                     (BITMAPINFO *) pStipplePriv->pbmih,
                                     DIB_RGB_COLORS);

            /* Create a memory DC to hold the stipple */
            hdcStipple = CreateCompatibleDC(pGCPriv->hdc);

            /* Select the stipple bitmap into the stipple DC */
            hbmpOrigStipple = SelectObject(hdcStipple, hBitmap);
            if (hbmpOrigStipple == NULL)
                FatalError("winFillSpans () - DRAWABLE_PIXMAP - FillStippled - "
                           "SelectObject () failed on hbmpOrigStipple\n");

            /* Make a temporary copy of the foreground and background colors */
            bg = pGC->bgPixel;
            fg = pGC->fgPixel;

            /* Translate the depth-dependent colors to Win32 COLORREFs */
            TRANSLATE_COLOR(fg);
            TRANSLATE_COLOR(bg);

            /* this is fudgy, we should only invert on the last one
             * We need to get the black/white pixels right in the
             * colormap. But yeah ! it's working.. 
             */
            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]);
                }
            }

            /* Clear the stipple HDC */
            SelectObject(hdcStipple, hbmpOrigStipple);
            DeleteDC(hdcStipple);

            /* Delete the device dependent stipple bitmap */
            DeleteObject(hBitmap);

            /* Restore the background mode */
            SetBkMode(pGCPriv->hdc, OPAQUE);
            break;

        case FillTiled:

            /* Get a pixmap pointer from the tile pointer, and fetch privates  */
            pTile = (PixmapPtr) pGC->tile.pixmap;
            pTilePriv = winGetPixmapPriv(pTile);

            /* Select the tile into a DC */
            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]);
                }
            }

            /* Push the tile pixmap out of the memory HDC */
            SelectObject(pGCPriv->hdcMem, hbmpOrig);
            break;

        default:
            ErrorF("winFillSpans - DRAWABLE_WINDOW - Unknown fillStyle\n");
            break;
        }

        /* Reset clip region */
        SelectClipRgn(pGCPriv->hdc, NULL);
        break;

    default:
        ErrorF("winFillSpans - Unknown drawable type\n");
        break;
    }
}