From http://www.jwz.org/xscreensaver/xscreensaver-5.37.tar.gz
[xscreensaver] / hacks / glx / texfont.c
index 0602344de7a779284a0d0381fcdae1a0663cdd7f..5388efd4f75f94b3d35c28a5cba52fb832433dbd 100644 (file)
@@ -1,4 +1,4 @@
-/* texfonts, Copyright (c) 2005-2014 Jamie Zawinski <jwz@jwz.org>
+/* texfonts, Copyright (c) 2005-2017 Jamie Zawinski <jwz@jwz.org>
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
@@ -44,6 +44,7 @@
 #endif /* HAVE_XSHM_EXTENSION */
 
 #include "xft.h"
+#include "pow2.h"
 #include "resources.h"
 #include "texfont.h"
 #include "fps.h"       /* for current_device_rotation() */
@@ -65,8 +66,8 @@ typedef struct texfont_cache texfont_cache;
 struct texfont_cache {
   char *string;
   GLuint texid;
-  int width, height;
-  int width2, height2;
+  XCharStruct extents;
+  int tex_width, tex_height;
   texfont_cache *next;
 };
 
@@ -82,20 +83,6 @@ struct texture_font_data {
 #define countof(x) (sizeof((x))/sizeof((*x)))
 
 
-/* return the next larger power of 2. */
-static int
-to_pow2 (int i)
-{
-  static const unsigned int pow2[] = { 
-    1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 
-    2048, 4096, 8192, 16384, 32768, 65536 };
-  int j;
-  for (j = 0; j < sizeof(pow2)/sizeof(*pow2); j++)
-    if (pow2[j] >= i) return pow2[j];
-  abort();  /* too big! */
-}
-
-
 /* Given a Pixmap (of screen depth), converts it to an OpenGL luminance mipmap.
    RGB are averaged to grayscale, and the resulting value is treated as alpha.
    Pass in the size of the pixmap; the size of the texture is returned
@@ -111,26 +98,13 @@ bitmap_to_texture (Display *dpy, Pixmap p, Visual *visual, int depth,
   Bool mipmap_p = True;
   int ow = *wP;
   int oh = *hP;
-  int w2 = to_pow2 (ow);
-  int h2 = to_pow2 (oh);
+  GLsizei w2 = (GLsizei) to_pow2 (ow);
+  GLsizei h2 = (GLsizei) to_pow2 (oh);
   int x, y, max, scale;
   XImage *image = 0;
   unsigned char *data = (unsigned char *) calloc (w2 * 2, (h2 + 1));
   unsigned char *out = data;
 
-  /* If either dimension is larger than the supported size, reduce.
-     We still return the old size to keep the caller's math working,
-     but the texture itself will have fewer pixels in it.
-   */
-  glGetIntegerv (GL_MAX_TEXTURE_SIZE, &max);
-  scale = 1;
-  while (w2 > max || h2 > max)
-    {
-      w2 /= 2;
-      h2 /= 2;
-      scale *= 2;
-    }
-
   /* OpenGLES doesn't support GL_INTENSITY, so instead of using a
      texture with 1 byte per pixel, the intensity value, we have
      to use 2 bytes per pixel: solid white, and an alpha value.
@@ -139,22 +113,25 @@ bitmap_to_texture (Display *dpy, Pixmap p, Visual *visual, int depth,
 #  undef GL_INTENSITY
 # endif
 
-# ifdef GL_INTENSITY
-  GLuint iformat = GL_INTENSITY;
-  GLuint format  = GL_LUMINANCE;
-# else
-  GLuint iformat = GL_LUMINANCE_ALPHA;
-  GLuint format  = GL_LUMINANCE_ALPHA;
-# endif
-  GLuint type    = GL_UNSIGNED_BYTE;
-
 # ifdef HAVE_XSHM_EXTENSION
   Bool use_shm = get_boolean_resource (dpy, "useSHM", "Boolean");
   XShmSegmentInfo shm_info;
 # endif /* HAVE_XSHM_EXTENSION */
 
+  /* If either dimension is larger than the supported size, reduce.
+     We still return the old size to keep the caller's math working,
+     but the texture itself will have fewer pixels in it.
+   */
+  glGetIntegerv (GL_MAX_TEXTURE_SIZE, &max);
+  scale = 1;
+  while (w2 > max || h2 > max)
+    {
+      w2 /= 2;
+      h2 /= 2;
+      scale *= 2;
+    }
+
 # ifdef HAVE_XSHM_EXTENSION
-# error XX
   if (use_shm)
     {
       image = create_xshm_image (dpy, visual, depth, ZPixmap, 0, &shm_info,
@@ -166,15 +143,25 @@ bitmap_to_texture (Display *dpy, Pixmap p, Visual *visual, int depth,
     }
 # endif /* HAVE_XSHM_EXTENSION */
 
-  if (!image)
-    image = XGetImage (dpy, p, 0, 0, ow, oh, ~0L, ZPixmap);
+  if (!image) {
+    /* XCreateImage fills in (red|green_blue)_mask. XGetImage only does that
+       when reading from a Window, not when it's a Pixmap.
+     */
+    image = XCreateImage (dpy, visual, depth, ZPixmap, 0, NULL, ow, oh,
+                          BitmapPad (dpy), 0);
+    image->data = malloc (image->height * image->bytes_per_line);
+    XGetSubImage (dpy, p, 0, 0, ow, oh, ~0L, ZPixmap, image, 0, 0);
+  }
 
 # ifdef HAVE_JWZGLES
   /* This would work, but it's wasteful for no benefit. */
   mipmap_p = False;
 # endif
 
-  for (y = 0; y < h2; y++)
+# ifdef DUMP_BITMAPS
+  fprintf (stderr, "\n");
+# endif
+  for (y = 0; y < h2; y++) {
     for (x = 0; x < w2; x++) {
       /* Might be better to average a scale x scale square of source pixels,
          but at the resolutions we're dealing with, this is probably good
@@ -185,28 +172,69 @@ bitmap_to_texture (Display *dpy, Pixmap p, Visual *visual, int depth,
                              XGetPixel (image, sx, sy));
       /* instead of averaging all three channels, let's just use red,
          and assume it was already grayscale. */
-      unsigned long r = pixel & visual->red_mask;
+      unsigned long r = pixel & image->red_mask;
       /* This goofy trick is to make any of RGBA/ABGR/ARGB work. */
       pixel = ((r >> 24) | (r >> 16) | (r >> 8) | r) & 0xFF;
+
+# ifdef DUMP_BITMAPS
+      if (sx < ow && sy < oh)
+#  ifdef HAVE_JWXYZ
+        fprintf (stderr, "%c", 
+                 r >= 0xFF000000 ? '#' : 
+                 r >= 0x88000000 ? '%' : 
+                 r ? '.' : ' ');
+#  else
+        fprintf (stderr, "%c", 
+                 r >= 0xFF0000 ? '#' : 
+                 r >= 0x880000 ? '%' : 
+                 r ? '.' : ' ');
+#  endif
+# endif
+
+# if 0  /* Debugging checkerboard */
+      if (sx < ow && sy < oh && (((sx / 4) & 1) ^ ((sy / 4) & 1)))
+        pixel = 0x3F;
+# endif
+
 # ifndef GL_INTENSITY
       *out++ = 0xFF;  /* 2 bytes per pixel (luminance, alpha) */
 # endif
       *out++ = pixel;
     }
+# ifdef DUMP_BITMAPS
+    fprintf (stderr, "\n");
+# endif
+  }
 
 # ifdef HAVE_XSHM_EXTENSION
   if (use_shm)
     destroy_xshm_image (dpy, image, &shm_info);
   else
 # endif /* HAVE_XSHM_EXTENSION */
+  {
+    /* We malloc'd image->data, so we free it. */
+    free (image->data);
+    image->data = NULL;
     XDestroyImage (image);
+  }
 
   image = 0;
 
-  if (mipmap_p)
-    gluBuild2DMipmaps (GL_TEXTURE_2D, iformat, w2, h2, format, type, data);
-  else
-    glTexImage2D (GL_TEXTURE_2D, 0, iformat, w2, h2, 0, format, type, data);
+  {
+# ifdef GL_INTENSITY
+    GLuint iformat = GL_INTENSITY;
+    GLuint format  = GL_LUMINANCE;
+# else
+    GLuint iformat = GL_LUMINANCE_ALPHA;
+    GLuint format  = GL_LUMINANCE_ALPHA;
+# endif
+    GLuint type    = GL_UNSIGNED_BYTE;
+
+    if (mipmap_p)
+      gluBuild2DMipmaps (GL_TEXTURE_2D, iformat, w2, h2, format, type, data);
+    else
+      glTexImage2D (GL_TEXTURE_2D, 0, iformat, w2, h2, 0, format, type, data);
+  }
 
   {
     char msg[100];
@@ -299,28 +327,31 @@ load_texture_font (Display *dpy, char *res)
 }
 
 
-/* Measure the string, or render it, depending on whether the XftDraw
-   is supplied.
+/* Measure the string, returning the overall metrics.
+   Newlines and tab stops are honored.
+   Any numbers inside [] will be rendered as a subscript.
+
+   The origin is at the origin of the first character, so subsequent
+   lines of a multi-line string look like descenders (below baseline).
+
+   If an XftDraw is supplied, render the string as well, at X,Y.
+   Positive Y is down (X11 style, not OpenGL style).
  */
-static int
+static void
 iterate_texture_string (texture_font_data *data,
-                        const char *s, 
+                        const char *s,
+                        int draw_x, int draw_y,
                         XftDraw *xftdraw, XftColor *xftcolor,
-                        int x, int y,
-                        int *height_ret)
+                        XCharStruct *metrics_ret)
 {
   int line_height = data->xftfont->ascent + data->xftfont->descent;
-  int left = x;
-  int max_x, ox, oy;
+  int subscript_offset = line_height * 0.3;
   const char *os = s;
   Bool sub_p = False, osub_p = False;
   int cw = 0, tabs = 0;
-  XGlyphInfo extents;
-
-  y += line_height;
-  max_x = x;
-  ox = x;
-  oy = y;
+  XCharStruct overall = { 0, };
+  int x  = 0, y  = 0;
+  int ox = x, oy = y;
 
   while (1)
     {
@@ -330,19 +361,39 @@ iterate_texture_string (texture_font_data *data,
           (*s == '[' && isdigit(s[1])) ||
           (*s == ']' && sub_p))
         {
-          if (s == os)
-            extents.xOff = 0;
-          else
-            XftTextExtentsUtf8 (data->dpy, data->xftfont,
-                                (FcChar8 *) os, (int) (s - os),
-                                &extents);
-          x += extents.xOff;
-          if (x > max_x)
-            max_x = x;
+          if (s != os)
+            {
+              XGlyphInfo e;
+              XCharStruct c;
+              int y2 = y;
+              if (sub_p) y2 += subscript_offset;
+
+              XftTextExtentsUtf8 (data->dpy, data->xftfont,
+                                  (FcChar8 *) os, (int) (s - os),
+                                  &e);
+              c.lbearing = -e.x;               /* XGlyphInfo to XCharStruct */
+              c.rbearing =  e.width  - e.x;
+              c.ascent   =  e.y;
+              c.descent  =  e.height - e.y;
+              c.width    =  e.xOff;
+
+# undef MAX
+# undef MIN
+# define MAX(A,B) ((A)>(B)?(A):(B))
+# define MIN(A,B) ((A)<(B)?(A):(B))
+              overall.ascent   = MAX (overall.ascent,   -y2 + c.ascent);
+              overall.descent  = MAX (overall.descent,   y2 + c.descent);
+              overall.lbearing = MIN (overall.lbearing, (x  + c.lbearing));
+              overall.rbearing = MAX (overall.rbearing,  x  + c.rbearing);
+              overall.width    = MAX (overall.width,     x  + c.width);
+              x += c.width;
+# undef MAX
+# undef MIN
+            }
 
           if (*s == '\n')
             {
-              x = left;
+              x = 0;
               y += line_height;
               sub_p = False;
             }
@@ -351,9 +402,10 @@ iterate_texture_string (texture_font_data *data,
               if (! cw)
                 {
                   /* Measure "m" to determine tab width. */
+                  XGlyphInfo e;
                   XftTextExtentsUtf8 (data->dpy, data->xftfont,
-                                      (FcChar8 *) "m", 1, &extents);
-                  cw = extents.xOff;
+                                      (FcChar8 *) "m", 1, &e);
+                  cw = e.xOff;
                   if (cw <= 0) cw = 1;
                   tabs = cw * 7;
                 }
@@ -366,8 +418,9 @@ iterate_texture_string (texture_font_data *data,
 
           if (xftdraw && s != os)
             XftDrawStringUtf8 (xftdraw, xftcolor, data->xftfont,
-                               ox, 
-                               oy + (int) (osub_p ? line_height * 0.3 : 0),
+                               draw_x + ox,
+                               draw_y +
+                               oy + (osub_p ? subscript_offset : 0),
                                (FcChar8 *) os, (int) (s - os));
           if (!*s) break;
           os = s+1;
@@ -378,21 +431,30 @@ iterate_texture_string (texture_font_data *data,
       s++;
     }
 
-  if (height_ret)
-    *height_ret = y;
-  return max_x;
+  if (metrics_ret)
+    *metrics_ret = overall;
 }
 
 
-/* Bounding box of the multi-line string, in pixels.
+/* Bounding box of the multi-line string, in pixels,
+   and overall ascent/descent of the font.
  */
-int
-texture_string_width (texture_font_data *data, const char *s, int *height_ret)
+void
+texture_string_metrics (texture_font_data *data, const char *s,
+                        XCharStruct *metrics_ret,
+                        int *ascent_ret, int *descent_ret)
 {
-  return iterate_texture_string (data, s, 0, 0, 0, 0, height_ret);
+  if (metrics_ret)
+    iterate_texture_string (data, s, 0, 0, 0, 0, metrics_ret);
+  if (ascent_ret)  *ascent_ret  = data->xftfont->ascent;
+  if (descent_ret) *descent_ret = data->xftfont->descent;
 }
 
 
+/* Returns a cache entry for this string, with a valid texid.
+   If the returned entry has a string in it, the texture is valid.
+   Otherwise it is an empty entry waiting to be rendered.
+ */
 static struct texfont_cache *
 get_cache (texture_font_data *data, const char *string)
 {
@@ -424,12 +486,12 @@ get_cache (texture_font_data *data, const char *string)
    */
   if (count > data->cache_size)
     {
+      if (!prev) abort();
       free (prev->string);
-      prev->string  = 0;
-      prev->width   = 0;
-      prev->height  = 0;
-      prev->width2  = 0;
-      prev->height2 = 0;
+      prev->string     = 0;
+      prev->tex_width  = 0;
+      prev->tex_height = 0;
+      memset (&prev->extents, 0, sizeof(prev->extents));
       if (prev2)
         prev2->next = 0;
       if (prev != data->cache)
@@ -451,89 +513,172 @@ get_cache (texture_font_data *data, const char *string)
 }
 
 
+/* Renders the given string into the prevailing texture.
+   Returns the metrics of the text, and size of the texture.
+ */
+void
+string_to_texture (texture_font_data *data, const char *string,
+                   XCharStruct *extents_ret,
+                   int *tex_width_ret, int *tex_height_ret)
+{
+  Window window = RootWindow (data->dpy, 0);
+  Pixmap p;
+  XGCValues gcv;
+  GC gc;
+  XWindowAttributes xgwa;
+  XRenderColor rcolor;
+  XftColor xftcolor;
+  XftDraw *xftdraw;
+  int width, height;
+  XCharStruct overall;
+
+  /* Measure the string and create a Pixmap of the proper size.
+   */
+  XGetWindowAttributes (data->dpy, window, &xgwa);
+  iterate_texture_string (data, string, 0, 0, 0, 0, &overall);
+  width  = overall.rbearing - overall.lbearing;
+  height = overall.ascent   + overall.descent;
+  if (width  <= 0) width  = 1;
+  if (height <= 0) height = 1;
+  p = XCreatePixmap (data->dpy, window, width, height, xgwa.depth);
+
+  gcv.foreground = BlackPixelOfScreen (xgwa.screen);
+  gc = XCreateGC (data->dpy, p, GCForeground, &gcv);
+  XFillRectangle (data->dpy, p, gc, 0, 0, width, height);
+  XFreeGC (data->dpy, gc);
+
+  /* Render the string into the pixmap.
+   */
+  rcolor.red = rcolor.green = rcolor.blue = rcolor.alpha = 0xFFFF;
+  XftColorAllocValue (data->dpy, xgwa.visual, xgwa.colormap,
+                      &rcolor, &xftcolor);
+  xftdraw = XftDrawCreate (data->dpy, p, xgwa.visual, xgwa.colormap);
+  iterate_texture_string (data, string,
+                          -overall.lbearing, overall.ascent,
+                          xftdraw, &xftcolor, 0);
+  XftDrawDestroy (xftdraw);
+  XftColorFree (data->dpy, xgwa.visual, xgwa.colormap, &xftcolor);
+
+  /* Copy the bits from the Pixmap into a texture, unless it's cached.
+   */
+  bitmap_to_texture (data->dpy, p, xgwa.visual, xgwa.depth, 
+                     &width, &height);
+  XFreePixmap (data->dpy, p);
+
+  if (extents_ret)    *extents_ret    = overall;
+  if (tex_width_ret)  *tex_width_ret  = width;
+  if (tex_height_ret) *tex_height_ret = height;
+}
+
+
+/* Set the various OpenGL parameters for properly rendering things
+   with a texture generated by string_to_texture().
+ */
+void
+enable_texture_string_parameters (void)
+{
+  glEnable (GL_TEXTURE_2D);
+
+  /* Texture-rendering parameters to make font pixmaps tolerable to look at.
+   */
+  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
+                   GL_LINEAR_MIPMAP_LINEAR);
+
+  /* LOD bias is part of OpenGL 1.4.
+     GL_EXT_texture_lod_bias has been present since the original iPhone.
+  */
+# if !defined(GL_TEXTURE_LOD_BIAS) && defined(GL_TEXTURE_LOD_BIAS_EXT)
+#   define GL_TEXTURE_LOD_BIAS GL_TEXTURE_LOD_BIAS_EXT
+# endif
+# ifdef GL_TEXTURE_LOD_BIAS
+  glTexParameterf (GL_TEXTURE_2D, GL_TEXTURE_LOD_BIAS, 0.25);
+# endif
+  clear_gl_error();  /* invalid enum on iPad 3 */
+
+  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
+  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
+
+  /* Don't write the transparent parts of the quad into the depth buffer. */
+  glAlphaFunc (GL_GREATER, 0.01);
+  glEnable (GL_ALPHA_TEST);
+  glEnable (GL_BLEND);
+  glDisable (GL_LIGHTING);
+  glDisable (GL_TEXTURE_GEN_S);
+  glDisable (GL_TEXTURE_GEN_T);
+  glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+}
+
+
 /* Draws the string in the scene at the origin.
    Newlines and tab stops are honored.
    Any numbers inside [] will be rendered as a subscript.
    Assumes the font has been loaded as with load_texture_font().
+
+   The origin is at the origin of the first character, so subsequent
+   lines of a multi-line string are below that.
  */
 void
 print_texture_string (texture_font_data *data, const char *string)
 {
-  int line_height = data->xftfont->ascent + data->xftfont->descent;
-  int margin = line_height * 0.35;
-  int width, height;
-  int width2, height2;
-  XWindowAttributes xgwa;
-  Pixmap p = 0;
+  XCharStruct overall;
+  int tex_width, tex_height;
   texfont_cache *cache;
+  GLint old_texture;
 
   if (!*string) return;
 
+  clear_gl_error ();
+
+  /* Save the prevailing texture ID, and bind ours.  Restored at the end. */
+  glGetIntegerv (GL_TEXTURE_BINDING_2D, &old_texture);
+
   cache = get_cache (data, string);
 
+  glBindTexture (GL_TEXTURE_2D, cache->texid);
+  check_gl_error ("texture font binding");
+
   /* Measure the string and make a pixmap that will fit it,
      unless it's cached.
    */
   if (cache->string)
     {
-      width   = data->cache->width;
-      height  = data->cache->height;
+      overall    = data->cache->extents;
+      tex_width  = data->cache->tex_width;
+      tex_height = data->cache->tex_height;
     }
   else
     {
-      Window window = RootWindow (data->dpy, 0);
-      XGCValues gcv;
-      GC gc;
-
-      XGetWindowAttributes (data->dpy, window, &xgwa);
-      width = iterate_texture_string (data, string, 0, 0, 0, 0, &height);
-      p = XCreatePixmap (data->dpy, window, 
-                         width  + margin*2,
-                         height + margin*2,
-                         xgwa.depth);
-      gcv.foreground = BlackPixelOfScreen (xgwa.screen);
-      gc = XCreateGC (data->dpy, p, GCForeground, &gcv);
-      XFillRectangle (data->dpy, p, gc, 0, 0, 
-                      width  + margin*2,
-                      height + margin*2);
-      XFreeGC (data->dpy, gc);
-    }
-
-  /* Draw the string into the pixmap, unless it's cached.
-   */
-  if (!cache->string)
-    {
-      XRenderColor rcolor;
-      XftColor xftcolor;
-      XftDraw *xftdraw;
-      rcolor.red = rcolor.green = rcolor.blue = rcolor.alpha = 0xFFFF;
-      XftColorAllocValue (data->dpy, xgwa.visual, xgwa.colormap,
-                          &rcolor, &xftcolor);
-      xftdraw = XftDrawCreate (data->dpy, p, xgwa.visual, xgwa.colormap);
-      iterate_texture_string (data, string, xftdraw, &xftcolor,
-                              margin, 0, 0);
-      XftDrawDestroy (xftdraw);
-      XftColorFree (data->dpy, xgwa.visual, xgwa.colormap, &xftcolor);
+# if defined HAVE_JWXYZ && defined JWXYZ_GL
+      /* TODO, JWXYZ_GL: Mixing Xlib and GL has issues. */
+      memset (&overall, 0, sizeof(overall));
+      tex_width = 8;
+      tex_height = 8;
+# else
+      string_to_texture (data, string, &overall, &tex_width, &tex_height);
+# endif
     }
 
   {
-    GLint old_texture;
     int ofront, oblend;
-    Bool alpha_p, blend_p;
+    Bool alpha_p, blend_p, light_p, gen_s_p, gen_t_p;
     GLfloat omatrix[16];
     GLfloat qx0, qy0, qx1, qy1;
     GLfloat tx0, ty0, tx1, ty1;
 
+    /* If face culling is not enabled, draw front and back. */
+    Bool draw_back_face_p = !glIsEnabled (GL_CULL_FACE);
+
     /* Save the prevailing texture environment, and set up ours.
      */
-    glGetIntegerv (GL_TEXTURE_BINDING_2D, &old_texture);
     glGetIntegerv (GL_FRONT_FACE, &ofront);
     glGetIntegerv (GL_BLEND_DST, &oblend);
     glGetFloatv (GL_TEXTURE_MATRIX, omatrix);
     blend_p = glIsEnabled (GL_BLEND);
     alpha_p = glIsEnabled (GL_ALPHA_TEST);
-
-    clear_gl_error ();
+    light_p = glIsEnabled (GL_LIGHTING);
+    gen_s_p = glIsEnabled (GL_TEXTURE_GEN_S);
+    gen_t_p = glIsEnabled (GL_TEXTURE_GEN_T);
 
     glPushMatrix();
 
@@ -544,68 +689,23 @@ print_texture_string (texture_font_data *data, const char *string)
     glLoadIdentity ();
     glMatrixMode (GL_MODELVIEW);
 
-    glBindTexture (GL_TEXTURE_2D, cache->texid);
-    check_gl_error ("texture font binding");
-
-    glEnable(GL_TEXTURE_2D);
-
-    /* Copy the bits from the Pixmap into a texture, unless it's cached.
-     */
-    if (cache->string)
-      {
-        width2  = data->cache->width2;
-        height2 = data->cache->height2;
-        if (p) abort();
-      }
-    else
-      {
-        width2  = width  + margin*2;
-        height2 = height + margin*2;
-        bitmap_to_texture (data->dpy, p, xgwa.visual, xgwa.depth,
-                           &width2, &height2);
-        XFreePixmap (data->dpy, p);
-      }
-
-
-    /* Texture-rendering parameters to make font pixmaps tolerable to look at.
-     */
-
-    glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
-    glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
-                     GL_LINEAR_MIPMAP_LINEAR);
-
-    /* LOD bias is part of OpenGL 1.4.
-       GL_EXT_texture_lod_bias has been present since the original iPhone.
-     */
-# if !defined(GL_TEXTURE_LOD_BIAS) && defined(GL_TEXTURE_LOD_BIAS_EXT)
-#   define GL_TEXTURE_LOD_BIAS GL_TEXTURE_LOD_BIAS_EXT
-# endif
-# ifdef GL_TEXTURE_LOD_BIAS
-    glTexParameterf (GL_TEXTURE_2D, GL_TEXTURE_LOD_BIAS, 0.25);
-# endif
-    clear_gl_error();  /* invalid enum on iPad 3 */
-
-    glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
-    glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
-
-    /* Don't write the transparent parts of the quad into the depth buffer. */
-    glAlphaFunc (GL_GREATER, 0.01);
-    glEnable (GL_ALPHA_TEST);
-    glEnable (GL_BLEND);
-    glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+    enable_texture_string_parameters();
 
     /* Draw a quad with that texture on it, possibly using a cached texture.
+       Position the XCharStruct origin at 0,0 in the scene.
      */
-    qx0 = -margin;
-    qy0 = line_height + margin;
-    qx1 = width + margin;
-    qy1 = line_height - height - margin;
+    qx0 =  overall.lbearing;
+    qy0 = -overall.descent;
+    qx1 =  overall.rbearing;
+    qy1 =  overall.ascent;
 
     tx0 = 0;
-    ty0 = 0;
-    tx1 = (width  + margin*2) / (GLfloat) width2;
-    ty1 = (height + margin*2) / (GLfloat) height2;
+    ty1 = 0;
+    tx1 = (overall.rbearing - overall.lbearing) / (GLfloat) tex_width;
+    ty0 = (overall.ascent + overall.descent)    / (GLfloat) tex_height;
 
+    glEnable (GL_CULL_FACE);
+    glFrontFace (GL_CCW);
     glBegin (GL_QUADS);
     glTexCoord2f (tx0, ty0); glVertex3f (qx0, qy0, 0);
     glTexCoord2f (tx1, ty0); glVertex3f (qx1, qy0, 0);
@@ -613,6 +713,18 @@ print_texture_string (texture_font_data *data, const char *string)
     glTexCoord2f (tx0, ty1); glVertex3f (qx0, qy1, 0);
     glEnd();
 
+    if (draw_back_face_p)
+      {
+        glFrontFace (GL_CW);
+        glBegin (GL_QUADS);
+        glTexCoord2f (tx0, ty0); glVertex3f (qx0, qy0, 0);
+        glTexCoord2f (tx1, ty0); glVertex3f (qx1, qy0, 0);
+        glTexCoord2f (tx1, ty1); glVertex3f (qx1, qy1, 0);
+        glTexCoord2f (tx0, ty1); glVertex3f (qx0, qy1, 0);
+        glEnd();
+        glDisable (GL_CULL_FACE);
+      }
+
     glPopMatrix();
 
     /* Reset to the caller's texture environment.
@@ -621,6 +733,10 @@ print_texture_string (texture_font_data *data, const char *string)
     glFrontFace (ofront);
     if (!alpha_p) glDisable (GL_ALPHA_TEST);
     if (!blend_p) glDisable (GL_BLEND);
+    if (light_p) glEnable (GL_LIGHTING);
+    if (gen_s_p) glEnable (GL_TEXTURE_GEN_S);
+    if (gen_t_p) glEnable (GL_TEXTURE_GEN_T);
+
     glBlendFunc (GL_SRC_ALPHA, oblend);
   
     glMatrixMode (GL_TEXTURE);
@@ -633,11 +749,10 @@ print_texture_string (texture_font_data *data, const char *string)
      */
     if (!cache->string)
       {
-        cache->string  = strdup (string);
-        cache->width   = width;
-        cache->height  = height;
-        cache->width2  = width2;
-        cache->height2 = height2;
+        cache->string     = strdup (string);
+        cache->extents    = overall;
+        cache->tex_width  = tex_width;
+        cache->tex_height = tex_height;
       }
   }
 }
@@ -662,7 +777,6 @@ print_texture_label (Display *dpy,
   Bool tex_p   = glIsEnabled (GL_TEXTURE_2D);
   Bool texs_p  = glIsEnabled (GL_TEXTURE_GEN_S);
   Bool text_p  = glIsEnabled (GL_TEXTURE_GEN_T);
-  Bool light_p = glIsEnabled (GL_LIGHTING);
   Bool depth_p = glIsEnabled (GL_DEPTH_TEST);
   Bool cull_p  = glIsEnabled (GL_CULL_FACE);
   Bool fog_p   = glIsEnabled (GL_FOG);
@@ -683,7 +797,6 @@ print_texture_label (Display *dpy,
 
   glDisable (GL_TEXTURE_GEN_S);
   glDisable (GL_TEXTURE_GEN_T);
-  glDisable (GL_LIGHTING);
   glDisable (GL_CULL_FACE);
   glDisable (GL_FOG);
 
@@ -700,8 +813,11 @@ print_texture_label (Display *dpy,
     glMatrixMode(GL_MODELVIEW);
     glPushMatrix();
     {
-      int x, y, w, h, lh, swap;
-      int rot = (int) current_device_rotation();
+      XCharStruct cs;
+      int ascent, descent;
+      int x, y, w, h, swap;
+      /* int rot = (int) current_device_rotation(); */
+      int rot = 0;  /* Since GL hacks rotate now */
 
       glLoadIdentity();
       glViewport (0, 0, window_width, window_height);
@@ -710,8 +826,28 @@ print_texture_label (Display *dpy,
       while (rot <= -180) rot += 360;
       while (rot >   180) rot -= 360;
 
-      lh = texture_string_width (data, "M", 0);
-      w = texture_string_width (data, string, &h);
+      texture_string_metrics (data, string, &cs, &ascent, &descent);
+      h = cs.ascent + cs.descent;
+      w  = cs.width;
+
+# ifdef USE_IPHONE
+      {
+        /* Size of the font is in points, so scale iOS pixels to points. */
+        GLfloat scale = ((window_width > window_height
+                          ? window_width : window_height)
+                         / 768.0);
+        if (scale < 1) scale = 1;
+
+        /* jwxyz-XLoadFont has already doubled the font size, to compensate
+           for physically smaller screens.  Undo that, since OpenGL hacks
+           use full-resolution framebuffers, unlike X11 hacks. */
+        scale /= 2;
+
+        window_width  /= scale;
+        window_height /= scale;
+        glScalef (scale, scale, scale);
+      }
+# endif /* USE_IPHONE */
 
       if (rot > 135 || rot < -135)             /* 180 */
         {
@@ -738,15 +874,15 @@ print_texture_label (Display *dpy,
       switch (position) {
       case 0:                                  /* center */
         x = (window_width  - w) / 2;
-        y = (window_height - h) / 2;
+        y = (window_height + h) / 2 - ascent;
         break;
       case 1:                                  /* top */
-        x = lh;
-        y = window_height - lh * 2;
+        x = ascent;
+        y = window_height - ascent*2;
         break;
       case 2:                                  /* bottom */
-        x = lh;
-        y = h - lh;
+        x = ascent;
+        y = h;
         break;
       default:
         abort();
@@ -783,7 +919,6 @@ print_texture_label (Display *dpy,
   if (tex_p)   glEnable (GL_TEXTURE_2D); else glDisable (GL_TEXTURE_2D);
   if (texs_p)  glEnable (GL_TEXTURE_GEN_S);/*else glDisable(GL_TEXTURE_GEN_S);*/
   if (text_p)  glEnable (GL_TEXTURE_GEN_T);/*else glDisable(GL_TEXTURE_GEN_T);*/
-  if (light_p) glEnable (GL_LIGHTING); /*else glDisable (GL_LIGHTING);*/
   if (depth_p) glEnable (GL_DEPTH_TEST); else glDisable (GL_DEPTH_TEST);
   if (cull_p)  glEnable (GL_CULL_FACE); /*else glDisable (GL_CULL_FACE);*/
   if (fog_p)   glEnable (GL_FOG); /*else glDisable (GL_FOG);*/
@@ -798,6 +933,17 @@ print_texture_label (Display *dpy,
 }
 
 
+#ifdef HAVE_JWXYZ
+char *
+texfont_unicode_character_name (texture_font_data *data, unsigned long uc)
+{
+  Font fid = data->xftfont->xfont->fid;
+  return jwxyz_unicode_character_name (data->dpy, fid, uc);
+}
+#endif /* HAVE_JWXYZ */
+
+
+
 /* Releases the font and texture.
  */
 void