xm_api.c revision 298be2b028263b2c343a707662c6fbfa18293cb2 
1/*
2 * Mesa 3-D graphics library
3 * Version:  7.1
4 *
5 * Copyright (C) 1999-2007  Brian Paul   All Rights Reserved.
6 *
7 * Permission is hereby granted, free of charge, to any person obtaining a
8 * copy of this software and associated documentation files (the "Software"),
9 * to deal in the Software without restriction, including without limitation
10 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
11 * and/or sell copies of the Software, and to permit persons to whom the
12 * Software is furnished to do so, subject to the following conditions:
13 *
14 * The above copyright notice and this permission notice shall be included
15 * in all copies or substantial portions of the Software.
16 *
17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
18 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
20 * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
21 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
22 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 */
24
25/**
26 * \file xm_api.c
27 *
28 * All the XMesa* API functions.
29 *
30 *
31 * NOTES:
32 *
33 * The window coordinate system origin (0,0) is in the lower-left corner
34 * of the window.  X11's window coordinate origin is in the upper-left
35 * corner of the window.  Therefore, most drawing functions in this
36 * file have to flip Y coordinates.
37 *
38 * Define USE_XSHM in the Makefile with -DUSE_XSHM if you want to compile
39 * in support for the MIT Shared Memory extension.  If enabled, when you
40 * use an Ximage for the back buffer in double buffered mode, the "swap"
41 * operation will be faster.  You must also link with -lXext.
42 *
43 * Byte swapping:  If the Mesa host and the X display use a different
44 * byte order then there's some trickiness to be aware of when using
45 * XImages.  The byte ordering used for the XImage is that of the X
46 * display, not the Mesa host.
47 * The color-to-pixel encoding for True/DirectColor must be done
48 * according to the display's visual red_mask, green_mask, and blue_mask.
49 * If XPutPixel is used to put a pixel into an XImage then XPutPixel will
50 * do byte swapping if needed.  If one wants to directly "poke" the pixel
51 * into the XImage's buffer then the pixel must be byte swapped first.  In
52 * Mesa, when byte swapping is needed we use the PF_TRUECOLOR pixel format
53 * and use XPutPixel everywhere except in the implementation of
54 * glClear(GL_COLOR_BUFFER_BIT).  We want this function to be fast so
55 * instead of using XPutPixel we "poke" our values after byte-swapping
56 * the clear pixel value if needed.
57 *
58 */
59
60#ifdef __CYGWIN__
61#undef WIN32
62#undef __WIN32__
63#endif
64
65#include "glxheader.h"
66#include "xmesaP.h"
67#include "main/context.h"
68#include "main/extensions.h"
69#include "main/framebuffer.h"
70#include "main/imports.h"
71#include "main/macros.h"
72#include "main/renderbuffer.h"
73#include "main/teximage.h"
74#include "glapi/glthread.h"
75#include "swrast/swrast.h"
76#include "swrast_setup/swrast_setup.h"
77#include "vbo/vbo.h"
78#include "tnl/tnl.h"
79#include "tnl/t_context.h"
80#include "tnl/t_pipeline.h"
81#include "drivers/common/driverfuncs.h"
82#include "drivers/common/meta.h"
83
84/**
85 * Global X driver lock
86 */
87_glthread_Mutex _xmesa_lock;
88
89
90
91/**
92 * Lookup tables for HPCR pixel format:
93 */
94static short hpcr_rgbTbl[3][256] = {
95{
96 16,  16,  17,  17,  18,  18,  19,  19,  20,  20,  21,  21,  22,  22,  23,  23,
97 24,  24,  25,  25,  26,  26,  27,  27,  28,  28,  29,  29,  30,  30,  31,  31,
98 32,  32,  33,  33,  34,  34,  35,  35,  36,  36,  37,  37,  38,  38,  39,  39,
99 32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
100 48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
101 64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
102 80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
103 96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
104112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
105128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
106144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
107160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
108176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
109192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
110208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
111224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239
112},
113{
114 16,  16,  17,  17,  18,  18,  19,  19,  20,  20,  21,  21,  22,  22,  23,  23,
115 24,  24,  25,  25,  26,  26,  27,  27,  28,  28,  29,  29,  30,  30,  31,  31,
116 32,  32,  33,  33,  34,  34,  35,  35,  36,  36,  37,  37,  38,  38,  39,  39,
117 32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
118 48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
119 64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
120 80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
121 96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
122112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
123128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
124144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
125160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
126176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
127192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
128208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
129224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239
130},
131{
132 32,  32,  33,  33,  34,  34,  35,  35,  36,  36,  37,  37,  38,  38,  39,  39,
133 40,  40,  41,  41,  42,  42,  43,  43,  44,  44,  45,  45,  46,  46,  47,  47,
134 48,  48,  49,  49,  50,  50,  51,  51,  52,  52,  53,  53,  54,  54,  55,  55,
135 56,  56,  57,  57,  58,  58,  59,  59,  60,  60,  61,  61,  62,  62,  63,  63,
136 64,  64,  65,  65,  66,  66,  67,  67,  68,  68,  69,  69,  70,  70,  71,  71,
137 72,  72,  73,  73,  74,  74,  75,  75,  76,  76,  77,  77,  78,  78,  79,  79,
138 80,  80,  81,  81,  82,  82,  83,  83,  84,  84,  85,  85,  86,  86,  87,  87,
139 80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
140 96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
141112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
142128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
143144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
144160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175,
145176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
146192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
147208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223
148}
149};
150
151
152
153/**********************************************************************/
154/*****                     X Utility Functions                    *****/
155/**********************************************************************/
156
157
158/**
159 * Return the host's byte order as LSBFirst or MSBFirst ala X.
160 */
161#ifndef XFree86Server
162static int host_byte_order( void )
163{
164   int i = 1;
165   char *cptr = (char *) &i;
166   return (*cptr==1) ? LSBFirst : MSBFirst;
167}
168#endif
169
170
171/**
172 * Check if the X Shared Memory extension is available.
173 * Return:  0 = not available
174 *          1 = shared XImage support available
175 *          2 = shared Pixmap support available also
176 */
177static int check_for_xshm( XMesaDisplay *display )
178{
179#if defined(USE_XSHM) && !defined(XFree86Server)
180   int major, minor, ignore;
181   Bool pixmaps;
182
183   if (XQueryExtension( display, "MIT-SHM", &ignore, &ignore, &ignore )) {
184      if (XShmQueryVersion( display, &major, &minor, &pixmaps )==True) {
185	 return (pixmaps==True) ? 2 : 1;
186      }
187      else {
188	 return 0;
189      }
190   }
191   else {
192      return 0;
193   }
194#else
195   /* No  XSHM support */
196   return 0;
197#endif
198}
199
200
201/**
202 * Apply gamma correction to an intensity value in [0..max].  Return the
203 * new intensity value.
204 */
205static GLint
206gamma_adjust( GLfloat gamma, GLint value, GLint max )
207{
208   if (gamma == 1.0) {
209      return value;
210   }
211   else {
212      double x = (double) value / (double) max;
213      return IROUND_POS((GLfloat) max * _mesa_pow(x, 1.0F/gamma));
214   }
215}
216
217
218
219/**
220 * Return the true number of bits per pixel for XImages.
221 * For example, if we request a 24-bit deep visual we may actually need/get
222 * 32bpp XImages.  This function returns the appropriate bpp.
223 * Input:  dpy - the X display
224 *         visinfo - desribes the visual to be used for XImages
225 * Return:  true number of bits per pixel for XImages
226 */
227static int
228bits_per_pixel( XMesaVisual xmv )
229{
230#ifdef XFree86Server
231   const int depth = xmv->nplanes;
232   int i;
233   assert(depth > 0);
234   for (i = 0; i < screenInfo.numPixmapFormats; i++) {
235      if (screenInfo.formats[i].depth == depth)
236         return screenInfo.formats[i].bitsPerPixel;
237   }
238   return depth;  /* should never get here, but this should be safe */
239#else
240   XMesaDisplay *dpy = xmv->display;
241   XMesaVisualInfo visinfo = xmv->visinfo;
242   XMesaImage *img;
243   int bitsPerPixel;
244   /* Create a temporary XImage */
245   img = XCreateImage( dpy, visinfo->visual, visinfo->depth,
246		       ZPixmap, 0,           /*format, offset*/
247		       (char*) MALLOC(8),    /*data*/
248		       1, 1,                 /*width, height*/
249		       32,                   /*bitmap_pad*/
250		       0                     /*bytes_per_line*/
251                     );
252   assert(img);
253   /* grab the bits/pixel value */
254   bitsPerPixel = img->bits_per_pixel;
255   /* free the XImage */
256   free( img->data );
257   img->data = NULL;
258   XMesaDestroyImage( img );
259   return bitsPerPixel;
260#endif
261}
262
263
264
265/*
266 * Determine if a given X window ID is valid (window exists).
267 * Do this by calling XGetWindowAttributes() for the window and
268 * checking if we catch an X error.
269 * Input:  dpy - the display
270 *         win - the window to check for existance
271 * Return:  GL_TRUE - window exists
272 *          GL_FALSE - window doesn't exist
273 */
274#ifndef XFree86Server
275static GLboolean WindowExistsFlag;
276
277static int window_exists_err_handler( XMesaDisplay* dpy, XErrorEvent* xerr )
278{
279   (void) dpy;
280   if (xerr->error_code == BadWindow) {
281      WindowExistsFlag = GL_FALSE;
282   }
283   return 0;
284}
285
286static GLboolean window_exists( XMesaDisplay *dpy, Window win )
287{
288   XWindowAttributes wa;
289   int (*old_handler)( XMesaDisplay*, XErrorEvent* );
290   WindowExistsFlag = GL_TRUE;
291   old_handler = XSetErrorHandler(window_exists_err_handler);
292   XGetWindowAttributes( dpy, win, &wa ); /* dummy request */
293   XSetErrorHandler(old_handler);
294   return WindowExistsFlag;
295}
296
297static Status
298get_drawable_size( XMesaDisplay *dpy, Drawable d, GLuint *width, GLuint *height )
299{
300   Window root;
301   Status stat;
302   int xpos, ypos;
303   unsigned int w, h, bw, depth;
304   stat = XGetGeometry(dpy, d, &root, &xpos, &ypos, &w, &h, &bw, &depth);
305   *width = w;
306   *height = h;
307   return stat;
308}
309#endif
310
311
312/**
313 * Return the size of the window (or pixmap) that corresponds to the
314 * given XMesaBuffer.
315 * \param width  returns width in pixels
316 * \param height  returns height in pixels
317 */
318void
319xmesa_get_window_size(XMesaDisplay *dpy, XMesaBuffer b,
320                      GLuint *width, GLuint *height)
321{
322#ifdef XFree86Server
323   *width = MIN2(b->frontxrb->drawable->width, MAX_WIDTH);
324   *height = MIN2(b->frontxrb->drawable->height, MAX_HEIGHT);
325#else
326   Status stat;
327
328   _glthread_LOCK_MUTEX(_xmesa_lock);
329   XSync(b->xm_visual->display, 0); /* added for Chromium */
330   stat = get_drawable_size(dpy, b->frontxrb->pixmap, width, height);
331   _glthread_UNLOCK_MUTEX(_xmesa_lock);
332
333   if (!stat) {
334      /* probably querying a window that's recently been destroyed */
335      _mesa_warning(NULL, "XGetGeometry failed!\n");
336      *width = *height = 1;
337   }
338#endif
339}
340
341
342
343/**********************************************************************/
344/*****                Linked list of XMesaBuffers                 *****/
345/**********************************************************************/
346
347XMesaBuffer XMesaBufferList = NULL;
348
349
350/**
351 * Allocate a new XMesaBuffer object which corresponds to the given drawable.
352 * Note that XMesaBuffer is derived from GLframebuffer.
353 * The new XMesaBuffer will not have any size (Width=Height=0).
354 *
355 * \param d  the corresponding X drawable (window or pixmap)
356 * \param type  either WINDOW, PIXMAP or PBUFFER, describing d
357 * \param vis  the buffer's visual
358 * \param cmap  the window's colormap, if known.
359 * \return new XMesaBuffer or NULL if any problem
360 */
361static XMesaBuffer
362create_xmesa_buffer(XMesaDrawable d, BufferType type,
363                    XMesaVisual vis, XMesaColormap cmap)
364{
365   XMesaBuffer b;
366
367   ASSERT(type == WINDOW || type == PIXMAP || type == PBUFFER);
368
369   b = (XMesaBuffer) CALLOC_STRUCT(xmesa_buffer);
370   if (!b)
371      return NULL;
372
373   b->display = vis->display;
374   b->xm_visual = vis;
375   b->type = type;
376   b->cmap = cmap;
377
378   _mesa_initialize_window_framebuffer(&b->mesa_buffer, &vis->mesa_visual);
379   b->mesa_buffer.Delete = xmesa_delete_framebuffer;
380
381   /*
382    * Front renderbuffer
383    */
384   b->frontxrb = xmesa_new_renderbuffer(NULL, 0, &vis->mesa_visual, GL_FALSE);
385   if (!b->frontxrb) {
386      free(b);
387      return NULL;
388   }
389   b->frontxrb->Parent = b;
390   b->frontxrb->drawable = d;
391   b->frontxrb->pixmap = (XMesaPixmap) d;
392   _mesa_add_renderbuffer(&b->mesa_buffer, BUFFER_FRONT_LEFT,
393                          &b->frontxrb->Base);
394
395   /*
396    * Back renderbuffer
397    */
398   if (vis->mesa_visual.doubleBufferMode) {
399      b->backxrb = xmesa_new_renderbuffer(NULL, 0, &vis->mesa_visual, GL_TRUE);
400      if (!b->backxrb) {
401         /* XXX free front xrb too */
402         free(b);
403         return NULL;
404      }
405      b->backxrb->Parent = b;
406      /* determine back buffer implementation */
407      b->db_mode = vis->ximage_flag ? BACK_XIMAGE : BACK_PIXMAP;
408
409      _mesa_add_renderbuffer(&b->mesa_buffer, BUFFER_BACK_LEFT,
410                             &b->backxrb->Base);
411   }
412
413   /*
414    * Software alpha planes
415    */
416   if (vis->mesa_visual.alphaBits > 0
417       && vis->undithered_pf != PF_8A8B8G8R
418       && vis->undithered_pf != PF_8A8R8G8B) {
419      /* Visual has alpha, but pixel format doesn't support it.
420       * We'll use an alpha renderbuffer wrapper.
421       */
422      b->swAlpha = GL_TRUE;
423   }
424   else {
425      b->swAlpha = GL_FALSE;
426   }
427
428   /*
429    * Other renderbuffer (depth, stencil, etc)
430    */
431   _mesa_add_soft_renderbuffers(&b->mesa_buffer,
432                                GL_FALSE,  /* color */
433                                vis->mesa_visual.haveDepthBuffer,
434                                vis->mesa_visual.haveStencilBuffer,
435                                vis->mesa_visual.haveAccumBuffer,
436                                b->swAlpha,
437                                vis->mesa_visual.numAuxBuffers > 0 );
438
439   /* GLX_EXT_texture_from_pixmap */
440   b->TextureTarget = 0;
441   b->TextureFormat = GLX_TEXTURE_FORMAT_NONE_EXT;
442   b->TextureMipmap = 0;
443
444   /* insert buffer into linked list */
445   b->Next = XMesaBufferList;
446   XMesaBufferList = b;
447
448   return b;
449}
450
451
452/**
453 * Find an XMesaBuffer by matching X display and colormap but NOT matching
454 * the notThis buffer.
455 */
456XMesaBuffer
457xmesa_find_buffer(XMesaDisplay *dpy, XMesaColormap cmap, XMesaBuffer notThis)
458{
459   XMesaBuffer b;
460   for (b=XMesaBufferList; b; b=b->Next) {
461      if (b->display==dpy && b->cmap==cmap && b!=notThis) {
462         return b;
463      }
464   }
465   return NULL;
466}
467
468
469/**
470 * Remove buffer from linked list, delete if no longer referenced.
471 */
472static void
473xmesa_free_buffer(XMesaBuffer buffer)
474{
475   XMesaBuffer prev = NULL, b;
476
477   for (b = XMesaBufferList; b; b = b->Next) {
478      if (b == buffer) {
479         struct gl_framebuffer *fb = &buffer->mesa_buffer;
480
481         /* unlink buffer from list */
482         if (prev)
483            prev->Next = buffer->Next;
484         else
485            XMesaBufferList = buffer->Next;
486
487         /* mark as delete pending */
488         fb->DeletePending = GL_TRUE;
489
490         /* Since the X window for the XMesaBuffer is going away, we don't
491          * want to dereference this pointer in the future.
492          */
493         b->frontxrb->drawable = 0;
494
495         /* Unreference.  If count = zero we'll really delete the buffer */
496         _mesa_reference_framebuffer(&fb, NULL);
497
498         return;
499      }
500      /* continue search */
501      prev = b;
502   }
503   /* buffer not found in XMesaBufferList */
504   _mesa_problem(NULL,"xmesa_free_buffer() - buffer not found\n");
505}
506
507
508/**
509 * Copy X color table stuff from one XMesaBuffer to another.
510 */
511static void
512copy_colortable_info(XMesaBuffer dst, const XMesaBuffer src)
513{
514   memcpy(dst->color_table, src->color_table, sizeof(src->color_table));
515   memcpy(dst->pixel_to_r, src->pixel_to_r, sizeof(src->pixel_to_r));
516   memcpy(dst->pixel_to_g, src->pixel_to_g, sizeof(src->pixel_to_g));
517   memcpy(dst->pixel_to_b, src->pixel_to_b, sizeof(src->pixel_to_b));
518   dst->num_alloced = src->num_alloced;
519   memcpy(dst->alloced_colors, src->alloced_colors,
520          sizeof(src->alloced_colors));
521}
522
523
524
525/**********************************************************************/
526/*****                   Misc Private Functions                   *****/
527/**********************************************************************/
528
529
530/**
531 * A replacement for XAllocColor.  This function should never
532 * fail to allocate a color.  When XAllocColor fails, we return
533 * the nearest matching color.  If we have to allocate many colors
534 * this function isn't too efficient; the XQueryColors() could be
535 * done just once.
536 * Written by Michael Pichler, Brian Paul, Mark Kilgard
537 * Input:  dpy - X display
538 *         cmap - X colormap
539 *         cmapSize - size of colormap
540 * In/Out: color - the XColor struct
541 * Output:  exact - 1=exact color match, 0=closest match
542 *          alloced - 1=XAlloc worked, 0=XAlloc failed
543 */
544static void
545noFaultXAllocColor( int client,
546                    XMesaDisplay *dpy,
547                    XMesaColormap cmap,
548                    int cmapSize,
549                    XMesaColor *color,
550                    int *exact, int *alloced )
551{
552#ifdef XFree86Server
553   Pixel *ppixIn;
554   xrgb *ctable;
555#else
556   /* we'll try to cache ctable for better remote display performance */
557   static Display *prevDisplay = NULL;
558   static XMesaColormap prevCmap = 0;
559   static int prevCmapSize = 0;
560   static XMesaColor *ctable = NULL;
561#endif
562   XMesaColor subColor;
563   int i, bestmatch;
564   double mindist;       /* 3*2^16^2 exceeds long int precision. */
565
566   (void) client;
567
568   /* First try just using XAllocColor. */
569#ifdef XFree86Server
570   if (AllocColor(cmap,
571		  &color->red, &color->green, &color->blue,
572		  &color->pixel,
573		  client) == Success)
574#else
575   if (XAllocColor(dpy, cmap, color))
576#endif
577   {
578      *exact = 1;
579      *alloced = 1;
580      return;
581   }
582
583   /* Alloc failed, search for closest match */
584
585   /* Retrieve color table entries. */
586   /* XXX alloca candidate. */
587#ifdef XFree86Server
588   ppixIn = (Pixel *) MALLOC(cmapSize * sizeof(Pixel));
589   ctable = (xrgb *) MALLOC(cmapSize * sizeof(xrgb));
590   for (i = 0; i < cmapSize; i++) {
591      ppixIn[i] = i;
592   }
593   QueryColors(cmap, cmapSize, ppixIn, ctable);
594#else
595   if (prevDisplay != dpy || prevCmap != cmap
596       || prevCmapSize != cmapSize || !ctable) {
597      /* free previously cached color table */
598      if (ctable)
599         free(ctable);
600      /* Get the color table from X */
601      ctable = (XMesaColor *) MALLOC(cmapSize * sizeof(XMesaColor));
602      assert(ctable);
603      for (i = 0; i < cmapSize; i++) {
604         ctable[i].pixel = i;
605      }
606      XQueryColors(dpy, cmap, ctable, cmapSize);
607      prevDisplay = dpy;
608      prevCmap = cmap;
609      prevCmapSize = cmapSize;
610   }
611#endif
612
613   /* Find best match. */
614   bestmatch = -1;
615   mindist = 0.0;
616   for (i = 0; i < cmapSize; i++) {
617      double dr = 0.30 * ((double) color->red - (double) ctable[i].red);
618      double dg = 0.59 * ((double) color->green - (double) ctable[i].green);
619      double db = 0.11 * ((double) color->blue - (double) ctable[i].blue);
620      double dist = dr * dr + dg * dg + db * db;
621      if (bestmatch < 0 || dist < mindist) {
622         bestmatch = i;
623         mindist = dist;
624      }
625   }
626
627   /* Return result. */
628   subColor.red   = ctable[bestmatch].red;
629   subColor.green = ctable[bestmatch].green;
630   subColor.blue  = ctable[bestmatch].blue;
631   /* Try to allocate the closest match color.  This should only
632    * fail if the cell is read/write.  Otherwise, we're incrementing
633    * the cell's reference count.
634    */
635#ifdef XFree86Server
636   if (AllocColor(cmap,
637		  &subColor.red, &subColor.green, &subColor.blue,
638		  &subColor.pixel,
639		  client) == Success) {
640#else
641   if (XAllocColor(dpy, cmap, &subColor)) {
642#endif
643      *alloced = 1;
644   }
645   else {
646      /* do this to work around a problem reported by Frank Ortega */
647      subColor.pixel = (unsigned long) bestmatch;
648      subColor.red   = ctable[bestmatch].red;
649      subColor.green = ctable[bestmatch].green;
650      subColor.blue  = ctable[bestmatch].blue;
651      subColor.flags = DoRed | DoGreen | DoBlue;
652      *alloced = 0;
653   }
654#ifdef XFree86Server
655   free(ppixIn);
656   free(ctable);
657#else
658   /* don't free table, save it for next time */
659#endif
660
661   *color = subColor;
662   *exact = 0;
663}
664
665
666
667/**
668 * Do setup for PF_GRAYSCALE pixel format.
669 * Note that buffer may be NULL.
670 */
671static GLboolean
672setup_grayscale(int client, XMesaVisual v,
673                XMesaBuffer buffer, XMesaColormap cmap)
674{
675   if (GET_VISUAL_DEPTH(v)<4 || GET_VISUAL_DEPTH(v)>16) {
676      return GL_FALSE;
677   }
678
679   if (buffer) {
680      XMesaBuffer prevBuffer;
681
682      if (!cmap) {
683         return GL_FALSE;
684      }
685
686      prevBuffer = xmesa_find_buffer(v->display, cmap, buffer);
687      if (prevBuffer &&
688          (buffer->xm_visual->mesa_visual.rgbMode ==
689           prevBuffer->xm_visual->mesa_visual.rgbMode)) {
690         /* Copy colormap stuff from previous XMesaBuffer which uses same
691          * X colormap.  Do this to avoid time spent in noFaultXAllocColor.
692          */
693         copy_colortable_info(buffer, prevBuffer);
694      }
695      else {
696         /* Allocate 256 shades of gray */
697         int gray;
698         int colorsfailed = 0;
699         for (gray=0;gray<256;gray++) {
700            GLint r = gamma_adjust( v->RedGamma,   gray, 255 );
701            GLint g = gamma_adjust( v->GreenGamma, gray, 255 );
702            GLint b = gamma_adjust( v->BlueGamma,  gray, 255 );
703            int exact, alloced;
704            XMesaColor xcol;
705            xcol.red   = (r << 8) | r;
706            xcol.green = (g << 8) | g;
707            xcol.blue  = (b << 8) | b;
708            noFaultXAllocColor( client, v->display,
709                                cmap, GET_COLORMAP_SIZE(v),
710                                &xcol, &exact, &alloced );
711            if (!exact) {
712               colorsfailed++;
713            }
714            if (alloced) {
715               assert(buffer->num_alloced<256);
716               buffer->alloced_colors[buffer->num_alloced] = xcol.pixel;
717               buffer->num_alloced++;
718            }
719
720            /*OLD
721            assert(gray < 576);
722            buffer->color_table[gray*3+0] = xcol.pixel;
723            buffer->color_table[gray*3+1] = xcol.pixel;
724            buffer->color_table[gray*3+2] = xcol.pixel;
725            assert(xcol.pixel < 65536);
726            buffer->pixel_to_r[xcol.pixel] = gray * 30 / 100;
727            buffer->pixel_to_g[xcol.pixel] = gray * 59 / 100;
728            buffer->pixel_to_b[xcol.pixel] = gray * 11 / 100;
729            */
730            buffer->color_table[gray] = xcol.pixel;
731            assert(xcol.pixel < 65536);
732            buffer->pixel_to_r[xcol.pixel] = gray;
733            buffer->pixel_to_g[xcol.pixel] = gray;
734            buffer->pixel_to_b[xcol.pixel] = gray;
735         }
736
737         if (colorsfailed && _mesa_getenv("MESA_DEBUG")) {
738            _mesa_warning(NULL,
739                  "Note: %d out of 256 needed colors do not match exactly.\n",
740                  colorsfailed );
741         }
742      }
743   }
744
745   v->dithered_pf = PF_Grayscale;
746   v->undithered_pf = PF_Grayscale;
747   return GL_TRUE;
748}
749
750
751
752/**
753 * Setup RGB rendering for a window with a PseudoColor, StaticColor,
754 * or 8-bit TrueColor visual visual.  We try to allocate a palette of 225
755 * colors (5 red, 9 green, 5 blue) and dither to approximate a 24-bit RGB
756 * color.  While this function was originally designed just for 8-bit
757 * visuals, it has also proven to work from 4-bit up to 16-bit visuals.
758 * Dithering code contributed by Bob Mercier.
759 */
760static GLboolean
761setup_dithered_color(int client, XMesaVisual v,
762                     XMesaBuffer buffer, XMesaColormap cmap)
763{
764   if (GET_VISUAL_DEPTH(v)<4 || GET_VISUAL_DEPTH(v)>16) {
765      return GL_FALSE;
766   }
767
768   if (buffer) {
769      XMesaBuffer prevBuffer;
770
771      if (!cmap) {
772         return GL_FALSE;
773      }
774
775      prevBuffer = xmesa_find_buffer(v->display, cmap, buffer);
776      if (prevBuffer &&
777          (buffer->xm_visual->mesa_visual.rgbMode ==
778           prevBuffer->xm_visual->mesa_visual.rgbMode)) {
779         /* Copy colormap stuff from previous, matching XMesaBuffer.
780          * Do this to avoid time spent in noFaultXAllocColor.
781          */
782         copy_colortable_info(buffer, prevBuffer);
783      }
784      else {
785         /* Allocate X colors and initialize color_table[], red_table[], etc */
786         int r, g, b, i;
787         int colorsfailed = 0;
788         for (r = 0; r < DITH_R; r++) {
789            for (g = 0; g < DITH_G; g++) {
790               for (b = 0; b < DITH_B; b++) {
791                  XMesaColor xcol;
792                  int exact, alloced;
793                  xcol.red  =gamma_adjust(v->RedGamma,   r*65535/(DITH_R-1),65535);
794                  xcol.green=gamma_adjust(v->GreenGamma, g*65535/(DITH_G-1),65535);
795                  xcol.blue =gamma_adjust(v->BlueGamma,  b*65535/(DITH_B-1),65535);
796                  noFaultXAllocColor( client, v->display,
797                                      cmap, GET_COLORMAP_SIZE(v),
798                                      &xcol, &exact, &alloced );
799                  if (!exact) {
800                     colorsfailed++;
801                  }
802                  if (alloced) {
803                     assert(buffer->num_alloced<256);
804                     buffer->alloced_colors[buffer->num_alloced] = xcol.pixel;
805                     buffer->num_alloced++;
806                  }
807                  i = DITH_MIX( r, g, b );
808                  assert(i < 576);
809                  buffer->color_table[i] = xcol.pixel;
810                  assert(xcol.pixel < 65536);
811                  buffer->pixel_to_r[xcol.pixel] = r * 255 / (DITH_R-1);
812                  buffer->pixel_to_g[xcol.pixel] = g * 255 / (DITH_G-1);
813                  buffer->pixel_to_b[xcol.pixel] = b * 255 / (DITH_B-1);
814               }
815            }
816         }
817
818         if (colorsfailed && _mesa_getenv("MESA_DEBUG")) {
819            _mesa_warning(NULL,
820                  "Note: %d out of %d needed colors do not match exactly.\n",
821                  colorsfailed, DITH_R * DITH_G * DITH_B );
822         }
823      }
824   }
825
826   v->dithered_pf = PF_Dither;
827   v->undithered_pf = PF_Lookup;
828   return GL_TRUE;
829}
830
831
832/**
833 * Setup for Hewlett Packard Color Recovery 8-bit TrueColor mode.
834 * HPCR simulates 24-bit color fidelity with an 8-bit frame buffer.
835 * Special dithering tables have to be initialized.
836 */
837static void
838setup_8bit_hpcr(XMesaVisual v)
839{
840   /* HP Color Recovery contributed by:  Alex De Bruyn (ad@lms.be)
841    * To work properly, the atom _HP_RGB_SMOOTH_MAP_LIST must be defined
842    * on the root window AND the colormap obtainable by XGetRGBColormaps
843    * for that atom must be set on the window.  (see also tkInitWindow)
844    * If that colormap is not set, the output will look stripy.
845    */
846
847   /* Setup color tables with gamma correction */
848   int i;
849   double g;
850
851   g = 1.0 / v->RedGamma;
852   for (i=0; i<256; i++) {
853      GLint red = IROUND_POS(255.0 * _mesa_pow( hpcr_rgbTbl[0][i]/255.0, g ));
854      v->hpcr_rgbTbl[0][i] = CLAMP( red, 16, 239 );
855   }
856
857   g = 1.0 / v->GreenGamma;
858   for (i=0; i<256; i++) {
859      GLint green = IROUND_POS(255.0 * _mesa_pow( hpcr_rgbTbl[1][i]/255.0, g ));
860      v->hpcr_rgbTbl[1][i] = CLAMP( green, 16, 239 );
861   }
862
863   g = 1.0 / v->BlueGamma;
864   for (i=0; i<256; i++) {
865      GLint blue = IROUND_POS(255.0 * _mesa_pow( hpcr_rgbTbl[2][i]/255.0, g ));
866      v->hpcr_rgbTbl[2][i] = CLAMP( blue, 32, 223 );
867   }
868   v->undithered_pf = PF_HPCR;  /* can't really disable dithering for now */
869   v->dithered_pf = PF_HPCR;
870
871   /* which method should I use to clear */
872   /* GL_FALSE: keep the ordinary method  */
873   /* GL_TRUE : clear with dither pattern */
874   v->hpcr_clear_flag = _mesa_getenv("MESA_HPCR_CLEAR") ? GL_TRUE : GL_FALSE;
875
876   if (v->hpcr_clear_flag) {
877      v->hpcr_clear_pixmap = XMesaCreatePixmap(v->display,
878                                               DefaultRootWindow(v->display),
879                                               16, 2, 8);
880#ifndef XFree86Server
881      v->hpcr_clear_ximage = XGetImage(v->display, v->hpcr_clear_pixmap,
882                                       0, 0, 16, 2, AllPlanes, ZPixmap);
883#endif
884   }
885}
886
887
888/**
889 * Setup RGB rendering for a window with a True/DirectColor visual.
890 */
891static void
892setup_truecolor(XMesaVisual v, XMesaBuffer buffer, XMesaColormap cmap)
893{
894   unsigned long rmask, gmask, bmask;
895   (void) buffer;
896   (void) cmap;
897
898   /* Compute red multiplier (mask) and bit shift */
899   v->rshift = 0;
900   rmask = GET_REDMASK(v);
901   while ((rmask & 1)==0) {
902      v->rshift++;
903      rmask = rmask >> 1;
904   }
905
906   /* Compute green multiplier (mask) and bit shift */
907   v->gshift = 0;
908   gmask = GET_GREENMASK(v);
909   while ((gmask & 1)==0) {
910      v->gshift++;
911      gmask = gmask >> 1;
912   }
913
914   /* Compute blue multiplier (mask) and bit shift */
915   v->bshift = 0;
916   bmask = GET_BLUEMASK(v);
917   while ((bmask & 1)==0) {
918      v->bshift++;
919      bmask = bmask >> 1;
920   }
921
922   /*
923    * Compute component-to-pixel lookup tables and dithering kernel
924    */
925   {
926      static GLubyte kernel[16] = {
927          0*16,  8*16,  2*16, 10*16,
928         12*16,  4*16, 14*16,  6*16,
929          3*16, 11*16,  1*16,  9*16,
930         15*16,  7*16, 13*16,  5*16,
931      };
932      GLint rBits = _mesa_bitcount(rmask);
933      GLint gBits = _mesa_bitcount(gmask);
934      GLint bBits = _mesa_bitcount(bmask);
935      GLint maxBits;
936      GLuint i;
937
938      /* convert pixel components in [0,_mask] to RGB values in [0,255] */
939      for (i=0; i<=rmask; i++)
940         v->PixelToR[i] = (unsigned char) ((i * 255) / rmask);
941      for (i=0; i<=gmask; i++)
942         v->PixelToG[i] = (unsigned char) ((i * 255) / gmask);
943      for (i=0; i<=bmask; i++)
944         v->PixelToB[i] = (unsigned char) ((i * 255) / bmask);
945
946      /* convert RGB values from [0,255] to pixel components */
947
948      for (i=0;i<256;i++) {
949         GLint r = gamma_adjust(v->RedGamma,   i, 255);
950         GLint g = gamma_adjust(v->GreenGamma, i, 255);
951         GLint b = gamma_adjust(v->BlueGamma,  i, 255);
952         v->RtoPixel[i] = (r >> (8-rBits)) << v->rshift;
953         v->GtoPixel[i] = (g >> (8-gBits)) << v->gshift;
954         v->BtoPixel[i] = (b >> (8-bBits)) << v->bshift;
955      }
956      /* overflow protection */
957      for (i=256;i<512;i++) {
958         v->RtoPixel[i] = v->RtoPixel[255];
959         v->GtoPixel[i] = v->GtoPixel[255];
960         v->BtoPixel[i] = v->BtoPixel[255];
961      }
962
963      /* setup dithering kernel */
964      maxBits = rBits;
965      if (gBits > maxBits)  maxBits = gBits;
966      if (bBits > maxBits)  maxBits = bBits;
967      for (i=0;i<16;i++) {
968         v->Kernel[i] = kernel[i] >> maxBits;
969      }
970
971      v->undithered_pf = PF_Truecolor;
972      v->dithered_pf = (GET_VISUAL_DEPTH(v)<24) ? PF_Dither_True : PF_Truecolor;
973   }
974
975   /*
976    * Now check for TrueColor visuals which we can optimize.
977    */
978   if (   GET_REDMASK(v)  ==0x0000ff
979       && GET_GREENMASK(v)==0x00ff00
980       && GET_BLUEMASK(v) ==0xff0000
981       && CHECK_BYTE_ORDER(v)
982       && v->BitsPerPixel==32
983       && v->RedGamma==1.0 && v->GreenGamma==1.0 && v->BlueGamma==1.0) {
984      /* common 32 bpp config used on SGI, Sun */
985      v->undithered_pf = v->dithered_pf = PF_8A8B8G8R; /* ABGR */
986   }
987   else if (GET_REDMASK(v)  == 0xff0000
988         && GET_GREENMASK(v)== 0x00ff00
989         && GET_BLUEMASK(v) == 0x0000ff
990         && CHECK_BYTE_ORDER(v)
991         && v->RedGamma == 1.0 && v->GreenGamma == 1.0 && v->BlueGamma == 1.0){
992      if (v->BitsPerPixel==32) {
993         /* if 32 bpp, and visual indicates 8 bpp alpha channel */
994         if (GET_VISUAL_DEPTH(v) == 32 && v->mesa_visual.alphaBits == 8)
995            v->undithered_pf = v->dithered_pf = PF_8A8R8G8B; /* ARGB */
996         else
997            v->undithered_pf = v->dithered_pf = PF_8R8G8B; /* xRGB */
998      }
999      else if (v->BitsPerPixel == 24) {
1000         v->undithered_pf = v->dithered_pf = PF_8R8G8B24; /* RGB */
1001      }
1002   }
1003   else if (GET_REDMASK(v)  ==0xf800
1004       &&   GET_GREENMASK(v)==0x07e0
1005       &&   GET_BLUEMASK(v) ==0x001f
1006       && CHECK_BYTE_ORDER(v)
1007       && v->BitsPerPixel==16
1008       && v->RedGamma==1.0 && v->GreenGamma==1.0 && v->BlueGamma==1.0) {
1009      /* 5-6-5 RGB */
1010      v->undithered_pf = PF_5R6G5B;
1011      v->dithered_pf = PF_Dither_5R6G5B;
1012   }
1013   else if (GET_REDMASK(v)  ==0xe0
1014       &&   GET_GREENMASK(v)==0x1c
1015       &&   GET_BLUEMASK(v) ==0x03
1016       && CHECK_FOR_HPCR(v)) {
1017      /* 8-bit HP color recovery */
1018      setup_8bit_hpcr( v );
1019   }
1020}
1021
1022
1023
1024/**
1025 * Setup RGB rendering for a window with a monochrome visual.
1026 */
1027static void
1028setup_monochrome( XMesaVisual v, XMesaBuffer b )
1029{
1030   (void) b;
1031   v->dithered_pf = v->undithered_pf = PF_1Bit;
1032   /* if black=1 then we must flip pixel values */
1033   v->bitFlip = (GET_BLACK_PIXEL(v) != 0);
1034}
1035
1036
1037
1038/**
1039 * When a context is bound for the first time, we can finally finish
1040 * initializing the context's visual and buffer information.
1041 * \param v  the XMesaVisual to initialize
1042 * \param b  the XMesaBuffer to initialize (may be NULL)
1043 * \param rgb_flag  TRUE = RGBA mode, FALSE = color index mode
1044 * \param window  the window/pixmap we're rendering into
1045 * \param cmap  the colormap associated with the window/pixmap
1046 * \return GL_TRUE=success, GL_FALSE=failure
1047 */
1048static GLboolean
1049initialize_visual_and_buffer(XMesaVisual v, XMesaBuffer b,
1050                             GLboolean rgb_flag, XMesaDrawable window,
1051                             XMesaColormap cmap)
1052{
1053   int client = 0;
1054
1055#ifdef XFree86Server
1056   client = (window) ? CLIENT_ID(window->id) : 0;
1057#endif
1058
1059   ASSERT(!b || b->xm_visual == v);
1060
1061   /* Save true bits/pixel */
1062   v->BitsPerPixel = bits_per_pixel(v);
1063   assert(v->BitsPerPixel > 0);
1064
1065   if (rgb_flag == GL_FALSE) {
1066      /* COLOR-INDEXED WINDOW:
1067       * Even if the visual is TrueColor or DirectColor we treat it as
1068       * being color indexed.  This is weird but might be useful to someone.
1069       */
1070      v->dithered_pf = v->undithered_pf = PF_Index;
1071      v->mesa_visual.indexBits = GET_VISUAL_DEPTH(v);
1072   }
1073   else {
1074      /* RGB WINDOW:
1075       * We support RGB rendering into almost any kind of visual.
1076       */
1077      const int xclass = v->mesa_visual.visualType;
1078      if (xclass == GLX_TRUE_COLOR || xclass == GLX_DIRECT_COLOR) {
1079	 setup_truecolor( v, b, cmap );
1080      }
1081      else if (xclass == GLX_STATIC_GRAY && GET_VISUAL_DEPTH(v) == 1) {
1082	 setup_monochrome( v, b );
1083      }
1084      else if (xclass == GLX_GRAY_SCALE || xclass == GLX_STATIC_GRAY) {
1085         if (!setup_grayscale( client, v, b, cmap )) {
1086            return GL_FALSE;
1087         }
1088      }
1089      else if ((xclass == GLX_PSEUDO_COLOR || xclass == GLX_STATIC_COLOR)
1090               && GET_VISUAL_DEPTH(v)>=4 && GET_VISUAL_DEPTH(v)<=16) {
1091	 if (!setup_dithered_color( client, v, b, cmap )) {
1092            return GL_FALSE;
1093         }
1094      }
1095      else {
1096	 _mesa_warning(NULL, "XMesa: RGB mode rendering not supported in given visual.\n");
1097	 return GL_FALSE;
1098      }
1099      v->mesa_visual.indexBits = 0;
1100
1101      if (_mesa_getenv("MESA_NO_DITHER")) {
1102	 v->dithered_pf = v->undithered_pf;
1103      }
1104   }
1105
1106
1107   /*
1108    * If MESA_INFO env var is set print out some debugging info
1109    * which can help Brian figure out what's going on when a user
1110    * reports bugs.
1111    */
1112   if (_mesa_getenv("MESA_INFO")) {
1113      printf("X/Mesa visual = %p\n", (void *) v);
1114      printf("X/Mesa dithered pf = %u\n", v->dithered_pf);
1115      printf("X/Mesa undithered pf = %u\n", v->undithered_pf);
1116      printf("X/Mesa level = %d\n", v->mesa_visual.level);
1117      printf("X/Mesa depth = %d\n", GET_VISUAL_DEPTH(v));
1118      printf("X/Mesa bits per pixel = %d\n", v->BitsPerPixel);
1119   }
1120
1121   if (b && window) {
1122      char *data;
1123
1124      /* Do window-specific initializations */
1125
1126      /* these should have been set in create_xmesa_buffer */
1127      ASSERT(b->frontxrb->drawable == window);
1128      ASSERT(b->frontxrb->pixmap == (XMesaPixmap) window);
1129
1130      /* Setup for single/double buffering */
1131      if (v->mesa_visual.doubleBufferMode) {
1132         /* Double buffered */
1133         b->shm = check_for_xshm( v->display );
1134      }
1135
1136      /* X11 graphics contexts */
1137#ifdef XFree86Server
1138      b->gc = CreateScratchGC(v->display, window->depth);
1139#else
1140      b->gc = XCreateGC( v->display, window, 0, NULL );
1141#endif
1142      XMesaSetFunction( v->display, b->gc, GXcopy );
1143
1144      /* cleargc - for glClear() */
1145#ifdef XFree86Server
1146      b->cleargc = CreateScratchGC(v->display, window->depth);
1147#else
1148      b->cleargc = XCreateGC( v->display, window, 0, NULL );
1149#endif
1150      XMesaSetFunction( v->display, b->cleargc, GXcopy );
1151
1152      /*
1153       * Don't generate Graphics Expose/NoExpose events in swapbuffers().
1154       * Patch contributed by Michael Pichler May 15, 1995.
1155       */
1156#ifdef XFree86Server
1157      b->swapgc = CreateScratchGC(v->display, window->depth);
1158      {
1159         CARD32 v[1];
1160         v[0] = FALSE;
1161         dixChangeGC(NullClient, b->swapgc, GCGraphicsExposures, v, NULL);
1162      }
1163#else
1164      {
1165         XGCValues gcvalues;
1166         gcvalues.graphics_exposures = False;
1167         b->swapgc = XCreateGC(v->display, window,
1168                               GCGraphicsExposures, &gcvalues);
1169      }
1170#endif
1171      XMesaSetFunction( v->display, b->swapgc, GXcopy );
1172      /*
1173       * Set fill style and tile pixmap once for all for HPCR stuff
1174       * (instead of doing it each time in clear_color_HPCR_pixmap())
1175       * Initialize whole stuff
1176       * Patch contributed by Jacques Leroy March 8, 1998.
1177       */
1178      if (v->hpcr_clear_flag && b->backxrb && b->backxrb->pixmap) {
1179         int i;
1180         for (i = 0; i < 16; i++) {
1181            XMesaPutPixel(v->hpcr_clear_ximage, i, 0, 0);
1182            XMesaPutPixel(v->hpcr_clear_ximage, i, 1, 0);
1183         }
1184         XMesaPutImage(b->display, (XMesaDrawable) v->hpcr_clear_pixmap,
1185                       b->cleargc, v->hpcr_clear_ximage, 0, 0, 0, 0, 16, 2);
1186         XMesaSetFillStyle( v->display, b->cleargc, FillTiled);
1187         XMesaSetTile( v->display, b->cleargc, v->hpcr_clear_pixmap );
1188      }
1189
1190      /* Initialize the row buffer XImage for use in write_color_span() */
1191      data = (char*) MALLOC(MAX_WIDTH*4);
1192#ifdef XFree86Server
1193      b->rowimage = XMesaCreateImage(GET_VISUAL_DEPTH(v), MAX_WIDTH, 1, data);
1194#else
1195      b->rowimage = XCreateImage( v->display,
1196                                  v->visinfo->visual,
1197                                  v->visinfo->depth,
1198                                  ZPixmap, 0,           /*format, offset*/
1199                                  data,                 /*data*/
1200                                  MAX_WIDTH, 1,         /*width, height*/
1201                                  32,                   /*bitmap_pad*/
1202                                  0                     /*bytes_per_line*/ );
1203#endif
1204      if (!b->rowimage)
1205         return GL_FALSE;
1206   }
1207
1208   return GL_TRUE;
1209}
1210
1211
1212
1213/*
1214 * Convert an RGBA color to a pixel value.
1215 */
1216unsigned long
1217xmesa_color_to_pixel(GLcontext *ctx,
1218                     GLubyte r, GLubyte g, GLubyte b, GLubyte a,
1219                     GLuint pixelFormat)
1220{
1221   XMesaContext xmesa = XMESA_CONTEXT(ctx);
1222   switch (pixelFormat) {
1223      case PF_Index:
1224         return 0;
1225      case PF_Truecolor:
1226         {
1227            unsigned long p;
1228            PACK_TRUECOLOR( p, r, g, b );
1229            return p;
1230         }
1231      case PF_8A8B8G8R:
1232         return PACK_8A8B8G8R( r, g, b, a );
1233      case PF_8A8R8G8B:
1234         return PACK_8A8R8G8B( r, g, b, a );
1235      case PF_8R8G8B:
1236         /* fall through */
1237      case PF_8R8G8B24:
1238         return PACK_8R8G8B( r, g, b );
1239      case PF_5R6G5B:
1240         return PACK_5R6G5B( r, g, b );
1241      case PF_Dither:
1242         {
1243            DITHER_SETUP;
1244            return DITHER( 1, 0, r, g, b );
1245         }
1246      case PF_1Bit:
1247         /* 382 = (3*255)/2 */
1248         return ((r+g+b) > 382) ^ xmesa->xm_visual->bitFlip;
1249      case PF_HPCR:
1250         return DITHER_HPCR(1, 1, r, g, b);
1251      case PF_Lookup:
1252         {
1253            LOOKUP_SETUP;
1254            return LOOKUP( r, g, b );
1255         }
1256      case PF_Grayscale:
1257         return GRAY_RGB( r, g, b );
1258      case PF_Dither_True:
1259         /* fall through */
1260      case PF_Dither_5R6G5B:
1261         {
1262            unsigned long p;
1263            PACK_TRUEDITHER(p, 1, 0, r, g, b);
1264            return p;
1265         }
1266      default:
1267         _mesa_problem(ctx, "Bad pixel format in xmesa_color_to_pixel");
1268   }
1269   return 0;
1270}
1271
1272
1273#define NUM_VISUAL_TYPES   6
1274
1275/**
1276 * Convert an X visual type to a GLX visual type.
1277 *
1278 * \param visualType X visual type (i.e., \c TrueColor, \c StaticGray, etc.)
1279 *        to be converted.
1280 * \return If \c visualType is a valid X visual type, a GLX visual type will
1281 *         be returned.  Otherwise \c GLX_NONE will be returned.
1282 *
1283 * \note
1284 * This code was lifted directly from lib/GL/glx/glcontextmodes.c in the
1285 * DRI CVS tree.
1286 */
1287static GLint
1288xmesa_convert_from_x_visual_type( int visualType )
1289{
1290    static const int glx_visual_types[ NUM_VISUAL_TYPES ] = {
1291	GLX_STATIC_GRAY,  GLX_GRAY_SCALE,
1292	GLX_STATIC_COLOR, GLX_PSEUDO_COLOR,
1293	GLX_TRUE_COLOR,   GLX_DIRECT_COLOR
1294    };
1295
1296    return ( (unsigned) visualType < NUM_VISUAL_TYPES )
1297	? glx_visual_types[ visualType ] : GLX_NONE;
1298}
1299
1300
1301/**********************************************************************/
1302/*****                       Public Functions                     *****/
1303/**********************************************************************/
1304
1305
1306/*
1307 * Create a new X/Mesa visual.
1308 * Input:  display - X11 display
1309 *         visinfo - an XVisualInfo pointer
1310 *         rgb_flag - GL_TRUE = RGB mode,
1311 *                    GL_FALSE = color index mode
1312 *         alpha_flag - alpha buffer requested?
1313 *         db_flag - GL_TRUE = double-buffered,
1314 *                   GL_FALSE = single buffered
1315 *         stereo_flag - stereo visual?
1316 *         ximage_flag - GL_TRUE = use an XImage for back buffer,
1317 *                       GL_FALSE = use an off-screen pixmap for back buffer
1318 *         depth_size - requested bits/depth values, or zero
1319 *         stencil_size - requested bits/stencil values, or zero
1320 *         accum_red_size - requested bits/red accum values, or zero
1321 *         accum_green_size - requested bits/green accum values, or zero
1322 *         accum_blue_size - requested bits/blue accum values, or zero
1323 *         accum_alpha_size - requested bits/alpha accum values, or zero
1324 *         num_samples - number of samples/pixel if multisampling, or zero
1325 *         level - visual level, usually 0
1326 *         visualCaveat - ala the GLX extension, usually GLX_NONE
1327 * Return;  a new XMesaVisual or 0 if error.
1328 */
1329PUBLIC
1330XMesaVisual XMesaCreateVisual( XMesaDisplay *display,
1331                               XMesaVisualInfo visinfo,
1332                               GLboolean rgb_flag,
1333                               GLboolean alpha_flag,
1334                               GLboolean db_flag,
1335                               GLboolean stereo_flag,
1336                               GLboolean ximage_flag,
1337                               GLint depth_size,
1338                               GLint stencil_size,
1339                               GLint accum_red_size,
1340                               GLint accum_green_size,
1341                               GLint accum_blue_size,
1342                               GLint accum_alpha_size,
1343                               GLint num_samples,
1344                               GLint level,
1345                               GLint visualCaveat )
1346{
1347   char *gamma;
1348   XMesaVisual v;
1349   GLint red_bits, green_bits, blue_bits, alpha_bits;
1350
1351#ifndef XFree86Server
1352   /* For debugging only */
1353   if (_mesa_getenv("MESA_XSYNC")) {
1354      /* This makes debugging X easier.
1355       * In your debugger, set a breakpoint on _XError to stop when an
1356       * X protocol error is generated.
1357       */
1358      XSynchronize( display, 1 );
1359   }
1360#endif
1361
1362   v = (XMesaVisual) CALLOC_STRUCT(xmesa_visual);
1363   if (!v) {
1364      return NULL;
1365   }
1366
1367   v->display = display;
1368
1369   /* Save a copy of the XVisualInfo struct because the user may Xfree()
1370    * the struct but we may need some of the information contained in it
1371    * at a later time.
1372    */
1373#ifndef XFree86Server
1374   v->visinfo = (XVisualInfo *) MALLOC(sizeof(*visinfo));
1375   if(!v->visinfo) {
1376      free(v);
1377      return NULL;
1378   }
1379   memcpy(v->visinfo, visinfo, sizeof(*visinfo));
1380#endif
1381
1382   /* check for MESA_GAMMA environment variable */
1383   gamma = _mesa_getenv("MESA_GAMMA");
1384   if (gamma) {
1385      v->RedGamma = v->GreenGamma = v->BlueGamma = 0.0;
1386      sscanf( gamma, "%f %f %f", &v->RedGamma, &v->GreenGamma, &v->BlueGamma );
1387      if (v->RedGamma<=0.0)    v->RedGamma = 1.0;
1388      if (v->GreenGamma<=0.0)  v->GreenGamma = v->RedGamma;
1389      if (v->BlueGamma<=0.0)   v->BlueGamma = v->RedGamma;
1390   }
1391   else {
1392      v->RedGamma = v->GreenGamma = v->BlueGamma = 1.0;
1393   }
1394
1395   v->ximage_flag = ximage_flag;
1396
1397#ifdef XFree86Server
1398   /* We could calculate these values by ourselves.  nplanes is either the sum
1399    * of the red, green, and blue bits or the number index bits.
1400    * ColormapEntries is either (1U << index_bits) or
1401    * (1U << max(redBits, greenBits, blueBits)).
1402    */
1403   assert(visinfo->nplanes > 0);
1404   v->nplanes = visinfo->nplanes;
1405   v->ColormapEntries = visinfo->ColormapEntries;
1406
1407   v->mesa_visual.redMask = visinfo->redMask;
1408   v->mesa_visual.greenMask = visinfo->greenMask;
1409   v->mesa_visual.blueMask = visinfo->blueMask;
1410   v->mesa_visual.visualID = visinfo->vid;
1411   v->mesa_visual.screen = 0; /* FIXME: What should be done here? */
1412#else
1413   v->mesa_visual.redMask = visinfo->red_mask;
1414   v->mesa_visual.greenMask = visinfo->green_mask;
1415   v->mesa_visual.blueMask = visinfo->blue_mask;
1416   v->mesa_visual.visualID = visinfo->visualid;
1417   v->mesa_visual.screen = visinfo->screen;
1418#endif
1419
1420#if defined(XFree86Server) || !(defined(__cplusplus) || defined(c_plusplus))
1421   v->mesa_visual.visualType = xmesa_convert_from_x_visual_type(visinfo->class);
1422#else
1423   v->mesa_visual.visualType = xmesa_convert_from_x_visual_type(visinfo->c_class);
1424#endif
1425
1426   v->mesa_visual.visualRating = visualCaveat;
1427
1428   if (alpha_flag)
1429      v->mesa_visual.alphaBits = 8;
1430
1431   (void) initialize_visual_and_buffer( v, NULL, rgb_flag, 0, 0 );
1432
1433   {
1434      const int xclass = v->mesa_visual.visualType;
1435      if (xclass == GLX_TRUE_COLOR || xclass == GLX_DIRECT_COLOR) {
1436         red_bits   = _mesa_bitcount(GET_REDMASK(v));
1437         green_bits = _mesa_bitcount(GET_GREENMASK(v));
1438         blue_bits  = _mesa_bitcount(GET_BLUEMASK(v));
1439      }
1440      else {
1441         /* this is an approximation */
1442         int depth;
1443         depth = GET_VISUAL_DEPTH(v);
1444         red_bits = depth / 3;
1445         depth -= red_bits;
1446         green_bits = depth / 2;
1447         depth -= green_bits;
1448         blue_bits = depth;
1449         alpha_bits = 0;
1450         assert( red_bits + green_bits + blue_bits == GET_VISUAL_DEPTH(v) );
1451      }
1452      alpha_bits = v->mesa_visual.alphaBits;
1453   }
1454
1455   _mesa_initialize_visual( &v->mesa_visual,
1456                            rgb_flag, db_flag, stereo_flag,
1457                            red_bits, green_bits,
1458                            blue_bits, alpha_bits,
1459                            v->mesa_visual.indexBits,
1460                            depth_size,
1461                            stencil_size,
1462                            accum_red_size, accum_green_size,
1463                            accum_blue_size, accum_alpha_size,
1464                            0 );
1465
1466   /* XXX minor hack */
1467   v->mesa_visual.level = level;
1468   return v;
1469}
1470
1471
1472PUBLIC
1473void XMesaDestroyVisual( XMesaVisual v )
1474{
1475#ifndef XFree86Server
1476   free(v->visinfo);
1477#endif
1478   free(v);
1479}
1480
1481
1482
1483/**
1484 * Create a new XMesaContext.
1485 * \param v  the XMesaVisual
1486 * \param share_list  another XMesaContext with which to share display
1487 *                    lists or NULL if no sharing is wanted.
1488 * \return an XMesaContext or NULL if error.
1489 */
1490PUBLIC
1491XMesaContext XMesaCreateContext( XMesaVisual v, XMesaContext share_list )
1492{
1493   static GLboolean firstTime = GL_TRUE;
1494   XMesaContext c;
1495   GLcontext *mesaCtx;
1496   struct dd_function_table functions;
1497   TNLcontext *tnl;
1498
1499   if (firstTime) {
1500      _glthread_INIT_MUTEX(_xmesa_lock);
1501      firstTime = GL_FALSE;
1502   }
1503
1504   /* Note: the XMesaContext contains a Mesa GLcontext struct (inheritance) */
1505   c = (XMesaContext) CALLOC_STRUCT(xmesa_context);
1506   if (!c)
1507      return NULL;
1508
1509   mesaCtx = &(c->mesa);
1510
1511   /* initialize with default driver functions, then plug in XMesa funcs */
1512   _mesa_init_driver_functions(&functions);
1513   xmesa_init_driver_functions(v, &functions);
1514   if (!_mesa_initialize_context(mesaCtx, &v->mesa_visual,
1515                      share_list ? &(share_list->mesa) : (GLcontext *) NULL,
1516                      &functions, (void *) c)) {
1517      free(c);
1518      return NULL;
1519   }
1520
1521   /* Enable this to exercise fixed function -> shader translation
1522    * with software rendering.
1523    */
1524   if (0) {
1525      mesaCtx->VertexProgram._MaintainTnlProgram = GL_TRUE;
1526      mesaCtx->FragmentProgram._MaintainTexEnvProgram = GL_TRUE;
1527   }
1528
1529   _mesa_enable_sw_extensions(mesaCtx);
1530   _mesa_enable_1_3_extensions(mesaCtx);
1531   _mesa_enable_1_4_extensions(mesaCtx);
1532   _mesa_enable_1_5_extensions(mesaCtx);
1533   _mesa_enable_2_0_extensions(mesaCtx);
1534   _mesa_enable_2_1_extensions(mesaCtx);
1535#if ENABLE_EXT_texure_compression_s3tc
1536    if (mesaCtx->Mesa_DXTn) {
1537       _mesa_enable_extension(mesaCtx, "GL_EXT_texture_compression_s3tc");
1538       _mesa_enable_extension(mesaCtx, "GL_S3_s3tc");
1539    }
1540    _mesa_enable_extension(mesaCtx, "GL_3DFX_texture_compression_FXT1");
1541#endif
1542#if ENABLE_EXT_timer_query
1543    _mesa_enable_extension(mesaCtx, "GL_EXT_timer_query");
1544#endif
1545
1546#ifdef XFree86Server
1547   /* If we're running in the X server, do bounds checking to prevent
1548    * segfaults and server crashes!
1549    */
1550   mesaCtx->Const.CheckArrayBounds = GL_TRUE;
1551#endif
1552
1553   /* finish up xmesa context initializations */
1554   c->swapbytes = CHECK_BYTE_ORDER(v) ? GL_FALSE : GL_TRUE;
1555   c->xm_visual = v;
1556   c->xm_buffer = NULL;   /* set later by XMesaMakeCurrent */
1557   c->display = v->display;
1558   c->pixelformat = v->dithered_pf;      /* Dithering is enabled by default */
1559
1560   /* Initialize the software rasterizer and helper modules.
1561    */
1562   if (!_swrast_CreateContext( mesaCtx ) ||
1563       !_vbo_CreateContext( mesaCtx ) ||
1564       !_tnl_CreateContext( mesaCtx ) ||
1565       !_swsetup_CreateContext( mesaCtx )) {
1566      _mesa_free_context_data(&c->mesa);
1567      free(c);
1568      return NULL;
1569   }
1570
1571   /* tnl setup */
1572   tnl = TNL_CONTEXT(mesaCtx);
1573   tnl->Driver.RunPipeline = _tnl_run_pipeline;
1574   /* swrast setup */
1575   xmesa_register_swrast_functions( mesaCtx );
1576   _swsetup_Wakeup(mesaCtx);
1577
1578   _mesa_meta_init(mesaCtx);
1579
1580   return c;
1581}
1582
1583
1584
1585PUBLIC
1586void XMesaDestroyContext( XMesaContext c )
1587{
1588   GLcontext *mesaCtx = &c->mesa;
1589
1590#ifdef FX
1591   FXdestroyContext( XMESA_BUFFER(mesaCtx->DrawBuffer) );
1592#endif
1593
1594   _mesa_meta_free( mesaCtx );
1595
1596   _swsetup_DestroyContext( mesaCtx );
1597   _swrast_DestroyContext( mesaCtx );
1598   _tnl_DestroyContext( mesaCtx );
1599   _vbo_DestroyContext( mesaCtx );
1600   _mesa_free_context_data( mesaCtx );
1601   free( c );
1602}
1603
1604
1605
1606/**
1607 * Private function for creating an XMesaBuffer which corresponds to an
1608 * X window or pixmap.
1609 * \param v  the window's XMesaVisual
1610 * \param w  the window we're wrapping
1611 * \return  new XMesaBuffer or NULL if error
1612 */
1613PUBLIC XMesaBuffer
1614XMesaCreateWindowBuffer(XMesaVisual v, XMesaWindow w)
1615{
1616#ifndef XFree86Server
1617   XWindowAttributes attr;
1618#endif
1619   XMesaBuffer b;
1620   XMesaColormap cmap;
1621   int depth;
1622
1623   assert(v);
1624   assert(w);
1625
1626   /* Check that window depth matches visual depth */
1627#ifdef XFree86Server
1628   depth = ((XMesaDrawable)w)->depth;
1629#else
1630   XGetWindowAttributes( v->display, w, &attr );
1631   depth = attr.depth;
1632#endif
1633   if (GET_VISUAL_DEPTH(v) != depth) {
1634      _mesa_warning(NULL, "XMesaCreateWindowBuffer: depth mismatch between visual (%d) and window (%d)!\n",
1635                    GET_VISUAL_DEPTH(v), depth);
1636      return NULL;
1637   }
1638
1639   /* Find colormap */
1640#ifdef XFree86Server
1641   cmap = (ColormapPtr)LookupIDByType(wColormap(w), RT_COLORMAP);
1642#else
1643   if (attr.colormap) {
1644      cmap = attr.colormap;
1645   }
1646   else {
1647      _mesa_warning(NULL, "Window %u has no colormap!\n", (unsigned int) w);
1648      /* this is weird, a window w/out a colormap!? */
1649      /* OK, let's just allocate a new one and hope for the best */
1650      cmap = XCreateColormap(v->display, w, attr.visual, AllocNone);
1651   }
1652#endif
1653
1654   b = create_xmesa_buffer((XMesaDrawable) w, WINDOW, v, cmap);
1655   if (!b)
1656      return NULL;
1657
1658   if (!initialize_visual_and_buffer( v, b, v->mesa_visual.rgbMode,
1659                                      (XMesaDrawable) w, cmap )) {
1660      xmesa_free_buffer(b);
1661      return NULL;
1662   }
1663
1664   return b;
1665}
1666
1667
1668
1669/**
1670 * Create a new XMesaBuffer from an X pixmap.
1671 *
1672 * \param v    the XMesaVisual
1673 * \param p    the pixmap
1674 * \param cmap the colormap, may be 0 if using a \c GLX_TRUE_COLOR or
1675 *             \c GLX_DIRECT_COLOR visual for the pixmap
1676 * \returns new XMesaBuffer or NULL if error
1677 */
1678PUBLIC XMesaBuffer
1679XMesaCreatePixmapBuffer(XMesaVisual v, XMesaPixmap p, XMesaColormap cmap)
1680{
1681   XMesaBuffer b;
1682
1683   assert(v);
1684
1685   b = create_xmesa_buffer((XMesaDrawable) p, PIXMAP, v, cmap);
1686   if (!b)
1687      return NULL;
1688
1689   if (!initialize_visual_and_buffer(v, b, v->mesa_visual.rgbMode,
1690				     (XMesaDrawable) p, cmap)) {
1691      xmesa_free_buffer(b);
1692      return NULL;
1693   }
1694
1695   return b;
1696}
1697
1698
1699/**
1700 * For GLX_EXT_texture_from_pixmap
1701 */
1702XMesaBuffer
1703XMesaCreatePixmapTextureBuffer(XMesaVisual v, XMesaPixmap p,
1704                               XMesaColormap cmap,
1705                               int format, int target, int mipmap)
1706{
1707   GET_CURRENT_CONTEXT(ctx);
1708   XMesaBuffer b;
1709   GLuint width, height;
1710
1711   assert(v);
1712
1713   b = create_xmesa_buffer((XMesaDrawable) p, PIXMAP, v, cmap);
1714   if (!b)
1715      return NULL;
1716
1717   /* get pixmap size, update framebuffer/renderbuffer dims */
1718   xmesa_get_window_size(v->display, b, &width, &height);
1719   _mesa_resize_framebuffer(NULL, &(b->mesa_buffer), width, height);
1720
1721   if (target == 0) {
1722      /* examine dims */
1723      if (ctx->Extensions.ARB_texture_non_power_of_two) {
1724         target = GLX_TEXTURE_2D_EXT;
1725      }
1726      else if (   _mesa_bitcount(width)  == 1
1727               && _mesa_bitcount(height) == 1) {
1728         /* power of two size */
1729         if (height == 1) {
1730            target = GLX_TEXTURE_1D_EXT;
1731         }
1732         else {
1733            target = GLX_TEXTURE_2D_EXT;
1734         }
1735      }
1736      else if (ctx->Extensions.NV_texture_rectangle) {
1737         target = GLX_TEXTURE_RECTANGLE_EXT;
1738      }
1739      else {
1740         /* non power of two textures not supported */
1741         XMesaDestroyBuffer(b);
1742         return 0;
1743      }
1744   }
1745
1746   b->TextureTarget = target;
1747   b->TextureFormat = format;
1748   b->TextureMipmap = mipmap;
1749
1750   if (!initialize_visual_and_buffer(v, b, v->mesa_visual.rgbMode,
1751				     (XMesaDrawable) p, cmap)) {
1752      xmesa_free_buffer(b);
1753      return NULL;
1754   }
1755
1756   return b;
1757}
1758
1759
1760
1761XMesaBuffer
1762XMesaCreatePBuffer(XMesaVisual v, XMesaColormap cmap,
1763                   unsigned int width, unsigned int height)
1764{
1765#ifndef XFree86Server
1766   XMesaWindow root;
1767   XMesaDrawable drawable;  /* X Pixmap Drawable */
1768   XMesaBuffer b;
1769
1770   /* allocate pixmap for front buffer */
1771   root = RootWindow( v->display, v->visinfo->screen );
1772   drawable = XCreatePixmap(v->display, root, width, height,
1773                            v->visinfo->depth);
1774   if (!drawable)
1775      return NULL;
1776
1777   b = create_xmesa_buffer(drawable, PBUFFER, v, cmap);
1778   if (!b)
1779      return NULL;
1780
1781   if (!initialize_visual_and_buffer(v, b, v->mesa_visual.rgbMode,
1782				     drawable, cmap)) {
1783      xmesa_free_buffer(b);
1784      return NULL;
1785   }
1786
1787   return b;
1788#else
1789   return 0;
1790#endif
1791}
1792
1793
1794
1795/*
1796 * Deallocate an XMesaBuffer structure and all related info.
1797 */
1798PUBLIC void
1799XMesaDestroyBuffer(XMesaBuffer b)
1800{
1801   xmesa_free_buffer(b);
1802}
1803
1804
1805/**
1806 * Query the current window size and update the corresponding GLframebuffer
1807 * and all attached renderbuffers.
1808 * Called when:
1809 *  1. the first time a buffer is bound to a context.
1810 *  2. from glViewport to poll for window size changes
1811 *  3. from the XMesaResizeBuffers() API function.
1812 * Note: it's possible (and legal) for xmctx to be NULL.  That can happen
1813 * when resizing a buffer when no rendering context is bound.
1814 */
1815void
1816xmesa_check_and_update_buffer_size(XMesaContext xmctx, XMesaBuffer drawBuffer)
1817{
1818   GLuint width, height;
1819   xmesa_get_window_size(drawBuffer->display, drawBuffer, &width, &height);
1820   if (drawBuffer->mesa_buffer.Width != width ||
1821       drawBuffer->mesa_buffer.Height != height) {
1822      GLcontext *ctx = xmctx ? &xmctx->mesa : NULL;
1823      _mesa_resize_framebuffer(ctx, &(drawBuffer->mesa_buffer), width, height);
1824   }
1825   drawBuffer->mesa_buffer.Initialized = GL_TRUE; /* XXX TEMPORARY? */
1826}
1827
1828
1829/*
1830 * Bind buffer b to context c and make c the current rendering context.
1831 */
1832GLboolean XMesaMakeCurrent( XMesaContext c, XMesaBuffer b )
1833{
1834   return XMesaMakeCurrent2( c, b, b );
1835}
1836
1837
1838/*
1839 * Bind buffer b to context c and make c the current rendering context.
1840 */
1841PUBLIC
1842GLboolean XMesaMakeCurrent2( XMesaContext c, XMesaBuffer drawBuffer,
1843                             XMesaBuffer readBuffer )
1844{
1845   if (c) {
1846      if (!drawBuffer || !readBuffer)
1847         return GL_FALSE;  /* must specify buffers! */
1848
1849      if (&(c->mesa) == _mesa_get_current_context()
1850          && c->mesa.DrawBuffer == &drawBuffer->mesa_buffer
1851          && c->mesa.ReadBuffer == &readBuffer->mesa_buffer
1852          && XMESA_BUFFER(c->mesa.DrawBuffer)->wasCurrent) {
1853         /* same context and buffer, do nothing */
1854         return GL_TRUE;
1855      }
1856
1857      c->xm_buffer = drawBuffer;
1858
1859#ifdef FX
1860      if (FXmakeCurrent( drawBuffer ))
1861         return GL_TRUE;
1862#endif
1863
1864      /* Call this periodically to detect when the user has begun using
1865       * GL rendering from multiple threads.
1866       */
1867      _glapi_check_multithread();
1868
1869      xmesa_check_and_update_buffer_size(c, drawBuffer);
1870      if (readBuffer != drawBuffer)
1871         xmesa_check_and_update_buffer_size(c, readBuffer);
1872
1873      _mesa_make_current(&(c->mesa),
1874                         &drawBuffer->mesa_buffer,
1875                         &readBuffer->mesa_buffer);
1876
1877      if (c->xm_visual->mesa_visual.rgbMode) {
1878         /*
1879          * Must recompute and set these pixel values because colormap
1880          * can be different for different windows.
1881          */
1882         c->clearpixel = xmesa_color_to_pixel( &c->mesa,
1883                                               c->clearcolor[0],
1884                                               c->clearcolor[1],
1885                                               c->clearcolor[2],
1886                                               c->clearcolor[3],
1887                                               c->xm_visual->undithered_pf);
1888         XMesaSetForeground(c->display, drawBuffer->cleargc, c->clearpixel);
1889      }
1890
1891      /* Solution to Stephane Rehel's problem with glXReleaseBuffersMESA(): */
1892      drawBuffer->wasCurrent = GL_TRUE;
1893   }
1894   else {
1895      /* Detach */
1896      _mesa_make_current( NULL, NULL, NULL );
1897   }
1898   return GL_TRUE;
1899}
1900
1901
1902/*
1903 * Unbind the context c from its buffer.
1904 */
1905GLboolean XMesaUnbindContext( XMesaContext c )
1906{
1907   /* A no-op for XFree86 integration purposes */
1908   return GL_TRUE;
1909}
1910
1911
1912XMesaContext XMesaGetCurrentContext( void )
1913{
1914   GET_CURRENT_CONTEXT(ctx);
1915   if (ctx) {
1916      XMesaContext xmesa = XMESA_CONTEXT(ctx);
1917      return xmesa;
1918   }
1919   else {
1920      return 0;
1921   }
1922}
1923
1924
1925XMesaBuffer XMesaGetCurrentBuffer( void )
1926{
1927   GET_CURRENT_CONTEXT(ctx);
1928   if (ctx) {
1929      XMesaBuffer xmbuf = XMESA_BUFFER(ctx->DrawBuffer);
1930      return xmbuf;
1931   }
1932   else {
1933      return 0;
1934   }
1935}
1936
1937
1938/* New in Mesa 3.1 */
1939XMesaBuffer XMesaGetCurrentReadBuffer( void )
1940{
1941   GET_CURRENT_CONTEXT(ctx);
1942   if (ctx) {
1943      return XMESA_BUFFER(ctx->ReadBuffer);
1944   }
1945   else {
1946      return 0;
1947   }
1948}
1949
1950
1951#ifdef XFree86Server
1952PUBLIC
1953GLboolean XMesaForceCurrent(XMesaContext c)
1954{
1955   if (c) {
1956      _glapi_set_dispatch(c->mesa.CurrentDispatch);
1957
1958      if (&(c->mesa) != _mesa_get_current_context()) {
1959	 _mesa_make_current(&c->mesa, c->mesa.DrawBuffer, c->mesa.ReadBuffer);
1960      }
1961   }
1962   else {
1963      _mesa_make_current(NULL, NULL, NULL);
1964   }
1965   return GL_TRUE;
1966}
1967
1968
1969PUBLIC
1970GLboolean XMesaLoseCurrent(XMesaContext c)
1971{
1972   (void) c;
1973   _mesa_make_current(NULL, NULL, NULL);
1974   return GL_TRUE;
1975}
1976
1977
1978PUBLIC
1979GLboolean XMesaCopyContext( XMesaContext xm_src, XMesaContext xm_dst, GLuint mask )
1980{
1981   _mesa_copy_context(&xm_src->mesa, &xm_dst->mesa, mask);
1982   return GL_TRUE;
1983}
1984#endif /* XFree86Server */
1985
1986
1987#ifndef FX
1988GLboolean XMesaSetFXmode( GLint mode )
1989{
1990   (void) mode;
1991   return GL_FALSE;
1992}
1993#endif
1994
1995
1996
1997/*
1998 * Copy the back buffer to the front buffer.  If there's no back buffer
1999 * this is a no-op.
2000 */
2001PUBLIC
2002void XMesaSwapBuffers( XMesaBuffer b )
2003{
2004   GET_CURRENT_CONTEXT(ctx);
2005
2006   if (!b->backxrb) {
2007      /* single buffered */
2008      return;
2009   }
2010
2011   /* If we're swapping the buffer associated with the current context
2012    * we have to flush any pending rendering commands first.
2013    */
2014   if (ctx && ctx->DrawBuffer == &(b->mesa_buffer))
2015      _mesa_notifySwapBuffers(ctx);
2016
2017   if (b->db_mode) {
2018#ifdef FX
2019      if (FXswapBuffers(b))
2020         return;
2021#endif
2022      if (b->backxrb->ximage) {
2023	 /* Copy Ximage (back buf) from client memory to server window */
2024#if defined(USE_XSHM) && !defined(XFree86Server)
2025	 if (b->shm) {
2026            /*_glthread_LOCK_MUTEX(_xmesa_lock);*/
2027	    XShmPutImage( b->xm_visual->display, b->frontxrb->drawable,
2028			  b->swapgc,
2029			  b->backxrb->ximage, 0, 0,
2030			  0, 0, b->mesa_buffer.Width, b->mesa_buffer.Height,
2031                          False );
2032            /*_glthread_UNLOCK_MUTEX(_xmesa_lock);*/
2033	 }
2034	 else
2035#endif
2036         {
2037            /*_glthread_LOCK_MUTEX(_xmesa_lock);*/
2038            XMesaPutImage( b->xm_visual->display, b->frontxrb->drawable,
2039			   b->swapgc,
2040			   b->backxrb->ximage, 0, 0,
2041			   0, 0, b->mesa_buffer.Width, b->mesa_buffer.Height );
2042            /*_glthread_UNLOCK_MUTEX(_xmesa_lock);*/
2043         }
2044      }
2045      else if (b->backxrb->pixmap) {
2046	 /* Copy pixmap (back buf) to window (front buf) on server */
2047         /*_glthread_LOCK_MUTEX(_xmesa_lock);*/
2048	 XMesaCopyArea( b->xm_visual->display,
2049			b->backxrb->pixmap,   /* source drawable */
2050			b->frontxrb->drawable,  /* dest. drawable */
2051			b->swapgc,
2052			0, 0, b->mesa_buffer.Width, b->mesa_buffer.Height,
2053			0, 0                 /* dest region */
2054		      );
2055         /*_glthread_UNLOCK_MUTEX(_xmesa_lock);*/
2056      }
2057
2058      if (b->swAlpha)
2059         _mesa_copy_soft_alpha_renderbuffers(ctx, &b->mesa_buffer);
2060   }
2061#if !defined(XFree86Server)
2062   XSync( b->xm_visual->display, False );
2063#endif
2064}
2065
2066
2067
2068/*
2069 * Copy sub-region of back buffer to front buffer
2070 */
2071void XMesaCopySubBuffer( XMesaBuffer b, int x, int y, int width, int height )
2072{
2073   GET_CURRENT_CONTEXT(ctx);
2074
2075   /* If we're swapping the buffer associated with the current context
2076    * we have to flush any pending rendering commands first.
2077    */
2078   if (ctx && ctx->DrawBuffer == &(b->mesa_buffer))
2079      _mesa_notifySwapBuffers(ctx);
2080
2081   if (!b->backxrb) {
2082      /* single buffered */
2083      return;
2084   }
2085
2086   if (b->db_mode) {
2087      int yTop = b->mesa_buffer.Height - y - height;
2088#ifdef FX
2089      if (FXswapBuffers(b))
2090         return;
2091#endif
2092      if (b->backxrb->ximage) {
2093         /* Copy Ximage from host's memory to server's window */
2094#if defined(USE_XSHM) && !defined(XFree86Server)
2095         if (b->shm) {
2096            /* XXX assuming width and height aren't too large! */
2097            XShmPutImage( b->xm_visual->display, b->frontxrb->drawable,
2098                          b->swapgc,
2099                          b->backxrb->ximage, x, yTop,
2100                          x, yTop, width, height, False );
2101            /* wait for finished event??? */
2102         }
2103         else
2104#endif
2105         {
2106            /* XXX assuming width and height aren't too large! */
2107            XMesaPutImage( b->xm_visual->display, b->frontxrb->drawable,
2108			   b->swapgc,
2109			   b->backxrb->ximage, x, yTop,
2110			   x, yTop, width, height );
2111         }
2112      }
2113      else {
2114         /* Copy pixmap to window on server */
2115         XMesaCopyArea( b->xm_visual->display,
2116			b->backxrb->pixmap,           /* source drawable */
2117			b->frontxrb->drawable,        /* dest. drawable */
2118			b->swapgc,
2119			x, yTop, width, height,  /* source region */
2120			x, yTop                  /* dest region */
2121                      );
2122      }
2123   }
2124}
2125
2126
2127/*
2128 * Return a pointer to the XMesa backbuffer Pixmap or XImage.  This function
2129 * is a way to get "under the hood" of X/Mesa so one can manipulate the
2130 * back buffer directly.
2131 * Output:  pixmap - pointer to back buffer's Pixmap, or 0
2132 *          ximage - pointer to back buffer's XImage, or NULL
2133 * Return:  GL_TRUE = context is double buffered
2134 *          GL_FALSE = context is single buffered
2135 */
2136#ifndef XFree86Server
2137GLboolean XMesaGetBackBuffer( XMesaBuffer b,
2138                              XMesaPixmap *pixmap,
2139                              XMesaImage **ximage )
2140{
2141   if (b->db_mode) {
2142      if (pixmap)
2143         *pixmap = b->backxrb->pixmap;
2144      if (ximage)
2145         *ximage = b->backxrb->ximage;
2146      return GL_TRUE;
2147   }
2148   else {
2149      *pixmap = 0;
2150      *ximage = NULL;
2151      return GL_FALSE;
2152   }
2153}
2154#endif /* XFree86Server */
2155
2156
2157/*
2158 * Return the depth buffer associated with an XMesaBuffer.
2159 * Input:  b - the XMesa buffer handle
2160 * Output:  width, height - size of buffer in pixels
2161 *          bytesPerValue - bytes per depth value (2 or 4)
2162 *          buffer - pointer to depth buffer values
2163 * Return:  GL_TRUE or GL_FALSE to indicate success or failure.
2164 */
2165GLboolean XMesaGetDepthBuffer( XMesaBuffer b, GLint *width, GLint *height,
2166                               GLint *bytesPerValue, void **buffer )
2167{
2168   struct gl_renderbuffer *rb
2169      = b->mesa_buffer.Attachment[BUFFER_DEPTH].Renderbuffer;
2170   if (!rb || !rb->Data) {
2171      *width = 0;
2172      *height = 0;
2173      *bytesPerValue = 0;
2174      *buffer = 0;
2175      return GL_FALSE;
2176   }
2177   else {
2178      *width = b->mesa_buffer.Width;
2179      *height = b->mesa_buffer.Height;
2180      *bytesPerValue = b->mesa_buffer.Visual.depthBits <= 16
2181         ? sizeof(GLushort) : sizeof(GLuint);
2182      *buffer = rb->Data;
2183      return GL_TRUE;
2184   }
2185}
2186
2187
2188void XMesaFlush( XMesaContext c )
2189{
2190   if (c && c->xm_visual) {
2191#ifdef XFree86Server
2192      /* NOT_NEEDED */
2193#else
2194      XSync( c->xm_visual->display, False );
2195#endif
2196   }
2197}
2198
2199
2200
2201const char *XMesaGetString( XMesaContext c, int name )
2202{
2203   (void) c;
2204   if (name==XMESA_VERSION) {
2205      return "5.0";
2206   }
2207   else if (name==XMESA_EXTENSIONS) {
2208      return "";
2209   }
2210   else {
2211      return NULL;
2212   }
2213}
2214
2215
2216
2217XMesaBuffer XMesaFindBuffer( XMesaDisplay *dpy, XMesaDrawable d )
2218{
2219   XMesaBuffer b;
2220   for (b=XMesaBufferList; b; b=b->Next) {
2221      if (b->frontxrb->drawable == d && b->display == dpy) {
2222         return b;
2223      }
2224   }
2225   return NULL;
2226}
2227
2228
2229/**
2230 * Free/destroy all XMesaBuffers associated with given display.
2231 */
2232void xmesa_destroy_buffers_on_display(XMesaDisplay *dpy)
2233{
2234   XMesaBuffer b, next;
2235   for (b = XMesaBufferList; b; b = next) {
2236      next = b->Next;
2237      if (b->display == dpy) {
2238         xmesa_free_buffer(b);
2239      }
2240   }
2241}
2242
2243
2244/*
2245 * Look for XMesaBuffers whose X window has been destroyed.
2246 * Deallocate any such XMesaBuffers.
2247 */
2248void XMesaGarbageCollect( void )
2249{
2250   XMesaBuffer b, next;
2251   for (b=XMesaBufferList; b; b=next) {
2252      next = b->Next;
2253      if (b->display && b->frontxrb->drawable && b->type == WINDOW) {
2254#ifdef XFree86Server
2255	 /* NOT_NEEDED */
2256#else
2257         XSync(b->display, False);
2258         if (!window_exists( b->display, b->frontxrb->drawable )) {
2259            /* found a dead window, free the ancillary info */
2260            XMesaDestroyBuffer( b );
2261         }
2262#endif
2263      }
2264   }
2265}
2266
2267
2268unsigned long XMesaDitherColor( XMesaContext xmesa, GLint x, GLint y,
2269                                GLfloat red, GLfloat green,
2270                                GLfloat blue, GLfloat alpha )
2271{
2272   GLcontext *ctx = &xmesa->mesa;
2273   GLint r = (GLint) (red   * 255.0F);
2274   GLint g = (GLint) (green * 255.0F);
2275   GLint b = (GLint) (blue  * 255.0F);
2276   GLint a = (GLint) (alpha * 255.0F);
2277
2278   switch (xmesa->pixelformat) {
2279      case PF_Index:
2280         return 0;
2281      case PF_Truecolor:
2282         {
2283            unsigned long p;
2284            PACK_TRUECOLOR( p, r, g, b );
2285            return p;
2286         }
2287      case PF_8A8B8G8R:
2288         return PACK_8A8B8G8R( r, g, b, a );
2289      case PF_8A8R8G8B:
2290         return PACK_8A8R8G8B( r, g, b, a );
2291      case PF_8R8G8B:
2292         return PACK_8R8G8B( r, g, b );
2293      case PF_5R6G5B:
2294         return PACK_5R6G5B( r, g, b );
2295      case PF_Dither:
2296         {
2297            DITHER_SETUP;
2298            return DITHER( x, y, r, g, b );
2299         }
2300      case PF_1Bit:
2301         /* 382 = (3*255)/2 */
2302         return ((r+g+b) > 382) ^ xmesa->xm_visual->bitFlip;
2303      case PF_HPCR:
2304         return DITHER_HPCR(x, y, r, g, b);
2305      case PF_Lookup:
2306         {
2307            LOOKUP_SETUP;
2308            return LOOKUP( r, g, b );
2309         }
2310      case PF_Grayscale:
2311         return GRAY_RGB( r, g, b );
2312      case PF_Dither_5R6G5B:
2313         /* fall through */
2314      case PF_Dither_True:
2315         {
2316            unsigned long p;
2317            PACK_TRUEDITHER(p, x, y, r, g, b);
2318            return p;
2319         }
2320      default:
2321         _mesa_problem(NULL, "Bad pixel format in XMesaDitherColor");
2322   }
2323   return 0;
2324}
2325
2326
2327/*
2328 * This is typically called when the window size changes and we need
2329 * to reallocate the buffer's back/depth/stencil/accum buffers.
2330 */
2331PUBLIC void
2332XMesaResizeBuffers( XMesaBuffer b )
2333{
2334   GET_CURRENT_CONTEXT(ctx);
2335   XMesaContext xmctx = XMESA_CONTEXT(ctx);
2336   if (!xmctx)
2337      return;
2338   xmesa_check_and_update_buffer_size(xmctx, b);
2339}
2340
2341
2342static GLint
2343xbuffer_to_renderbuffer(int buffer)
2344{
2345   assert(MAX_AUX_BUFFERS <= 4);
2346
2347   switch (buffer) {
2348   case GLX_FRONT_LEFT_EXT:
2349      return BUFFER_FRONT_LEFT;
2350   case GLX_FRONT_RIGHT_EXT:
2351      return BUFFER_FRONT_RIGHT;
2352   case GLX_BACK_LEFT_EXT:
2353      return BUFFER_BACK_LEFT;
2354   case GLX_BACK_RIGHT_EXT:
2355      return BUFFER_BACK_RIGHT;
2356   case GLX_AUX0_EXT:
2357      return BUFFER_AUX0;
2358   case GLX_AUX1_EXT:
2359   case GLX_AUX2_EXT:
2360   case GLX_AUX3_EXT:
2361   case GLX_AUX4_EXT:
2362   case GLX_AUX5_EXT:
2363   case GLX_AUX6_EXT:
2364   case GLX_AUX7_EXT:
2365   case GLX_AUX8_EXT:
2366   case GLX_AUX9_EXT:
2367   default:
2368      /* BadValue error */
2369      return -1;
2370   }
2371}
2372
2373
2374PUBLIC void
2375XMesaBindTexImage(XMesaDisplay *dpy, XMesaBuffer drawable, int buffer,
2376                  const int *attrib_list)
2377{
2378#if 0
2379   GET_CURRENT_CONTEXT(ctx);
2380   const GLuint unit = ctx->Texture.CurrentUnit;
2381   struct gl_texture_unit *texUnit = &ctx->Texture.Unit[unit];
2382   struct gl_texture_object *texObj;
2383#endif
2384   struct gl_renderbuffer *rb;
2385   struct xmesa_renderbuffer *xrb;
2386   GLint b;
2387   XMesaImage *img = NULL;
2388   GLboolean freeImg = GL_FALSE;
2389
2390   b = xbuffer_to_renderbuffer(buffer);
2391   if (b < 0)
2392      return;
2393
2394   if (drawable->TextureFormat == GLX_TEXTURE_FORMAT_NONE_EXT)
2395      return; /* BadMatch error */
2396
2397   rb = drawable->mesa_buffer.Attachment[b].Renderbuffer;
2398   if (!rb) {
2399      /* invalid buffer */
2400      return;
2401   }
2402   xrb = xmesa_renderbuffer(rb);
2403
2404#if 0
2405   switch (drawable->TextureTarget) {
2406   case GLX_TEXTURE_1D_EXT:
2407      texObj = texUnit->CurrentTex[TEXTURE_1D_INDEX];
2408      break;
2409   case GLX_TEXTURE_2D_EXT:
2410      texObj = texUnit->CurrentTex[TEXTURE_2D_INDEX];
2411      break;
2412   case GLX_TEXTURE_RECTANGLE_EXT:
2413      texObj = texUnit->CurrentTex[TEXTURE_RECT_INDEX];
2414      break;
2415   default:
2416      return; /* BadMatch error */
2417   }
2418#endif
2419
2420   /*
2421    * The following is a quick and simple way to implement
2422    * BindTexImage.  The better way is to write some new FetchTexel()
2423    * functions which would extract texels from XImages.  We'd still
2424    * need to use GetImage when texturing from a Pixmap (front buffer)
2425    * but texturing from a back buffer (XImage) would avoid an image
2426    * copy.
2427    */
2428
2429   /* get XImage */
2430   if (xrb->pixmap) {
2431      img = XMesaGetImage(dpy, xrb->pixmap, 0, 0, rb->Width, rb->Height, ~0L,
2432			  ZPixmap);
2433      freeImg = GL_TRUE;
2434   }
2435   else if (xrb->ximage) {
2436      img = xrb->ximage;
2437   }
2438
2439   /* store the XImage as a new texture image */
2440   if (img) {
2441      GLenum format, type, intFormat;
2442      if (img->bits_per_pixel == 32) {
2443         format = GL_BGRA;
2444         type = GL_UNSIGNED_BYTE;
2445         intFormat = GL_RGBA;
2446      }
2447      else if (img->bits_per_pixel == 24) {
2448         format = GL_BGR;
2449         type = GL_UNSIGNED_BYTE;
2450         intFormat = GL_RGB;
2451      }
2452      else if (img->bits_per_pixel == 16) {
2453         format = GL_BGR;
2454         type = GL_UNSIGNED_SHORT_5_6_5;
2455         intFormat = GL_RGB;
2456      }
2457      else {
2458         _mesa_problem(NULL, "Unexpected XImage format in XMesaBindTexImage");
2459         return;
2460      }
2461      if (drawable->TextureFormat == GLX_TEXTURE_FORMAT_RGBA_EXT) {
2462         intFormat = GL_RGBA;
2463      }
2464      else if (drawable->TextureFormat == GLX_TEXTURE_FORMAT_RGB_EXT) {
2465         intFormat = GL_RGB;
2466      }
2467
2468      _mesa_TexImage2D(GL_TEXTURE_2D, 0, intFormat, rb->Width, rb->Height, 0,
2469                       format, type, img->data);
2470
2471      if (freeImg) {
2472	 XMesaDestroyImage(img);
2473      }
2474   }
2475}
2476
2477
2478
2479PUBLIC void
2480XMesaReleaseTexImage(XMesaDisplay *dpy, XMesaBuffer drawable, int buffer)
2481{
2482   const GLint b = xbuffer_to_renderbuffer(buffer);
2483   if (b < 0)
2484      return;
2485
2486   /* no-op for now */
2487}
2488
2489