From http://www.jwz.org/xscreensaver/xscreensaver-5.30.tar.gz
[xscreensaver] / hacks / glx / spheremonics.c
index f03678e1f5278f0557bdcc3895a65e2f5276f33d..efef9f8826cdd9f42bc83eaa224a71aa6ed62e99 100644 (file)
@@ -1,4 +1,4 @@
-/* xscreensaver, Copyright (c) 2002, 2004 Jamie Zawinski <jwz@jwz.org>
+/* 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
  * surfaces would be too hard.
  */
 
-#include <X11/Intrinsic.h>
-
-extern XtAppContext app;
-
-#define PROGCLASS      "Spheremonics"
-#define HACK_INIT      init_spheremonics
-#define HACK_DRAW      draw_spheremonics
-#define HACK_RESHAPE   reshape_spheremonics
-#define HACK_HANDLE_EVENT spheremonics_handle_event
-#define EVENT_MASK      PointerMotionMask
-#define ccs_opts       xlockmore_opts
-
-#define DEF_DURATION    "100"
-#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)"
-
-#define DEFAULTS       "*delay:        30000       \n" \
-                       "*showFPS:      False       \n" \
-                       "*wireframe:    False       \n" \
+#define DEFAULTS "*delay:      30000       \n" \
+                "*showFPS:     False       \n" \
+                "*wireframe:   False       \n" \
+                "*labelfont:   -*-helvetica-medium-r-normal-*-180-*\n"
 
+# define refresh_spheremonics 0
+# define release_spheremonics 0
 #undef countof
 #define countof(x) (sizeof((x))/sizeof((*x)))
 
@@ -98,7 +80,14 @@ extern XtAppContext app;
 
 #ifdef USE_GL /* whole file */
 
-#include <GL/glu.h>
+#define DEF_DURATION    "100"
+#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;
@@ -122,9 +111,10 @@ typedef struct {
   int mesher;
   int polys1, polys2;  /* polygon counts */
 
-  XFontStruct *font;
-  GLuint font_list;
+  texture_font_data *font_data;
+
   int change_tick;
+  int done_once;
 
 } spheremonics_configuration;
 
@@ -166,12 +156,12 @@ static argtype vars[] = {
   {&static_parms, "parameters", "Parameters", DEF_PARMS,      t_String},
 };
 
-ModeSpecOpt ccs_opts = {countof(opts), opts, countof(vars), vars, NULL};
+ENTRYPOINT ModeSpecOpt spheremonics_opts = {countof(opts), opts, countof(vars), vars, NULL};
 
 
 /* Window management, etc
  */
-void
+ENTRYPOINT void
 reshape_spheremonics (ModeInfo *mi, int width, int height)
 {
   GLfloat h = (GLfloat) height / (GLfloat) width;
@@ -198,7 +188,7 @@ gl_init (ModeInfo *mi)
 /*  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)]; */
   int wire = MI_IS_WIREFRAME(mi);
 
-  static GLfloat pos[4] = {5.0, 5.0, 10.0, 1.0};
+  static const GLfloat pos[4] = {5.0, 5.0, 10.0, 1.0};
 
   glEnable(GL_NORMALIZE);
 
@@ -229,7 +219,15 @@ gl_init (ModeInfo *mi)
          lighting effect.
        */
       glDisable(GL_CULL_FACE);
-      glLightModeli (GL_LIGHT_MODEL_TWO_SIDE, TRUE);
+      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);
     }
 }
 
@@ -312,28 +310,31 @@ draw_circle (ModeInfo *mi, Bool teeth_p)
 static void
 draw_bounding_box (ModeInfo *mi)
 {
-  spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
+  /* spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)]; */
 
-  static GLfloat c1[4] = { 0.2, 0.2, 0.6, 1.0 };
-  static GLfloat c2[4] = { 1.0, 0.0, 0.0, 1.0 };
+  static const GLfloat c1[4] = { 0.2, 0.2, 0.6, 1.0 };
+  static const GLfloat c2[4] = { 1.0, 0.0, 0.0, 1.0 };
   int wire = MI_IS_WIREFRAME(mi);
 
-  GLfloat x1 = cc->bbox[0].x;
-  GLfloat y1 = cc->bbox[0].y;
-  GLfloat z1 = cc->bbox[0].z;
-  GLfloat x2 = cc->bbox[1].x;
-  GLfloat y2 = cc->bbox[1].y;
-  GLfloat z2 = cc->bbox[1].z;
+  GLfloat x1,y1,z1,x2,y2,z2;
 
-#if 1
+# 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
+# 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);
@@ -365,15 +366,13 @@ draw_bounding_box (ModeInfo *mi)
       glVertex3f(x2, y1, z1); glVertex3f(x2, y1, z2);
       glVertex3f(x2, y2, z2); glVertex3f(x2, y2, z1);
       glEnd();
+      glDisable(GL_CULL_FACE);
     }
 
