Original 5.40

1 files changed, 577 insertions, 0 deletions

diff --git a/hacks/glx/atlantis.c b/hacks/glx/atlantis.c
new file mode 100644
index 0000000..04bde12
--- /dev/null
+++ b/hacks/glx/atlantis.c
@@ -0,0 +1,577 @@
+/* atlantis --- Shows moving 3D sea animals */
+
+#if 0
+static const char sccsid[] = "@(#)atlantis.c	5.08 2003/04/09 xlockmore";
+#endif
+
+/* Copyright (c) E. Lassauge, 1998. */
+
+/*
+ * Permission to use, copy, modify, and distribute this software and its
+ * documentation for any purpose and without fee is hereby granted,
+ * provided that the above copyright notice appear in all copies and that
+ * both that copyright notice and this permission notice appear in
+ * supporting documentation.
+ *
+ * This file is provided AS IS with no warranties of any kind.  The author
+ * shall have no liability with respect to the infringement of copyrights,
+ * trade secrets or any patents by this file or any part thereof.  In no
+ * event will the author be liable for any lost revenue or profits or
+ * other special, indirect and consequential damages.
+ *
+ * The original code for this mode was written by Mark J. Kilgard
+ * as a demo for openGL programming.
+ * 
+ * Porting it to xlock  was possible by comparing the original Mesa's morph3d 
+ * demo with it's ported version to xlock, so thanks for Marcelo F. Vianna 
+ * (look at morph3d.c) for his indirect help.
+ *
+ * Thanks goes also to Brian Paul for making it possible and inexpensive
+ * to use OpenGL at home.
+ *
+ * My e-mail address is lassauge@users.sourceforge.net
+ *
+ * Eric Lassauge  (May-13-1998)
+ *
+ * REVISION HISTORY:
+ * 
+ * Jamie Zawinski, 2-Apr-01:  - The fishies were inside out!  The back faces
+ *                              were being drawn, not the front faces.
+ *                            - Added a texture to simulate light from the
+ *                              surface, like in the SGI version.
+ *
+ * David A. Bagley - 98/06/17 : Add whalespeed option. Global options to
+ *                              initialize local variables are now:
+ *                              XLock.atlantis.cycles: 100      ! SharkSpeed
+ *                              XLock.atlantis.batchcount: 4    ! SharkNum
+ *                              XLock.atlantis.whalespeed: 250  ! WhaleSpeed
+ *                              XLock.atlantis.size: 6000       ! SharkSize
+ *                              Add random direction for whales/dolphins
+ * 
+ * E.Lassauge - 98/06/16: Use the following global options to initialize
+ *                        local variables :
+ *                              XLock.atlantis.delay: 100       ! SharkSpeed
+ *                              XLock.atlantis.batchcount: 4    ! SharkNum
+ *                              XLock.atlantis.cycles: 250      ! WhaleSpeed
+ *                              XLock.atlantis.size: 6000       ! SharkSize
+ *                        Add support for -/+ wireframe (t'was so easy to do!)
+ *
+ * TODO : 
+ *        - better handling of sizes and speeds
+ *        - test standalone and module modes
+ *        - purify it (!)
+ */
+
+/* Copyright (c) Mark J. Kilgard, 1994. */
+
+/**
+ * (c) Copyright 1993, 1994, Silicon Graphics, Inc.
+ * ALL RIGHTS RESERVED
+ * Permission to use, copy, modify, and distribute this software for
+ * any purpose and without fee is hereby granted, provided that the above
+ * copyright notice appear in all copies and that both the copyright notice
+ * and this permission notice appear in supporting documentation, and that
+ * the name of Silicon Graphics, Inc. not be used in advertising
+ * or publicity pertaining to distribution of the software without specific,
+ * written prior permission.
+ *
+ * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
+ * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
+ * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
+ * FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
+ * GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
+ * SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
+ * KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
+ * LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
+ * THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
+ * ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
+ * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
+ * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ * US Government Users Restricted Rights
+ * Use, duplication, or disclosure by the Government is subject to
+ * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
+ * (c)(1)(ii) of the Rights in Technical Data and Computer Software
+ * clause at DFARS 252.227-7013 and/or in similar or successor
+ * clauses in the FAR or the DOD or NASA FAR Supplement.
+ * Unpublished-- rights reserved under the copyright laws of the
+ * United States.  Contractor/manufacturer is Silicon Graphics,
+ * Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
+ *
+ * OpenGL(TM) is a trademark of Silicon Graphics, Inc.
+ */
+
+#define DEF_TEXTURE "True"
+#define DEF_GRADIENT "True"
+#define DEF_WHALESPEED  "250"
+
+#ifdef STANDALONE
+# define DEFAULTS	"*delay:       25000 \n" \
+			 "*count:          4 \n" \
+			 "*showFPS:    False \n" \
+			 "*cycles:       100 \n" \
+			 "*size:        6000 \n" \
+			 "*wireframe:  False \n"
+# define release_atlantis 0
+# define atlantis_handle_event xlockmore_no_events
+# include "xlockmore.h"		/* from the xscreensaver distribution */
+#else  /* !STANDALONE */
+# include "xlock.h"		/* from the xlockmore distribution */
+# include "vis.h"
+#endif /* !STANDALONE */
+
+#ifdef USE_GL
+
+#include "atlantis.h"
+
+
+static int  whalespeed;
+static int do_texture;
+static int do_gradient;
+static XrmOptionDescRec opts[] =
+{
+     {"-whalespeed", ".atlantis.whalespeed", XrmoptionSepArg, 0},
+     {"-texture",    ".atlantis.texture",    XrmoptionNoArg, "true"},
+     {"+texture",    ".atlantis.texture",    XrmoptionNoArg, "false"},
+     {"-gradient",   ".atlantis.gradient",   XrmoptionNoArg, "true"},
+     {"+gradient",   ".atlantis.gradient",   XrmoptionNoArg, "false"},
+};
+
+static argtype vars[] =
+{
+ {&whalespeed, "whalespeed", "WhaleSpeed", DEF_WHALESPEED, t_Int},
+ {&do_texture,  "texture",    "Texture",    DEF_TEXTURE,   t_Bool},
+ {&do_gradient, "gradient",   "Gradient",   DEF_GRADIENT,  t_Bool},
+};
+
+static OptionStruct desc[] =
+{
+	{"-whalespeed num", "speed of whales and the dolphin"},
+	{"-texture",        "whether to introduce water-like distortion"},
+	{"-gradient",       "whether to introduce gradient-filled background"},
+};
+
+ENTRYPOINT ModeSpecOpt atlantis_opts =
+{sizeof opts / sizeof opts[0], opts, sizeof vars / sizeof vars[0], vars, desc};
+
+#ifdef USE_MODULES
+ModStruct   atlantis_description =
+{"atlantis", "init_atlantis", "draw_atlantis", NULL,
+ "refresh_atlantis", "change_atlantis", "free_atlantis", &atlantis_opts,
+ 1000, NUM_SHARKS, SHARKSPEED, SHARKSIZE, 64, 1.0, "",
+ "Shows moving sharks/whales/dolphin", 0, NULL};
+
+#endif
+
+static atlantisstruct *atlantis = NULL;
+
+#include "ximage-loader.h"
+
+#include "images/gen/sea-texture_png.h"
+
+
+static void
+parse_image_data(ModeInfo *mi)
+{
+  atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
+  ap->texture = image_data_to_ximage (mi->dpy, mi->xgwa.visual,
+                                      sea_texture_png,
+                                      sizeof(sea_texture_png));
+}
+
+static void
+InitFishs(atlantisstruct * ap)
+{
+	int         i;
+
+	for (i = 0; i < ap->num_sharks; i++) {
+		ap->sharks[i].x = 70000.0 + NRAND(ap->sharksize);
+		ap->sharks[i].y = NRAND(ap->sharksize);
+		ap->sharks[i].z = NRAND(ap->sharksize);
+		ap->sharks[i].psi = NRAND(360) - 180.0;
+		ap->sharks[i].v = 1.0;
+	}
+
+	/* Random whale direction */
+	ap->whaledir = LRAND() & 1;
+
+	ap->dolph.x = 30000.0;
+	ap->dolph.y = 0.0;
+	ap->dolph.z = (float) (ap->sharksize);
+	ap->dolph.psi = (ap->whaledir) ? 90.0 : -90.0;
+	ap->dolph.theta = 0.0;
+	ap->dolph.v = 6.0;
+
+	ap->momWhale.x = 70000.0;
+	ap->momWhale.y = 0.0;
+	ap->momWhale.z = 0.0;
+	ap->momWhale.psi = (ap->whaledir) ? 90.0 : -90.0;
+	ap->momWhale.theta = 0.0;
+	ap->momWhale.v = 3.0;
+
+	ap->babyWhale.x = 60000.0;
+	ap->babyWhale.y = -2000.0;
+	ap->babyWhale.z = -2000.0;
+	ap->babyWhale.psi = (ap->whaledir) ? 90.0 : -90.0;
+	ap->babyWhale.theta = 0.0;
+	ap->babyWhale.v = 3.0;
+}
+
+static void
+Init(ModeInfo *mi)
+{
+	atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
+
+	static const float ambient[]        = {0.1, 0.1, 0.1, 1.0};
+	static const float diffuse[]        = {1.0, 1.0, 1.0, 1.0};
+	static const float position[]       = {0.0, 1.0, 0.0, 0.0};
+	static const float mat_shininess[]  = {90.0};
+	static const float mat_specular[]   = {0.8, 0.8, 0.8, 1.0};
+	static const float mat_diffuse[]    = {0.46, 0.66, 0.795, 1.0};
+	static const float mat_ambient[]    = {0.0, 0.1, 0.2, 1.0};
+	static const float lmodel_ambient[] = {0.4, 0.4, 0.4, 1.0};
+	static const float lmodel_localviewer[] = {0.0};
+
+	float        fblue = 0.0, fgreen;
+
+	glFrontFace(GL_CCW);
+
+        if (ap->wire)
+          {
+            glDisable(GL_DEPTH_TEST);
+            glDisable(GL_CULL_FACE);
+            glDisable(GL_LIGHTING);
+            glDisable(GL_NORMALIZE);
+          }
+        else
+          {
+            glDepthFunc(GL_LEQUAL);
+            glEnable(GL_DEPTH_TEST);
+            glEnable(GL_CULL_FACE);
+            glEnable(GL_NORMALIZE);
+            glShadeModel(GL_SMOOTH);
+
+            glLightfv(GL_LIGHT0, GL_AMBIENT, ambient);
+            glLightfv(GL_LIGHT0, GL_DIFFUSE, diffuse);
+            glLightfv(GL_LIGHT0, GL_POSITION, position);
+            glLightModelfv(GL_LIGHT_MODEL_AMBIENT, lmodel_ambient);
+            glLightModelfv(GL_LIGHT_MODEL_LOCAL_VIEWER, lmodel_localviewer);
+            glEnable(GL_LIGHTING);
+            glEnable(GL_LIGHT0);
+
+            glMaterialfv(GL_FRONT_AND_BACK, GL_SHININESS, mat_shininess);
+            glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, mat_specular);
+            glMaterialfv(GL_FRONT_AND_BACK, GL_DIFFUSE, mat_diffuse);
+            glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT, mat_ambient);
+          }
+
+        if (ap->wire || !do_texture)
+          {
+            glDisable(GL_TEXTURE_2D);
+          }
+        else
+          {
+            GLfloat scale = 0.0005;
+
+            if (!ap->texture)
+              parse_image_data (mi);
+
+            clear_gl_error();
+            glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA,
+                         ap->texture->width, ap->texture->height, 0,
+                         GL_RGBA, GL_UNSIGNED_BYTE,
+                         ap->texture->data);
+            check_gl_error("texture");
+
+            glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
+            glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
+            glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+            glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+
+            glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
+
+# ifndef HAVE_JWZGLES
+            {
+              GLfloat s_plane[] = { 1, 0, 0, 0 };
+              GLfloat t_plane[] = { 0, 0, 1, 0 };
+              glTexGeni (GL_S, GL_TEXTURE_GEN_MODE, GL_EYE_LINEAR);
+              glTexGeni (GL_T, GL_TEXTURE_GEN_MODE, GL_EYE_LINEAR);
+              glTexGenfv(GL_S, GL_EYE_PLANE, s_plane);
+              glTexGenfv(GL_T, GL_EYE_PLANE, t_plane);
+              glEnable(GL_TEXTURE_GEN_S);
+              glEnable(GL_TEXTURE_GEN_T);
+            }
+# endif
+            glEnable(GL_TEXTURE_2D);
+
+            glMatrixMode(GL_TEXTURE);
+            glLoadIdentity();
+            glScalef(scale, scale, 1);
+            glMatrixMode(GL_MODELVIEW);
+          }
+
+	InitFishs(ap);
+
+	/* Add a little randomness */
+	fblue = ((float) (NRAND(30)) / 100.0) + 0.70;
+	fgreen = fblue * 0.56;
+	glClearColor(0.0, fgreen, fblue, 1.0);
+}
+
+ENTRYPOINT void
+reshape_atlantis(ModeInfo * mi, int width, int height)
+{
+  double h = (GLfloat) height / (GLfloat) width;  
+  atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
+  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, ap->WinW = (GLint) width, ap->WinH = (GLint) height);
+
+  glMatrixMode(GL_PROJECTION);
+  glLoadIdentity();
+  gluPerspective(400.0, 1/h, 1.0, 2000000.0);
+  glMatrixMode(GL_MODELVIEW);
+}
+
+
+/* Fill the background with a gradient -- thanks to 
+   Phil Carrig <pod@internode.on.net> for figuring out
+   how to do this more efficiently!
+ */
+static void
+clear_tank (atlantisstruct * ap)
+{
+  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
+
+  if (do_gradient && !ap->wire)
+    {
+      GLfloat top[4] = { 0.00, 0.40, 0.70, };
+      GLfloat bot[4] = { 0.00, 0.05, 0.18, };
+
+      glMatrixMode(GL_PROJECTION);
+      glPushMatrix();
+      {
+        glLoadIdentity();
+        glMatrixMode(GL_MODELVIEW);
+        glPushMatrix();
+        {
+          glLoadIdentity();
+          /* glRotatef(current_device_rotation(), 0, 0, 1); */
+
+# ifndef HAVE_JWZGLES
+          glShadeModel (GL_SMOOTH);
+# endif
+          glDisable (GL_LIGHTING);
+          glBegin (GL_QUADS);
+          glColor3fv (bot);
+          glVertex3f (-1, -1, 1); glVertex3f ( 1, -1, 1);
+          glColor3fv (top);
+          glVertex3f ( 1,  1, 1); glVertex3f (-1,  1, 1);
+          glEnd();
+          glEnable (GL_LIGHTING);
+
+          /* Need to reset this because jwzgles conflates color and material */
+          glColor3f (0.0, 0.1, 0.2);
+        }
+        glPopMatrix();
+      }
+      glMatrixMode(GL_PROJECTION);
+      glPopMatrix();
+
+      glMatrixMode(GL_MODELVIEW);
+    }
+}
+
+
+static void
+Animate(atlantisstruct * ap)
+{
+	int         i;
+
+	for (i = 0; i < ap->num_sharks; i++) {
+		SharkPilot(&(ap->sharks[i]), ap->sharkspeed);
+		SharkMiss(ap, i);
+	}
+	WhalePilot(&(ap->dolph), ap->whalespeed, ap->whaledir);
+	ap->dolph.phi++;
+	WhalePilot(&(ap->momWhale), ap->whalespeed, ap->whaledir);
+	ap->momWhale.phi++;
+	WhalePilot(&(ap->babyWhale), ap->whalespeed, ap->whaledir);
+	ap->babyWhale.phi++;
+}
+
+static void
+AllDisplay(atlantisstruct * ap)
+{
+	int         i;
+
+        clear_tank(ap);
+
+	for (i = 0; i < ap->num_sharks; i++) {
+		glPushMatrix();
+		FishTransform(&(ap->sharks[i]));
+		DrawShark(&(ap->sharks[i]), ap->wire);
+		glPopMatrix();
+	}
+
+	glPushMatrix();
+	FishTransform(&(ap->dolph));
+	DrawDolphin(&(ap->dolph), ap->wire);
+	glPopMatrix();
+
+	glPushMatrix();
+	FishTransform(&(ap->momWhale));
+	DrawWhale(&(ap->momWhale), ap->wire);
+	glPopMatrix();
+
+	glPushMatrix();
+	FishTransform(&(ap->babyWhale));
+	glScalef(0.45, 0.45, 0.3);
+	DrawWhale(&(ap->babyWhale), ap->wire);
+	glPopMatrix();
+}
+
+/*
+ *-----------------------------------------------------------------------------
+ *-----------------------------------------------------------------------------
+ *    Xlock hooks.
+ *-----------------------------------------------------------------------------
+ *-----------------------------------------------------------------------------
+ */
+
+/*
+ *-----------------------------------------------------------------------------
+ *    Initialize atlantis.  Called each time the window changes.
+ *-----------------------------------------------------------------------------
+ */
+
+ENTRYPOINT void
+init_atlantis(ModeInfo * mi)
+{
+	int         screen = MI_SCREEN(mi);
+	atlantisstruct *ap;
+	Display    *display = MI_DISPLAY(mi);
+	Window      window = MI_WINDOW(mi);
+
+	MI_INIT(mi, atlantis);
+	ap = &atlantis[screen];
+	ap->num_sharks = MI_COUNT(mi);
+	if (ap->sharks == NULL) {
+		if ((ap->sharks = (fishRec *) calloc(ap->num_sharks,
+						sizeof (fishRec))) == NULL) {
+			/* free everything up to now */
+			(void) free((void *) atlantis);
+			atlantis = NULL;
+			return;
+		}
+	}
+	ap->sharkspeed = MI_CYCLES(mi);		/* has influence on the "width"
+						   of the movement */
+	ap->sharksize = MI_SIZE(mi);	/* has influence on the "distance"
+					   of the sharks */
+	ap->whalespeed = whalespeed;
+	ap->wire = MI_IS_WIREFRAME(mi);
+
+	if (MI_IS_DEBUG(mi)) {
+		(void) fprintf(stderr,
+			       "%s:\n\tnum_sharks=%d\n\tsharkspeed=%.1f\n\tsharksize=%d\n\twhalespeed=%.1f\n\twireframe=%s\n",
+			       MI_NAME(mi),
+			       ap->num_sharks,
+			       ap->sharkspeed,
+			       ap->sharksize,
+			       ap->whalespeed,
+			       ap->wire ? "yes" : "no"
+			);
+	}
+	if ((ap->glx_context = init_GL(mi)) != NULL) {
+
+		reshape_atlantis(mi, MI_WIDTH(mi), MI_HEIGHT(mi));
+		glDrawBuffer(GL_BACK);
+		Init(mi);
+		AllDisplay(ap);
+		glXSwapBuffers(display, window);
+
+	} else {
+		MI_CLEARWINDOW(mi);
+	}
+}
+
+/*
+ *-----------------------------------------------------------------------------
+ *    Called by the mainline code periodically to update the display.
+ *-----------------------------------------------------------------------------
+ */
+ENTRYPOINT void
+draw_atlantis(ModeInfo * mi)
+{
+	atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
+
+	Display    *display = MI_DISPLAY(mi);
+	Window      window = MI_WINDOW(mi);
+
+	MI_IS_DRAWN(mi) = True;
+
+	if (!ap->glx_context)
+		return;
+
+	glXMakeCurrent(display, window, *(ap->glx_context));
+
+	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
+
+        glPushMatrix();
+        glRotatef(current_device_rotation(), 0, 0, 1);
+        AllDisplay(ap);
+        Animate(ap);
+        glPopMatrix();
+
+        if (mi->fps_p) do_fps (mi);
+	glXSwapBuffers(display, window);
+}
+
+
+/*
+ *-----------------------------------------------------------------------------
+ *    The display is being taken away from us.  Free up malloc'ed 
+ *      memory and X resources that we've alloc'ed.
+ *-----------------------------------------------------------------------------
+ */
+
+ENTRYPOINT void
+free_atlantis(ModeInfo * mi)
+{
+#if 0
+	atlantisstruct *ap = &atlantis[screen];
+
+	if (ap->sharks)
+		(void) free((void *) ap->sharks);
+#endif
+}
+
+#ifndef STANDALONE
+ENTRYPOINT void
+refresh_atlantis(ModeInfo * mi)
+{
+}
+
+ENTRYPOINT void
+change_atlantis(ModeInfo * mi)
+{
+	atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
+
+	if (!ap->glx_context)
+		return;
+
+	glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *(ap->glx_context));
+	Init(mi);
+}
+#endif /* !STANDALONE */
+
+XSCREENSAVER_MODULE ("Atlantis", atlantis)
+
+#endif /* USE_GL */