#include "SDL_compat.h"

SDL_Surface *

SDL_CreateRGBSurface(Uint32 flags,

                     int width, int height, int depth,

                     Uint32 Rmask, Uint32 Gmask, Uint32 Bmask, Uint32 Amask)

    SDL_Surface *surface;

    /* Allocate the surface */

    surface = (SDL_Surface *) SDL_malloc(sizeof(*surface));

    if (surface == NULL) {

        SDL_OutOfMemory();

        return NULL;

    }

    SDL_zerop(surface);

    surface->format = SDL_AllocFormat(depth, Rmask, Gmask, Bmask, Amask);

    if (!surface->format) {

        SDL_FreeSurface(surface);

        return NULL;

    }

    if (Amask) {

        surface->flags |= SDL_SRCALPHA;

    }

    surface->w = width;

    surface->h = height;

    surface->pitch = SDL_CalculatePitch(surface);

    SDL_SetClipRect(surface, NULL);

    if (surface->format->BitsPerPixel <= 8) {

        SDL_Palette *palette =

            SDL_AllocPalette((1 << surface->format->BitsPerPixel));

        if (!palette) {

            SDL_FreeSurface(surface);

            return NULL;

        }

        if (Rmask || Bmask || Gmask) {

            const SDL_PixelFormat *format = surface->format;

            /* create palette according to masks */

            int i;

            int Rm = 0, Gm = 0, Bm = 0;

            int Rw = 0, Gw = 0, Bw = 0;

            if (Rmask) {

                Rw = 8 - format->Rloss;

                for (i = format->Rloss; i > 0; i -= Rw)

                    Rm |= 1 << i;

            }

            if (Gmask) {

                Gw = 8 - format->Gloss;

                for (i = format->Gloss; i > 0; i -= Gw)

                    Gm |= 1 << i;

            }

            if (Bmask) {

                Bw = 8 - format->Bloss;

                for (i = format->Bloss; i > 0; i -= Bw)

                    Bm |= 1 << i;

            }

            for (i = 0; i < palette->ncolors; ++i) {

                int r, g, b;

                r = (i & Rmask) >> format->Rshift;

                r = (r << format->Rloss) | ((r * Rm) >> Rw);

                palette->colors[i].r = r;

                g = (i & Gmask) >> format->Gshift;

                g = (g << format->Gloss) | ((g * Gm) >> Gw);

                palette->colors[i].g = g;

                b = (i & Bmask) >> format->Bshift;

                b = (b << format->Bloss) | ((b * Bm) >> Bw);

                palette->colors[i].b = b;

            }

        } else if (palette->ncolors == 2) {

            /* Create a black and white bitmap palette */

            palette->colors[0].r = 0xFF;

            palette->colors[0].g = 0xFF;

            palette->colors[0].b = 0xFF;

            palette->colors[1].r = 0x00;

            palette->colors[1].g = 0x00;

            palette->colors[1].b = 0x00;

        }

        SDL_SetSurfacePalette(surface, palette);

        SDL_FreePalette(palette);

    }

    /* Get the pixels */

    if (surface->w && surface->h) {

        surface->pixels = SDL_malloc(surface->h * surface->pitch);

        if (!surface->pixels) {

            SDL_FreeSurface(surface);

            SDL_OutOfMemory();

            return NULL;

        }

        /* This is important for bitmaps */

        SDL_memset(surface->pixels, 0, surface->h * surface->pitch);

    }

    /* Allocate an empty mapping */

    surface->map = SDL_AllocBlitMap();

    if (!surface->map) {

        SDL_FreeSurface(surface);

        return NULL;

    }

    SDL_FormatChanged(surface);

    /* The surface is ready to go */

    surface->refcount = 1;

    ++surfaces_allocated;

    return surface;

SDL_Surface *

SDL_CreateRGBSurfaceFrom(void *pixels,

                         int width, int height, int depth, int pitch,

                         Uint32 Rmask, Uint32 Gmask, Uint32 Bmask,

                         Uint32 Amask)

    SDL_Surface *surface;

    surface =

        SDL_CreateRGBSurface(0, 0, 0, depth, Rmask, Gmask, Bmask, Amask);

    if (surface != NULL) {

        surface->flags |= SDL_PREALLOC;

        surface->pixels = pixels;

        surface->w = width;

        surface->h = height;

        surface->pitch = pitch;

        SDL_SetClipRect(surface, NULL);

    }

    return surface;

}

SDL_Surface *

SDL_CreateRGBSurfaceFromTexture(SDL_TextureID textureID)

