text: /*
    Simple DirectMedia Layer
    Copyright (C) 1997-2022 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_BGR444)
      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;
          }
          if (Rmask == 0x000F &&
              Gmask == 0x00F0 &&
              Bmask == 0x0F00 &&
              Amask == 0x0000) {
              return SDL_PIXELFORMAT_BGR444;
          }
          break;
      case 15:
          if (Rmask == 0) {
              return SDL_PIXELFORMAT_RGB555;
          }
          SDL_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_InvalidParamError("SDL_SetPixelFormatPalette(): 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);
  }
  
  /* Tell whether palette is opaque, and if it has an alpha_channel */
  void
  SDL_DetectPalette(SDL_Palette *pal, SDL_bool *is_opaque, SDL_bool *has_alpha_channel)
  {
      int i;
  
      {
          SDL_bool all_opaque = SDL_TRUE;
          for (i = 0; i < pal->ncolors; i++) {
              Uint8 alpha_value = pal->colors[i].a;
              if (alpha_value != SDL_ALPHA_OPAQUE) {
                  all_opaque = SDL_FALSE;
                  break;
              }
          }
  
          if (all_opaque) {
              /* Palette is opaque, with an alpha channel */
              *is_opaque = SDL_TRUE;
              *has_alpha_channel = SDL_TRUE;
              return;
          }
      }
  
      {
          SDL_bool all_transparent = SDL_TRUE;
          for (i = 0; i < pal->ncolors; i++) {
              Uint8 alpha_value = pal->colors[i].a;
              if (alpha_value != SDL_ALPHA_TRANSPARENT) {
                  all_transparent = SDL_FALSE;
                  break;
              }
          }
  
          if (all_transparent) {
              /* Palette is opaque, without an alpha channel */
              *is_opaque = SDL_TRUE;
              *has_alpha_channel = SDL_FALSE;
              return;
          }
      }
  
      /* Palette has alpha values */
      *is_opaque = SDL_FALSE;
      *has_alpha_channel = SDL_TRUE;
  }
  
  
  /* 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
              | ((Uint32)(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_calloc(256, sizeof(Uint8));
      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_calloc(256, 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, (Uint32)R, (Uint32)G, (Uint32)B, (Uint32)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);
  }
  
  
  typedef struct SDL_ListNode
  {
      void *entry;
      struct SDL_ListNode *next;
  } SDL_ListNode;
  
  void
  SDL_InvalidateAllBlitMap(SDL_Surface *surface)
  {
      SDL_ListNode *l = surface->list_blitmap;
  
      surface->list_blitmap = NULL;
  
      while (l) {
          SDL_ListNode *tmp = l;
          SDL_InvalidateMap((SDL_BlitMap *)l->entry);
          l = l->next;
          SDL_free(tmp);
      }
  }
  
  static void SDL_ListAdd(SDL_ListNode **head, void *ent);
  static void SDL_ListRemove(SDL_ListNode **head, void *ent);
  
  void
  SDL_ListAdd(SDL_ListNode **head, void *ent)
  {
      SDL_ListNode *node = SDL_malloc(sizeof (*node));
  
      if (node == NULL) {
          SDL_OutOfMemory();
          return;
      }
  
      node->entry = ent;
      node->next = *head;
      *head = node;
  }
  
  void
  SDL_ListRemove(SDL_ListNode **head, void *ent)
  {
      SDL_ListNode **ptr = head;
  
      while (*ptr) {
          if ((*ptr)->entry == ent) {
              SDL_ListNode *tmp = *ptr;
              *ptr = (*ptr)->next;
              SDL_free(tmp);
              return;
          }
          ptr = &(*ptr)->next;
      }
  }
  
  void
  SDL_InvalidateMap(SDL_BlitMap * map)
  {
      if (!map) {
          return;
      }
      if (map->dst) {
          /* Un-register from the destination surface */
          SDL_ListRemove((SDL_ListNode **)&(map->dst->list_blitmap), map);
      }
      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 SDL_HAVE_RLE
      if ((src->flags & SDL_RLEACCEL) == SDL_RLEACCEL) {
          SDL_UnRLESurface(src, 1);
      }
  #endif
      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) {
          /* Register BlitMap to the destination surface, to be invalidated when needed */
          SDL_ListAdd((SDL_ListNode **)&(map->dst->list_blitmap), map);
      }
  
      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: */
  