# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1062149356 0
# Node ID abd824b88c1429197e88f470609416b3bb8ab974
# Parent  57f71e75a609543d67b059feedcd00d9df187322
(lookup_rgb_color): Handle TrueColor visuals specially.

diff -r 57f71e75a609 -r abd824b88c14 src/xfns.c
--- a/src/xfns.c	Thu Aug 28 15:12:10 2003 +0000
+++ b/src/xfns.c	Fri Aug 29 09:29:16 2003 +0000
@@ -6755,7 +6755,43 @@
   unsigned hash = CT_HASH_RGB (r, g, b);
   int i = hash % CT_SIZE;
   struct ct_color *p;
-
+  Visual *visual;
+
+  /* Handle TrueColor visuals specially, which improves performance by
+     two orders of magnitude.  Freeing colors on TrueColor visuals is
+     a nop, and pixel colors specify RGB values directly.  See also
+     the Xlib spec, chapter 3.1.  */
+  visual = FRAME_X_DISPLAY_INFO (f)->visual;
+  if (visual->class == TrueColor)
+    {
+      int bits = visual->bits_per_rgb;
+      unsigned long pr, pg, pb;
+
+      /* Apply gamma-correction like normal color allocation does.  */
+      if (f->gamma)
+	{
+	  XColor color;
+	  color.red = r, color.green = g, color.blue = b;
+	  gamma_correct (f, &color);
+	  r = color.red, g = color.green, b = color.blue;
+	}
+
+      /* Scale down RGB values to the visual's bits per RGB, and shift
+	 them to the right position in the pixel color.  Note that the
+	 original RGB values are 16-bit values, as usual in X.  */
+      pr = (r >> (16 - bits)) << 2 * bits;
+      pg = (g >> (16 - bits)) << 1 * bits;
+      pb = (b >> (16 - bits)) << 0 * bits;
+
+      /* Apply RGB masks of the visual.  */
+      pr &= visual->red_mask;
+      pg &= visual->green_mask;
+      pb &= visual->blue_mask;
+
+      /* Assemble the pixel color.  */
+      return pr | pg | pb;
+    }
+  
   for (p = ct_table[i]; p; p = p->next)
     if (p->r == r && p->g == g && p->b == b)
       break;