-  glPushAttrib (GL_LIGHTING);
-  glDisable (GL_LIGHTING);
-
-  glColor3f (c2[0], c2[1], c2[2]);
-
   if (do_grid)
     {
+      glDisable (GL_LIGHTING);
+      glColor3f (c2[0], c2[1], c2[2]);
       glPushMatrix();
       glBegin(GL_LINES);
       glVertex3f(0, -0.66, 0);
@@ -388,6 +387,7 @@ draw_bounding_box (ModeInfo *mi)
     }
   else
     {
+#if 0
       glBegin(GL_LINES);
       if (x1 > 0) x1 = 0; if (x2 < 0) x2 = 0;
       if (y1 > 0) y1 = 0; if (y2 < 0) y2 = 0;
@@ -396,9 +396,8 @@ draw_bounding_box (ModeInfo *mi)
       glVertex3f(0 , y1, 0);  glVertex3f(0,  y2, 0); 
       glVertex3f(0,  0,  z1); glVertex3f(0,  0,  z2); 
       glEnd();
+#endif
     }
-
-  glPopAttrib();
 }
 
 
@@ -428,9 +427,8 @@ do_tracer (ModeInfo *mi)
 
       if (s > 0.001)
         {
-          static GLfloat c[4] = { 0.6, 0.5, 1.0, 1.0 };
+          static const GLfloat c[4] = { 0.6, 0.5, 1.0, 1.0 };
 
-          glPushAttrib (GL_LIGHTING);
           glDisable (GL_LIGHTING);
 
           glPushMatrix();
@@ -442,7 +440,7 @@ do_tracer (ModeInfo *mi)
           draw_circle (mi, False);
           glPopMatrix();
 
-          glPopAttrib();
+          if (! MI_IS_WIREFRAME(mi)) glEnable (GL_LIGHTING);
         }
 
       cc->tracer += 5;
@@ -660,14 +658,11 @@ generate_spheremonics (ModeInfo *mi)
 
   tweak_parameters (mi);
 
-  {
-    static Bool done = False;
-    if (!done || (0 == (random() % 20)))
-      {
-        init_colors (mi);
-        done = True;
-      }
-  }
+  if (!cc->done_once || (0 == (random() % 20)))
+    {
+      init_colors (mi);
+      cc->done_once = True;
+    }
 
   {
     glNewList(cc->dlist, GL_COMPILE);
@@ -675,13 +670,10 @@ generate_spheremonics (ModeInfo *mi)
     glEndList();
 
     glNewList(cc->dlist2, GL_COMPILE);
-    glPushAttrib (GL_LIGHTING);
-    glDisable (GL_LIGHTING);
     glPushMatrix();
     glScalef (1.05, 1.05, 1.05);
     cc->polys2 = unit_spheremonics (mi, cc->resolution, 2, cc->m, cc->colors);
     glPopMatrix();
-    glPopAttrib();
     glEndList();
   }
 }
@@ -689,7 +681,7 @@ generate_spheremonics (ModeInfo *mi)
 
 \f
 
-void 
+ENTRYPOINT void 
 init_spheremonics (ModeInfo *mi)
 {
   spheremonics_configuration *cc;
@@ -701,8 +693,6 @@ init_spheremonics (ModeInfo *mi)
       fprintf(stderr, "%s: out of memory\n", progname);
       exit(1);
     }
-
-    cc = &ccs[MI_SCREEN(mi)];
   }
 
   cc = &ccs[MI_SCREEN(mi)];
@@ -712,14 +702,6 @@ init_spheremonics (ModeInfo *mi)
     reshape_spheremonics (mi, MI_WIDTH(mi), MI_HEIGHT(mi));
   }
 
