From http://www.jwz.org/xscreensaver/xscreensaver-5.37.tar.gz
[xscreensaver] / hacks / glx / jigglypuff.c
index ae8891f739cb743dc95a68e7a8c38afba8b2ea68..4a77c8c562687b8992f5dc816d6c02bcd0ebe9d9 100644 (file)
  *
  */
 
-#include <X11/Intrinsic.h>
-
 #ifdef STANDALONE
-# define PROGCLASS          "Jigglypuff"
-# define HACK_INIT          init_jigglypuff
-# define HACK_DRAW          draw_jigglypuff
-# define HACK_RESHAPE       reshape_jigglypuff
-# define HACK_HANDLE_EVENT  jigglypuff_handle_event
-# define EVENT_MASK         PointerMotionMask 
-# define jigglypuff_opts    xlockmore_opts
-
-#define DEF_COLOR           "cycle"
-#define DEF_SHININESS       "100"
-#define DEF_COMPLEXITY      "2"
-#define DEF_SPEED           "500"
-#define DEF_DISTANCE        "100"
-#define DEF_HOLD            "800"
-#define DEF_SPHERISM        "75"
-#define DEF_DAMPING         "500"
-
 # define DEFAULTS           "*delay: 20000\n" \
                             "*showFPS: False\n" \
                             "*wireframe: False\n" \
-                            "*color: cycle\n" \
-                            "*shininess: 100\n" \
-                            "*complexity: 2\n" \
-                            "*speed: 500\n" \
-                            "*distance: 100\n" \
-                            "*hold: 800\n" \
-                            "*spherism: 200\n" \
-                            "*damping: 500\n"
-
+                           "*suppressRotationAnimation: True\n" \
 
+# define refresh_jigglypuff 0
+# define release_jigglypuff 0
 # include "xlockmore.h"
 #else
 # include "xlock.h"
 #include "../images/jigglymap.xpm"
 
 #ifdef USE_GL
-#include <GL/gl.h>
+
+
+#define DEF_COLOR           "cycle"
+#define DEF_SHININESS       "100"
+#define DEF_COMPLEXITY      "2"
+#define DEF_SPEED           "500"
+#define DEF_DISTANCE        "100"
+#define DEF_HOLD            "800"
+#define DEF_SPHERISM        "75"
+#define DEF_DAMPING         "500"
+#define DEF_RANDOM         "True"
+#define DEF_TETRA          "False"
+#define DEF_SPOOKY         "0"
 
 #ifndef max
 #define max(a,b) (((a)>(b))?(a):(b))
