1 /* atlantis --- Shows moving 3D sea animals */
4 static const char sccsid[] = "@(#)atlantis.c 5.08 2003/04/09 xlockmore";
7 /* Copyright (c) E. Lassauge, 1998. */
10 * Permission to use, copy, modify, and distribute this software and its
11 * documentation for any purpose and without fee is hereby granted,
12 * provided that the above copyright notice appear in all copies and that
13 * both that copyright notice and this permission notice appear in
14 * supporting documentation.
16 * This file is provided AS IS with no warranties of any kind. The author
17 * shall have no liability with respect to the infringement of copyrights,
18 * trade secrets or any patents by this file or any part thereof. In no
19 * event will the author be liable for any lost revenue or profits or
20 * other special, indirect and consequential damages.
22 * The original code for this mode was written by Mark J. Kilgard
23 * as a demo for openGL programming.
25 * Porting it to xlock was possible by comparing the original Mesa's morph3d
26 * demo with it's ported version to xlock, so thanks for Marcelo F. Vianna
27 * (look at morph3d.c) for his indirect help.
29 * Thanks goes also to Brian Paul for making it possible and inexpensive
30 * to use OpenGL at home.
32 * My e-mail address is lassauge@users.sourceforge.net
34 * Eric Lassauge (May-13-1998)
38 * Jamie Zawinski, 2-Apr-01: - The fishies were inside out! The back faces
39 * were being drawn, not the front faces.
40 * - Added a texture to simulate light from the
41 * surface, like in the SGI version.
43 * David A. Bagley - 98/06/17 : Add whalespeed option. Global options to
44 * initialize local variables are now:
45 * XLock.atlantis.cycles: 100 ! SharkSpeed
46 * XLock.atlantis.batchcount: 4 ! SharkNum
47 * XLock.atlantis.whalespeed: 250 ! WhaleSpeed
48 * XLock.atlantis.size: 6000 ! SharkSize
49 * Add random direction for whales/dolphins
51 * E.Lassauge - 98/06/16: Use the following global options to initialize
53 * XLock.atlantis.delay: 100 ! SharkSpeed
54 * XLock.atlantis.batchcount: 4 ! SharkNum
55 * XLock.atlantis.cycles: 250 ! WhaleSpeed
56 * XLock.atlantis.size: 6000 ! SharkSize
57 * Add support for -/+ wireframe (t'was so easy to do!)
60 * - better handling of sizes and speeds
61 * - test standalone and module modes
65 /* Copyright (c) Mark J. Kilgard, 1994. */
68 * (c) Copyright 1993, 1994, Silicon Graphics, Inc.
70 * Permission to use, copy, modify, and distribute this software for
71 * any purpose and without fee is hereby granted, provided that the above
72 * copyright notice appear in all copies and that both the copyright notice
73 * and this permission notice appear in supporting documentation, and that
74 * the name of Silicon Graphics, Inc. not be used in advertising
75 * or publicity pertaining to distribution of the software without specific,
76 * written prior permission.
78 * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
79 * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
80 * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
81 * FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
82 * GRAPHICS, INC. BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
83 * SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
84 * KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
85 * LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
86 * THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC. HAS BEEN
87 * ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
88 * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
89 * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
91 * US Government Users Restricted Rights
92 * Use, duplication, or disclosure by the Government is subject to
93 * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
94 * (c)(1)(ii) of the Rights in Technical Data and Computer Software
95 * clause at DFARS 252.227-7013 and/or in similar or successor
96 * clauses in the FAR or the DOD or NASA FAR Supplement.
97 * Unpublished-- rights reserved under the copyright laws of the
98 * United States. Contractor/manufacturer is Silicon Graphics,
99 * Inc., 2011 N. Shoreline Blvd., Mountain View, CA 94039-7311.
101 * OpenGL(TM) is a trademark of Silicon Graphics, Inc.
104 #define DEF_TEXTURE "True"
105 #define DEF_GRADIENT "True"
106 #define DEF_WHALESPEED "250"
109 # define DEFAULTS "*delay: 25000 \n" \
111 "*showFPS: False \n" \
114 "*wireframe: False \n"
115 # define release_atlantis 0
116 # define atlantis_handle_event xlockmore_no_events
117 # include "xlockmore.h" /* from the xscreensaver distribution */
118 #else /* !STANDALONE */
119 # include "xlock.h" /* from the xlockmore distribution */
121 #endif /* !STANDALONE */
125 #include "atlantis.h"
128 static int whalespeed;
129 static int do_texture;
130 static int do_gradient;
131 static XrmOptionDescRec opts[] =
133 {"-whalespeed", ".atlantis.whalespeed", XrmoptionSepArg, 0},
134 {"-texture", ".atlantis.texture", XrmoptionNoArg, "true"},
135 {"+texture", ".atlantis.texture", XrmoptionNoArg, "false"},
136 {"-gradient", ".atlantis.gradient", XrmoptionNoArg, "true"},
137 {"+gradient", ".atlantis.gradient", XrmoptionNoArg, "false"},
140 static argtype vars[] =
142 {&whalespeed, "whalespeed", "WhaleSpeed", DEF_WHALESPEED, t_Int},
143 {&do_texture, "texture", "Texture", DEF_TEXTURE, t_Bool},
144 {&do_gradient, "gradient", "Gradient", DEF_GRADIENT, t_Bool},
147 static OptionStruct desc[] =
149 {"-whalespeed num", "speed of whales and the dolphin"},
150 {"-texture", "whether to introduce water-like distortion"},
151 {"-gradient", "whether to introduce gradient-filled background"},
154 ENTRYPOINT ModeSpecOpt atlantis_opts =
155 {sizeof opts / sizeof opts[0], opts, sizeof vars / sizeof vars[0], vars, desc};
158 ModStruct atlantis_description =
159 {"atlantis", "init_atlantis", "draw_atlantis", NULL,
160 "refresh_atlantis", "change_atlantis", "free_atlantis", &atlantis_opts,
161 1000, NUM_SHARKS, SHARKSPEED, SHARKSIZE, 64, 1.0, "",
162 "Shows moving sharks/whales/dolphin", 0, NULL};
166 static atlantisstruct *atlantis = NULL;
168 #include "ximage-loader.h"
170 #include "images/gen/sea-texture_png.h"
174 parse_image_data(ModeInfo *mi)
176 atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
177 ap->texture = image_data_to_ximage (mi->dpy, mi->xgwa.visual,
179 sizeof(sea_texture_png));
183 InitFishs(atlantisstruct * ap)
187 for (i = 0; i < ap->num_sharks; i++) {
188 ap->sharks[i].x = 70000.0 + NRAND(ap->sharksize);
189 ap->sharks[i].y = NRAND(ap->sharksize);
190 ap->sharks[i].z = NRAND(ap->sharksize);
191 ap->sharks[i].psi = NRAND(360) - 180.0;
192 ap->sharks[i].v = 1.0;
195 /* Random whale direction */
196 ap->whaledir = LRAND() & 1;
198 ap->dolph.x = 30000.0;
200 ap->dolph.z = (float) (ap->sharksize);
201 ap->dolph.psi = (ap->whaledir) ? 90.0 : -90.0;
202 ap->dolph.theta = 0.0;
205 ap->momWhale.x = 70000.0;
206 ap->momWhale.y = 0.0;
207 ap->momWhale.z = 0.0;
208 ap->momWhale.psi = (ap->whaledir) ? 90.0 : -90.0;
209 ap->momWhale.theta = 0.0;
210 ap->momWhale.v = 3.0;
212 ap->babyWhale.x = 60000.0;
213 ap->babyWhale.y = -2000.0;
214 ap->babyWhale.z = -2000.0;
215 ap->babyWhale.psi = (ap->whaledir) ? 90.0 : -90.0;
216 ap->babyWhale.theta = 0.0;
217 ap->babyWhale.v = 3.0;
223 atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
225 static const float ambient[] = {0.1, 0.1, 0.1, 1.0};
226 static const float diffuse[] = {1.0, 1.0, 1.0, 1.0};
227 static const float position[] = {0.0, 1.0, 0.0, 0.0};
228 static const float mat_shininess[] = {90.0};
229 static const float mat_specular[] = {0.8, 0.8, 0.8, 1.0};
230 static const float mat_diffuse[] = {0.46, 0.66, 0.795, 1.0};
231 static const float mat_ambient[] = {0.0, 0.1, 0.2, 1.0};
232 static const float lmodel_ambient[] = {0.4, 0.4, 0.4, 1.0};
233 static const float lmodel_localviewer[] = {0.0};
235 float fblue = 0.0, fgreen;
241 glDisable(GL_DEPTH_TEST);
242 glDisable(GL_CULL_FACE);
243 glDisable(GL_LIGHTING);
244 glDisable(GL_NORMALIZE);
248 glDepthFunc(GL_LEQUAL);
249 glEnable(GL_DEPTH_TEST);
250 glEnable(GL_CULL_FACE);
251 glEnable(GL_NORMALIZE);
252 glShadeModel(GL_SMOOTH);
254 glLightfv(GL_LIGHT0, GL_AMBIENT, ambient);
255 glLightfv(GL_LIGHT0, GL_DIFFUSE, diffuse);
256 glLightfv(GL_LIGHT0, GL_POSITION, position);
257 glLightModelfv(GL_LIGHT_MODEL_AMBIENT, lmodel_ambient);
258 glLightModelfv(GL_LIGHT_MODEL_LOCAL_VIEWER, lmodel_localviewer);
259 glEnable(GL_LIGHTING);
262 glMaterialfv(GL_FRONT_AND_BACK, GL_SHININESS, mat_shininess);
263 glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, mat_specular);
264 glMaterialfv(GL_FRONT_AND_BACK, GL_DIFFUSE, mat_diffuse);
265 glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT, mat_ambient);
268 if (ap->wire || !do_texture)
270 glDisable(GL_TEXTURE_2D);
274 GLfloat scale = 0.0005;
277 parse_image_data (mi);
280 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA,
281 ap->texture->width, ap->texture->height, 0,
282 GL_RGBA, GL_UNSIGNED_BYTE,
284 check_gl_error("texture");
286 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
287 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
288 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
289 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
291 glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
293 # ifndef HAVE_JWZGLES
295 GLfloat s_plane[] = { 1, 0, 0, 0 };
296 GLfloat t_plane[] = { 0, 0, 1, 0 };
297 glTexGeni (GL_S, GL_TEXTURE_GEN_MODE, GL_EYE_LINEAR);
298 glTexGeni (GL_T, GL_TEXTURE_GEN_MODE, GL_EYE_LINEAR);
299 glTexGenfv(GL_S, GL_EYE_PLANE, s_plane);
300 glTexGenfv(GL_T, GL_EYE_PLANE, t_plane);
301 glEnable(GL_TEXTURE_GEN_S);
302 glEnable(GL_TEXTURE_GEN_T);
305 glEnable(GL_TEXTURE_2D);
307 glMatrixMode(GL_TEXTURE);
309 glScalef(scale, scale, 1);
310 glMatrixMode(GL_MODELVIEW);
315 /* Add a little randomness */
316 fblue = ((float) (NRAND(30)) / 100.0) + 0.70;
317 fgreen = fblue * 0.56;
318 glClearColor(0.0, fgreen, fblue, 1.0);
322 reshape_atlantis(ModeInfo * mi, int width, int height)
324 double h = (GLfloat) height / (GLfloat) width;
325 atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
328 if (width > height * 5) { /* tiny window: show middle */
329 height = width * 9/16;
331 h = height / (GLfloat) width;
334 glViewport(0, y, ap->WinW = (GLint) width, ap->WinH = (GLint) height);
336 glMatrixMode(GL_PROJECTION);
338 gluPerspective(400.0, 1/h, 1.0, 2000000.0);
339 glMatrixMode(GL_MODELVIEW);
343 /* Fill the background with a gradient -- thanks to
344 Phil Carrig <pod@internode.on.net> for figuring out
345 how to do this more efficiently!
348 clear_tank (atlantisstruct * ap)
350 glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
352 if (do_gradient && !ap->wire)
354 GLfloat top[4] = { 0.00, 0.40, 0.70, };
355 GLfloat bot[4] = { 0.00, 0.05, 0.18, };
357 glMatrixMode(GL_PROJECTION);
361 glMatrixMode(GL_MODELVIEW);
365 /* glRotatef(current_device_rotation(), 0, 0, 1); */
367 # ifndef HAVE_JWZGLES
368 glShadeModel (GL_SMOOTH);
370 glDisable (GL_LIGHTING);
373 glVertex3f (-1, -1, 1); glVertex3f ( 1, -1, 1);
375 glVertex3f ( 1, 1, 1); glVertex3f (-1, 1, 1);
377 glEnable (GL_LIGHTING);
379 /* Need to reset this because jwzgles conflates color and material */
380 glColor3f (0.0, 0.1, 0.2);
384 glMatrixMode(GL_PROJECTION);
387 glMatrixMode(GL_MODELVIEW);
393 Animate(atlantisstruct * ap)
397 for (i = 0; i < ap->num_sharks; i++) {
398 SharkPilot(&(ap->sharks[i]), ap->sharkspeed);
401 WhalePilot(&(ap->dolph), ap->whalespeed, ap->whaledir);
403 WhalePilot(&(ap->momWhale), ap->whalespeed, ap->whaledir);
405 WhalePilot(&(ap->babyWhale), ap->whalespeed, ap->whaledir);
410 AllDisplay(atlantisstruct * ap)
416 for (i = 0; i < ap->num_sharks; i++) {
418 FishTransform(&(ap->sharks[i]));
419 DrawShark(&(ap->sharks[i]), ap->wire);
424 FishTransform(&(ap->dolph));
425 DrawDolphin(&(ap->dolph), ap->wire);
429 FishTransform(&(ap->momWhale));
430 DrawWhale(&(ap->momWhale), ap->wire);
434 FishTransform(&(ap->babyWhale));
435 glScalef(0.45, 0.45, 0.3);
436 DrawWhale(&(ap->babyWhale), ap->wire);
441 *-----------------------------------------------------------------------------
442 *-----------------------------------------------------------------------------
444 *-----------------------------------------------------------------------------
445 *-----------------------------------------------------------------------------
449 *-----------------------------------------------------------------------------
450 * Initialize atlantis. Called each time the window changes.
451 *-----------------------------------------------------------------------------
455 init_atlantis(ModeInfo * mi)
457 int screen = MI_SCREEN(mi);
459 Display *display = MI_DISPLAY(mi);
460 Window window = MI_WINDOW(mi);
462 MI_INIT(mi, atlantis);
463 ap = &atlantis[screen];
464 ap->num_sharks = MI_COUNT(mi);
465 if (ap->sharks == NULL) {
466 if ((ap->sharks = (fishRec *) calloc(ap->num_sharks,
467 sizeof (fishRec))) == NULL) {
468 /* free everything up to now */
469 (void) free((void *) atlantis);
474 ap->sharkspeed = MI_CYCLES(mi); /* has influence on the "width"
476 ap->sharksize = MI_SIZE(mi); /* has influence on the "distance"
478 ap->whalespeed = whalespeed;
479 ap->wire = MI_IS_WIREFRAME(mi);
481 if (MI_IS_DEBUG(mi)) {
482 (void) fprintf(stderr,
483 "%s:\n\tnum_sharks=%d\n\tsharkspeed=%.1f\n\tsharksize=%d\n\twhalespeed=%.1f\n\twireframe=%s\n",
489 ap->wire ? "yes" : "no"
492 if ((ap->glx_context = init_GL(mi)) != NULL) {
494 reshape_atlantis(mi, MI_WIDTH(mi), MI_HEIGHT(mi));
495 glDrawBuffer(GL_BACK);
498 glXSwapBuffers(display, window);
506 *-----------------------------------------------------------------------------
507 * Called by the mainline code periodically to update the display.
508 *-----------------------------------------------------------------------------
511 draw_atlantis(ModeInfo * mi)
513 atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
515 Display *display = MI_DISPLAY(mi);
516 Window window = MI_WINDOW(mi);
518 MI_IS_DRAWN(mi) = True;
520 if (!ap->glx_context)
523 glXMakeCurrent(display, window, *(ap->glx_context));
525 glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
528 glRotatef(current_device_rotation(), 0, 0, 1);
533 if (mi->fps_p) do_fps (mi);
534 glXSwapBuffers(display, window);
539 *-----------------------------------------------------------------------------
540 * The display is being taken away from us. Free up malloc'ed
541 * memory and X resources that we've alloc'ed.
542 *-----------------------------------------------------------------------------
546 free_atlantis(ModeInfo * mi)
549 atlantisstruct *ap = &atlantis[screen];
552 (void) free((void *) ap->sharks);
558 refresh_atlantis(ModeInfo * mi)
563 change_atlantis(ModeInfo * mi)
565 atlantisstruct *ap = &atlantis[MI_SCREEN(mi)];
567 if (!ap->glx_context)
570 glXMakeCurrent(MI_DISPLAY(mi), MI_WINDOW(mi), *(ap->glx_context));
573 #endif /* !STANDALONE */
575 XSCREENSAVER_MODULE ("Atlantis", atlantis)