legacy-imlib2/color.c

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "common.h"
#include "color.h"

/* FIXME: DATA32 must become DATA8 */
DATA8 _dither_color_lut[256];
DATA8 _pal_type = 0;

void
AllocColorTable(Display *d, Colormap cmap)
{
  if (AllocColors332(d, cmap))
    return;
  if (AllocColors232(d, cmap))
    return;
  if (AllocColors222(d, cmap))
    return;
  if (AllocColors221(d, cmap))
    return;
  if (AllocColors121(d, cmap))
    return;
  if (AllocColors111(d, cmap))
    return;
  if (AllocColors1(d, cmap))
    return;
}

char
AllocColors332(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 8; r++)
    {
      for (g = 0; g < 8; g++)
	{
	  for (b = 0; b < 4; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 5) | (r << 2) | (r >> 1);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 5) | (g << 2) | (g >> 1);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 6) | (b << 4) | (b << 2) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 0;
  return 1;
}

char
AllocColors232(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 4; r++)
    {
      for (g = 0; g < 8; g++)
	{
	  for (b = 0; b < 4; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 6) | (r << 4) | (r << 2) | (r);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 5) | (g << 2) | (g >> 1);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 6) | (b << 4) | (b << 2) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 1;
  return 1;
}

char
AllocColors222(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 4; r++)
    {
      for (g = 0; g < 4; g++)
	{
	  for (b = 0; b < 4; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 6) | (r << 4) | (r << 2) | (r);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 6) | (g << 4) | (g << 2) | (g);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 6) | (b << 4) | (b << 2) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 2;
  return 1;
}

char
AllocColors221(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 4; r++)
    {
      for (g = 0; g < 4; g++)
	{
	  for (b = 0; b < 2; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 6) | (r << 4) | (r << 2) | (r);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 6) | (g << 4) | (g << 2) | (g);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 7) | (b << 6) | (b << 5) | (b << 4) | (b << 3) | (b << 2) | (b << 1) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 3;
  return 1;
}

char
AllocColors121(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 2; r++)
    {
      for (g = 0; g < 4; g++)
	{
	  for (b = 0; b < 2; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 7) | (r << 6) | (r << 5) | (r << 4) | (r << 3) | (r << 2) | (r << 1) | (r);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 6) | (g << 4) | (g << 2) | (g);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 7) | (b << 6) | (b << 5) | (b << 4) | (b << 3) | (b << 2) | (b << 1) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 4;
  return 1;
}

char
AllocColors111(Display *d, Colormap cmap)
{
  int r, g, b, i = 0;

  for (r = 0; r < 2; r++)
    {
      for (g = 0; g < 2; g++)
	{
	  for (b = 0; b < 2; b++)
	    {
	      XColor xcl;
	      int val;
	      
	      val = (r << 7) | (r << 6) | (r << 5) | (r << 4) | (r << 3) | (r << 2) | (r << 1) | (r);
	      xcl.red = (unsigned short)((val << 8) | (val));
	      val = (g << 7) | (g << 6) | (g << 5) | (g << 4) | (g << 3) | (g << 2) | (g << 1) | (g);
	      xcl.green = (unsigned short)((val << 8) | (val));
	      val = (b << 7) | (b << 6) | (b << 5) | (b << 4) | (b << 3) | (b << 2) | (b << 1) | (b);
	      xcl.blue = (unsigned short)((val << 8) | (val));
	      if (!XAllocColor(d, cmap, &xcl))
		{
		  unsigned long pixels[256];
		  int j;
		  
		  if (i > 0)
		    {
		      for(j = 0; j < i; j++)
			pixels[j] = (unsigned long) _dither_color_lut[j];
		      XFreeColors(d, cmap, pixels, i, 0);
		    }
		  return 0;
		}
	      _dither_color_lut[i] = xcl.pixel;
	      i++;
	    }
	}
    }
  _pal_type = 5;
  return 1;
}

char
AllocColors1(Display *d, Colormap cmap)
{
  XColor xcl;
  
  xcl.red = (unsigned short)(0x0000);
  xcl.green = (unsigned short)(0x0000);
  xcl.blue = (unsigned short)(0x0000);
  XAllocColor(d, cmap, &xcl);
  _dither_color_lut[0] = xcl.pixel;
  xcl.red = (unsigned short)(0xffff);
  xcl.green = (unsigned short)(0xffff);
  xcl.blue = (unsigned short)(0xffff);
  XAllocColor(d, cmap, &xcl);
  _dither_color_lut[1] = xcl.pixel;
  _pal_type = 6;
  return 1;
}