{

    SDL_Surface *surface;

    Uint32 format;

    int w, h;

    int bpp;

    Uint32 Rmask, Gmask, Bmask, Amask;

    void *pixels;

    int pitch;

    if (SDL_QueryTexture(textureID, &format, NULL, &w, &h) < 0) {

        return NULL;

    }

    if (!SDL_PixelFormatEnumToMasks

        (format, &bpp, &Rmask, &Gmask, &Bmask, &Amask)) {

        SDL_SetError("Unknown texture format");

        return NULL;

    }

    if (SDL_QueryTexturePixels(textureID, &pixels, &pitch) == 0) {

        surface =

            SDL_CreateRGBSurfaceFrom(pixels, w, h, bpp, pitch, Rmask, Gmask,

                                     Bmask, Amask);

    } else {

        surface =

            SDL_CreateRGBSurface(0, 0, 0, bpp, Rmask, Gmask, Bmask, Amask);

        if (surface) {

            surface->flags |= SDL_HWSURFACE;

            surface->w = w;

            surface->h = h;

            surface->pitch = SDL_CalculatePitch(surface);

            SDL_SetClipRect(surface, NULL);

        }

    }

    if (surface) {

        surface->textureID = textureID;

    }

    return surface;

static int

SDL_SurfacePaletteChanged(void *userdata, SDL_Palette * palette)

{

    SDL_Surface *surface = (SDL_Surface *) userdata;

    if (surface->textureID) {

        if (SDL_SetTexturePalette

            (surface->textureID, palette->colors, 0, palette->ncolors) < 0) {

            SDL_GetTexturePalette(surface->textureID, palette->colors, 0,

                                  palette->ncolors);

            return -1;

        }

    }

    SDL_FormatChanged(surface);

    return 0;

}

int

SDL_SetSurfacePalette(SDL_Surface * surface, SDL_Palette * palette)

{

    if (!surface || !surface->format) {

        SDL_SetError("SDL_SetSurfacePalette() passed a NULL surface");

        return -1;

    }

    if (palette && palette->ncolors != (1 << surface->format->BitsPerPixel)) {

        SDL_SetError

            ("SDL_SetSurfacePalette() passed a palette that doesn't match the surface format");

        return -1;

    }

    if (surface->format->palette == palette) {

        return 0;

    }

    if (surface->format->palette) {

        SDL_DelPaletteWatch(surface->format->palette,

                            SDL_SurfacePaletteChanged, surface);

    }

    surface->format->palette = palette;

    if (surface->format->palette) {

        SDL_AddPaletteWatch(surface->format->palette,

                            SDL_SurfacePaletteChanged, surface);

    }

    return 0;

}

int

SDL_SetColorKey(SDL_Surface * surface, Uint32 flag, Uint32 key)

    /* Sanity check the flag as it gets passed in */

    if (flag & SDL_SRCCOLORKEY) {

        if (flag & (SDL_RLEACCEL | SDL_RLEACCELOK)) {

            flag = (SDL_SRCCOLORKEY | SDL_RLEACCELOK);

        } else {

            flag = SDL_SRCCOLORKEY;

        }

    } else {

        flag = 0;

    }

    /* Optimize away operations that don't change anything */

    if ((flag == (surface->flags & (SDL_SRCCOLORKEY | SDL_RLEACCELOK))) &&

        (key == surface->format->colorkey)) {

        return (0);

    }

    /* UnRLE surfaces before we change the colorkey */

    if (surface->flags & SDL_RLEACCEL) {

        SDL_UnRLESurface(surface, 1);

    }

    if (flag) {

        surface->flags |= SDL_SRCCOLORKEY;

        surface->format->colorkey = key;

        if (flag & SDL_RLEACCELOK) {

            surface->flags |= SDL_RLEACCELOK;

        } else {

            surface->flags &= ~SDL_RLEACCELOK;

        }

    } else {

        surface->flags &= ~(SDL_SRCCOLORKEY | SDL_RLEACCELOK);

        surface->format->colorkey = 0;

    }

    SDL_InvalidateMap(surface->map);

    return (0);

int

SDL_SetAlpha(SDL_Surface * surface, Uint32 flag, Uint8 value)

    Uint32 oldflags = surface->flags;

    Uint32 oldalpha = surface->format->alpha;

    /* Sanity check the flag as it gets passed in */

    if (flag & SDL_SRCALPHA) {

        if (flag & (SDL_RLEACCEL | SDL_RLEACCELOK)) {

            flag = (SDL_SRCALPHA | SDL_RLEACCELOK);

        } else {

            flag = SDL_SRCALPHA;

        }

    } else {

        flag = 0;

    }

    /* Optimize away operations that don't change anything */

    if ((flag == (surface->flags & (SDL_SRCALPHA | SDL_RLEACCELOK))) &&

        (!flag || value == oldalpha)) {

        return (0);

    }

    if (!(flag & SDL_RLEACCELOK) && (surface->flags & SDL_RLEACCEL))

        SDL_UnRLESurface(surface, 1);

    if (flag) {

        surface->flags |= SDL_SRCALPHA;

        surface->format->alpha = value;

        if (flag & SDL_RLEACCELOK) {

            surface->flags |= SDL_RLEACCELOK;

        } else {

            surface->flags &= ~SDL_RLEACCELOK;

        }

    } else {

        surface->flags &= ~SDL_SRCALPHA;

        surface->format->alpha = SDL_ALPHA_OPAQUE;

    }

    /*

     * The representation for software surfaces is independent of

     * per-surface alpha, so no need to invalidate the blit mapping

     * if just the alpha value was changed. (If either is 255, we still

     * need to invalidate.)

     */

    if (oldflags != surface->flags

        || (((oldalpha + 1) ^ (value + 1)) & 0x100)) {

        SDL_InvalidateMap(surface->map);

    }

    return (0);

int

SDL_SetAlphaChannel(SDL_Surface * surface, Uint8 value)

    int row, col;

    int offset;

    Uint8 *buf;

    if ((surface->format->Amask != 0xFF000000) &&

        (surface->format->Amask != 0x000000FF)) {

        SDL_SetError("Unsupported surface alpha mask format");

        return -1;

    }

    if (surface->format->Amask == 0xFF000000) {

        offset = 3;

    } else {

        offset = 0;

    }

    if (surface->format->Amask == 0xFF000000) {

        offset = 0;

    } else {

        offset = 3;

    }

    /* Quickly set the alpha channel of an RGBA or ARGB surface */

    if (SDL_MUSTLOCK(surface)) {

        if (SDL_LockSurface(surface) < 0) {

            return -1;

        }

    }

    row = surface->h;

    while (row--) {

        col = surface->w;

        buf = (Uint8 *) surface->pixels + row * surface->pitch + offset;

        while (col--) {

            *buf = value;

            buf += 4;

        }

    }

    if (SDL_MUSTLOCK(surface)) {

        SDL_UnlockSurface(surface);

    }

    return 0;

SDL_bool

SDL_SetClipRect(SDL_Surface * surface, const SDL_Rect * rect)

    SDL_Rect full_rect;

    /* Don't do anything if there's no surface to act on */

    if (!surface) {

        return SDL_FALSE;

    }

    /* Set up the full surface rectangle */

    full_rect.x = 0;

    full_rect.y = 0;

    full_rect.w = surface->w;

    full_rect.h = surface->h;

    /* Set the clipping rectangle */

    if (!rect) {

        surface->clip_rect = full_rect;

        return 1;

    }

    return SDL_IntersectRect(rect, &full_rect, &surface->clip_rect);

}