@@ -138,39 +125,39 @@ typedef struct {
 static jigglystruct *jss = NULL;
 
 static XrmOptionDescRec opts[] = {
-    {"-random", ".Jigglypuff.random", XrmoptionNoArg, (caddr_t)"true"},
-    {"+random", ".Jigglypuff.random", XrmoptionNoArg, (caddr_t)"false"},
-    {"-tetra", ".Jigglypuff.tetra", XrmoptionNoArg, (caddr_t)"true"},
-    {"+tetra", ".Jigglypuff.tetra", XrmoptionNoArg, (caddr_t)"false"},
-    {"-spooky", ".Jigglypuff.spooky", XrmoptionSepArg, (caddr_t)"0"},
-    {"-color", ".Jigglypuff.color", XrmoptionSepArg, (caddr_t)DEF_COLOR},
-    {"-shininess", ".Jigglypuff.shininess", XrmoptionSepArg, (caddr_t)DEF_SHININESS},
-    {"-complexity", ".Jigglypuff.complexity", XrmoptionSepArg, (caddr_t)DEF_COMPLEXITY},
-    {"-speed", ".Jigglypuff.speed", XrmoptionSepArg, (caddr_t)DEF_SPEED},
-    {"-spherism", ".Jigglypuff.spherism", XrmoptionSepArg, (caddr_t)DEF_SPHERISM},
-    {"-hold", ".Jigglypuff.hold", XrmoptionSepArg, (caddr_t)DEF_HOLD},
-    {"-distance", "Jigglypuff.distance", XrmoptionSepArg, (caddr_t)DEF_DISTANCE},
-    {"-damping", "Jigglypuff.damping", XrmoptionSepArg, (caddr_t)DEF_DAMPING}
+    {"-random", ".Jigglypuff.random", XrmoptionNoArg, "true"},
+    {"+random", ".Jigglypuff.random", XrmoptionNoArg, "false"},
+    {"-tetra", ".Jigglypuff.tetra", XrmoptionNoArg, "true"},
+    {"+tetra", ".Jigglypuff.tetra", XrmoptionNoArg, "false"},
+    {"-spooky", ".Jigglypuff.spooky", XrmoptionSepArg, "0"},
+    {"-color", ".Jigglypuff.color", XrmoptionSepArg, DEF_COLOR},
+    {"-shininess", ".Jigglypuff.shininess", XrmoptionSepArg, DEF_SHININESS},
+    {"-complexity", ".Jigglypuff.complexity", XrmoptionSepArg, DEF_COMPLEXITY},
+    {"-speed", ".Jigglypuff.speed", XrmoptionSepArg, DEF_SPEED},
+    {"-spherism", ".Jigglypuff.spherism", XrmoptionSepArg, DEF_SPHERISM},
+    {"-hold", ".Jigglypuff.hold", XrmoptionSepArg, DEF_HOLD},
+    {"-distance", "Jigglypuff.distance", XrmoptionSepArg, DEF_DISTANCE},
+    {"-damping", "Jigglypuff.damping", XrmoptionSepArg, DEF_DAMPING}
 };
 
 static argtype vars[] = {
-    {(caddr_t*)&random_parms, "random", "Random", "False", t_Bool},
-    {(caddr_t*)&do_tetrahedron, "tetra", "Tetra", "False", t_Bool},
-    {(caddr_t*)&spooky, "spooky", "Spooky", "0", t_Int},
-    {(caddr_t*)&color, "color", "Color", DEF_COLOR, t_String},
-    {(caddr_t*)&shininess, "shininess", "Shininess", DEF_SHININESS, t_Int},
-    {(caddr_t*)&complexity, "complexity", "Complexity", DEF_COMPLEXITY, t_Int},
-    {(caddr_t*)&speed, "speed", "Speed", DEF_SPEED, t_Int},
-    {(caddr_t*)&spherism, "spherism", "Spherism", DEF_SPHERISM, t_Int},
-    {(caddr_t*)&hold, "hold", "Hold", DEF_HOLD, t_Int},
-    {(caddr_t*)&distance, "distance", "Distance", DEF_DISTANCE, t_Int},
-    {(caddr_t*)&damping, "damping", "Damping", DEF_DAMPING, t_Int}
+    {&random_parms, "random", "Random", DEF_RANDOM, t_Bool},
+    {&do_tetrahedron, "tetra", "Tetra", DEF_TETRA, t_Bool},
+    {&spooky, "spooky", "Spooky", DEF_SPOOKY, t_Int},
+    {&color, "color", "Color", DEF_COLOR, t_String},
+    {&shininess, "shininess", "Shininess", DEF_SHININESS, t_Int},
+    {&complexity, "complexity", "Complexity", DEF_COMPLEXITY, t_Int},
+    {&speed, "speed", "Speed", DEF_SPEED, t_Int},
+    {&spherism, "spherism", "Spherism", DEF_SPHERISM, t_Int},
+    {&hold, "hold", "Hold", DEF_HOLD, t_Int},
+    {&distance, "distance", "Distance", DEF_DISTANCE, t_Int},
+    {&damping, "damping", "Damping", DEF_DAMPING, t_Int}
 };
 
 #undef countof
 #define countof(x) ((int)(sizeof(x)/sizeof(*(x))))
 
-ModeSpecOpt jigglypuff_opts = {countof(opts), opts, countof(vars), vars, NULL};
+ENTRYPOINT ModeSpecOpt jigglypuff_opts = {countof(opts), opts, countof(vars), vars, NULL};
 
 #define COLOR_STYLE_NORMAL    0
 #define COLOR_STYLE_CYCLE     1
@@ -180,7 +167,7 @@ ModeSpecOpt jigglypuff_opts = {countof(opts), opts, countof(vars), vars, NULL};
 
 #define CLOWNBARF_NCOLORS 5
 
-static GLfloat clownbarf_colors[CLOWNBARF_NCOLORS][4] = {
+static const GLfloat clownbarf_colors[CLOWNBARF_NCOLORS][4] = {
     {0.7, 0.7, 0.0, 1.0},
     {0.8, 0.1, 0.1, 1.0},
     {0.1, 0.1, 0.8, 1.0},
@@ -188,7 +175,7 @@ static GLfloat clownbarf_colors[CLOWNBARF_NCOLORS][4] = {
     {0.0, 0.0, 0.0, 1.0}
 };
 
-static GLfloat flowerbox_colors[4][4] = {
+static const GLfloat flowerbox_colors[4][4] = {
     {0.7, 0.7, 0.0, 1.0},
     {0.9, 0.0, 0.0, 1.0},
     {0.0, 0.9, 0.0, 1.0},
@@ -233,7 +220,7 @@ struct solid {
 struct face {
     solid *s;
     hedge *start;
-    GLfloat *color;
+    const GLfloat *color;
     face *next;
 };
 
@@ -300,10 +287,12 @@ static inline void vector_scale(vector v, coord s)
     v[2] *= s;
 }
 
+/*
 static inline coord dot(vector v1, vector v2)
 {
     return v1[0]*v2[0] + v1[1]*v2[1] + v1[2]*v2[2];
 }
+*/
 
 static inline void cross(vector v1, vector v2, vector v)
 {
@@ -364,7 +353,7 @@ static inline hedge *partner(hedge *h) {
     }
 }
 
-vertex *vertex_new(solid *s, vector v)
+static vertex *vertex_new(solid *s, vector v)
 {
     vertex *vtx = (vertex*)malloc(sizeof(vertex));
 
@@ -383,7 +372,7 @@ vertex *vertex_new(solid *s, vector v)
  * i.e. it is a helper for the split_* functions, which
  * maintain the consistency of the solid.
  */
-hedge *hedge_new(hedge *hafter, vertex *vtx)
+static hedge *hedge_new(hedge *hafter, vertex *vtx)
 {
     hedge *h = (hedge*)malloc(sizeof(hedge));
     
@@ -401,7 +390,7 @@ hedge *hedge_new(hedge *hafter, vertex *vtx)
     return h;
 }
 
-edge *edge_new(solid *s)
+static edge *edge_new(solid *s)
 {
     edge *e = (edge*)malloc(sizeof(edge));
     if(!e) {
@@ -415,7 +404,7 @@ edge *edge_new(solid *s)
     return e;
 }
 
-face *face_new(solid *s, hedge *h)
+static face *face_new(solid *s, hedge *h)
 {
     face *f = (face*)malloc(sizeof(face));
     if(!f) {
@@ -443,16 +432,15 @@ face *face_new(solid *s, hedge *h)
  *    the vertex returned will have h==<the new halfedge>.
  */
 
-vertex *vertex_split(hedge *h, vector v)
+static vertex *vertex_split(hedge *h, vector v)
 {
     hedge *h2, *hn1, *hn2;
     vertex *vtxn;
     edge *en;
-    face *f1, *f2;
+    face *f1;
 
     f1 = h->f;
     h2 = partner(h);
-    f2 = h2->f;
     
     vtxn = vertex_new(f1->s, v);
     hn1 = hedge_new(h, vtxn);
@@ -473,7 +461,7 @@ vertex *vertex_split(hedge *h, vector v)
     return vtxn;
 }
 
-face *face_split(face *f, hedge *h1, hedge *h2)
+static face *face_split(face *f, hedge *h1, hedge *h2)
 {
     hedge *hn1, *hn2, *tmp;
     edge *en;
@@ -517,7 +505,7 @@ face *face_split(face *f, hedge *h1, hedge *h2)
     return fn;
 }
 
-solid *solid_new(vector where) 
+static solid *solid_new(vector where) 
 {
     solid *s = (solid*)malloc(sizeof(solid));
     face *f1, *f2;
@@ -554,7 +542,7 @@ solid *solid_new(vector where)
 }
 
 /* This is all the code directly related to constructing the jigglypuff */
-void face_tessel2(face *f)
+static void face_tessel2(face *f)
 {
     hedge *h1=f->start->prev, *h2=f->start->next;
     
@@ -575,7 +563,7 @@ void face_tessel2(face *f)
  * added at the head of the list. If that ever changes,
  * this is borked. 
  */
-void solid_tesselate(solid *s) 
+static void solid_tesselate(solid *s) 
 {
     edge *e = s->edges;
     face *f = s->faces;
@@ -592,7 +580,7 @@ void solid_tesselate(solid *s)
     }
 }
                
-void solid_spherify(solid * s, coord size) 
+static void solid_spherify(solid * s, coord size) 
 {
     vertex *vtx = s->vertices;
 
@@ -602,7 +590,7 @@ void solid_spherify(solid * s, coord size)
     }
 }
 
-solid *tetrahedron(jigglystruct *js) 
+static solid *tetrahedron(jigglystruct *js) 
 {
     solid *s;
     vertex *vtx;
@@ -637,7 +625,7 @@ solid *tetrahedron(jigglystruct *js)
     return s;
 }
 
-solid *tesselated_tetrahedron(coord size, int iter, jigglystruct *js) {
+static solid *tesselated_tetrahedron(coord size, int iter, jigglystruct *js) {
     solid *s = tetrahedron(js);
     int i;
 
@@ -687,9 +675,10 @@ static inline void vertex_render(vertex *vtx, jigglystruct *js)
  * see what the cost is of calling glBegin/glEnd for each
  * triangle.
  */
-static inline void face_render(face *f, jigglystruct *js)
+static inline int face_render(face *f, jigglystruct *js)
 {
     hedge *h1, *h2, *hend;
+    int polys = 0;
 
     h1 = f->start;
     hend = h1->prev;
@@ -705,12 +694,15 @@ static inline void face_render(face *f, jigglystruct *js)
        vertex_render(hend->vtx, js);
        h1 = h2;
        h2 = h1->next;
+        polys++;
     }
     glEnd();
+    return polys;
 }
 
-void jigglypuff_render(jigglystruct *js) 
+static int jigglypuff_render(jigglystruct *js) 
 {
+    int polys = 0;
     face *f = js->shape->faces;
     vertex *vtx = js->shape->vertices;
 
@@ -719,9 +711,10 @@ void jigglypuff_render(jigglystruct *js)
        vtx = vtx->next;
     }
     while(f) {
-       face_render(f, js);
+       polys += face_render(f, js);
        f=f->next;
     }
+    return polys;
 }
 
 /* This is the jiggling code */
@@ -729,7 +722,7 @@ void jigglypuff_render(jigglystruct *js)
 /* stable distance when subdivs == 4 */
 #define STABLE_DISTANCE 0.088388347648
 
-void update_shape(jigglystruct *js)
+static void update_shape(jigglystruct *js)
 {
     vertex *vtx = js->shape->vertices;
     edge *e = js->shape->edges;
@@ -773,7 +766,7 @@ void update_shape(jigglystruct *js)
 
 /* These are the various initialization routines */
 
-void init_texture(ModeInfo *mi)
+static void init_texture(ModeInfo *mi)
 {
     XImage *img = xpm_to_ximage(mi->dpy, mi->xgwa.visual,
                               mi->xgwa.colormap, jigglymap_xpm);
@@ -785,7 +778,7 @@ void init_texture(ModeInfo *mi)
     XDestroyImage(img);
 }
 
-void setup_opengl(ModeInfo *mi, jigglystruct *js)
+static void setup_opengl(ModeInfo *mi, jigglystruct *js)
 {
     const GLfloat lpos0[4] = {-12, 8, 12, 0};
     const GLfloat lpos1[4] = {7, -5, 0, 0};
@@ -794,7 +787,6 @@ void setup_opengl(ModeInfo *mi, jigglystruct *js)
     const GLfloat scolor[4]= {0.9f, 0.9f, 0.9f, 0.5f};
 
     glDrawBuffer(GL_BACK);
-    glClearColor(0, 0, 0, 0);
     glShadeModel(GL_SMOOTH);
     glEnable(GL_DEPTH_TEST);
 
@@ -838,7 +830,7 @@ void setup_opengl(ModeInfo *mi, jigglystruct *js)
     }
 }
 
-int parse_color(jigglystruct *js)
+static int parse_color(jigglystruct *js)
 {
     unsigned int r, g, b;
     if(!strcmp(color, "clownbarf")) {
@@ -849,10 +841,12 @@ int parse_color(jigglystruct *js)
        js->color_style = COLOR_STYLE_FLOWERBOX;
        return 1;
     }
+# ifndef HAVE_JWZGLES  /* SPHERE_MAP unimplemented */
     else if(!strcmp(color, "chrome")) {
        js->color_style = COLOR_STYLE_CHROME;
        return 1;
     }
+# endif
     else if(!strcmp(color, "cycle")) {
        js->color_style = COLOR_STYLE_CYCLE;
        js->jiggly_color[0] = ((float)random()) / REAL_RAND_MAX * 0.7 + 0.3;
@@ -879,10 +873,16 @@ int parse_color(jigglystruct *js)
     return 1;
 }
 
-void randomize_parameters(jigglystruct *js) {
+static void randomize_parameters(jigglystruct *js) {
     do_tetrahedron = random() & 1;
+# ifndef HAVE_JWZGLES /* #### glPolygonMode other than GL_FILL unimplemented */
     js->do_wireframe = !(random() & 3);
+# endif
     js->color_style = random() % 5;
+# ifdef HAVE_JWZGLES  /* #### SPHERE_MAP unimplemented */
+    while (js->color_style == COLOR_STYLE_CHROME)
+      js->color_style = random() % 5;;
+# endif
     if(js->color_style == COLOR_STYLE_NORMAL
        || js->color_style == COLOR_STYLE_CYCLE) {
        js->jiggly_color[0] = ((float)random()) / REAL_RAND_MAX * 0.5 + 0.5;
@@ -908,7 +908,7 @@ void randomize_parameters(jigglystruct *js) {
     damping = (random() % 800) + 50;
 }    
 
-void calculate_parameters(jigglystruct *js, int subdivs) {
+static void calculate_parameters(jigglystruct *js, int subdivs) {
     /* try to compensate for the inherent instability at
      * low complexity. */
     float dist_factor = (subdivs == 6) ? 2 : (subdivs == 5) ? 1 : 0.5;
@@ -926,31 +926,19 @@ void calculate_parameters(jigglystruct *js, int subdivs) {
 
 /* The screenhack related functions begin here */
 
-Bool jigglypuff_handle_event(ModeInfo *mi, XEvent *event)
+ENTRYPOINT Bool jigglypuff_handle_event(ModeInfo *mi, XEvent *event)
 {
     jigglystruct *js = &jss[MI_SCREEN(mi)];
     
-    if(event->xany.type == ButtonPress &&
-       event->xbutton.button & Button1) {
-       js->button_down = 1;
-       gltrackball_start(js->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) {
-       js->button_down = 0;
-       return True;
-    }
-    else if(event->xany.type == MotionNotify && js->button_down) {
-       gltrackball_track(js->trackball, event->xmotion.x, event->xmotion.y,
-                         MI_WIDTH(mi), MI_HEIGHT(mi));
-       return True;
-    }
+    if (gltrackball_event_handler (event, js->trackball,
+                                   MI_WIDTH (mi), MI_HEIGHT (mi),
+                                   &js->button_down))
+    return True;
+
     return False;
 }
 
-void reshape_jigglypuff(ModeInfo *mi, int width, int height)
+ENTRYPOINT void reshape_jigglypuff(ModeInfo *mi, int width, int height)
 {
     GLfloat aspect = (GLfloat)width / (GLfloat)height;
 
@@ -961,7 +949,7 @@ void reshape_jigglypuff(ModeInfo *mi, int width, int height)
 /*    glTranslatef(0, 0, -10);*/
 }
 
-void draw_jigglypuff(ModeInfo *mi)
+ENTRYPOINT void draw_jigglypuff(ModeInfo *mi)
 {
     jigglystruct *js = &jss[MI_SCREEN(mi)];
     
@@ -973,6 +961,16 @@ void draw_jigglypuff(ModeInfo *mi)
     glLoadIdentity();
     glTranslatef(0,0,-10);
 
+
+# ifdef HAVE_MOBILE    /* Keep it the same relative size when rotated. */
+    {
+      GLfloat h = MI_HEIGHT(mi) / (GLfloat) MI_WIDTH(mi);
+      int o = (int) current_device_rotation();
+      if (o != 0 && o != 180 && o != -180)
+        glScalef (1/h, 1/h, 1/h);
+    }
+# endif
+
     glRotatef(js->angle, sin(js->axis), cos(js->axis), -sin(js->axis));
     glTranslatef(0, 0, 5);
     if(!(js->button_down)) {
@@ -983,6 +981,7 @@ void draw_jigglypuff(ModeInfo *mi)
            js->axis -= 2*M_PI;
        }
     }
+
     gltrackball_rotate(js->trackball);
 
     if(js->color_style == COLOR_STYLE_CYCLE) {
@@ -998,7 +997,7 @@ void draw_jigglypuff(ModeInfo *mi)
        glColor4fv(js->jiggly_color);
     }
     
-    jigglypuff_render(js);
+    mi->polygon_count = jigglypuff_render(js);
     if(MI_IS_FPS(mi))
        do_fps(mi);
     glFinish();
@@ -1006,23 +1005,19 @@ void draw_jigglypuff(ModeInfo *mi)
     glXSwapBuffers(MI_DISPLAY(mi), MI_WINDOW(mi));
 }
 
-void init_jigglypuff(ModeInfo *mi)
+ENTRYPOINT void init_jigglypuff(ModeInfo *mi)
 {
     jigglystruct *js;
     int subdivs;
 
-    if(!jss) {
-       jss = (jigglystruct*)
-           calloc(MI_NUM_SCREENS(mi), sizeof(jigglystruct));
-       if(!jss) {
-           fprintf(stderr, "%s: No..memory...must...abort..\n", progname);
-           exit(1);
-       }
-    }
+    MI_INIT(mi, jss, NULL);
 
     js = &jss[MI_SCREEN(mi)];
 
     js->do_wireframe = MI_IS_WIREFRAME(mi);
+# ifdef HAVE_JWZGLES
+    js->do_wireframe = 0; /* GL_LINE unimplemented */
+# endif
 
     js->shininess = shininess;
 
@@ -1039,6 +1034,9 @@ void init_jigglypuff(ModeInfo *mi)
     if(random_parms)
        randomize_parameters(js);
 
+    js->angle = frand(180);
+    js->axis  = frand(M_PI);
+
     js->shape = tesselated_tetrahedron(1, subdivs, js);
 
     if(!do_tetrahedron)
@@ -1057,7 +1055,7 @@ void init_jigglypuff(ModeInfo *mi)
     else {
        MI_CLEARWINDOW(mi);
     }
-    js->trackball = gltrackball_init();
+    js->trackball = gltrackball_init(True);
 /*    _DEBUG("distance : %f\nhold : %f\nspherify : %f\ndamping : %f\ndfact : %f\n",
           js->stable_distance, js->hold_strength, js->spherify_strength,
           js->damping_velocity, js->damping_factor);
@@ -1065,13 +1063,8 @@ void init_jigglypuff(ModeInfo *mi)
           js->do_wireframe, js->spooky, js->color_style, js->shininess);*/
 }
 
-/* This is the end of the file */
+XSCREENSAVER_MODULE ("JigglyPuff", jigglypuff)
 
 #endif /* USE_GL */
 
-
-
-
-
-
-
+/* This is the end of the file */