alphatau 0.1.0

data/ext/alphatau/native/sdl/src/video/SDL_pixels.c

@@ -0,0 +1,1125 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../SDL_internal.h"
+
+/* General (mostly internal) pixel/color manipulation routines for SDL */
+
+#include "SDL_endian.h"
+#include "SDL_video.h"
+#include "SDL_sysvideo.h"
+#include "SDL_blit.h"
+#include "SDL_pixels_c.h"
+#include "SDL_RLEaccel_c.h"
+
+
+/* Lookup tables to expand partial bytes to the full 0..255 range */
+
+static Uint8 lookup_0[] = {
+0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255
+};
+
+static Uint8 lookup_1[] = {
+0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148, 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190, 192, 194, 196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224, 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248, 250, 252, 255
+};
+
+static Uint8 lookup_2[] = {
+0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 85, 89, 93, 97, 101, 105, 109, 113, 117, 121, 125, 129, 133, 137, 141, 145, 149, 153, 157, 161, 165, 170, 174, 178, 182, 186, 190, 194, 198, 202, 206, 210, 214, 218, 222, 226, 230, 234, 238, 242, 246, 250, 255
+};
+
+static Uint8 lookup_3[] = {
+0, 8, 16, 24, 32, 41, 49, 57, 65, 74, 82, 90, 98, 106, 115, 123, 131, 139, 148, 156, 164, 172, 180, 189, 197, 205, 213, 222, 230, 238, 246, 255
+};
+
+static Uint8 lookup_4[] = {
+0, 17, 34, 51, 68, 85, 102, 119, 136, 153, 170, 187, 204, 221, 238, 255
+};
+
+static Uint8 lookup_5[] = {
+0, 36, 72, 109, 145, 182, 218, 255
+};
+
+static Uint8 lookup_6[] = {
+0, 85, 170, 255
+};
+
+static Uint8 lookup_7[] = {
+0, 255
+};
+
+static Uint8 lookup_8[] = {
+255
+};
+
+Uint8* SDL_expand_byte[9] = {
+    lookup_0,
+    lookup_1,
+    lookup_2,
+    lookup_3,
+    lookup_4,
+    lookup_5,
+    lookup_6,
+    lookup_7,
+    lookup_8
+};
+
+/* Helper functions */
+
+const char*
+SDL_GetPixelFormatName(Uint32 format)
+{
+    switch (format) {
+#define CASE(X) case X: return #X;
+    CASE(SDL_PIXELFORMAT_INDEX1LSB)
+    CASE(SDL_PIXELFORMAT_INDEX1MSB)
+    CASE(SDL_PIXELFORMAT_INDEX4LSB)
+    CASE(SDL_PIXELFORMAT_INDEX4MSB)
+    CASE(SDL_PIXELFORMAT_INDEX8)
+    CASE(SDL_PIXELFORMAT_RGB332)
+    CASE(SDL_PIXELFORMAT_RGB444)
+    CASE(SDL_PIXELFORMAT_RGB555)
+    CASE(SDL_PIXELFORMAT_BGR555)
+    CASE(SDL_PIXELFORMAT_ARGB4444)
+    CASE(SDL_PIXELFORMAT_RGBA4444)
+    CASE(SDL_PIXELFORMAT_ABGR4444)
+    CASE(SDL_PIXELFORMAT_BGRA4444)
+    CASE(SDL_PIXELFORMAT_ARGB1555)
+    CASE(SDL_PIXELFORMAT_RGBA5551)
+    CASE(SDL_PIXELFORMAT_ABGR1555)
+    CASE(SDL_PIXELFORMAT_BGRA5551)
+    CASE(SDL_PIXELFORMAT_RGB565)
+    CASE(SDL_PIXELFORMAT_BGR565)
+    CASE(SDL_PIXELFORMAT_RGB24)
+    CASE(SDL_PIXELFORMAT_BGR24)
+    CASE(SDL_PIXELFORMAT_RGB888)
+    CASE(SDL_PIXELFORMAT_RGBX8888)
+    CASE(SDL_PIXELFORMAT_BGR888)
+    CASE(SDL_PIXELFORMAT_BGRX8888)
+    CASE(SDL_PIXELFORMAT_ARGB8888)
+    CASE(SDL_PIXELFORMAT_RGBA8888)
+    CASE(SDL_PIXELFORMAT_ABGR8888)
+    CASE(SDL_PIXELFORMAT_BGRA8888)
+    CASE(SDL_PIXELFORMAT_ARGB2101010)
+    CASE(SDL_PIXELFORMAT_YV12)
+    CASE(SDL_PIXELFORMAT_IYUV)
+    CASE(SDL_PIXELFORMAT_YUY2)
+    CASE(SDL_PIXELFORMAT_UYVY)
+    CASE(SDL_PIXELFORMAT_YVYU)
+    CASE(SDL_PIXELFORMAT_NV12)
+    CASE(SDL_PIXELFORMAT_NV21)
+#undef CASE
+    default:
+        return "SDL_PIXELFORMAT_UNKNOWN";
+    }
+}
+
+SDL_bool
+SDL_PixelFormatEnumToMasks(Uint32 format, int *bpp, Uint32 * Rmask,
+                           Uint32 * Gmask, Uint32 * Bmask, Uint32 * Amask)
+{
+    Uint32 masks[4];
+
+    /* This function doesn't work with FourCC pixel formats */
+    if (SDL_ISPIXELFORMAT_FOURCC(format)) {
+        SDL_SetError("FOURCC pixel formats are not supported");
+        return SDL_FALSE;
+    }
+
+    /* Initialize the values here */
+    if (SDL_BYTESPERPIXEL(format) <= 2) {
+        *bpp = SDL_BITSPERPIXEL(format);
+    } else {
+        *bpp = SDL_BYTESPERPIXEL(format) * 8;
+    }
+    *Rmask = *Gmask = *Bmask = *Amask = 0;
+
+    if (format == SDL_PIXELFORMAT_RGB24) {
+#if SDL_BYTEORDER == SDL_BIG_ENDIAN
+        *Rmask = 0x00FF0000;
+        *Gmask = 0x0000FF00;
+        *Bmask = 0x000000FF;
+#else
+        *Rmask = 0x000000FF;
+        *Gmask = 0x0000FF00;
+        *Bmask = 0x00FF0000;
+#endif
+        return SDL_TRUE;
+    }
+
+    if (format == SDL_PIXELFORMAT_BGR24) {
+#if SDL_BYTEORDER == SDL_BIG_ENDIAN
+        *Rmask = 0x000000FF;
+        *Gmask = 0x0000FF00;
+        *Bmask = 0x00FF0000;
+#else
+        *Rmask = 0x00FF0000;
+        *Gmask = 0x0000FF00;
+        *Bmask = 0x000000FF;
+#endif
+        return SDL_TRUE;
+    }
+
+    if (SDL_PIXELTYPE(format) != SDL_PIXELTYPE_PACKED8 &&
+        SDL_PIXELTYPE(format) != SDL_PIXELTYPE_PACKED16 &&
+        SDL_PIXELTYPE(format) != SDL_PIXELTYPE_PACKED32) {
+        /* Not a format that uses masks */
+        return SDL_TRUE;
+    }
+
+    switch (SDL_PIXELLAYOUT(format)) {
+    case SDL_PACKEDLAYOUT_332:
+        masks[0] = 0x00000000;
+        masks[1] = 0x000000E0;
+        masks[2] = 0x0000001C;
+        masks[3] = 0x00000003;
+        break;
+    case SDL_PACKEDLAYOUT_4444:
+        masks[0] = 0x0000F000;
+        masks[1] = 0x00000F00;
+        masks[2] = 0x000000F0;
+        masks[3] = 0x0000000F;
+        break;
+    case SDL_PACKEDLAYOUT_1555:
+        masks[0] = 0x00008000;
+        masks[1] = 0x00007C00;
+        masks[2] = 0x000003E0;
+        masks[3] = 0x0000001F;
+        break;
+    case SDL_PACKEDLAYOUT_5551:
+        masks[0] = 0x0000F800;
+        masks[1] = 0x000007C0;
+        masks[2] = 0x0000003E;
+        masks[3] = 0x00000001;
+        break;
+    case SDL_PACKEDLAYOUT_565:
+        masks[0] = 0x00000000;
+        masks[1] = 0x0000F800;
+        masks[2] = 0x000007E0;
+        masks[3] = 0x0000001F;
+        break;
+    case SDL_PACKEDLAYOUT_8888:
+        masks[0] = 0xFF000000;
+        masks[1] = 0x00FF0000;
+        masks[2] = 0x0000FF00;
+        masks[3] = 0x000000FF;
+        break;
+    case SDL_PACKEDLAYOUT_2101010:
+        masks[0] = 0xC0000000;
+        masks[1] = 0x3FF00000;
+        masks[2] = 0x000FFC00;
+        masks[3] = 0x000003FF;
+        break;
+    case SDL_PACKEDLAYOUT_1010102:
+        masks[0] = 0xFFC00000;
+        masks[1] = 0x003FF000;
+        masks[2] = 0x00000FFC;
+        masks[3] = 0x00000003;
+        break;
+    default:
+        SDL_SetError("Unknown pixel format");
+        return SDL_FALSE;
+    }
+
+    switch (SDL_PIXELORDER(format)) {
+    case SDL_PACKEDORDER_XRGB:
+        *Rmask = masks[1];
+        *Gmask = masks[2];
+        *Bmask = masks[3];
+        break;
+    case SDL_PACKEDORDER_RGBX:
+        *Rmask = masks[0];
+        *Gmask = masks[1];
+        *Bmask = masks[2];
+        break;
+    case SDL_PACKEDORDER_ARGB:
+        *Amask = masks[0];
+        *Rmask = masks[1];
+        *Gmask = masks[2];
+        *Bmask = masks[3];
+        break;
+    case SDL_PACKEDORDER_RGBA:
+        *Rmask = masks[0];
+        *Gmask = masks[1];
+        *Bmask = masks[2];
+        *Amask = masks[3];
+        break;
+    case SDL_PACKEDORDER_XBGR:
+        *Bmask = masks[1];
+        *Gmask = masks[2];
+        *Rmask = masks[3];
+        break;
+    case SDL_PACKEDORDER_BGRX:
+        *Bmask = masks[0];
+        *Gmask = masks[1];
+        *Rmask = masks[2];
+        break;
+    case SDL_PACKEDORDER_BGRA:
+        *Bmask = masks[0];
+        *Gmask = masks[1];
+        *Rmask = masks[2];
+        *Amask = masks[3];
+        break;
+    case SDL_PACKEDORDER_ABGR:
+        *Amask = masks[0];
+        *Bmask = masks[1];
+        *Gmask = masks[2];
+        *Rmask = masks[3];
+        break;
+    default:
+        SDL_SetError("Unknown pixel format");
+        return SDL_FALSE;
+    }
+    return SDL_TRUE;
+}
+
+Uint32
+SDL_MasksToPixelFormatEnum(int bpp, Uint32 Rmask, Uint32 Gmask, Uint32 Bmask,
+                           Uint32 Amask)
+{
+    switch (bpp) {
+    case 1:
+        /* SDL defaults to MSB ordering */
+        return SDL_PIXELFORMAT_INDEX1MSB;
+    case 4:
+        /* SDL defaults to MSB ordering */
+        return SDL_PIXELFORMAT_INDEX4MSB;
+    case 8:
+        if (Rmask == 0) {
+            return SDL_PIXELFORMAT_INDEX8;
+        }
+        if (Rmask == 0xE0 &&
+            Gmask == 0x1C &&
+            Bmask == 0x03 &&
+            Amask == 0x00) {
+            return SDL_PIXELFORMAT_RGB332;
+        }
+        break;
+    case 12:
+        if (Rmask == 0) {
+            return SDL_PIXELFORMAT_RGB444;
+        }
+        if (Rmask == 0x0F00 &&
+            Gmask == 0x00F0 &&
+            Bmask == 0x000F &&
+            Amask == 0x0000) {
+            return SDL_PIXELFORMAT_RGB444;
+        }
+        break;
+    case 15:
+        if (Rmask == 0) {
+            return SDL_PIXELFORMAT_RGB555;
+        }
+	/* fallthrough */
+    case 16:
+        if (Rmask == 0) {
+            return SDL_PIXELFORMAT_RGB565;
+        }
+        if (Rmask == 0x7C00 &&
+            Gmask == 0x03E0 &&
+            Bmask == 0x001F &&
+            Amask == 0x0000) {
+            return SDL_PIXELFORMAT_RGB555;
+        }
+        if (Rmask == 0x001F &&
+            Gmask == 0x03E0 &&
+            Bmask == 0x7C00 &&
+            Amask == 0x0000) {
+            return SDL_PIXELFORMAT_BGR555;
+        }
+        if (Rmask == 0x0F00 &&
+            Gmask == 0x00F0 &&
+            Bmask == 0x000F &&
+            Amask == 0xF000) {
+            return SDL_PIXELFORMAT_ARGB4444;
+        }
+        if (Rmask == 0xF000 &&
+            Gmask == 0x0F00 &&
+            Bmask == 0x00F0 &&
+            Amask == 0x000F) {
+            return SDL_PIXELFORMAT_RGBA4444;
+        }
+        if (Rmask == 0x000F &&
+            Gmask == 0x00F0 &&
+            Bmask == 0x0F00 &&
+            Amask == 0xF000) {
+            return SDL_PIXELFORMAT_ABGR4444;
+        }
+        if (Rmask == 0x00F0 &&
+            Gmask == 0x0F00 &&
+            Bmask == 0xF000 &&
+            Amask == 0x000F) {
+            return SDL_PIXELFORMAT_BGRA4444;
+        }
+        if (Rmask == 0x7C00 &&
+            Gmask == 0x03E0 &&
+            Bmask == 0x001F &&
+            Amask == 0x8000) {
+            return SDL_PIXELFORMAT_ARGB1555;
+        }
+        if (Rmask == 0xF800 &&
+            Gmask == 0x07C0 &&
+            Bmask == 0x003E &&
+            Amask == 0x0001) {
+            return SDL_PIXELFORMAT_RGBA5551;
+        }
+        if (Rmask == 0x001F &&
+            Gmask == 0x03E0 &&
+            Bmask == 0x7C00 &&
+            Amask == 0x8000) {
+            return SDL_PIXELFORMAT_ABGR1555;
+        }
+        if (Rmask == 0x003E &&
+            Gmask == 0x07C0 &&
+            Bmask == 0xF800 &&
+            Amask == 0x0001) {
+            return SDL_PIXELFORMAT_BGRA5551;
+        }
+        if (Rmask == 0xF800 &&
+            Gmask == 0x07E0 &&
+            Bmask == 0x001F &&
+            Amask == 0x0000) {
+            return SDL_PIXELFORMAT_RGB565;
+        }
+        if (Rmask == 0x001F &&
+            Gmask == 0x07E0 &&
+            Bmask == 0xF800 &&
+            Amask == 0x0000) {
+            return SDL_PIXELFORMAT_BGR565;
+        }
+        if (Rmask == 0x003F &&
+            Gmask == 0x07C0 &&
+            Bmask == 0xF800 &&
+            Amask == 0x0000) {
+            /* Technically this would be BGR556, but Witek says this works in bug 3158 */
+            return SDL_PIXELFORMAT_RGB565;
+        }
+        break;
+    case 24:
+        switch (Rmask) {
+        case 0:
+        case 0x00FF0000:
+#if SDL_BYTEORDER == SDL_BIG_ENDIAN
+            return SDL_PIXELFORMAT_RGB24;
+#else
+            return SDL_PIXELFORMAT_BGR24;
+#endif
+        case 0x000000FF:
+#if SDL_BYTEORDER == SDL_BIG_ENDIAN
+            return SDL_PIXELFORMAT_BGR24;
+#else
+            return SDL_PIXELFORMAT_RGB24;
+#endif
+        }
+    case 32:
+        if (Rmask == 0) {
+            return SDL_PIXELFORMAT_RGB888;
+        }
+        if (Rmask == 0x00FF0000 &&
+            Gmask == 0x0000FF00 &&
+            Bmask == 0x000000FF &&
+            Amask == 0x00000000) {
+            return SDL_PIXELFORMAT_RGB888;
+        }
+        if (Rmask == 0xFF000000 &&
+            Gmask == 0x00FF0000 &&
+            Bmask == 0x0000FF00 &&
+            Amask == 0x00000000) {
+            return SDL_PIXELFORMAT_RGBX8888;
+        }
+        if (Rmask == 0x000000FF &&
+            Gmask == 0x0000FF00 &&
+            Bmask == 0x00FF0000 &&
+            Amask == 0x00000000) {
+            return SDL_PIXELFORMAT_BGR888;
+        }
+        if (Rmask == 0x0000FF00 &&
+            Gmask == 0x00FF0000 &&
+            Bmask == 0xFF000000 &&
+            Amask == 0x00000000) {
+            return SDL_PIXELFORMAT_BGRX8888;
+        }
+        if (Rmask == 0x00FF0000 &&
+            Gmask == 0x0000FF00 &&
+            Bmask == 0x000000FF &&
+            Amask == 0xFF000000) {
+            return SDL_PIXELFORMAT_ARGB8888;
+        }
+        if (Rmask == 0xFF000000 &&
+            Gmask == 0x00FF0000 &&
+            Bmask == 0x0000FF00 &&
+            Amask == 0x000000FF) {
+            return SDL_PIXELFORMAT_RGBA8888;
+        }
+        if (Rmask == 0x000000FF &&
+            Gmask == 0x0000FF00 &&
+            Bmask == 0x00FF0000 &&
+            Amask == 0xFF000000) {
+            return SDL_PIXELFORMAT_ABGR8888;
+        }
+        if (Rmask == 0x0000FF00 &&
+            Gmask == 0x00FF0000 &&
+            Bmask == 0xFF000000 &&
+            Amask == 0x000000FF) {
+            return SDL_PIXELFORMAT_BGRA8888;
+        }
+        if (Rmask == 0x3FF00000 &&
+            Gmask == 0x000FFC00 &&
+            Bmask == 0x000003FF &&
+            Amask == 0xC0000000) {
+            return SDL_PIXELFORMAT_ARGB2101010;
+        }
+    }
+    return SDL_PIXELFORMAT_UNKNOWN;
+}
+
+static SDL_PixelFormat *formats;
+static SDL_SpinLock formats_lock = 0;
+
+SDL_PixelFormat *
+SDL_AllocFormat(Uint32 pixel_format)
+{
+    SDL_PixelFormat *format;
+
+    SDL_AtomicLock(&formats_lock);
+
+    /* Look it up in our list of previously allocated formats */
+    for (format = formats; format; format = format->next) {
+        if (pixel_format == format->format) {
+            ++format->refcount;
+            SDL_AtomicUnlock(&formats_lock);
+            return format;
+        }
+    }
+
+    /* Allocate an empty pixel format structure, and initialize it */
+    format = SDL_malloc(sizeof(*format));
+    if (format == NULL) {
+        SDL_AtomicUnlock(&formats_lock);
+        SDL_OutOfMemory();
+        return NULL;
+    }
+    if (SDL_InitFormat(format, pixel_format) < 0) {
+        SDL_AtomicUnlock(&formats_lock);
+        SDL_free(format);
+        SDL_InvalidParamError("format");
+        return NULL;
+    }
+
+    if (!SDL_ISPIXELFORMAT_INDEXED(pixel_format)) {
+        /* Cache the RGB formats */
+        format->next = formats;
+        formats = format;
+    }
+
+    SDL_AtomicUnlock(&formats_lock);
+
+    return format;
+}
+
+int
+SDL_InitFormat(SDL_PixelFormat * format, Uint32 pixel_format)
+{
+    int bpp;
+    Uint32 Rmask, Gmask, Bmask, Amask;
+    Uint32 mask;
+
+    if (!SDL_PixelFormatEnumToMasks(pixel_format, &bpp,
+                                    &Rmask, &Gmask, &Bmask, &Amask)) {
+        return -1;
+    }
+
+    /* Set up the format */
+    SDL_zerop(format);
+    format->format = pixel_format;
+    format->BitsPerPixel = bpp;
+    format->BytesPerPixel = (bpp + 7) / 8;
+
+    format->Rmask = Rmask;
+    format->Rshift = 0;
+    format->Rloss = 8;
+    if (Rmask) {
+        for (mask = Rmask; !(mask & 0x01); mask >>= 1)
+            ++format->Rshift;
+        for (; (mask & 0x01); mask >>= 1)
+            --format->Rloss;
+    }
+
+    format->Gmask = Gmask;
+    format->Gshift = 0;
+    format->Gloss = 8;
+    if (Gmask) {
+        for (mask = Gmask; !(mask & 0x01); mask >>= 1)
+            ++format->Gshift;
+        for (; (mask & 0x01); mask >>= 1)
+            --format->Gloss;
+    }
+
+    format->Bmask = Bmask;
+    format->Bshift = 0;
+    format->Bloss = 8;
+    if (Bmask) {
+        for (mask = Bmask; !(mask & 0x01); mask >>= 1)
+            ++format->Bshift;
+        for (; (mask & 0x01); mask >>= 1)
+            --format->Bloss;
+    }
+
+    format->Amask = Amask;
+    format->Ashift = 0;
+    format->Aloss = 8;
+    if (Amask) {
+        for (mask = Amask; !(mask & 0x01); mask >>= 1)
+            ++format->Ashift;
+        for (; (mask & 0x01); mask >>= 1)
+            --format->Aloss;
+    }
+
+    format->palette = NULL;
+    format->refcount = 1;
+    format->next = NULL;
+
+    return 0;
+}
+
+void
+SDL_FreeFormat(SDL_PixelFormat *format)
+{
+    SDL_PixelFormat *prev;
+
+    if (!format) {
+        SDL_InvalidParamError("format");
+        return;
+    }
+
+    SDL_AtomicLock(&formats_lock);
+
+    if (--format->refcount > 0) {
+        SDL_AtomicUnlock(&formats_lock);
+        return;
+    }
+
+    /* Remove this format from our list */
+    if (format == formats) {
+        formats = format->next;
+    } else if (formats) {
+        for (prev = formats; prev->next; prev = prev->next) {
+            if (prev->next == format) {
+                prev->next = format->next;
+                break;
+            }
+        }
+    }
+
+    SDL_AtomicUnlock(&formats_lock);
+
+    if (format->palette) {
+        SDL_FreePalette(format->palette);
+    }
+    SDL_free(format);
+}
+
+SDL_Palette *
+SDL_AllocPalette(int ncolors)
+{
+    SDL_Palette *palette;
+
+    /* Input validation */
+    if (ncolors < 1) {
+      SDL_InvalidParamError("ncolors");
+      return NULL;
+    }
+
+    palette = (SDL_Palette *) SDL_malloc(sizeof(*palette));
+    if (!palette) {
+        SDL_OutOfMemory();
+        return NULL;
+    }
+    palette->colors =
+        (SDL_Color *) SDL_malloc(ncolors * sizeof(*palette->colors));
+    if (!palette->colors) {
+        SDL_free(palette);
+        return NULL;
+    }
+    palette->ncolors = ncolors;
+    palette->version = 1;
+    palette->refcount = 1;
+
+    SDL_memset(palette->colors, 0xFF, ncolors * sizeof(*palette->colors));
+
+    return palette;
+}
+
+int
+SDL_SetPixelFormatPalette(SDL_PixelFormat * format, SDL_Palette *palette)
+{
+    if (!format) {
+        return SDL_SetError("SDL_SetPixelFormatPalette() passed NULL format");
+    }
+
+    if (palette && palette->ncolors > (1 << format->BitsPerPixel)) {
+        return SDL_SetError("SDL_SetPixelFormatPalette() passed a palette that doesn't match the format");
+    }
+
+    if (format->palette == palette) {
+        return 0;
+    }
+
+    if (format->palette) {
+        SDL_FreePalette(format->palette);
+    }
+
+    format->palette = palette;
+
+    if (format->palette) {
+        ++format->palette->refcount;
+    }
+
+    return 0;
+}
+
+int
+SDL_SetPaletteColors(SDL_Palette * palette, const SDL_Color * colors,
+                     int firstcolor, int ncolors)
+{
+    int status = 0;
+
+    /* Verify the parameters */
+    if (!palette) {
+        return -1;
+    }
+    if (ncolors > (palette->ncolors - firstcolor)) {
+        ncolors = (palette->ncolors - firstcolor);
+        status = -1;
+    }
+
+    if (colors != (palette->colors + firstcolor)) {
+        SDL_memcpy(palette->colors + firstcolor, colors,
+                   ncolors * sizeof(*colors));
+    }
+    ++palette->version;
+    if (!palette->version) {
+        palette->version = 1;
+    }
+
+    return status;
+}
+
+void
+SDL_FreePalette(SDL_Palette * palette)
+{
+    if (!palette) {
+        SDL_InvalidParamError("palette");
+        return;
+    }
+    if (--palette->refcount > 0) {
+        return;
+    }
+    SDL_free(palette->colors);
+    SDL_free(palette);
+}
+
+/*
+ * Calculate an 8-bit (3 red, 3 green, 2 blue) dithered palette of colors
+ */
+void
+SDL_DitherColors(SDL_Color * colors, int bpp)
+{
+    int i;
+    if (bpp != 8)
+        return;                 /* only 8bpp supported right now */
+
+    for (i = 0; i < 256; i++) {
+        int r, g, b;
+        /* map each bit field to the full [0, 255] interval,
+           so 0 is mapped to (0, 0, 0) and 255 to (255, 255, 255) */
+        r = i & 0xe0;
+        r |= r >> 3 | r >> 6;
+        colors[i].r = r;
+        g = (i << 3) & 0xe0;
+        g |= g >> 3 | g >> 6;
+        colors[i].g = g;
+        b = i & 0x3;
+        b |= b << 2;
+        b |= b << 4;
+        colors[i].b = b;
+        colors[i].a = SDL_ALPHA_OPAQUE;
+    }
+}
+
+/*
+ * Match an RGB value to a particular palette index
+ */
+Uint8
+SDL_FindColor(SDL_Palette * pal, Uint8 r, Uint8 g, Uint8 b, Uint8 a)
+{
+    /* Do colorspace distance matching */
+    unsigned int smallest;
+    unsigned int distance;
+    int rd, gd, bd, ad;
+    int i;
+    Uint8 pixel = 0;
+
+    smallest = ~0;
+    for (i = 0; i < pal->ncolors; ++i) {
+        rd = pal->colors[i].r - r;
+        gd = pal->colors[i].g - g;
+        bd = pal->colors[i].b - b;
+        ad = pal->colors[i].a - a;
+        distance = (rd * rd) + (gd * gd) + (bd * bd) + (ad * ad);
+        if (distance < smallest) {
+            pixel = i;
+            if (distance == 0) {        /* Perfect match! */
+                break;
+            }
+            smallest = distance;
+        }
+    }
+    return (pixel);
+}
+
+/* Find the opaque pixel value corresponding to an RGB triple */
+Uint32
+SDL_MapRGB(const SDL_PixelFormat * format, Uint8 r, Uint8 g, Uint8 b)
+{
+    if (format->palette == NULL) {
+        return (r >> format->Rloss) << format->Rshift
+            | (g >> format->Gloss) << format->Gshift
+            | (b >> format->Bloss) << format->Bshift | format->Amask;
+    } else {
+        return SDL_FindColor(format->palette, r, g, b, SDL_ALPHA_OPAQUE);
+    }
+}
+
+/* Find the pixel value corresponding to an RGBA quadruple */
+Uint32
+SDL_MapRGBA(const SDL_PixelFormat * format, Uint8 r, Uint8 g, Uint8 b,
+            Uint8 a)
+{
+    if (format->palette == NULL) {
+        return (r >> format->Rloss) << format->Rshift
+            | (g >> format->Gloss) << format->Gshift
+            | (b >> format->Bloss) << format->Bshift
+            | ((a >> format->Aloss) << format->Ashift & format->Amask);
+    } else {
+        return SDL_FindColor(format->palette, r, g, b, a);
+    }
+}
+
+void
+SDL_GetRGB(Uint32 pixel, const SDL_PixelFormat * format, Uint8 * r, Uint8 * g,
+           Uint8 * b)
+{
+    if (format->palette == NULL) {
+        unsigned v;
+        v = (pixel & format->Rmask) >> format->Rshift;
+        *r = SDL_expand_byte[format->Rloss][v];
+        v = (pixel & format->Gmask) >> format->Gshift;
+        *g = SDL_expand_byte[format->Gloss][v];
+        v = (pixel & format->Bmask) >> format->Bshift;
+        *b = SDL_expand_byte[format->Bloss][v];
+    } else {
+        if (pixel < (unsigned)format->palette->ncolors) {
+            *r = format->palette->colors[pixel].r;
+            *g = format->palette->colors[pixel].g;
+            *b = format->palette->colors[pixel].b;
+        } else {
+            *r = *g = *b = 0;
+        }
+    }
+}
+
+void
+SDL_GetRGBA(Uint32 pixel, const SDL_PixelFormat * format,
+            Uint8 * r, Uint8 * g, Uint8 * b, Uint8 * a)
+{
+    if (format->palette == NULL) {
+        unsigned v;
+        v = (pixel & format->Rmask) >> format->Rshift;
+        *r = SDL_expand_byte[format->Rloss][v];
+        v = (pixel & format->Gmask) >> format->Gshift;
+        *g = SDL_expand_byte[format->Gloss][v];
+        v = (pixel & format->Bmask) >> format->Bshift;
+        *b = SDL_expand_byte[format->Bloss][v];
+        v = (pixel & format->Amask) >> format->Ashift;
+        *a = SDL_expand_byte[format->Aloss][v];
+    } else {
+        if (pixel < (unsigned)format->palette->ncolors) {
+            *r = format->palette->colors[pixel].r;
+            *g = format->palette->colors[pixel].g;
+            *b = format->palette->colors[pixel].b;
+            *a = format->palette->colors[pixel].a;
+        } else {
+            *r = *g = *b = *a = 0;
+        }
+    }
+}
+
+/* Map from Palette to Palette */
+static Uint8 *
+Map1to1(SDL_Palette * src, SDL_Palette * dst, int *identical)
+{
+    Uint8 *map;
+    int i;
+
+    if (identical) {
+        if (src->ncolors <= dst->ncolors) {
+            /* If an identical palette, no need to map */
+            if (src == dst
+                ||
+                (SDL_memcmp
+                 (src->colors, dst->colors,
+                  src->ncolors * sizeof(SDL_Color)) == 0)) {
+                *identical = 1;
+                return (NULL);
+            }
+        }
+        *identical = 0;
+    }
+    map = (Uint8 *) SDL_malloc(src->ncolors);
+    if (map == NULL) {
+        SDL_OutOfMemory();
+        return (NULL);
+    }
+    for (i = 0; i < src->ncolors; ++i) {
+        map[i] = SDL_FindColor(dst,
+                               src->colors[i].r, src->colors[i].g,
+                               src->colors[i].b, src->colors[i].a);
+    }
+    return (map);
+}
+
+/* Map from Palette to BitField */
+static Uint8 *
+Map1toN(SDL_PixelFormat * src, Uint8 Rmod, Uint8 Gmod, Uint8 Bmod, Uint8 Amod,
+        SDL_PixelFormat * dst)
+{
+    Uint8 *map;
+    int i;
+    int bpp;
+    SDL_Palette *pal = src->palette;
+
+    bpp = ((dst->BytesPerPixel == 3) ? 4 : dst->BytesPerPixel);
+    map = (Uint8 *) SDL_malloc(pal->ncolors * bpp);
+    if (map == NULL) {
+        SDL_OutOfMemory();
+        return (NULL);
+    }
+
+    /* We memory copy to the pixel map so the endianness is preserved */
+    for (i = 0; i < pal->ncolors; ++i) {
+        Uint8 R = (Uint8) ((pal->colors[i].r * Rmod) / 255);
+        Uint8 G = (Uint8) ((pal->colors[i].g * Gmod) / 255);
+        Uint8 B = (Uint8) ((pal->colors[i].b * Bmod) / 255);
+        Uint8 A = (Uint8) ((pal->colors[i].a * Amod) / 255);
+        ASSEMBLE_RGBA(&map[i * bpp], dst->BytesPerPixel, dst, R, G, B, A);
+    }
+    return (map);
+}
+
+/* Map from BitField to Dithered-Palette to Palette */
+static Uint8 *
+MapNto1(SDL_PixelFormat * src, SDL_PixelFormat * dst, int *identical)
+{
+    /* Generate a 256 color dither palette */
+    SDL_Palette dithered;
+    SDL_Color colors[256];
+    SDL_Palette *pal = dst->palette;
+
+    dithered.ncolors = 256;
+    SDL_DitherColors(colors, 8);
+    dithered.colors = colors;
+    return (Map1to1(&dithered, pal, identical));
+}
+
+SDL_BlitMap *
+SDL_AllocBlitMap(void)
+{
+    SDL_BlitMap *map;
+
+    /* Allocate the empty map */
+    map = (SDL_BlitMap *) SDL_calloc(1, sizeof(*map));
+    if (map == NULL) {
+        SDL_OutOfMemory();
+        return (NULL);
+    }
+    map->info.r = 0xFF;
+    map->info.g = 0xFF;
+    map->info.b = 0xFF;
+    map->info.a = 0xFF;
+
+    /* It's ready to go */
+    return (map);
+}
+
+void
+SDL_InvalidateMap(SDL_BlitMap * map)
+{
+    if (!map) {
+        return;
+    }
+    if (map->dst) {
+        /* Release our reference to the surface - see the note below */
+        if (--map->dst->refcount <= 0) {
+            SDL_FreeSurface(map->dst);
+        }
+    }
+    map->dst = NULL;
+    map->src_palette_version = 0;
+    map->dst_palette_version = 0;
+    SDL_free(map->info.table);
+    map->info.table = NULL;
+}
+
+int
+SDL_MapSurface(SDL_Surface * src, SDL_Surface * dst)
+{
+    SDL_PixelFormat *srcfmt;
+    SDL_PixelFormat *dstfmt;
+    SDL_BlitMap *map;
+
+    /* Clear out any previous mapping */
+    map = src->map;
+    if ((src->flags & SDL_RLEACCEL) == SDL_RLEACCEL) {
+        SDL_UnRLESurface(src, 1);
+    }
+    SDL_InvalidateMap(map);
+
+    /* Figure out what kind of mapping we're doing */
+    map->identity = 0;
+    srcfmt = src->format;
+    dstfmt = dst->format;
+    if (SDL_ISPIXELFORMAT_INDEXED(srcfmt->format)) {
+        if (SDL_ISPIXELFORMAT_INDEXED(dstfmt->format)) {
+            /* Palette --> Palette */
+            map->info.table =
+                Map1to1(srcfmt->palette, dstfmt->palette, &map->identity);
+            if (!map->identity) {
+                if (map->info.table == NULL) {
+                    return (-1);
+                }
+            }
+            if (srcfmt->BitsPerPixel != dstfmt->BitsPerPixel)
+                map->identity = 0;
+        } else {
+            /* Palette --> BitField */
+            map->info.table =
+                Map1toN(srcfmt, src->map->info.r, src->map->info.g,
+                        src->map->info.b, src->map->info.a, dstfmt);
+            if (map->info.table == NULL) {
+                return (-1);
+            }
+        }
+    } else {
+        if (SDL_ISPIXELFORMAT_INDEXED(dstfmt->format)) {
+            /* BitField --> Palette */
+            map->info.table = MapNto1(srcfmt, dstfmt, &map->identity);
+            if (!map->identity) {
+                if (map->info.table == NULL) {
+                    return (-1);
+                }
+            }
+            map->identity = 0;  /* Don't optimize to copy */
+        } else {
+            /* BitField --> BitField */
+            if (srcfmt == dstfmt) {
+                map->identity = 1;
+            }
+        }
+    }
+
+    map->dst = dst;
+
+    if (map->dst) {
+        /* Keep a reference to this surface so it doesn't get deleted
+           while we're still pointing at it.
+
+           A better method would be for the destination surface to keep
+           track of surfaces that are mapped to it and automatically
+           invalidate them when it is freed, but this will do for now.
+        */
+        ++map->dst->refcount;
+    }
+
+    if (dstfmt->palette) {
+        map->dst_palette_version = dstfmt->palette->version;
+    } else {
+        map->dst_palette_version = 0;
+    }
+
+    if (srcfmt->palette) {
+        map->src_palette_version = srcfmt->palette->version;
+    } else {
+        map->src_palette_version = 0;
+    }
+
+    /* Choose your blitters wisely */
+    return (SDL_CalculateBlit(src));
+}
+
+void
+SDL_FreeBlitMap(SDL_BlitMap * map)
+{
+    if (map) {
+        SDL_InvalidateMap(map);
+        SDL_free(map);
+    }
+}
+
+void
+SDL_CalculateGammaRamp(float gamma, Uint16 * ramp)
+{
+    int i;
+
+    /* Input validation */
+    if (gamma < 0.0f ) {
+      SDL_InvalidParamError("gamma");
+      return;
+    }
+    if (ramp == NULL) {
+      SDL_InvalidParamError("ramp");
+      return;
+    }
+
+    /* 0.0 gamma is all black */
+    if (gamma == 0.0f) {
+        SDL_memset(ramp, 0, 256 * sizeof(Uint16));
+        return;
+    } else if (gamma == 1.0f) {
+        /* 1.0 gamma is identity */
+        for (i = 0; i < 256; ++i) {
+            ramp[i] = (i << 8) | i;
+        }
+        return;
+    } else {
+        /* Calculate a real gamma ramp */
+        int value;
+        gamma = 1.0f / gamma;
+        for (i = 0; i < 256; ++i) {
+            value =
+                (int) (SDL_pow((double) i / 256.0, gamma) * 65535.0 + 0.5);
+            if (value > 65535) {
+                value = 65535;
+            }
+            ramp[i] = (Uint16) value;
+        }
+    }
+}
+
+/* vi: set ts=4 sw=4 expandtab: */