6.09HEADmaster

1 files changed, 0 insertions, 1333 deletions

diff --git a/hacks/glx/gibson.c b/hacks/glx/gibson.c
deleted file mode 100644
index e90d8d2..0000000
--- a/hacks/glx/gibson.c
+++ /dev/null
@@ -1,1333 +0,0 @@
-/* gibson, Copyright (c) 2020-2021 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
- * the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation.  No representations are made about the suitability of this
- * software for any purpose.  It is provided "as is" without express or 
- * implied warranty.
- *
- * Hacking the Gibson, as per the 1995 classic film, HACKERS.
- *
- * In the movie, this was primarily a practical effect: the towers were
- * edge-lit etched perspex, each about four feet tall.
- */
-
-#define TOWER_FONT "sans-serif bold 48"
-
-#define DEFAULTS	"*delay:	20000       \n" \
-			"*groundColor:  #8A2BE2"   "\n" \
-			"*towerColor:   #4444FF"   "\n" \
-			"*towerText:    #DDDDFF"   "\n" \
-			"*towerText2:   #FF0000"   "\n" \
-			"*towerFont:  " TOWER_FONT "\n" \
-			"*showFPS:      False       \n" \
-			"*wireframe:    False       \n" \
-
-# define release_gibson 0
-
-#include "xlockmore.h"
-#include "colors.h"
-#include "rotator.h"
-#include "texfont.h"
-#include <ctype.h>
-
-#ifdef USE_GL /* whole file */
-
-
-#define DEF_SPEED	 "1.0"
-#define DEF_TEXTURE      "True"
-#define DEF_GRID_WIDTH	 "6"
-#define DEF_GRID_HEIGHT	 "7"
-#define DEF_GRID_DEPTH	 "6"
-#define DEF_GRID_SPACING "2.0"
-#define DEF_COLUMNS	 "5"
-
-#define GROUND_QUAD_SIZE 30
-
-typedef struct {
-  GLfloat x, y, h;
-  GLuint fg_dlists[5], bg_dlists[5];
-  int fg_polys, bg_polys;
-  unsigned int face_mode;   /* 5 bit field */
-} tower;
-
-typedef struct {
-  GLXContext *glx_context;
-  Bool button_down_p;
-  rotator *rot, *rot2;
-  GLfloat xscroll, yscroll;
-  GLfloat oxscroll, oyscroll;
-
-  GLuint ground_dlist;
-  GLuint tower_dlist;
-  int ground_polys, tower_polys;
-  GLfloat ground_y;
-  GLfloat billboard_y;
-  const char *billboard_text;
-
-  int ntowers;
-  tower *towers;
-  GLfloat tower_color[4];
-  GLfloat tower_color2[4];
-  GLfloat edge_color[4];
-  GLfloat bg_color[4];
-  Bool startup_p;
-
-  struct {
-    GLuint texid;
-    XCharStruct metrics;
-    int width, height;
-    texture_font_data *font_data;
-    int ascent, descent, em_width;
-    char *text;
-  } text[2];
-
-} gibson_configuration;
-
-static gibson_configuration *ccs = NULL;
-
-static GLfloat speed;
-static Bool do_tex;
-static int grid_width;
-static int grid_height;
-static int grid_depth;
-static GLfloat grid_spacing;
-static int columns;
-
-static XrmOptionDescRec opts[] = {
-  { "-speed",        ".speed",       XrmoptionSepArg, 0 },
-  { "-texture",      ".texture",     XrmoptionNoArg,  "True" },
-  { "+texture",      ".texture",     XrmoptionNoArg,  "False" },
-  { "-grid-width",   ".gridWidth",   XrmoptionSepArg, 0 },
-  { "-grid-height",  ".gridHeight",  XrmoptionSepArg, 0 },
-  { "-grid-depth",   ".gridDepth",   XrmoptionSepArg, 0 },
-  { "-spacing",      ".gridSpacing", XrmoptionSepArg, 0 },
-  { "-columns",      ".columns",     XrmoptionSepArg, 0 },
-};
-
-static argtype vars[] = {
-  {&speed,        "speed",       "Speed",       DEF_SPEED,        t_Float},
-  {&do_tex,       "texture",     "Texture",     DEF_TEXTURE,      t_Bool},
-  {&grid_width,   "gridWidth",   "GridWidth",   DEF_GRID_WIDTH,   t_Int},
-  {&grid_height,  "gridHeight",  "GridHeight",  DEF_GRID_HEIGHT,  t_Int},
-  {&grid_depth,   "gridDepth",   "GridDepth",   DEF_GRID_DEPTH,   t_Int},
-  {&grid_spacing, "gridSpacing", "GridSpacing", DEF_GRID_SPACING, t_Float},
-  {&columns,      "columns",     "Columns",     DEF_COLUMNS,      t_Int},
-};
-
-ENTRYPOINT ModeSpecOpt gibson_opts = {
- countof(opts), opts, countof(vars), vars, NULL};
-
-
-ENTRYPOINT void
-reshape_gibson (ModeInfo *mi, int width, int height)
-{
-  GLfloat h = (GLfloat) height / (GLfloat) width;
-  int y = 0;
-
-  glViewport (0, y, (GLint) width, (GLint) height);
-
-  glMatrixMode(GL_PROJECTION);
-  glLoadIdentity();
-# ifdef DEBUG
-  gluPerspective (30, 1/h, 1, 100);
-# else
-  gluPerspective (100, 1/h/4,
-                  1.0, 
-                  20 * grid_depth * 1.5 * (1 + grid_spacing));
-# endif
-
-  glMatrixMode(GL_MODELVIEW);
-  glLoadIdentity();
-  gluLookAt( 0, 0, 1,
-             0, 0, 0,
-             0, 1, 0);
-
-  glClear(GL_COLOR_BUFFER_BIT);
-}
-
-
-/* Copied from gltrackball.c */
-static void
-adjust_for_device_rotation (double *x, double *y, double *w, double *h)
-{
-  int rot = (int) current_device_rotation();
-  int swap;
-
-  while (rot <= -180) rot += 360;
-  while (rot >   180) rot -= 360;
-
-  if (rot > 135 || rot < -135)		/* 180 */
-    {
-      *x = *w - *x;
-      *y = *h - *y;
-    }
-  else if (rot > 45)			/* 90 */
-    {
-      swap = *x; *x = *y; *y = swap;
-      swap = *w; *w = *h; *h = swap;
-      *x = *w - *x;
-    }
-  else if (rot < -45)			/* 270 */
-    {
-      swap = *x; *x = *y; *y = swap;
-      swap = *w; *w = *h; *h = swap;
-      *y = *h - *y;
-    }
-}
-
-
-ENTRYPOINT Bool
-gibson_handle_event (ModeInfo *mi, XEvent *event)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  double w = MI_WIDTH(mi);
-  double h = MI_HEIGHT(mi);
-  double xoff = 0, yoff = 0;
-
-  if (event->xany.type == ButtonPress ||
-      event->xany.type == ButtonRelease)
-    {
-      double x = event->xbutton.x;
-      double y = event->xbutton.y;
-      adjust_for_device_rotation (&x, &y, &w, &h);
-      xoff = (x / w) - 0.5;
-      yoff = (event->xbutton.y / h) - 0.5;
-      bp->button_down_p = (event->xany.type == ButtonPress);
-      bp->oxscroll = xoff;
-      bp->oyscroll = yoff;
-
-      return True;
-    }
-  else if (event->xany.type == MotionNotify)
-    {
-      double x = event->xmotion.x;
-      double y = event->xmotion.y;
-      adjust_for_device_rotation (&x, &y, &w, &h);
-      xoff = (x / w) - 0.5;
-      yoff = (y / h) - 0.5;
-      if (bp->button_down_p)
-        {
-          bp->xscroll += xoff - bp->oxscroll;
-          bp->yscroll += yoff - bp->oyscroll;
-          bp->oxscroll = xoff;
-          bp->oyscroll = yoff;
-        }
-      return True;
-    }
-
-  return False;
-}
-
-
-static void
-parse_color (ModeInfo *mi, char *key, GLfloat color[4])
-{
-  XColor xcolor;
-  char *string = get_string_resource (mi->dpy, key, "Color");
-  if (!XParseColor (mi->dpy, mi->xgwa.colormap, string, &xcolor))
-    {
-      fprintf (stderr, "%s: unparsable color in %s: %s\n", progname,
-               key, string);
-      exit (1);
-    }
-  free (string);
-
-  color[0] = xcolor.red   / 65536.0;
-  color[1] = xcolor.green / 65536.0;
-  color[2] = xcolor.blue  / 65536.0;
-  color[3] = 1;
-}
-
-
-static int
-draw_ground (ModeInfo *mi)
-{
-  int wire = MI_IS_WIREFRAME(mi);
-  int polys = 0;
-  int x, y;
-  int cells = 20;
-  GLfloat color[4];
-  GLfloat color0[4];
-  GLfloat cell_size = 1.0;
-  GLfloat z = -0.005;
-
-  parse_color (mi, "groundColor", color);
-  parse_color (mi, "towerColor", color0);
-  color0[0] *= 0.05;
-  color0[1] *= 0.05;
-  color0[2] *= 0.3;
-  color0[3] = 1;
-
-  if (!wire)
-    {
-      GLfloat fog_color[4] = { 0, 0, 0, 1 };
-
-      glFogi (GL_FOG_MODE, GL_EXP2);
-      glFogfv (GL_FOG_COLOR, fog_color);
-      glFogf (GL_FOG_DENSITY, 0.015);
-      glFogf (GL_FOG_START, -cells/2 * cell_size);
-      glEnable (GL_FOG);
-    }
-
-  glPushMatrix();
-  glScalef (1.0/cells, 1.0/cells, 1);
-  glTranslatef (-cells/2.0, -cells/2.0, 0);
-  glTranslatef (0.5, 0, 0);
-
-  glBegin (GL_QUADS);	/* clipping quad */
-  glColor4fv (color0);
-  glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, color0);
-
-  glVertex3f (0, 0, z);
-  glVertex3f (cells * cell_size, 0, z);
-  glVertex3f (cells * cell_size, cells * cell_size, z);
-  glVertex3f (0, cells * cell_size, z);
-  glEnd();
-  polys++;
-
-  glColor4fv (color);
-  glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, color);
-
-  for (y = 0; y < cells; y++)
-    for (x = 0; x < cells; x++)
-      {
-        GLfloat a = 0;
-        GLfloat b = 1.0/3;
-        GLfloat c = 2.0/3;
-        GLfloat d = 1.0;
-        GLfloat w = 0.02;
-
-        glPushMatrix();
-        glTranslatef (x, y, 0);
-
-        glNormal3f (0, 0, 1);
-
-        switch (random() % 4) {
-        case 0:
-          glRotatef (90, 0, 0, 1);
-          glTranslatef (0, -1, 0);
-          break;
-        case 1:
-          glRotatef (-90, 0, 0, 1);
-          glTranslatef (-1, 0, 0);
-          break;
-        case 2:
-          glRotatef (180, 0, 0, 1);
-          glTranslatef (-1, -1, 0);
-          break;
-        default: break;
-        }
-
-        switch (random() % 2) {
-        case 0:
-          glScalef (-1, -1, 1);
-          glTranslatef (-1, -1, 0);
-          break;
-        default: break;
-        }
-
-        switch (random() % 2) {
-        case 0:
-
-          glBegin (wire ? GL_LINE_LOOP : GL_QUAD_STRIP);
-          glVertex3f (a, b+w, 0);
-          glVertex3f (a, b-w, 0); polys++;
-          glVertex3f (b+w, a, 0); polys++;
-          glVertex3f (b-w, a, 0); polys++;
-          glEnd();
-
-          glBegin (wire ? GL_LINE_LOOP : GL_QUAD_STRIP);
-          glVertex3f (a,   c+w, 0);
-          glVertex3f (a,   c-w, 0); polys++;
-          glVertex3f (b+w, c+w, 0); polys++;
-          glVertex3f (b,   c-w, 0); polys++;
-          glVertex3f (c+w, b+w, 0); polys++;
-          glVertex3f (c-w, b,   0); polys++;
-          glVertex3f (c+w, a,   0); polys++;
-          glVertex3f (c-w, a,   0); polys++;
-          glEnd();
-
-/*
-          glBegin (wire ? GL_LINE_LOOP : GL_QUAD_STRIP);
-          glVertex3f (c+w, d,   0);
-          glVertex3f (c-w, d,   0); polys++;
-          glVertex3f (d,   c+w, 0); polys++;
-          glVertex3f (d,   c-w, 0); polys++;
-          glEnd();
-*/
-          break;
-
-        default:
-          glBegin (wire ? GL_LINE_LOOP : GL_QUAD_STRIP);
-          glVertex3f (a+w, d,   0);
-          glVertex3f (a,   d,   0); polys++;
-          glVertex3f (a+w, d,   0);
-          glVertex3f (a,   d-w, 0); polys++;
-          glVertex3f (b+w, c-w, 0); polys++;
-          glVertex3f (b-w, c-w, 0); polys++;
-          glVertex3f (b+w, a,   0); polys++;
-          glVertex3f (b-w, a,   0); polys++;
-          glEnd();
-
-          glBegin (wire ? GL_LINE_LOOP : GL_QUAD_STRIP);
-          glVertex3f (b+w, d,   0);
-          glVertex3f (b-w, d,   0); polys++;
-          glVertex3f (c+w, c-w, 0); polys++;
-          glVertex3f (c-w, c-w, 0); polys++;
-          glVertex3f (c+w, a,   0); polys++;
-          glVertex3f (c-w, a,   0); polys++;
-          glEnd();
-          break;
-        }
-
-        glPopMatrix();
-      }
-  glPopMatrix();
-
-  if (!wire)
-    {
-      glDisable (GL_BLEND);
-      glDisable (GL_FOG);
-    }
-
-  return polys;
-}
-
-
-/* qsort comparator for sorting towers by y position */
-static int
-cmp_towers (const void *aa, const void *bb)
-{
-  const tower *a = (tower *) aa;
-  const tower *b = (tower *) bb;
-  return ((int) (b->y * 10000) -
-          (int) (a->y * 10000));
-}
-
-
-static GLfloat
-ease_fn (GLfloat r)
-{
-  return cos ((r/2 + 1) * M_PI) + 1; /* Smooth curve up, end at slope 1. */
-}
-
-
-static GLfloat
-ease_ratio (GLfloat r)
-{
-  GLfloat ease = 0.5;
-  if      (r <= 0)     return 0;
-  else if (r >= 1)     return 1;
-  else if (r <= ease)  return     ease * ease_fn (r / ease);
-  else if (r > 1-ease) return 1 - ease * ease_fn ((1 - r) / ease);
-  else                 return r;
-}
-
-
-/* Draws the text quads on the face.
-   First pass is for the small background text, second is for the big block.
- */
-static int
-draw_tower_face_text (ModeInfo *mi, GLfloat height, Bool which)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int wire = MI_IS_WIREFRAME(mi);
-  int polys = 0;
-  Bool wire2 = False;   /* Debugging quads */
-  Bool bg_p = (which == 1 && do_tex && !wire);
-
-  /* The texture is a tex_width x tex_height rectangle, of which we 
-     only use the rbearing+lbearing x ascent+descent sub-rectangle.
-     Texture coordinates reference the tex_width x tex_height rectangle
-     as a 0.0 - 1.0 coordinate.
-   */
-  int n = which ? 1 : 0;
-  GLfloat twratio = ((bp->text[n].metrics.rbearing +
-                      bp->text[n].metrics.lbearing) /
-                     (GLfloat) bp->text[n].width);
-  GLfloat thratio = ((bp->text[n].metrics.ascent +
-                      bp->text[n].metrics.descent) /
-                     (GLfloat) bp->text[n].height);
-  GLfloat aspect = ((bp->text[n].ascent + bp->text[n].descent) /
-                    (GLfloat) bp->text[n].em_width);
-
-  GLfloat sx  = 1.0 / (which ? 1 : columns);
-  GLfloat sy  = (which
-                 ? height * 0.8
-                 : sx * 4);  /* Tweaked to match gluPerspective */
-
-  GLfloat lines_in_tex = ((bp->text[n].metrics.ascent +
-                           bp->text[n].metrics.descent) /
-                          (GLfloat)
-                          (bp->text[n].ascent + bp->text[n].descent));
-  GLfloat tex_lines = (which ? 3 : 8);  /* Put this many lines in each quad */
-
-  GLfloat tsx = sx * twratio;
-  GLfloat tsy = sy * thratio * tex_lines / lines_in_tex * aspect;
-  GLfloat x1, tx1;
-  GLfloat margin = 0.2;
-  GLfloat m2 = margin/2 / (which ? 1 : columns);
-  GLfloat m3 = m2 / (which ? 1 : height);
-  GLfloat h2 = height * (which ? 1-margin : 1);
-
-  glColor4fv (which ? bp->tower_color2 : bp->tower_color);
-  glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, 
-                which ? bp->tower_color2 : bp->tower_color);
-
-  glBindTexture (GL_TEXTURE_2D, bp->text[n].texid);
-
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
-
-  if (!wire && !wire2 && !bg_p) glBegin (GL_QUADS);
-  for (x1 = 0, tx1 = 0; x1 < 1.0; x1 += sx, tx1 += tsx)
-    {
-      GLfloat x2  = x1 + sx;
-      GLfloat tx2 = tx1 + tsx;
-      GLfloat y2, ty2;
-      GLfloat z = (which ? 0.05 : 0);
-
-      tx1 = 0;
-      tx2 = twratio;
-
-      for (y2 = h2, ty2 = thratio;
-           y2 > 0;
-           y2 -= sy, ty2 -= tsy)
-        {
-          GLfloat y1  = y2 - sy * (1-margin);
-          GLfloat ty1 = ty2 - tsy;
-          GLfloat toff = frand ((bp->text[n].metrics.ascent + 
-                                 bp->text[n].metrics.descent)
-                                * 0.8);
-
-          if (y1 < 0)  /* Clip the panel to the bottom of the tower face */
-            {
-              tsy = y2 / (y2 - y1);
-              y1 = 0;
-            }
-
-          ty1 = toff;
-          ty2 = ty1 + tsy;
-
-          if (wire2 && which) glColor3f (1,0,0);
-          if (wire || wire2 || bg_p)
-            glBegin (!wire && (wire2 || bg_p) ? GL_QUADS : GL_LINE_LOOP);
-          glTexCoord2f(tx1, ty2); glVertex3f (x1+m2, y1+m3, z);
-          glTexCoord2f(tx2, ty2); glVertex3f (x2-m2, y1+m3, z);
-          glTexCoord2f(tx2, ty1); glVertex3f (x2-m2, y2-m3, z);
-          glTexCoord2f(tx1, ty1); glVertex3f (x1+m2, y2-m3, z);
-          if (wire || wire2 || bg_p)
-            glEnd();
-          polys++;
-
-          if (bg_p)
-            {
-              GLfloat bg[4] = { 1, 1, 1, 0.2 };
-              z  -= 0.1;
-              m2 -= 0.03;
-              m3 -= 0.03;
-              glColor4fv (bg);
-              glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, bg);
-            }
-
-          if ((wire2 || bg_p) && !wire)
-            {
-              if (do_tex) glDisable(GL_TEXTURE_2D);
-              glBegin (bg_p ? GL_QUADS : GL_LINE_LOOP);
-              glVertex3f (x1+m2, y1+m3, z);
-              glVertex3f (x2-m2, y1+m3, z);
-              glVertex3f (x2-m2, y2-m3, z);
-              glVertex3f (x1+m2, y2-m3, z);
-              glEnd();
-              polys++;
-              if (do_tex) glEnable(GL_TEXTURE_2D);
-            }
-
-          if (which) break;
-        }
-    }
-  if (!wire && !wire2 && !bg_p) glEnd();
-
-  return polys;
-}
-
-
-/* Draws the wall of the face, and the edges, then the text quads on it.
- */
-static int
-draw_tower_face (ModeInfo *mi, GLfloat height, int mode)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int wire = MI_IS_WIREFRAME(mi);
-  int polys = 0;
-
-  switch (mode) {
-  case 0:
-    if (! wire)
-      {
-        GLfloat m =  0.015;
-        GLfloat z = -0.0005;
-        if (do_tex) glDisable (GL_TEXTURE_2D);
-
-        glNormal3f (0, 0, 1);
-
-        glColor4fv (bp->bg_color);
-        glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE,
-                      bp->bg_color);
-
-        glBegin (GL_QUADS);
-        glVertex3f (0, 0, z*2);			/* background */
-        glVertex3f (1, 0, z*2);
-        glVertex3f (1, height, z*2);
-        glVertex3f (0, height, z*2);
-        polys++;
-        glEnd();
-
-        glColor4fv (bp->edge_color);
-        glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE,
-                      bp->edge_color);
-
-        glBegin (GL_QUADS);
-        glVertex3f (0, 0, z);			/* left */
-        glVertex3f (m, 0, z);
-        glVertex3f (m, height, z);
-        glVertex3f (0, height, z);
-        polys++;
-
-        glVertex3f (1-m, 0, 0);			/* right */
-        glVertex3f (1,   0, 0);
-        glVertex3f (1,   height, z);
-        glVertex3f (1-m, height, z);
-        polys++;
-
-        glVertex3f (m,   0, 0);			/* bottom */
-        glVertex3f (1-m, 0, 0);
-        glVertex3f (1-m, m, 0);
-        glVertex3f (m,   m, 0);
-        polys++;
-
-        glVertex3f (m,   height-m, z);		/* top */
-        glVertex3f (1-m, height-m, z);
-        glVertex3f (1-m, height,   z);
-        glVertex3f (m,   height,   z);
-        polys++;
-        glEnd();
-
-        if (do_tex) glEnable (GL_TEXTURE_2D);
-      }
-    break;
-  case 1:
-    polys += draw_tower_face_text (mi, height, 0);
-    break;
-  case 2:
-    polys += draw_tower_face_text (mi, height * 0.7, 1);
-    break;
-  default:
-    abort();
-    break;
-  }
-
-  return polys;
-}
-
-
-/* Mode 0: draws 5 sides of the box
-   Mode 1: just background text
-   Mode 2: just foreground text
- */
-static int
-draw_tower (ModeInfo *mi, tower *t, int mode, int face)
-{
-  GLfloat height = grid_height;
-
-  int polys = 0;
-
-  glPushMatrix();
-  glTranslatef (-0.5, 0.5, 0);
-
-  if (face == 0 || face == -1)
-    {
-      glPushMatrix();				/* top */
-      glTranslatef (0, 0, height);
-      polys += draw_tower_face (mi, 1.0, mode);
-      glPopMatrix();
-    }
-
-  if (face == 1 || face == -1)
-    {
-      glPushMatrix();				/* left */
-      glRotatef ( 90, 1, 0, 0);
-      glRotatef (-90, 0, 1, 0);
-      glTranslatef (-1, 0, 0);
-      polys += draw_tower_face (mi, height, mode);
-      glPopMatrix();
-    }
-
-  if (face == 2 || face == -1)
-    {
-      glPushMatrix();				/* back */
-      glRotatef ( 90, 1, 0, 0);
-      glRotatef (180, 0, 1, 0);
-      glTranslatef (-1, 0, 1);
-      polys += draw_tower_face (mi, height, mode);
-      glPopMatrix();
-    }
-
-  if (face == 3 || face == -1)
-    {
-      glPushMatrix();				/* right */
-      glRotatef ( 90, 1, 0, 0);
-      glRotatef ( 90, 0, 1, 0);
-      glTranslatef (0, 0, 1);
-      polys += draw_tower_face (mi, height, mode);
-      glPopMatrix();
-    }
-
-  if (face == 4 || face == -1)
-    {
-      glPushMatrix();				/* front */
-      glRotatef ( 90, 1, 0, 0);
-      polys += draw_tower_face (mi, height, mode);
-      glPopMatrix();
-    }
-
-  if (face < -1 || face > 4) abort();
-
-  glPopMatrix();
-  return polys;
-}
-
-
-static void
-animate_towers (ModeInfo *mi)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int ii;
-  GLfloat min = -3;
-  GLfloat max = grid_depth * (1 + grid_spacing) - grid_spacing - 1;
-  GLfloat yspeed = speed * 0.05;
-
-  for (ii = 0; ii < 20; ii++)
-    {
-      int jj, kk;
-
-      /* randomly trade two towers' fg dlists */
-      if (0 == (random() % 20))
-        {
-          int i = random() % bp->ntowers;
-          int j = random() % bp->ntowers;
-          int k = random() % countof(bp->towers[i].fg_dlists);
-          GLuint d1 = bp->towers[i].bg_dlists[k];
-          GLuint d2 = bp->towers[j].bg_dlists[k];
-          bp->towers[i].bg_dlists[k] = d2;
-          bp->towers[j].bg_dlists[k] = d1;
-        }
-
-      /* randomly trade two towers' bg dlists */
-      if (1) /* (0 == (random() % 3)) */
-        {
-          int i = random() % bp->ntowers;
-          int j = random() % bp->ntowers;
-          int k = random() % countof(bp->towers[i].fg_dlists);
-          GLuint d1 = bp->towers[i].fg_dlists[k];
-          GLuint d2 = bp->towers[j].fg_dlists[k];
-          bp->towers[i].fg_dlists[k] = d2;
-          bp->towers[j].fg_dlists[k] = d1;
-        }
-
-      /* Randomize whether it's displaying fg text or bg text */
-      for (jj = 0; jj < bp->ntowers; jj++)
-        for (kk = 0; kk < countof(bp->towers[jj].fg_dlists); kk++)
-          {
-            /* Re-choose every N frames.  Display fg 1 in M. */
-            int frames = 500;
-            int fg_chance = (kk == 0 ? 100000 : 10);
-            unsigned int o = !!(bp->towers[jj].face_mode & (1 << kk));
-            unsigned int n = !!((random() % frames) ? o : 
-                                (0 == (random() % fg_chance)));
-            bp->towers[jj].face_mode =
-              ((bp->towers[jj].face_mode & ~(1 << kk)) | (n << kk));
-          }
-    }
-
-  for (ii = 0; ii < bp->ntowers; ii++)
-    {
-      tower *t = &bp->towers[ii];
-      t->h += speed * 0.01;
-      if (t->h > 1) t->h = 1;
-
-      t->y -= yspeed;
-
-      if (t->y < min)
-        {
-          t->h = 0;
-          t->y = max;
-        }
-    }
-
-  /* Sorting by depth improves frame rate slightly. */
-  qsort (bp->towers, bp->ntowers, sizeof(*bp->towers), cmp_towers);
-
-  bp->ground_y -= yspeed / GROUND_QUAD_SIZE;
-  if (bp->ground_y < 1)
-    bp->ground_y += 1;
-
-  bp->billboard_y -= yspeed;
-  if (bp->billboard_y < min || !bp->billboard_text)
-    {
-      const char *const ss[] = {
-        "ACCESS GRANTED",
-        "ACCESS GRANTED",
-        "ACCESS DENIED",
-        "ACCESS DENIED",
-        "ACCESS DENIED",
-        "ACCESS DENIED",
-        "ACCESS DENIED",
-        "PASSWORD ACCEPTED",
-        " GIVE ME\nA COOKIE",
-        "MESS WITH THE BEST\n  DIE LIKE THE REST",
-      };
-
-      bp->billboard_y = max * (1 + frand(8));
-      bp->billboard_text = ss[random() % countof(ss)];
-    }
-}
-
-
-static int
-draw_billboard (ModeInfo *mi)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int polys = 0;
-  int wire = MI_IS_WIREFRAME(mi);
-  GLfloat w, h, s, margin, margin2;
-  XCharStruct metrics;
-  int ascent, descent;
-  texture_font_data *font = bp->text[1].font_data;
-  GLfloat color[4];
-  GLfloat y = grid_height * 0.3;
-
-  texture_string_metrics (font, bp->billboard_text,
-                          &metrics, &ascent, &descent);
-  w = metrics.lbearing + metrics.rbearing;
-  h = metrics.ascent   + metrics.descent;
-  s = 1.0 / w;
-  s *= 0.95;
-
-  margin = w * 0.1;
-  margin2 = margin * 1.7;
-
-  glPushMatrix();
-
-  glTranslatef (-0.5, bp->billboard_y, y);
-  glRotatef (90, 1, 0, 0);
-  glScalef (s, s * 1.5, s);
-
-  memcpy (color, bp->tower_color2, sizeof(color));
-  color[3] = 0.6;
-  glColor4fv (color);
-  glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, color);
-
-  if (do_tex && !wire)
-    glDisable (GL_TEXTURE_2D);
-
-  glBegin (wire ? GL_LINE_LOOP : GL_QUADS);
-  glNormal3f (0, 0, 1);
-  glVertex3f (-margin,  -margin2,  0);
-  glVertex3f (-margin,  h+margin2, 0);
-  glVertex3f (w+margin, h+margin2, 0);
-  glVertex3f (w+margin, -margin2,  0);
-  glEnd();
-  polys++;
-
-  if (do_tex && !wire)
-    {
-      color[3] = 1;
-      glColor4fv (color);
-      glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, color);
-      glEnable (GL_TEXTURE_2D);
-      glTranslatef (-metrics.lbearing, metrics.descent, 0);
-      print_texture_string (font, bp->billboard_text);
-      polys++;
-    }
-
-  glPopMatrix();
-  return polys;
-}
-
-
-static void
-init_text (ModeInfo *mi)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int lines = 20;
-  int i;
-  char *s;
-
-  const char *const ss[] = {
-   "\n"
-   "ACCESS TO THIS COMPUTER AND\n"
-   "ITS DATA IS RESTRICTED TO\n"
-   "AUTHORIZED PERSONNEL ONLY\n"
-   "\n",
-   "\n"
-   "  PASSWORD ACCEPTED\n"
-   "             GOD\n"
-   "\n",
-   "PERSONNEL   >>>\n",
-   "SEA ROUTINGS   >>>\n",
-   "GARBAGE   >>>\n",
-   "COMP. SERVICING   >>>\n",
-   "COMPANY BUDGETS   >>>\n",
-   "SCIENTIFIC BUDGETS   >>>\n",
-   "COMPANY POLICIES   >>>\n",
-   "ANNUAL RETURNS   >>>\n",
-   "MINE RESEARCH   >>>\n",
-   "CENTRAL LIBRARY   >>>\n",
-   "QUANTATIVE SPEC.   >>>\n",
-   "PAYMENT LEVELS   >>>\n",
-   "CENTRAL SERVER   >>>\n",
-   "GARBAGE   >>>\n",
-   "KNMTS. DVPNT.   >>>\n",
-   "LICENSING   >>>\n",
-   "RELATIONS   >>>\n",
-   "TIME SHEET RECS.   >>>\n",
-   "RD. PRT. ROUTINGS   >>>\n",
-   "RECRUITMENT   >>>\n",
-   "TNKR. EXPENDITURE   >>>\n",
-   "MINE DEVELOPMENT   >>>\n",
-   "GARBAGE   >>>\n",
-   "ANNUAL BUDGETS   >>>\n",
-   "OIL LOCATIONS   >>>\n",
-   "TIME SHEET RECS.   >>>\n",
-   "RD. PRT. ROUTINGS   >>>\n",
-   "KINEMATICS   >>>\n",
-   "TPS. REPORTS   >>>\n",
-   "BLAST FRNC. STATUS   >>>\n",
-   "ACCOUNTANTS   >>>\n",
-   "SHIPPING FORCASTS   >>>\n",
-   "INDST. REPORTS   >>>\n",
-   "EXPLOR. DVLT.   >>>\n",
-   "WRHSE. EXPEND.   >>>\n",
-   "GARBAGE   >>>\n",
-   "RELOCATIONS   >>>\n",
-   "AIRFREIGHT STATUS   >>>\n",
-   "TPGC. EXPEND.   >>>\n",
-   "SEA-BOARD LAWS   >>>\n",
-   "COMPOSITE PLANTS   >>>\n",
-   "NUCLEAR RESEARCH   >>>\n",
-   "BALLAST REPORTS   >>>\n",
-   "\n"
-   "CONFIDENTAL\n"
-   "FILES\n"
-   "DO NOT DELETE\n"
-   "BEFORE FINAL\n"
-   "BACKUP IS COMPLETED\n"
-   "\n",
-   "\n"
-   "FILE 1\n"
-   "WAITING FOR BACK-UP\n"
-   "\n"
-   "FILE 2\n"
-   "WAITING FOR BACK-UP\n"
-   "\n"
-   "FILE 3\n"
-   "WAITING FOR BACK-UP\n"
-   "\n"
-   "FILE 4\n"
-   "WAITING FOR BACK-UP\n"
-   "\n"
-   };
-
-
-  bp->text[1].text = s = calloc (countof(ss) * 2 * 40, 1);
-  for (i = 0; i < countof(ss); i++)
-    {
-      int n = random() % countof(ss);
-      strcat (s, ss[n]);
-      s += strlen(s);
-    }
-
-  bp->text[0].text = s = calloc (lines * 40, 1);
-  for (i = 0; i < lines; i++)
-    {
-      switch (random() % 11) {
-      case 0: sprintf (s, "%X\n", random() % 0xFFFFFFFF); break;
-      case 1: sprintf (s, "%X\n", random() % 0xFFFFFF); break;
-      case 2: sprintf (s, "%X\n", random() % 0xFFFF); break;
-      case 3: sprintf (s, "%d\n", random() % 0xFFFFFF); break;
-      case 4: sprintf (s, "%d\n", random() % 0xFFFF); break;
-      case 5: sprintf (s, "%d\n", random() % 0xFFF); break;
-      case 6: strcat (s, "00000000\n"); break;
-      case 7: sprintf (s, "{{{{{{{{\n"); break;
-      case 8: sprintf (s, "[][][][][][]\n"); break;
-      case 9: sprintf (s, "DEFAULT\n"); break;
-      case 10: sprintf (s, "\n"); break;
-      }
-      s += strlen(s);
-    }
-}
-
-
-static void
-init_textures (ModeInfo *mi)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  int i;
-  for (i = 0; i < countof(bp->text); i++)
-    {
-      glGenTextures (1, &bp->text[i].texid);
-      glBindTexture (GL_TEXTURE_2D, bp->text[i].texid);
-      texture_string_metrics (bp->text[i].font_data, " ",
-                              &bp->text[i].metrics,
-                              &bp->text[i].ascent,
-                              &bp->text[i].descent);
-      bp->text[i].em_width = bp->text[i].metrics.width;
-      string_to_texture (bp->text[i].font_data, bp->text[i].text,
-                         &bp->text[i].metrics,
-                         &bp->text[i].width,
-                         &bp->text[i].height);
-    }
-  glBindTexture (GL_TEXTURE_2D, 0);
-}
-
-
-ENTRYPOINT void 
-init_gibson (ModeInfo *mi)
-{
-  gibson_configuration *bp;
-
-  MI_INIT (mi, ccs);
-
-  bp = &ccs[MI_SCREEN(mi)];
-
-  if ((bp->glx_context = init_GL(mi)) != NULL) {
-    reshape_gibson (mi, MI_WIDTH(mi), MI_HEIGHT(mi));
-  }
-
-  parse_color (mi, "towerText",  bp->tower_color);
-  parse_color (mi, "towerText2", bp->tower_color2);
-  parse_color (mi, "towerColor", bp->bg_color);
-  memcpy (bp->edge_color, bp->bg_color, sizeof(bp->tower_color));
-  bp->edge_color  [3] = 0.7;
-  bp->bg_color    [3] = 1.0;
-  bp->tower_color [3] = 1.0;
-  bp->tower_color2[3] = 1.0;
-
-  if (grid_spacing < 1) grid_spacing = 1;
-  if (grid_width   < 1) grid_width   = 1;
-  if (grid_height  < 1) grid_height  = 1;
-  if (grid_depth   < 1) grid_depth   = 1;
-  if (columns      < 1) columns      = 1;
-  bp->ntowers = grid_width * grid_depth;
-  bp->towers = (tower *) calloc (sizeof(tower), bp->ntowers);
-  bp->startup_p = True;
-
-  {
-    double wander_speed = 0.007 * speed;
-    double tilt_speed   = 0.01 * speed;
-    bp->rot  = make_rotator (0, 0, 0, 0, wander_speed, True);
-    bp->rot2 = make_rotator (0, 0, 0, 0, tilt_speed,   True);
-  }
-
-  bp->text[0].font_data = load_texture_font (mi->dpy, "towerFont");
-  bp->text[1].font_data = load_texture_font (mi->dpy, "towerFont");
-  init_text (mi);
-  init_textures (mi);
-
-  bp->ground_dlist = glGenLists (1);
-  glNewList (bp->ground_dlist, GL_COMPILE);
-  bp->ground_polys = draw_ground (mi);
-  glEndList ();
-
-  bp->tower_dlist = glGenLists (1);
-  glNewList (bp->tower_dlist, GL_COMPILE);
-  bp->tower_polys = draw_tower (mi, &bp->towers[0], 0, -1);
-  glEndList ();
-
-  {
-    int x, y;
-    GLfloat ww = grid_width * (1 + grid_spacing) - grid_spacing;
-    GLfloat hh = grid_depth * (1 + grid_spacing) - grid_spacing;
-    for (y = 0; y < grid_depth; y++)
-      for (x = 0; x < grid_width; x++)
-        {
-          int i;
-          tower *t = &bp->towers[y * grid_width + x];
-          t->x = (x * ww / (grid_width - 1)) - ww/2;
-          t->y = (y * hh / grid_depth) + 6;
-          t->h = 0 - y / (GLfloat) grid_depth / 2;
-
-          for (i = 0; i < countof(t->fg_dlists); i++)
-            {
-              t->bg_dlists[i] = glGenLists (1);
-              glNewList (t->bg_dlists[i], GL_COMPILE);
-              t->bg_polys = draw_tower (mi, t, 1, i);
-              glEndList ();
-
-              t->fg_dlists[i] = glGenLists (1);
-              glNewList (t->fg_dlists[i], GL_COMPILE);
-              t->fg_polys += draw_tower (mi, t, 2, i);
-              glEndList ();
-            }
-        }
-  }
-
-  animate_towers (mi);
-}
-
-
-ENTRYPOINT void
-draw_gibson (ModeInfo *mi)
-{
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  Display *dpy = MI_DISPLAY(mi);
-  Window window = MI_WINDOW(mi);
-  int wire = MI_IS_WIREFRAME(mi);
-  GLfloat s;
-  int i;
-
-  static const GLfloat bspec[4]  = {1.0, 1.0, 1.0, 1.0};
-  static const GLfloat bshiny    = 128.0;
-  GLfloat bcolor[4] = { 0.7, 0.7, 1.0, 1.0 };
-
-  if (!bp->glx_context)
-    return;
-
-  mi->polygon_count = 0;
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *bp->glx_context);
-
-  glShadeModel (GL_SMOOTH);
-  glEnable (GL_NORMALIZE);
-  glEnable (GL_CULL_FACE);
-  glDisable (GL_TEXTURE_2D);
-  glEnable (GL_DEPTH_TEST);
-
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
-
-  if (!wire)
-    {
-      GLfloat pos[4] = {0.4, 0.2, 0.4, 0.0};
-      GLfloat amb[4] = {0.2, 0.2, 0.2, 1.0};
-      GLfloat dif[4] = {1.0, 1.0, 1.0, 1.0};
-      GLfloat spc[4] = {1.0, 1.0, 1.0, 1.0};
-
-      glEnable(GL_LIGHTING);
-      glEnable(GL_LIGHT0);
-      glLightfv(GL_LIGHT0, GL_POSITION, pos);
-      glLightfv(GL_LIGHT0, GL_AMBIENT,  amb);
-      glLightfv(GL_LIGHT0, GL_DIFFUSE,  dif);
-      glLightfv(GL_LIGHT0, GL_SPECULAR, spc);
-    }
-
-  glPushMatrix ();
-
-  glRotatef(current_device_rotation(), 0, 0, 1);
-
-# ifdef DEBUG
-  s = 0.02;
-# else
-  s = 10;
-# endif
-
-  glScalef (s, s, s);
-
-  glTranslatef (0, -1, 0);
-
-# ifndef DEBUG
-  glRotatef (-82, 1, 0, 0);
-
-  {
-    double maxx = 40;   /* up/down */
-    double maxy = 1.5;  /* tilt */
-    double maxz = 100;  /* left/right */
-
-    double x, y, z;
-    double minh = -(grid_height / 2.0);
-    double maxh = -(grid_height / 20.0);
-
-    get_position (bp->rot, &x, &y, &z, !bp->button_down_p);
-    x -= 0.5;
-    z = minh + (z * (maxh - minh));
-    glTranslatef(x * grid_spacing * 0.005, 0, z);
-
-    get_position (bp->rot2, &x, &y, &z, !bp->button_down_p);
-
-    z += (bp->xscroll / 2.0);
-    x += (bp->yscroll / 2.0);
-
-    glRotatef (maxx/2 - x*maxx, 1, 0, 0);
-    glRotatef (maxy/2 - y*maxy, 0, 1, 0);
-    glRotatef (maxz/2 - z*maxz, 0, 0, 1);
-  }
-# endif /* DEBUG */
-
-  glPushMatrix();
-  glScalef (GROUND_QUAD_SIZE, GROUND_QUAD_SIZE, 1);
-
-  glTranslatef (0, bp->ground_y - 1.5, 0);
-  glCallList (bp->ground_dlist);
-  mi->polygon_count += bp->ground_polys;
-
-  glTranslatef (0, 1, 0);
-  glCallList (bp->ground_dlist);
-  mi->polygon_count += bp->ground_polys;
-  glPopMatrix();
-
-  glMaterialfv (GL_FRONT, GL_SPECULAR,            bspec);
-  glMateriali  (GL_FRONT, GL_SHININESS,           bshiny);
-  glMaterialfv (GL_FRONT, GL_AMBIENT_AND_DIFFUSE, bcolor);
-
-  glPushMatrix();
-
-  if (grid_width & 1)  /* Stay between towers */
-    glTranslatef ((grid_spacing + 1) / 2.0, 0, 0);
-
-
-  if (!wire)
-    {
-      GLfloat fog_color[4] = { 0, 0, 0, 1 };
-      glFogfv (GL_FOG_COLOR, fog_color);
-      /* I so don't understand how to choose the fog parameters. */
-      glFogi (GL_FOG_MODE, GL_LINEAR);
-      glFogf (GL_FOG_START, 0);
-      glFogf (GL_FOG_END, 100);
-      glEnable (GL_FOG);
-    }
-
-  /* Clear the floor under the tower bases */
-
-  {
-    GLfloat color0[4] = { 0, 0, 0, 1 };
-    GLfloat z = 0.01;
-
-    if (do_tex && !wire) glDisable (GL_TEXTURE_2D);
-    glColor4fv (color0);
-    glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, color0);
-    glDisable (GL_BLEND);
-    glDisable (GL_DEPTH_TEST);
-
-    for (i = 0; i < bp->ntowers; i++)
-      {
-        tower *t = &bp->towers[i];
-        glPushMatrix();
-        glTranslatef (t->x, t->y, 0);
-
-        glNormal3f (0, 0, 1);
-        glBegin (wire ? GL_LINE_LOOP : GL_QUADS);	/* clipping quad */
-        glVertex3f (-0.5, -0.5, z);
-        glVertex3f ( 0.5, -0.5, z);
-        glVertex3f ( 0.5,  0.5, z);
-        glVertex3f (-0.5,  0.5, z);
-        glEnd();
-        mi->polygon_count++;
-        glPopMatrix();
-      }
-  }
-
-  glEnable (GL_DEPTH_TEST);
-
-  if (!wire)
-    {
-      if (do_tex)
-        {
-          glEnable (GL_TEXTURE_2D);
-          enable_texture_string_parameters (bp->text[0].font_data);
-        }
-      glEnable (GL_BLEND);
-      glBlendFunc (GL_SRC_ALPHA, GL_ONE);
-      glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);
-      glDisable (GL_CULL_FACE);
-      if (bp->startup_p)
-        glEnable (GL_DEPTH_TEST);
-      else
-        glDisable (GL_DEPTH_TEST);
-    }
-
-  /* Draw the towers */
-
-  for (i = 0; i < bp->ntowers; i++)
-    {
-      tower *t = &bp->towers[i];
-      glPushMatrix();
-      glTranslatef (t->x, t->y-1, -grid_height * ease_ratio (1 - t->h));
-
-      glCallList (bp->tower_dlist);
-      mi->polygon_count += bp->tower_polys;
-
-      if (wire || do_tex)
-        {
-          int j;
-          for (j = 0; j < countof(t->fg_dlists); j++)
-            {
-              if (! (t->face_mode & (1 << j)))
-                {
-                  glCallList (t->bg_dlists[j]);
-                  mi->polygon_count += t->bg_polys;
-                }
-              else
-                {
-                  glCallList (t->fg_dlists[j]);
-                  mi->polygon_count += t->fg_polys;
-                }
-            }
-        }
-      glPopMatrix();
-    }
-
-  glPopMatrix();
-
-  mi->polygon_count += draw_billboard (mi);
-  glPopMatrix();
-
-  if (!bp->button_down_p)
-    animate_towers (mi);
-
-  if (bp->startup_p && bp->towers[bp->ntowers-1].h >= 1)
-    bp->startup_p = False;
-
-  if (mi->fps_p) do_fps (mi);
-  glFinish();
-
-  glXSwapBuffers(dpy, window);
-}
-
-
-ENTRYPOINT void
-free_gibson (ModeInfo *mi)
-{
-  int i, j;
-  gibson_configuration *bp = &ccs[MI_SCREEN(mi)];
-  if (!bp->glx_context) return;
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *bp->glx_context);
-
-  if (bp->rot)  free_rotator (bp->rot);
-  if (bp->rot2) free_rotator (bp->rot2);
-  if (glIsList(bp->ground_dlist)) glDeleteLists(bp->ground_dlist, 1);
-  if (glIsList(bp->tower_dlist)) glDeleteLists(bp->tower_dlist, 1);
-  for (i = 0; i < countof(bp->text); i++)
-    {
-      if (bp->text[i].font_data) free_texture_font (bp->text[i].font_data);
-      if (bp->text[i].text) free (bp->text[i].text);
-    }
-  if (bp->towers)
-    for (i = 0; i < bp->ntowers; i++)
-      {
-        for (j = 0; j < countof(bp->towers[i].fg_dlists); j++)
-          {
-            if (glIsList(bp->towers[i].fg_dlists[j]))
-              glDeleteLists(bp->towers[i].fg_dlists[j], 1);
-            if (glIsList(bp->towers[i].bg_dlists[j]))
-              glDeleteLists(bp->towers[i].bg_dlists[j], 1);
-          }
-      }
-}
-
-
-XSCREENSAVER_MODULE ("Gibson", gibson)
-/* Greets to Crash Override, The Phantom Freak, and also Joey */
-
-#endif /* USE_GL */