void

SDL_GetClipRect(SDL_Surface * surface, SDL_Rect * rect)

{

    if (surface && rect) {

        *rect = surface->clip_rect;

    }

int

SDL_LowerBlit(SDL_Surface * src, SDL_Rect * srcrect,

              SDL_Surface * dst, SDL_Rect * dstrect)

    /* Check to make sure the blit mapping is valid */

    if ((src->map->dst != dst) ||

        (src->map->dst->format_version != src->map->format_version)) {

        if (SDL_MapSurface(src, dst) < 0) {

            return (-1);

        }

    }

    return (src->map->sw_blit(src, srcrect, dst, dstrect));

int

SDL_UpperBlit(SDL_Surface * src, SDL_Rect * srcrect,

              SDL_Surface * dst, SDL_Rect * dstrect)

    SDL_Rect fulldst;

    int srcx, srcy, w, h;

    /* Make sure the surfaces aren't locked */

    if (!src || !dst) {

        SDL_SetError("SDL_UpperBlit: passed a NULL surface");

        return (-1);

    }

    if (src->locked || dst->locked) {

        SDL_SetError("Surfaces must not be locked during blit");

        return (-1);

    }

    /* If the destination rectangle is NULL, use the entire dest surface */

    if (dstrect == NULL) {

        fulldst.x = fulldst.y = 0;

        dstrect = &fulldst;

    }

    /* clip the source rectangle to the source surface */