6.09HEADmaster

1 files changed, 0 insertions, 788 deletions

diff --git a/hacks/glx/raverhoop.c b/hacks/glx/raverhoop.c
deleted file mode 100644
index 4a5a26a..0000000
--- a/hacks/glx/raverhoop.c
+++ /dev/null
@@ -1,788 +0,0 @@
-/* raverhoop, Copyright (c) 2016 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.
- *
- * Simulates an LED hula hoop in a dark room. Oontz oontz oontz.
- */
-
-#define DEFAULTS	"*delay:	20000       \n" \
-			"*ncolors:      12          \n" \
-			"*showFPS:      False       \n" \
-			"*wireframe:    False       \n" \
-
-# define release_hoop 0
-
-#include "xlockmore.h"
-#include "colors.h"
-#include "rotator.h"
-#include "gltrackball.h"
-#include <ctype.h>
-
-#ifdef USE_GL /* whole file */
-
-
-#define DEF_SPIN        "False"
-#define DEF_WANDER      "False"
-#define DEF_LIGHTS      "200"
-#define DEF_SPEED       "1.0"
-#define DEF_LIGHT_SPEED "1.0"
-#define DEF_SUSTAIN     "1.0"
-
-typedef struct {
-  GLfloat x,y,z;
-} XYZ;
-
-typedef struct afterimage afterimage;
-struct afterimage {
-  GLfloat color[4];
-  XYZ position;
-  afterimage *next;
-};
-
-typedef struct {
-  GLfloat color[4];
-  int duty_cycle[10];   /* off, on, off, on... values add to 100 */
-  GLfloat ratio;
-  Bool on;
-} light;
-
-
-typedef struct oscillator oscillator;
-struct oscillator {
-  GLfloat ratio, from, to, speed, *var;
-  int remaining;
-  oscillator *next;
-};
-
-
-typedef struct {
-  GLXContext *glx_context;
-  rotator *rot;
-  trackball_state *trackball;
-  Bool button_down_p;
-
-  int nlights;
-  light *lights;
-  GLfloat radius;
-  GLfloat axial_radius;
-  XYZ midpoint;
-  GLfloat tilt;
-  GLfloat spin;
-  GLfloat th;
-  GLfloat speed;
-  afterimage *trail;
-  oscillator *oscillators;
-
-} hoop_configuration;
-
-static hoop_configuration *bps = NULL;
-
-static Bool do_spin;
-static Bool do_wander;
-static int nlights;
-static GLfloat speed, light_speed, sustain;
-
-static XrmOptionDescRec opts[] = {
-  { "-spin",   ".spin",   XrmoptionNoArg, "True" },
-  { "+spin",   ".spin",   XrmoptionNoArg, "False" },
-  { "-wander", ".wander", XrmoptionNoArg, "True" },
-  { "+wander", ".wander", XrmoptionNoArg, "False" },
-  { "-lights", ".lights", XrmoptionSepArg, 0 },
-  { "-speed",  ".speed",  XrmoptionSepArg, 0 },
-  { "-light-speed", ".lightSpeed",  XrmoptionSepArg, 0 },
-  { "-sustain", ".sustain", XrmoptionSepArg, 0 },
-};
-
-static argtype vars[] = {
-  {&do_spin,   "spin",   "Spin",   DEF_SPIN,   t_Bool},
-  {&do_wander, "wander", "Wander", DEF_WANDER, t_Bool},
-  {&nlights,   "lights", "Lights", DEF_LIGHTS, t_Int},
-  {&speed,     "speed",  "Speed",  DEF_SPEED,  t_Float},
-  {&light_speed, "lightSpeed", "Speed", DEF_LIGHT_SPEED, t_Float},
-  {&sustain,   "sustain", "Sustain",  DEF_SUSTAIN, t_Float},
-};
-
-ENTRYPOINT ModeSpecOpt hoop_opts = {countof(opts), opts, countof(vars), vars, NULL};
-
-
-static void
-decay_afterimages (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  afterimage *prev = 0;
-  afterimage *a = bp->trail;
-  GLfloat tick = 0.05 / sustain;
-
-  while (a)
-    {
-      afterimage *next = a->next;
-      a->color[3] -= tick;
-      if (a->color[3] < 0)
-        {
-          if (prev)
-            prev->next = next;
-          else
-            bp->trail = next;
-          free (a);
-        }
-      else
-        prev = a;
-      a = next;
-    }
-}
-
-static void
-add_afterimage (ModeInfo *mi, GLfloat x, GLfloat y, GLfloat z,
-                GLfloat color[4])
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  afterimage *a = (afterimage *) calloc (1, sizeof (*a));
-  afterimage *b;
-  a->position.x = x;
-  a->position.y = y;
-  a->position.z = z;
-  memcpy (a->color, color, sizeof(a->color));
-
-  /* Put it at the end so that the older, dimmer ones are laid down on
-     the frame buffer before the newer, brighter ones. */
-  if (!bp->trail)
-    bp->trail = a;
-  else
-    {
-      for (b = bp->trail; b->next; b = b->next)
-        ;
-      b->next = a;
-    }
-}
-
-
-static void
-tick_light (light *L)
-{
-  int i;
-  int n = 0;
-
-  L->ratio += 0.05 * light_speed;
-  while (L->ratio > 1)
-    L->ratio -= 1;
-
-  for (i = 0; i < countof(L->duty_cycle); i++)
-    {
-      n += L->duty_cycle[i];
-      if (n > 100) abort();
-      if (n / 100.0 > L->ratio)
-        {
-          L->on = (i & 1);
-          break;
-        }
-    }
-}
-
-
-
-static void
-tick_hoop (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  GLfloat m0[16];
-  int i;
-
-  glGetFloatv (GL_MODELVIEW_MATRIX, m0);
-
-  for (i = 0; i < bp->nlights; i++)
-    {
-      light *L = &bp->lights[i];
-      GLfloat m1[16];
-      GLfloat th = M_PI * 2 * i / bp->nlights;
-      GLfloat x = cos (th);
-      GLfloat y = sin (th);
-      GLfloat z;
-      
-      tick_light (L);
-      if (! L->on)
-        continue;
-
-      glPushMatrix();
-
-      glTranslatef (bp->midpoint.x, bp->midpoint.y, bp->midpoint.z);
-      glRotatef (bp->th * 180 / M_PI, 0, 0, 1);
-      glRotatef (bp->tilt, 0, 1, 0);
-      glRotatef (bp->spin, 1, 0, 0);
-      glTranslatef (x * bp->radius, y * bp->radius, 0);
-      glGetFloatv (GL_MODELVIEW_MATRIX, m1);
-      glPopMatrix();
-
-      /* After all of our translations and rotations, figure out where
-         it actually ended up.
-       */
-      x = m1[12] - m0[12];
-      y = m1[13] - m0[13];
-      z = m1[14] - m0[14];
-      add_afterimage (mi, x, y, z, L->color);
-    }
-}
-
-
-static void
-draw_lights (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  int wire = MI_IS_WIREFRAME(mi);
-  afterimage *a;
-  GLfloat m[4][4];
-
-  if (wire)
-    {
-      int n = 360;
-      int i;
-      glPushMatrix();
-
-      glBegin (GL_LINES);
-      glVertex3f (0, 0, -bp->radius);
-      glVertex3f (0, 0,  bp->radius);
-      glEnd();
-
-      glTranslatef (bp->midpoint.x, bp->midpoint.y, bp->midpoint.z);
-      glRotatef (bp->th * 180 / M_PI, 0, 0, 1);
-      glRotatef (bp->tilt, 0, 1, 0);
-      glRotatef (bp->spin, 1, 0, 0);
-
-      glBegin (GL_LINE_LOOP);
-      glVertex3f (0, 0, 0);
-      for (i = 0; i <= n; i++)
-        {
-          GLfloat th = i * M_PI * 2 / n;
-          glVertex3f (bp->radius * -cos(th),
-                      bp->radius * -sin(th), 0);
-        }
-      for (i = 0; i <= n; i++)
-        {
-          GLfloat th = i * M_PI * 2 / n;
-          glVertex3f (bp->axial_radius * -cos(th),
-                      bp->axial_radius * -sin(th), 0);
-        }
-      glEnd();
-      glPopMatrix();
-    }
-
-  /* Billboard the lights to always face the camera */
-  glGetFloatv (GL_MODELVIEW_MATRIX, &m[0][0]);
-  m[0][0] = 1; m[1][0] = 0; m[2][0] = 0;
-  m[0][1] = 0; m[1][1] = 1; m[2][1] = 0;
-  m[0][2] = 0; m[1][2] = 0; m[2][2] = 1;
-  glLoadIdentity();
-  glMultMatrixf (&m[0][0]);
-
-  for (a = bp->trail; a; a = a->next)
-    {
-      glPushMatrix();
-
-      glTranslatef (a->position.x, a->position.y, a->position.z);
-
-      if (wire)
-        {
-          GLfloat c[3];
-          c[0] = a->color[0] * a->color[3];
-          c[1] = a->color[1] * a->color[3];
-          c[2] = a->color[2] * a->color[3];
-          glColor3fv (c);
-        }
-      else
-        glColor4fv (a->color);
-
-      glRotatef (45, 0, 0, 1);
-      glScalef (0.15, 0.15, 0.15);
-      glBegin (GL_QUADS);
-      glTexCoord2f (0, 0); glVertex3f (-1, -1, 0);
-      glTexCoord2f (1, 0); glVertex3f ( 1, -1, 0);
-      glTexCoord2f (1, 1); glVertex3f ( 1,  1, 0);
-      glTexCoord2f (0, 1); glVertex3f (-1,  1, 0);
-      glEnd();
-      mi->polygon_count++;
-
-      glPopMatrix();
-    }
-}
-
-
-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.35;
-  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;
-}
-
-
-static void
-tick_oscillators (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  oscillator *prev = 0;
-  oscillator *a = bp->oscillators;
-  GLfloat tick = 0.1 / speed;
-
-  while (a)
-    {
-      oscillator *next = a->next;
-      a->ratio += tick * a->speed;
-      if (a->ratio > 1)
-        a->ratio = 1;
-
-      *a->var = a->from + (a->to - a->from) * ease_ratio (a->ratio);
-
-      if (a->ratio < 1)			/* mid cycle */
-        prev = a;
-      else if (--a->remaining <= 0)	/* ended, and expired */
-        {
-          if (prev)
-            prev->next = next;
-          else
-            bp->oscillators = next;
-          free (a);
-        }
-      else				/* keep going the other way */
-        {
-          GLfloat swap = a->from;
-          a->from = a->to;
-          a->to = swap;
-          a->ratio = 0;
-          prev = a;
-        }
-
-      a = next;
-    }
-}
-
-
-static void
-calm_oscillators (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  oscillator *a;
-  for (a = bp->oscillators; a && a->next; a = a->next)
-    a->remaining = 1;
-}
-
-
-static void
-add_oscillator (ModeInfo *mi, GLfloat *var, GLfloat speed, GLfloat to,
-                int repeat)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  oscillator *a;
-
-  /* If an oscillator is already running on this variable, don't
-     add another. */
-  for (a = bp->oscillators; a && a->next; a = a->next)
-    if (a->var == var)
-      return;
-
-  a = (oscillator *) calloc (1, sizeof (*a));
-  if (repeat <= 0) abort();
-  a->ratio = 0;
-  a->from = *var;
-  a->to = to;
-  a->speed = speed;
-  a->var = var;
-  a->remaining = repeat;
-  a->next = bp->oscillators;
-  bp->oscillators = a;
-# if 0
-  fprintf (stderr, "%s: %3d %6.2f -> %6.2f %s\n",
-           progname, repeat, *var, to,
-           (var == &bp->midpoint.z ? "z" :
-            var == &bp->tilt ? "tilt" :
-            var == &bp->axial_radius ? "r" :
-            var == &bp->speed ? "speed" : "?"));
-# endif
-}
-
-
-static void
-add_random_oscillator (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  int n = random() % 12;
-  switch (n) {
-  case 0: case 1: case 2:
-    add_oscillator (mi, &bp->midpoint.z, 1,
-                    bp->radius * (0.8 + frand(0.2))
-                    * (random() & 1 ? 1 : -1),
-                    (3 + (random() % 10)));
-    break;
-  case 3: case 4: case 5:
-    add_oscillator (mi, &bp->tilt, 1,
-                    -(GLfloat) (random() % 15),
-                    3 + (random() % 20));
-    break;
-  case 6: case 7: case 8:
-    add_oscillator (mi, &bp->axial_radius, 1,
-                    0.1 + bp->radius * frand(1.4),
-                    1 + (random() % 4));
-    break;
-  case 9: case 10:
-    add_oscillator (mi, &bp->speed, 3,
-                    (0.7 + frand(0.9)) * (random() & 1 ? 1 : -1),
-                    ((random() % 5)
-                     ? 1
-                     : 2 + (random() % 5)));
-    break;
-  case 11: 
-    add_oscillator (mi, &bp->spin, 0.1,
-                    180 * (1 + (random() % 2)),
-                    2 * (1 + (random() % 5)));
-    break;
-  default:
-    abort();
-    break;
-  }
-}
-
-
-static void
-randomize_colors (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  int ncolors = MI_NCOLORS(mi);
-  GLfloat *colors;
-  int ncycles;
-  int i;
-
-  if (ncolors < 1)
-    ncolors = 1;
-  if (ncolors > bp->nlights)
-    ncolors = bp->nlights;
-
-  if (! (random() % 10))
-    ncolors = 1;
-
-  colors = calloc (ncolors, 4 * sizeof(*colors));
-  for (i = 0; i < ncolors; i++)
-    {
-      GLfloat *c = &colors[i * 4];
-# define QUANTIZE() (((random() % 16) << 4) | 0xF) / 255.0
-      c[0] = QUANTIZE();
-      c[1] = QUANTIZE();
-      c[2] = QUANTIZE();
-      c[3] = 1;
-    }
-
-  switch (random() % 5) {
-  case 0:  ncycles = 1; break;
-  case 2:  ncycles = ncolors * (1 + (random() % 5)); break;
-  default: ncycles = ncolors; break;
-  }
-
-  for (i = 0; i < bp->nlights; i++)
-    {
-      light *L = &bp->lights[i];
-      int n = i * ncolors / bp->nlights;
-      int m = i * ncycles / bp->nlights;
-      if (n >= ncolors) abort();
-      if (m >= ncycles) abort();
-      memcpy (L->color, &colors[n], sizeof (L->color));
-
-      if (ncycles <= 1)
-        {
-          L->duty_cycle[0] = 0;
-          L->duty_cycle[1] = 100;
-        }
-      else if (m & 1)
-        {
-          L->duty_cycle[0] = 50;
-          L->duty_cycle[1] = 50;
-        }
-      else
-        {
-          L->duty_cycle[0] = 0;
-          L->duty_cycle[1] = 50;
-          L->duty_cycle[2] = 50;
-        }
-    }
-  free (colors);
-}
-
-
-static void
-move_hoop (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-
-  bp->th += 0.2 * speed * bp->speed;
-  while (bp->th > M_PI*2)
-    bp->th -= M_PI*2;
-  while (bp->th < 0)
-    bp->th += M_PI*2;
-
-  bp->midpoint.x = bp->axial_radius * cos (bp->th);
-  bp->midpoint.y = bp->axial_radius * sin (bp->th);
-
-  tick_oscillators (mi);
-
-  if (! (random() % 80))
-    add_random_oscillator (mi);
-
-  if (! (random() % 120))
-    randomize_colors (mi);
-}
-
-
-static void
-build_texture (ModeInfo *mi)
-{
-  int x, y;
-  int size = 128;
-  int s2 = size / 2;
-  int bpl = size * 2;
-  unsigned char *data = malloc (bpl * size);
-
-  for (y = 0; y < size; y++)
-    {
-      for (x = 0; x < size; x++)
-        {
-          double dist = (sqrt (((s2 - x) * (s2 - x)) +
-                               ((s2 - y) * (s2 - y)))
-                         / s2);
-          unsigned char *c = &data [y * bpl + x * 2];
-          c[0] = 0xFF;
-          c[1] = 0xFF * sin (dist > 1 ? 0 : (1 - dist));
-        }
-    }
-
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
-  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
-  glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
-  glPixelStorei (GL_UNPACK_ALIGNMENT, 1);
-  check_gl_error ("texture param");
-
-  glTexImage2D (GL_TEXTURE_2D, 0, GL_LUMINANCE_ALPHA, size, size, 0,
-                GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, data);
-  check_gl_error ("light texture");
-  free (data);
-}
-
-
-
-/* Window management, etc
- */
-ENTRYPOINT void
-reshape_hoop (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);
-}
-
-
-ENTRYPOINT Bool
-hoop_handle_event (ModeInfo *mi, XEvent *event)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-
-  if (gltrackball_event_handler (event, bp->trackball,
-                                 MI_WIDTH (mi), MI_HEIGHT (mi),
-                                 &bp->button_down_p))
-    return True;
-  else if (event->xany.type == KeyPress)
-    {
-      KeySym keysym;
-      char c = 0;
-      XLookupString (&event->xkey, &c, 1, &keysym, 0);
-      if (c == ' ' || c == '\t')
-        {
-          randomize_colors (mi);
-          calm_oscillators (mi);
-          add_random_oscillator (mi);
-          return True;
-        }
-    }
-
-  return False;
-}
-
-
-ENTRYPOINT void 
-init_hoop (ModeInfo *mi)
-{
-  hoop_configuration *bp;
-  int wire = MI_IS_WIREFRAME(mi);
-
-  MI_INIT (mi, bps);
-
-  bp = &bps[MI_SCREEN(mi)];
-
-  bp->glx_context = init_GL(mi);
-
-  reshape_hoop (mi, MI_WIDTH(mi), MI_HEIGHT(mi));
-
-  glDisable (GL_LIGHTING);
-  glDisable (GL_DEPTH_TEST);
-  glEnable (GL_CULL_FACE);
-  glEnable (GL_NORMALIZE);
-  glEnable (GL_BLEND);
-  glBlendFunc (GL_SRC_ALPHA, GL_ONE);
-  glPolygonMode (GL_FRONT, GL_FILL);
-  glShadeModel (GL_FLAT);
-
-  if (! wire)
-    {
-      build_texture (mi);
-      glEnable (GL_TEXTURE_2D);
-    }
-
-  {
-    double spin_speed   = 0.3;
-    double wander_speed = 0.005;
-    double spin_accel   = 2.0;
-
-    bp->rot = make_rotator (do_spin ? spin_speed : 0,
-                            do_spin ? spin_speed : 0,
-                            do_spin ? spin_speed : 0,
-                            spin_accel,
-                            do_wander ? wander_speed : 0,
-                            False);
-    bp->trackball = gltrackball_init (True);
-  }
-
-  bp->radius = 30;
-  bp->axial_radius = bp->radius * 0.3;
-  bp->tilt = - (GLfloat) (5 + (random() % 12));
-  bp->speed = (random() % 1 ? 1 : -1);
-  bp->nlights = nlights;
-  bp->lights = (light *) calloc (bp->nlights, sizeof (*bp->lights));
-  randomize_colors (mi);
-  move_hoop (mi);
-  add_random_oscillator (mi);
-}
-
-
-ENTRYPOINT void
-draw_hoop (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-  Display *dpy = MI_DISPLAY(mi);
-  Window window = MI_WINDOW(mi);
-
-  if (!bp->glx_context)
-    return;
-
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *bp->glx_context);
-
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
-
-  glPushMatrix ();
-
-  {
-    double x, y, z;
-    get_position (bp->rot, &x, &y, &z, !bp->button_down_p);
-    glTranslatef((x - 0.5) * 7,
-                 (y - 0.5) * 0.5,
-                 (z - 0.5) * 15);
-
-    gltrackball_rotate (bp->trackball);
-    glRotatef (current_device_rotation(), 0, 0, 1);
-
-    get_rotation (bp->rot, &x, &y, &z, !bp->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);
-  }
-
-  mi->polygon_count = 0;
-
-  glScalef (0.2, 0.2, 0.2);
-
-# ifdef HAVE_MOBILE
-  glScalef (0.7, 0.7, 0.7);
-# endif
-
-  glRotatef (70, 1, 0, 0);
-
-  if (! bp->button_down_p)
-    move_hoop (mi);
-
-  decay_afterimages (mi);
-  tick_hoop (mi);
-  draw_lights (mi);
-
-  glPopMatrix ();
-
-  if (mi->fps_p) do_fps (mi);
-  glFinish();
-
-  glXSwapBuffers(dpy, window);
-}
-
-
-ENTRYPOINT void
-free_hoop (ModeInfo *mi)
-{
-  hoop_configuration *bp = &bps[MI_SCREEN(mi)];
-
-  if (!bp->glx_context) return;
-  glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *bp->glx_context);
-
-  if (bp->trackball) gltrackball_free (bp->trackball);
-  if (bp->rot) free_rotator (bp->rot);
-  if (bp->lights) free (bp->lights);
-  while (bp->trail) {
-    afterimage *n = bp->trail->next;
-    free (bp->trail);
-    bp->trail = n;
-  }
-  while (bp->oscillators) {
-    oscillator *n = bp->oscillators->next;
-    free (bp->oscillators);
-    bp->oscillators = n;
-  }
-  
-}
-
-XSCREENSAVER_MODULE_2 ("RaverHoop", raverhoop, hoop)
-
-#endif /* USE_GL */