6.09HEADmaster

1 files changed, 0 insertions, 925 deletions

diff --git a/hacks/glx/spheremonics.c b/hacks/glx/spheremonics.c
deleted file mode 100644
index 13eed8a..0000000
--- a/hacks/glx/spheremonics.c
+++ /dev/null
@@ -1,925 +0,0 @@
-/* xscreensaver, Copyright (c) 2002-2014 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.
- *
- * Algorithm by Paul Bourke <pbourke@swin.edu.au>
- * http://astronomy.swin.edu.au/~pbourke/geometry/sphericalh/
- * Screensaver veneer and parameter selection by jwz.
- *
- *  Paul says:
- *
- * These closed objects are commonly called spherical harmonics,
- * although they are only remotely related to the mathematical
- * definition found in the solution to certain wave functions, most
- * notable the eigenfunctions of angular momentum operators.
- *
- * The formula is quite simple: the form used here is based upon
- * spherical (polar) coordinates (radius, theta, phi).
- *
- *    r = sin(m0 phi)   ^ m1 + 
- *        cos(m2 phi)   ^ m3 + 
- *        sin(m4 theta) ^ m5 + 
- *        cos(m6 theta) ^ m7 
- *
- * Where phi ranges from 0 to pi (lines of latitude), and theta ranges
- * from 0 to 2 pi (lines of longitude), and r is the radius.  The
- * parameters m0, m1, m2, m3, m4, m5, m6, and m7 are all integers
- * greater than or equal to 0.
- *
- * As the degree increases, the objects become increasingly "pointed"
- * and a large number of polygons are required to represent the surface
- * faithfully.
- *
- * jwz adds:
- * 
- * The eight parameters live in the `cc->m' array.
- * Each time we permute the image, we alter *one* of those eight parameters.
- * Each time we alter a parameter, we move it in the same direction (either
- * toward larger or smaller values) in the range [0, 3].
- *
- * By altering only one parameter at a time, and only by small amounts,
- * we tend to produce successive objects that are pretty similar to each
- * other, so you can see a progression.
- *
- * It'd be nice if they were even closer together, so that it looked more
- * like a morph, but, well, that's not how it works.
- *
- * There tends to be a dark stripe in the colormaps.  I don't know why.
- * Perhaps utils/colors.c is at fault?
- *
- * Note that this equation sometimes generates faces that are inside out:
- *     -parameters 01210111
- * To make this work, we need to render back-faces with two-sided lighting:
- * figuring out how to correct the winding and normals on those inside out
- * surfaces would be too hard.
- */
-
-#define DEFAULTS "*delay:	30000	    \n" \
-		 "*showFPS:	False	    \n" \
-		 "*wireframe:	False	    \n" \
-	         "*labelfont:   sans-serif 18\n" \
-		 "*suppressRotationAnimation: True\n" \
-
-# define release_spheremonics 0
-
-#include "xlockmore.h"
-#include "texfont.h"
-#include "normals.h"
-#include "colors.h"
-#include "rotator.h"
-#include "gltrackball.h"
-#include <ctype.h>
-
-#ifdef USE_GL /* whole file */
-
-#define DEF_DURATION    "200"
-#define DEF_SPIN        "XYZ"
-#define DEF_WANDER      "False"
-#define DEF_RESOLUTION  "64"
-#define DEF_BBOX        "False"
-#define DEF_GRID        "True"
-#define DEF_SMOOTH      "True"
-#define DEF_PARMS       "(default)"
-
-typedef struct {
-  GLXContext *glx_context;
-  rotator *rot;
-  trackball_state *trackball;
-  Bool button_down_p;
-
-  GLuint dlist, dlist2, grid_dlist;
-  GLfloat scale;
-  XYZ bbox[2];
-
-  int resolution;
-  int ncolors;
-  XColor *colors;
-
-  int m[8];
-  int dm[8];
-  int m_max;
-
-  int tracer;
-  int mesher;
-  int polys1, polys2;  /* polygon counts */
-
-  texture_font_data *font_data;
-
-  int change_tick;
-  int done_once;
-  double fade;
-
-} spheremonics_configuration;
-
-static spheremonics_configuration *ccs = NULL;
-
-static char *do_spin;
-static Bool do_wander;
-static Bool do_bbox;
-static Bool do_grid;
-static int smooth_p;
-static char *static_parms;
-static int res;
-static int duration;
-
-static XrmOptionDescRec opts[] = {
-  { "-spin",   ".spin",   XrmoptionSepArg, 0 },
-  { "+spin",   ".spin",   XrmoptionNoArg, "" },
-  { "-wander", ".wander", XrmoptionNoArg, "True" },
-  { "+wander", ".wander", XrmoptionNoArg, "False" },
-  { "-resolution", ".resolution", XrmoptionSepArg, 0 },
-  { "-duration",   ".duration",   XrmoptionSepArg, 0 },
-  { "-bbox",   ".bbox",  XrmoptionNoArg, "True" },
-  { "+bbox",   ".bbox",  XrmoptionNoArg, "False" },
-  { "-grid",   ".grid",  XrmoptionNoArg, "True" },
-  { "+grid",   ".grid",  XrmoptionNoArg, "False" },
-  {"-smooth",  ".smooth", XrmoptionNoArg, "True" },
-  {"+smooth",  ".smooth", XrmoptionNoArg, "False" },
-  { "-parameters", ".parameters", XrmoptionSepArg, 0 },
-};
-
-static argtype vars[] = {
-  {&do_spin,      "spin",       "Spin",       DEF_SPIN,       t_String},
-  {&do_wander,    "wander",     "Wander",     DEF_WANDER,     t_Bool},
-  {&res,          "resolution", "Resolution", DEF_RESOLUTION, t_Int},
-  {&duration,     "duration",   "Duration",   DEF_DURATION,   t_Int},
-  {&do_bbox,      "bbox",       "BBox",       DEF_BBOX,       t_Bool},
-  {&do_grid,      "grid",       "Grid",       DEF_GRID,       t_Bool},
-  {&smooth_p,     "smooth",     "Smooth",     DEF_SMOOTH,     t_Bool},
-  {&static_parms, "parameters", "Parameters", DEF_PARMS,      t_String},
-};
-
-ENTRYPOINT ModeSpecOpt spheremonics_opts = {countof(opts), opts, countof(vars), vars, NULL};
-
-
-/* Window management, etc
- */
-ENTRYPOINT void
-reshape_spheremonics (ModeInfo *mi, int width, int height)
-{
-  GLfloat h = (GLfloat) height / (GLfloat) width;
-  int y = 0;
-
-  if (width > height * 5) {   /* tiny window: show middle */
-    height = width * 9/16;
-    y = -height/2;
-    h = height / (GLfloat) width;
-  }
-
-  glViewport (0, y, (GLint) width, (GLint) height);
-
-  glMatrixMode(GL_PROJECTION);
-  glLoadIdentity();
-  gluPerspective (30.0, 1/h, 1.0, 100.0);
-
-  glMatrixMode(GL_MODELVIEW);
-  glLoadIdentity();
-  gluLookAt( 0.0, 0.0, 30.0,
-             0.0, 0.0, 0.0,
-             0.0, 1.0, 0.0);
-
-  {
-    GLfloat s = (MI_WIDTH(mi) < MI_HEIGHT(mi)
-                 ? (MI_WIDTH(mi) / (GLfloat) MI_HEIGHT(mi))
-                 : 1);
-    glScalef (s, s, s);
-  }
-
-  glClear(GL_COLOR_BUFFER_BIT);
-}
-
-
-static void
-gl_init (ModeInfo *mi)
-{
-/*  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)]; */
-  int wire = MI_IS_WIREFRAME(mi);
-
-  static const GLfloat pos[4] = {5.0, 5.0, 10.0, 1.0};
-
-  glEnable(GL_NORMALIZE);
-
-  if (!wire)
-    {
-      glLightfv(GL_LIGHT0, GL_POSITION, pos);
-      glEnable(GL_LIGHTING);
-      glEnable(GL_LIGHT0);
-      glEnable(GL_DEPTH_TEST);
-
-      /* With objects that have proper winding and normals set up on all
-         their faces, one can cull back-faces; however, these equations
-         generate objects that are sometimes "inside out", and determining
-         whether a facet has been inverted like that is really hard.
-         So we render both front and back faces, at a probable performance
-         penalty on non-accelerated systems.
-
-         When rendering back faces, we also need to do two-sided lighting,
-         or the fact that the normals are flipped gives us too-dark surfaces
-         on the inside-out surfaces.
-
-         This isn't generally something you'd want, because you end up
-         with half the lighting dynamic range (kind of.)  So if you had
-         a sphere with correctly pointing normals, and a single light
-         source, it would be illuminated from two sides.  In this case,
-         though, it saves us from a difficult and time consuming
-         inside/outside test.  And we don't really care about a precise
-         lighting effect.
-       */
-      glDisable(GL_CULL_FACE);
-      glLightModeli (GL_LIGHT_MODEL_TWO_SIDE, True);
-    }
-
-  if (smooth_p) 
-    {
-      glEnable (GL_LINE_SMOOTH);
-      glHint (GL_LINE_SMOOTH_HINT, GL_NICEST);
-      glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); 
-      glEnable (GL_BLEND);
-    }
-}
-
-
-
-/* generate the object */
-
-static XYZ
-sphere_eval (double theta, double phi, int *m)
-{
-  double r = 0;
-  XYZ p;
-
-  r += pow (sin(m[0] * phi),  (double)m[1]);
-  r += pow (cos(m[2] * phi),  (double)m[3]);
-  r += pow (sin(m[4] * theta),(double)m[5]);
-  r += pow (cos(m[6] * theta),(double)m[7]);
-
-  p.x = r * sin(phi) * cos(theta);
-  p.y = r * cos(phi);
-  p.z = r * sin(phi) * sin(theta);
-
-  return (p);
-}
-
-
-static void
-do_color (int i, XColor *colors)
-{
-  GLfloat c[4];
-  c[0] = colors[i].red   / 65535.0;
-  c[1] = colors[i].green / 65535.0;
-  c[2] = colors[i].blue  / 65535.0;
-  c[3] = 1.0;
-  glMaterialfv (GL_FRONT, GL_AMBIENT_AND_DIFFUSE, c);
-  glColor3f (c[0], c[1], c[2]);
-}
-
-
-static void
-draw_circle (ModeInfo *mi, Bool teeth_p)
-{
-  GLfloat th;
-  int tick = 0;
-  GLfloat x, y;
-  GLfloat step = (M_PI / 180);
-
-  glBegin(GL_LINE_LOOP);
-  for (th = 0; th < M_PI*2; th += step*5)
-    {
-      GLfloat r1 = 0.5;
-      x = cos (th);
-      y = sin (th);
-      glVertex3f(x*r1, y*r1,  0);
-    }
-  glEnd();
-
-  if (!teeth_p) return;
-
-  glBegin(GL_LINES);
-  for (th = 0; th < M_PI*2; th += step)
-    {
-      GLfloat r1 = 0.5;
-      GLfloat r2 = r1 - 0.01;
-      if (! (tick % 10))
-        r2 -= 0.02;
-      else if (! (tick % 5))
-        r2 -= 0.01;
-      tick++;
-
-      x = cos (th);
-      y = sin (th);
-      glVertex3f(x*r1, y*r1,  0);
-      glVertex3f(x*r2, y*r2,  0);
-    }
-  glEnd();
-}
-
-
-static void
-draw_bounding_box (ModeInfo *mi)
-{
-  /* spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)]; */
-
-  static const GLfloat c1[4] = { 0.2, 0.2, 0.6, 1.0 };
-  int wire = MI_IS_WIREFRAME(mi);
-
-  GLfloat x1,y1,z1,x2,y2,z2;
-
-# if 0
-  x1 = cc->bbox[0].x;
-  y1 = cc->bbox[0].y;
-  z1 = cc->bbox[0].z;
-  x2 = cc->bbox[1].x;
-  y2 = cc->bbox[1].y;
-  z2 = cc->bbox[1].z;
-# else
-  x1 = y1 = z1 = -0.5;
-  x2 = y2 = z2 =  0.5;
-# endif
-
-  if (do_bbox && !wire)
-    {
-      glMaterialfv (GL_FRONT, GL_AMBIENT_AND_DIFFUSE, c1);
-      glFrontFace(GL_CCW);
-      glEnable(GL_CULL_FACE);
-
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(0, 1, 0);
-      glVertex3f(x1, y1, z1); glVertex3f(x1, y1, z2);
-      glVertex3f(x2, y1, z2); glVertex3f(x2, y1, z1);
-      glEnd();
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(0, -1, 0);
-      glVertex3f(x2, y2, z1); glVertex3f(x2, y2, z2);
-      glVertex3f(x1, y2, z2); glVertex3f(x1, y2, z1);
-      glEnd();
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(0, 0, 1);
-      glVertex3f(x1, y1, z1); glVertex3f(x2, y1, z1);
-      glVertex3f(x2, y2, z1); glVertex3f(x1, y2, z1);
-      glEnd();
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(0, 0, -1);
-      glVertex3f(x1, y2, z2); glVertex3f(x2, y2, z2);
-      glVertex3f(x2, y1, z2); glVertex3f(x1, y1, z2);
-      glEnd();
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(1, 0, 0);
-      glVertex3f(x1, y2, z1); glVertex3f(x1, y2, z2);
-      glVertex3f(x1, y1, z2); glVertex3f(x1, y1, z1);
-      glEnd();
-      glBegin(wire ? GL_LINE_LOOP : GL_QUADS);
-      glNormal3f(-1, 0, 0);
-      glVertex3f(x2, y1, z1); glVertex3f(x2, y1, z2);
-      glVertex3f(x2, y2, z2); glVertex3f(x2, y2, z1);
-      glEnd();
-      glDisable(GL_CULL_FACE);
-    }
-}
-
-
-static void
-do_tracer (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-
-  if (cc->tracer == -1 &&
-      cc->mesher == -1 &&
-      !(random() % (duration * 4)))
-    {
-      if (random() & 1)
-        cc->tracer = ((random() & 1) ? 0 : 180);
-      else
-        cc->mesher = ((random() % ((duration / 3) + 1)) +
-                      (random() % ((duration / 3) + 1)));
-    }
-
-  if (cc->tracer >= 0)
-    {
-      int d = (90 - cc->tracer);
-      GLfloat th = d * (M_PI / 180);
-      GLfloat x = cos (th);
-      GLfloat y = sin (th);
-      GLfloat s = 1.5 / cc->scale;
-
-      if (s > 0.001)
-        {
-          static const GLfloat c[4] = { 0.6, 0.5, 1.0, 1.0 };
-
-          glDisable (GL_LIGHTING);
-
-          glPushMatrix();
-          glRotatef (90, 1, 0, 0);
-          glTranslatef (0, 0, y*s/2);
-          s *= x;
-          glScalef(s, s, s);
-          glColor3f (c[0], c[1], c[2]);
-          draw_circle (mi, False);
-          glPopMatrix();
-
-          if (! MI_IS_WIREFRAME(mi)) glEnable (GL_LIGHTING);
-        }
-
-      cc->tracer += 5;
-      if (cc->tracer == 180 || cc->tracer == 360)
-        cc->tracer = -1;
-    }
-}
-
-
-static int
-unit_spheremonics (ModeInfo *mi,
-                   int resolution, Bool wire, int *m, XColor *colors)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-  int polys = 0;
-  int i, j;
-  double du, dv;
-  XYZ q[4];
-  XYZ n[4];
-  int res = (wire == 2
-             ? resolution / 2
-             : resolution);
-
-  cc->bbox[0].x = cc->bbox[0].y = cc->bbox[0].z = 0;
-  cc->bbox[1].x = cc->bbox[1].y = cc->bbox[1].z = 0;
-
-  du = (M_PI+M_PI) / (double)res; /* Theta */
-  dv = M_PI        / (double)res; /* Phi   */
-
-  if (wire)
-    glColor3f (1, 1, 1);
-
-  glBegin (wire ? GL_LINE_LOOP : GL_QUADS);
-
-  for (i = 0; i < res; i++) {
-    double u = i * du;
-    for (j = 0; j < res; j++) {
-      double v = j * dv;
-      q[0] = sphere_eval (u, v, m);
-      n[0] = calc_normal(q[0],
-                         sphere_eval (u+du/10, v, m),
-                         sphere_eval (u, v+dv/10, m));
-      glNormal3f(n[0].x,n[0].y,n[0].z);
-      if (!wire) do_color (i, colors);
-      glVertex3f(q[0].x,q[0].y,q[0].z);
-
-      q[1] = sphere_eval (u+du, v, m);
-      n[1] = calc_normal(q[1],
-                         sphere_eval (u+du+du/10, v, m),
-                         sphere_eval (u+du, v+dv/10, m));
-      glNormal3f(n[1].x,n[1].y,n[1].z);
-      if (!wire) do_color ((i+1)%res, colors);
-      glVertex3f(q[1].x,q[1].y,q[1].z);
-
-      q[2] = sphere_eval (u+du, v+dv, m);
-      n[2] = calc_normal(q[2],
-                         sphere_eval (u+du+du/10, v+dv, m),
-                         sphere_eval (u+du, v+dv+dv/10, m));
-      glNormal3f(n[2].x,n[2].y,n[2].z);
-      if (!wire) do_color ((i+1)%res, colors);
-      glVertex3f(q[2].x,q[2].y,q[2].z);
-
-      q[3] = sphere_eval (u,v+dv, m);
-      n[3] = calc_normal(q[3],
-                         sphere_eval (u+du/10, v+dv, m),
-                         sphere_eval (u, v+dv+dv/10, m));
-      glNormal3f(n[3].x,n[3].y,n[3].z);
-      if (!wire) do_color (i, colors);
-      glVertex3f(q[3].x,q[3].y,q[3].z);
-
-      polys++;
-
-# define CHECK_BBOX(N) \
-         if (q[(N)].x < cc->bbox[0].x) cc->bbox[0].x = q[(N)].x; \
-         if (q[(N)].y < cc->bbox[0].y) cc->bbox[0].y = q[(N)].y; \
-         if (q[(N)].z < cc->bbox[0].z) cc->bbox[0].z = q[(N)].z; \
-         if (q[(N)].x > cc->bbox[1].x) cc->bbox[1].x = q[(N)].x; \
-         if (q[(N)].y > cc->bbox[1].y) cc->bbox[1].y = q[(N)].y; \
-         if (q[(N)].z > cc->bbox[1].z) cc->bbox[1].z = q[(N)].z
-
-      CHECK_BBOX(0);
-      CHECK_BBOX(1);
-      CHECK_BBOX(2);
-      CHECK_BBOX(3);
-# undef CHECK_BBOX
-    }
-  }
-  glEnd();
-
-  {
-    GLfloat w = cc->bbox[1].x - cc->bbox[0].x;
-    GLfloat h = cc->bbox[1].y - cc->bbox[0].y;
-    GLfloat d = cc->bbox[1].z - cc->bbox[0].z;
-    GLfloat wh = (w > h ? w : h);
-    GLfloat hd = (h > d ? h : d);
-    GLfloat scale = (wh > hd ? wh : hd);
-
-    cc->scale = 1/scale;
-
-    if (wire < 2 && (do_bbox || do_grid))
-      {
-        GLfloat s = scale * 1.5;
-        glPushMatrix();
-        glScalef(s, s, s);
-        draw_bounding_box (mi);
-        glPopMatrix();
-      }
-  }
-  return polys;
-}
-
-
-static void
-init_colors (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-  int i;
-  cc->ncolors = cc->resolution;
-  cc->colors = (XColor *) calloc(cc->ncolors, sizeof(XColor));
-  make_smooth_colormap (0, 0, 0,
-                        cc->colors, &cc->ncolors, 
-                        False, 0, False);
-
-  /* brighter colors, please... */
-  for (i = 0; i < cc->ncolors; i++)
-    {
-      cc->colors[i].red   = (cc->colors[i].red   / 2) + 32767;
-      cc->colors[i].green = (cc->colors[i].green / 2) + 32767;
-      cc->colors[i].blue  = (cc->colors[i].blue  / 2) + 32767;
-    }
-}
-
-
-/* Pick one of the parameters to the function and tweak it up or down.
- */
-static void
-tweak_parameters (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-
-  /* If the -parameters command line option was specified, just use that
-     all the time.
-   */
-  if (static_parms &&
-      *static_parms &&
-      !!strcasecmp (static_parms, "(default)"))
-    {
-      unsigned long n;
-      char dummy;
-      if (8 == sscanf (static_parms, "%d %d %d %d %d %d %d %d %c",
-                       &cc->m[0], &cc->m[1], &cc->m[2], &cc->m[3],
-                       &cc->m[4], &cc->m[5], &cc->m[6], &cc->m[7],
-                       &dummy))
-        return;
-      else if (strlen (static_parms) == 8 &&
-               1 == sscanf (static_parms, "%lu %c", &n, &dummy))
-        {
-          const char *s = static_parms;
-          int i = 0;
-          while (*s)
-            cc->m[i++] = (*s++)-'0';
-          return;
-        }
-      fprintf (stderr,
-               "%s: -parameters must be a string of 8 ints (not \"%s\")\n",
-               progname, static_parms);
-      exit (1);
-    }
-
-  static_parms = 0;
-
-
-# define SHIFT(N) do { \
-    int n = (N); \
-    cc->m[n] += cc->dm[n]; \
-    if (cc->m[n] <= 0) \
-      cc->m[n] = 0, cc->dm[n] = -cc->dm[n]; \
-    else if (cc->m[n] >= cc->m_max) \
-      cc->m[n] = cc->m_max, cc->dm[n] = -cc->dm[n]; \
-  } while(0)
-
-/*    else if (cc->m[n] >= cc->m_max/2 && (! (random() % 3))) \
-      cc->m[n] = cc->m_max/2, cc->dm[n] = -cc->dm[n]; \
-*/
-
-  switch(random() % 8)
-    {
-    case 0: SHIFT(0); break;
-    case 1: SHIFT(1); break;
-    case 2: SHIFT(2); break;
-    case 3: SHIFT(3); break;
-    case 4: SHIFT(4); break;
-    case 5: SHIFT(5); break;
-    case 6: SHIFT(6); break;
-    case 7: SHIFT(7); break;
-    default: abort(); break;
-    }
-# undef SHIFT
-
-#if 0
-    printf ("%s: state: %d %d %d %d %d %d %d %d\n",
-            progname,
-            cc->m[0], cc->m[1], cc->m[2], cc->m[3],
-            cc->m[4], cc->m[5], cc->m[6], cc->m[7]);
-#endif
-
-}
-
-
-static void
-generate_spheremonics (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-  int wire = MI_IS_WIREFRAME(mi);
-
-  tweak_parameters (mi);
-
-  if (!cc->done_once || (0 == (random() % 20)))
-    init_colors (mi);
-
-  glNewList(cc->dlist, GL_COMPILE);
-  cc->polys1 = unit_spheremonics (mi, cc->resolution, wire,cc->m,cc->colors);
-  glEndList();
-
-  glNewList(cc->dlist2, GL_COMPILE);
-  glPushMatrix();
-  glScalef (1.05, 1.05, 1.05);
-  cc->polys2 = unit_spheremonics (mi, cc->resolution, 2, cc->m, cc->colors);
-  glPopMatrix();
-  glEndList();
-
-  if (! cc->done_once)
-    {
-      glNewList(cc->grid_dlist, GL_COMPILE);
-      if (do_grid)
-        {
-          static const GLfloat c2[4] = { 1.0, 0.0, 0.0, 1.0 };
-          glPushMatrix();
-          glColor3f (c2[0], c2[1], c2[2]);
-          glBegin(GL_LINES);
-          glVertex3f(0, -0.66, 0);
-          glVertex3f(0,  0.66, 0); 
-          glEnd();
-          draw_circle (mi, True);
-          glRotatef(90, 1, 0, 0);
-          draw_circle (mi, True);
-          glRotatef(90, 0, 1, 0);
-          draw_circle (mi, True);
-          glPopMatrix();
-        }
-      glEndList();
-    }
-
-  cc->done_once = True;
-}
-
-
-
-
-ENTRYPOINT void 
-init_spheremonics (ModeInfo *mi)
-{
-  spheremonics_configuration *cc;
-
-  MI_INIT (mi, ccs);
-
-  cc = &ccs[MI_SCREEN(mi)];
-
-  if ((cc->glx_context = init_GL(mi)) != NULL) {
-    gl_init(mi);
-    reshape_spheremonics (mi, MI_WIDTH(mi), MI_HEIGHT(mi));
-  }
-
-  {
-    Bool spinx=False, spiny=False, spinz=False;
-    double spin_speed   = 1.0;
-    double wander_speed = 0.03;
-
-    char *s = do_spin;
-    while (*s)
-      {
-        if      (*s == 'x' || *s == 'X') spinx = True;
-        else if (*s == 'y' || *s == 'Y') spiny = True;
-        else if (*s == 'z' || *s == 'Z') spinz = True;
-        else if (*s == '0') ;
-        else
-          {
-            fprintf (stderr,
-         "%s: spin must contain only the characters X, Y, or Z (not \"%s\")\n",
-                     progname, do_spin);
-            exit (1);
-          }
-        s++;
-      }
-
-    cc->rot = make_rotator (spinx ? spin_speed : 0,
-                            spinz ? spin_speed : 0,
-                            spiny ? spin_speed : 0,
-                            1.0,
-                            do_wander ? wander_speed : 0,
-                            (spinx && spiny && spinz));
-    cc->trackball = gltrackball_init (True);
-  }
-
-  cc->tracer = -1;
-  cc->mesher = -1;
-
-  cc->resolution = res;
-
-  cc->font_data = load_texture_font (mi->dpy, "labelfont");
-
-  cc->dlist = glGenLists(1);
-  cc->dlist2 = glGenLists(1);
-  cc->grid_dlist = glGenLists(1);
-
-  cc->m_max = 4; /* 9? */
-  {
-    unsigned int i;
-    for (i = 0; i < countof(cc->dm); i++)
-      cc->dm[i] = 1;  /* going up! */
-
-    /* Generate a few more times so we don't always start off with a sphere */
-    for (i = 0; i < 5; i++)
-      tweak_parameters (mi);
-  }
-
-  generate_spheremonics(mi);
-}
-
-
-ENTRYPOINT Bool
-spheremonics_handle_event (ModeInfo *mi, XEvent *event)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-
-  if (gltrackball_event_handler (event, cc->trackball,
-                                 MI_WIDTH (mi), MI_HEIGHT (mi),
-                                 &cc->button_down_p))
-    return True;
-  else if (screenhack_event_helper (MI_DISPLAY(mi), MI_WINDOW(mi), event))
-    {
-      cc->change_tick = duration;
-      return True;
-    }
-
-  return False;
-}
-
-
-ENTRYPOINT void
-draw_spheremonics (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-  Display *dpy = MI_DISPLAY(mi);
-  Window window = MI_WINDOW(mi);
-
-  if (!cc->glx_context)
-    return;
-
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *cc->glx_context);
-
-  gl_init(mi);
-
-  glShadeModel(GL_SMOOTH);
-
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
-
-  glPushMatrix ();
-
-  glScalef(1.1, 1.1, 1.1);
-
-  {
-    double x, y, z;
-    get_position (cc->rot, &x, &y, &z, !cc->button_down_p);
-    glTranslatef((x - 0.5) * 8,
-                 (y - 0.5) * 6,
-                 (z - 0.5) * 8);
-
-    gltrackball_rotate (cc->trackball);
-
-    get_rotation (cc->rot, &x, &y, &z, !cc->button_down_p);
-    glRotatef (x * 360, 1.0, 0.0, 0.0);
-    glRotatef (y * 360, 0.0, 1.0, 0.0);
-    glRotatef (z * 360, 0.0, 0.0, 1.0);
-  }
-
-  glScalef(7,7,7);
-
-  mi->polygon_count = 0;
-
-  if (do_grid)
-    {
-      GLfloat s = 1.5;
-      glDisable (GL_LIGHTING);
-      glPushMatrix();
-      glScalef (s, s, s);
-      glCallList (cc->grid_dlist);
-      glPopMatrix();
-      if (! MI_IS_WIREFRAME(mi))
-        glEnable (GL_LIGHTING);
-    }
-
-  glScalef (cc->scale, cc->scale, cc->scale);
-  glPushMatrix();
-  {
-    double fade_speed = 0.15;
-    GLfloat s;
-    if (cc->fade == 0)
-      s = 1;
-    else if (cc->fade > 0)
-      {
-        s = cc->fade;
-        cc->fade -= fade_speed;
-        cc->change_tick = 0;
-        if (cc->fade <= 0)
-          {
-            cc->fade = -1.0;
-            generate_spheremonics (mi);
-          }
-      }
-    else
-      {
-        s = 1 + cc->fade;
-        cc->fade += fade_speed;
-        cc->change_tick = 0;
-        if (cc->fade >= 0) cc->fade = 0;
-      }
-
-    glScalef (s, s, s);
-    glCallList (cc->dlist);
-  }
-  glPopMatrix();
-  mi->polygon_count += cc->polys1;
-
-  if (cc->mesher >= 0 /* || cc->button_down_p */)
-    {
-      glDisable (GL_LIGHTING);
-      glCallList (cc->dlist2);
-      mi->polygon_count += cc->polys2;
-      if (cc->mesher >= 0)
-        cc->mesher--;
-    }
-
-  if (cc->fade == 0)
-    do_tracer(mi);
-
-  if (cc->button_down_p)
-    {
-      char buf[200];
-      sprintf (buf,
-               ((cc->m[0]<10 && cc->m[1]<10 && cc->m[2]<10 && cc->m[3]<10 &&
-                 cc->m[4]<10 && cc->m[5]<10 && cc->m[6]<10 && cc->m[7]<10)
-                ? "%d%d%d%d%d%d%d%d"
-                : "%d %d %d %d %d %d %d %d"),
-               cc->m[0], cc->m[1], cc->m[2], cc->m[3],
-               cc->m[4], cc->m[5], cc->m[6], cc->m[7]);
-
-      glColor3f(1.0, 1.0, 0.0);
-      print_texture_label (mi->dpy, cc->font_data,
-                           mi->xgwa.width, mi->xgwa.height,
-                           1, buf);
-    }
-
-  if (!static_parms)
-    {
-      if (cc->change_tick++ >= duration && !cc->button_down_p)
-        {
-          cc->change_tick = 0;
-          cc->fade = 1.0;
-          cc->mesher = -1;  /* turn off the mesh when switching objects */
-        }
-    }
-
-  glPopMatrix();
-
-  if (mi->fps_p) do_fps (mi);
-  glFinish();
-
-  glXSwapBuffers(dpy, window);
-}
-
-
-ENTRYPOINT void
-free_spheremonics (ModeInfo *mi)
-{
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
-  if (!cc->glx_context) return;
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *cc->glx_context);
-  if (cc->colors) free (cc->colors);
-  if (cc->trackball) gltrackball_free (cc->trackball);
-  if (cc->rot) free_rotator (cc->rot);
-  if (cc->font_data) free_texture_font (cc->font_data);
-  if (glIsList(cc->dlist)) glDeleteLists(cc->dlist, 1);
-  if (glIsList(cc->dlist2)) glDeleteLists(cc->dlist2, 1);
-  if (glIsList(cc->grid_dlist)) glDeleteLists(cc->grid_dlist, 1);
-}
-
-XSCREENSAVER_MODULE ("Spheremonics", spheremonics)
-
-#endif /* USE_GL */