-  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);
-    }
-
   {
     Bool spinx=False, spiny=False, spinz=False;
     double spin_speed   = 1.0;
@@ -731,6 +713,7 @@ init_spheremonics (ModeInfo *mi)
         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,
@@ -747,7 +730,7 @@ init_spheremonics (ModeInfo *mi)
                             1.0,
                             do_wander ? wander_speed : 0,
                             (spinx && spiny && spinz));
-    cc->trackball = gltrackball_init ();
+    cc->trackball = gltrackball_init (True);
   }
 
   cc->tracer = -1;
@@ -755,7 +738,7 @@ init_spheremonics (ModeInfo *mi)
 
   cc->resolution = res;
 
-  load_font (mi->dpy, "labelfont", &cc->font, &cc->font_list);
+  cc->font_data = load_texture_font (mi->dpy, "labelfont");
 
   cc->dlist = glGenLists(1);
   cc->dlist2 = glGenLists(1);
@@ -775,52 +758,18 @@ init_spheremonics (ModeInfo *mi)
 }
 
 
-Bool
+ENTRYPOINT Bool
 spheremonics_handle_event (ModeInfo *mi, XEvent *event)
 {
   spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
 
-  if (event->xany.type == ButtonPress &&
-      event->xbutton.button == Button1)
+  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->button_down_p = True;
-      gltrackball_start (cc->trackball,
-                         event->xbutton.x, event->xbutton.y,
-                         MI_WIDTH (mi), MI_HEIGHT (mi));
-      return True;
-    }
-  else if (event->xany.type == ButtonRelease &&
-           event->xbutton.button == Button1)
-    {
-      cc->button_down_p = False;
-      return True;
-    }
-  else if (event->xany.type == ButtonPress &&
-           (event->xbutton.button == Button4 ||
-            event->xbutton.button == Button5))
-    {
-      gltrackball_mousewheel (cc->trackball, event->xbutton.button, 10,
-                              !!event->xbutton.state);
-      return True;
-    }
-  else if (event->xany.type == KeyPress)
-    {
-      KeySym keysym;
-      char c = 0;
-      XLookupString (&event->xkey, &c, 1, &keysym, 0);
-
-      if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
-        {
-          cc->change_tick = duration;
-          return True;
-        }
-    }
-  else if (event->xany.type == MotionNotify &&
-           cc->button_down_p)
-    {
-      gltrackball_track (cc->trackball,
-                         event->xmotion.x, event->xmotion.y,
-                         MI_WIDTH (mi), MI_HEIGHT (mi));
+      cc->change_tick = duration;
       return True;
     }
 
@@ -828,7 +777,7 @@ spheremonics_handle_event (ModeInfo *mi, XEvent *event)
 }
 
 
-void
+ENTRYPOINT void
 draw_spheremonics (ModeInfo *mi)
 {
   spheremonics_configuration *cc = &ccs[MI_SCREEN(mi)];
@@ -838,6 +787,10 @@ draw_spheremonics (ModeInfo *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);
@@ -869,8 +822,9 @@ draw_spheremonics (ModeInfo *mi)
   glCallList (cc->dlist);
   mi->polygon_count += cc->polys1;
 
-  if (cc->mesher >= 0 /* || mouse_p */)
+  if (cc->mesher >= 0 /* || cc->button_down_p */)
     {
+      glDisable (GL_LIGHTING);
       glCallList (cc->dlist2);
       mi->polygon_count += cc->polys2;
       if (cc->mesher >= 0)
@@ -891,10 +845,10 @@ draw_spheremonics (ModeInfo *mi)
                cc->m[4], cc->m[5], cc->m[6], cc->m[7]);
 
       glColor3f(1.0, 1.0, 0.0);
-      print_gl_string (mi->dpy, cc->font, cc->font_list,
+      print_gl_string (mi->dpy, cc->font_data,
                        mi->xgwa.width, mi->xgwa.height,
                        10, mi->xgwa.height - 10,
-                       buf);
+                       buf, False);
     }
 
   if (!static_parms)
@@ -915,4 +869,6 @@ draw_spheremonics (ModeInfo *mi)
   glXSwapBuffers(dpy, window);
 }
 
+XSCREENSAVER_MODULE ("Spheremonics", spheremonics)
+
 #endif /* USE_GL */