git.hungrycats.org Git - xscreensaver/blob - hacks/glx/shark.c

   1 /* atlantis --- Shows moving 3D sea animals */
   2
   3 #if 0
   4 static const char sccsid[] = "@(#)shark.c       1.2 98/06/16 xlockmore";
   5 #endif
   6
   7 /* Copyright (c) E. Lassauge, 1998. */
   8
   9 /*
  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.
  15  *
  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.
  21  *
  22  * The original code for this mode was written by Mark J. Kilgard
  23  * as a demo for openGL programming.
  24  *
  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.
  28  *
  29  * Thanks goes also to Brian Paul for making it possible and inexpensive
  30  * to use OpenGL at home.
  31  *
  32  * My e-mail address is lassauge@users.sourceforge.net
  33  *
  34  * Eric Lassauge  (May-13-1998)
  35  *
  36  */
  37
  38 /**
  39  * (c) Copyright 1993, 1994, Silicon Graphics, Inc.
  40  * ALL RIGHTS RESERVED
  41  * Permission to use, copy, modify, and distribute this software for
  42  * any purpose and without fee is hereby granted, provided that the above
  43  * copyright notice appear in all copies and that both the copyright notice
  44  * and this permission notice appear in supporting documentation, and that
  45  * the name of Silicon Graphics, Inc. not be used in advertising
  46  * or publicity pertaining to distribution of the software without specific,
  47  * written prior permission.
  48  *
  49  * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
  50  * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
  51  * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
  52  * FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
  53  * GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
  54  * SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
  55  * KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
  56  * LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
  57  * THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
  58  * ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
  59  * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
  60  * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
  61  *
  62  * US Government Users Restricted Rights
  63  * Use, duplication, or disclosure by the Government is subject to
  64  * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
  65  * (c)(1)(ii) of the Rights in Technical Data and Computer Software
  66  * clause at DFARS 252.227-7013 and/or in similar or successor
  67  * clauses in the FAR or the DOD or NASA FAR Supplement.
  68  * Unpublished-- rights reserved under the copyright laws of the
  69  * United States.  Contractor/manufacturer is Silicon Graphics,
  70  * Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
  71  *
  72  * OpenGL(TM) is a trademark of Silicon Graphics, Inc.
  73  */
  74
  75 #ifndef STANDALONE
  76 #include "xlock.h"
  77 #endif
  78
  79 #ifdef USE_GL
  80
  81 #ifdef STANDALONE
  82 #include <math.h>
  83 #include <GL/glx.h>
  84 #endif
  85
  86 #include "atlantis.h"
  87 /* *INDENT-OFF* */
  88 #if 0
  89 static float N001[3] = {0.000000 ,1.000000 ,0.000000};
  90 #endif
  91 static float N002[3] = {0.000077 ,-0.020611 ,0.999788};
  92 static float N003[3] = {0.961425 ,0.258729 ,-0.093390};
  93 static float N004[3] = {0.510811 ,-0.769633 ,-0.383063};
  94 static float N005[3] = {0.400123 ,0.855734 ,-0.328055};
  95 static float N006[3] = {-0.770715 ,0.610204 ,-0.183440};
  96 static float N007[3] = {-0.915597 ,-0.373345 ,-0.149316};
  97 static float N008[3] = {-0.972788 ,0.208921 ,-0.100179};
  98 static float N009[3] = {-0.939713 ,-0.312268 ,-0.139383};
  99 static float N010[3] = {-0.624138 ,-0.741047 ,-0.247589};
 100 static float N011[3] = {0.591434 ,-0.768401 ,-0.244471};
 101 static float N012[3] = {0.935152 ,-0.328495 ,-0.132598};
 102 static float N013[3] = {0.997102 ,0.074243 ,-0.016593};
 103 static float N014[3] = {0.969995 ,0.241712 ,-0.026186};
 104 static float N015[3] = {0.844539 ,0.502628 ,-0.184714};
 105 static float N016[3] = {-0.906608 ,0.386308 ,-0.169787};
 106 static float N017[3] = {-0.970016 ,0.241698 ,-0.025516};
 107 static float N018[3] = {-0.998652 ,0.050493 ,-0.012045};
 108 static float N019[3] = {-0.942685 ,-0.333051 ,-0.020556};
 109 static float N020[3] = {-0.660944 ,-0.750276 ,0.015480};
 110 static float N021[3] = {0.503549 ,-0.862908 ,-0.042749};
 111 static float N022[3] = {0.953202 ,-0.302092 ,-0.012089};
 112 static float N023[3] = {0.998738 ,0.023574 ,0.044344};
 113 static float N024[3] = {0.979297 ,0.193272 ,0.060202};
 114 static float N025[3] = {0.798300 ,0.464885 ,0.382883};
 115 static float N026[3] = {-0.756590 ,0.452403 ,0.472126};
 116 static float N027[3] = {-0.953855 ,0.293003 ,0.065651};
 117 static float N028[3] = {-0.998033 ,0.040292 ,0.048028};
 118 static float N029[3] = {-0.977079 ,-0.204288 ,0.059858};
 119 static float N030[3] = {-0.729117 ,-0.675304 ,0.111140};
 120 static float N031[3] = {0.598361 ,-0.792753 ,0.116221};
 121 static float N032[3] = {0.965192 ,-0.252991 ,0.066332};
 122 static float N033[3] = {0.998201 ,-0.002790 ,0.059892};
 123 static float N034[3] = {0.978657 ,0.193135 ,0.070207};
 124 static float N035[3] = {0.718815 ,0.680392 ,0.142733};
 125 static float N036[3] = {-0.383096 ,0.906212 ,0.178936};
 126 static float N037[3] = {-0.952831 ,0.292590 ,0.080647};
 127 static float N038[3] = {-0.997680 ,0.032417 ,0.059861};
 128 static float N039[3] = {-0.982629 ,-0.169881 ,0.074700};
 129 static float N040[3] = {-0.695424 ,-0.703466 ,0.146700};
 130 static float N041[3] = {0.359323 ,-0.915531 ,0.180805};
 131 static float N042[3] = {0.943356 ,-0.319387 ,0.089842};
 132 static float N043[3] = {0.998272 ,-0.032435 ,0.048993};
 133 static float N044[3] = {0.978997 ,0.193205 ,0.065084};
 134 static float N045[3] = {0.872144 ,0.470094 ,-0.135565};
 135 static float N046[3] = {-0.664282 ,0.737945 ,-0.119027};
 136 static float N047[3] = {-0.954508 ,0.288570 ,0.075107};
 137 static float N048[3] = {-0.998273 ,0.032406 ,0.048993};
 138 static float N049[3] = {-0.979908 ,-0.193579 ,0.048038};
 139 static float N050[3] = {-0.858736 ,-0.507202 ,-0.072938};
 140 static float N051[3] = {0.643545 ,-0.763887 ,-0.048237};
 141 static float N052[3] = {0.955580 ,-0.288954 ,0.058068};
 142 #if 0
 143 static float N053[3] = {0.000000 ,1.000000 ,0.000000};
 144 static float N054[3] = {0.000000 ,1.000000 ,0.000000};
 145 static float N055[3] = {0.000000 ,1.000000 ,0.000000};
 146 static float N056[3] = {0.000000 ,1.000000 ,0.000000};
 147 static float N057[3] = {0.000000 ,1.000000 ,0.000000};
 148 #endif
 149 static float N058[3] = {0.000050 ,0.793007 ,-0.609213};
 150 static float N059[3] = {0.913510 ,0.235418 ,-0.331779};
 151 static float N060[3] = {-0.807970 ,0.495000 ,-0.319625};
 152 static float N061[3] = {0.000000 ,0.784687 ,-0.619892};
 153 static float N062[3] = {0.000000 ,-1.000000 ,0.000000};
 154 static float N063[3] = {0.000000 ,1.000000 ,0.000000};
 155 static float N064[3] = {0.000000 ,1.000000 ,0.000000};
 156 static float N065[3] = {0.000000 ,1.000000 ,0.000000};
 157 static float N066[3] = {-0.055784 ,0.257059 ,0.964784};
 158 #if 0
 159 static float N067[3] = {0.000000 ,1.000000 ,0.000000};
 160 static float N068[3] = {0.000000 ,1.000000 ,0.000000};
 161 #endif
 162 static float N069[3] = {-0.000505 ,-0.929775 ,-0.368127};
 163 static float N070[3] = {0.000000 ,1.000000 ,0.000000};
 164 #if 0
 165 static float N071[3] = {-0.987102 ,0.131723 ,-0.090984};
 166 static float N072[3] = {-0.987102 ,0.131723 ,-0.090984};
 167 static float N073[3] = {-0.987102 ,0.131723 ,-0.090984};
 168 static float N074[3] = {0.000000 ,1.000000 ,0.000000};
 169 static float N075[3] = {0.000000 ,1.000000 ,0.000000};
 170 static float N076[3] = {0.000000 ,1.000000 ,0.000000};
 171 static float N077[3] = {0.995210 ,0.071962 ,-0.066168};
 172 static float N078[3] = {0.995210 ,0.071962 ,-0.066168};
 173 static float N079[3] = {0.995210 ,0.071962 ,-0.066168};
 174 static float N080[3] = {0.000000 ,1.000000 ,0.000000};
 175 static float N081[3] = {0.000000 ,1.000000 ,0.000000};
 176 static float N082[3] = {0.000000 ,1.000000 ,0.000000};
 177 static float P001[3] = {0.00, 0.00, 0.00};
 178 #endif
 179 static float P002[3] = {0.00, -36.59, 5687.72};
 180 static float P003[3] = {90.00, 114.73, 724.38};
 181 static float P004[3] = {58.24, -146.84, 262.35};
 182 static float P005[3] = {27.81, 231.52, 510.43};
 183 static float P006[3] = {-27.81, 230.43, 509.76};
 184 static float P007[3] = {-46.09, -146.83, 265.84};
 185 static float P008[3] = {-90.00, 103.84, 718.53};
 186 static float P009[3] = {-131.10, -165.92, 834.85};
 187 static float P010[3] = {-27.81, -285.31, 500.00};
 188 static float P011[3] = {27.81, -285.32, 500.00};
 189 static float P012[3] = {147.96, -170.89, 845.50};
 190 static float P013[3] = {180.00, 0.00, 2000.00};
 191 static float P014[3] = {145.62, 352.67, 2000.00};
 192 static float P015[3] = {55.62, 570.63, 2000.00};
 193 static float P016[3] = {-55.62, 570.64, 2000.00};
 194 static float P017[3] = {-145.62, 352.68, 2000.00};
 195 static float P018[3] = {-180.00, 0.01, 2000.00};
 196 static float P019[3] = {-178.20, -352.66, 2001.61};
 197 static float P020[3] = {-55.63, -570.63, 2000.00};
 198 static float P021[3] = {55.62, -570.64, 2000.00};
 199 static float P022[3] = {179.91, -352.69, 1998.39};
 200 static float P023[3] = {150.00, 0.00, 3000.00};
 201 static float P024[3] = {121.35, 293.89, 3000.00};
 202 static float P025[3] = {46.35, 502.93, 2883.09};
 203 static float P026[3] = {-46.35, 497.45, 2877.24};
 204 static float P027[3] = {-121.35, 293.90, 3000.00};
 205 static float P028[3] = {-150.00, 0.00, 3000.00};
 206 static float P029[3] = {-152.21, -304.84, 2858.68};
 207 static float P030[3] = {-46.36, -475.52, 3000.00};
 208 static float P031[3] = {46.35, -475.53, 3000.00};
 209 static float P032[3] = {155.64, -304.87, 2863.50};
 210 static float P033[3] = {90.00, 0.00, 4000.00};
 211 static float P034[3] = {72.81, 176.33, 4000.00};
 212 static float P035[3] = {27.81, 285.32, 4000.00};
 213 static float P036[3] = {-27.81, 285.32, 4000.00};
 214 static float P037[3] = {-72.81, 176.34, 4000.00};
 215 static float P038[3] = {-90.00, 0.00, 4000.00};
 216 static float P039[3] = {-72.81, -176.33, 4000.00};
 217 static float P040[3] = {-27.81, -285.31, 4000.00};
 218 static float P041[3] = {27.81, -285.32, 4000.00};
 219 static float P042[3] = {72.81, -176.34, 4000.00};
 220 static float P043[3] = {30.00, 0.00, 5000.00};
 221 static float P044[3] = {24.27, 58.78, 5000.00};
 222 static float P045[3] = {9.27, 95.11, 5000.00};
 223 static float P046[3] = {-9.27, 95.11, 5000.00};
 224 static float P047[3] = {-24.27, 58.78, 5000.00};
 225 static float P048[3] = {-30.00, 0.00, 5000.00};
 226 static float P049[3] = {-24.27, -58.78, 5000.00};
 227 static float P050[3] = {-9.27, -95.10, 5000.00};
 228 static float P051[3] = {9.27, -95.11, 5000.00};
 229 static float P052[3] = {24.27, -58.78, 5000.00};
 230 #if 0
 231 static float P053[3] = {0.00, 0.00, 0.00};
 232 static float P054[3] = {0.00, 0.00, 0.00};
 233 static float P055[3] = {0.00, 0.00, 0.00};
 234 static float P056[3] = {0.00, 0.00, 0.00};
 235 static float P057[3] = {0.00, 0.00, 0.00};
 236 #endif
 237 static float P058[3] = {0.00, 1212.72, 2703.08};
 238 static float P059[3] = {50.36, 0.00, 108.14};
 239 static float P060[3] = {-22.18, 0.00, 108.14};
 240 static float P061[3] = {0.00, 1181.61, 6344.65};
 241 static float P062[3] = {516.45, -887.08, 2535.45};
 242 static float P063[3] = {-545.69, -879.31, 2555.63};
 243 static float P064[3] = {618.89, -1005.64, 2988.32};
 244 static float P065[3] = {-635.37, -1014.79, 2938.68};
 245 static float P066[3] = {0.00, 1374.43, 3064.18};
 246 #if 0
 247 static float P067[3] = {158.49, -11.89, 1401.56};
 248 static float P068[3] = {-132.08, -17.90, 1394.31};
 249 #endif
 250 static float P069[3] = {0.00, -418.25, 5765.04};
 251 static float P070[3] = {0.00, 1266.91, 6629.60};
 252 static float P071[3] = {-139.12, -124.96, 997.98};
 253 static float P072[3] = {-139.24, -110.18, 1020.68};
 254 static float P073[3] = {-137.33, -94.52, 1022.63};
 255 static float P074[3] = {-137.03, -79.91, 996.89};
 256 static float P075[3] = {-135.21, -91.48, 969.14};
 257 static float P076[3] = {-135.39, -110.87, 968.76};
 258 static float P077[3] = {150.23, -78.44, 995.53};
 259 static float P078[3] = {152.79, -92.76, 1018.46};
 260 static float P079[3] = {154.19, -110.20, 1020.55};
 261 static float P080[3] = {151.33, -124.15, 993.77};
 262 static float P081[3] = {150.49, -111.19, 969.86};
 263 static float P082[3] = {150.79, -92.41, 969.70};
 264 static float iP002[3] = {0.00, -36.59, 5687.72};
 265 static float iP004[3] = {58.24, -146.84, 262.35};
 266 static float iP007[3] = {-46.09, -146.83, 265.84};
 267 static float iP010[3] = {-27.81, -285.31, 500.00};
 268 static float iP011[3] = {27.81, -285.32, 500.00};
 269 static float iP023[3] = {150.00, 0.00, 3000.00};
 270 static float iP024[3] = {121.35, 293.89, 3000.00};
 271 static float iP025[3] = {46.35, 502.93, 2883.09};
 272 static float iP026[3] = {-46.35, 497.45, 2877.24};
 273 static float iP027[3] = {-121.35, 293.90, 3000.00};
 274 static float iP028[3] = {-150.00, 0.00, 3000.00};
 275 static float iP029[3] = {-121.35, -304.84, 2853.86};
 276 static float iP030[3] = {-46.36, -475.52, 3000.00};
 277 static float iP031[3] = {46.35, -475.53, 3000.00};
 278 static float iP032[3] = {121.35, -304.87, 2853.86};
 279 static float iP033[3] = {90.00, 0.00, 4000.00};
 280 static float iP034[3] = {72.81, 176.33, 4000.00};
 281 static float iP035[3] = {27.81, 285.32, 4000.00};
 282 static float iP036[3] = {-27.81, 285.32, 4000.00};
 283 static float iP037[3] = {-72.81, 176.34, 4000.00};
 284 static float iP038[3] = {-90.00, 0.00, 4000.00};
 285 static float iP039[3] = {-72.81, -176.33, 4000.00};
 286 static float iP040[3] = {-27.81, -285.31, 4000.00};
 287 static float iP041[3] = {27.81, -285.32, 4000.00};
 288 static float iP042[3] = {72.81, -176.34, 4000.00};
 289 static float iP043[3] = {30.00, 0.00, 5000.00};
 290 static float iP044[3] = {24.27, 58.78, 5000.00};
 291 static float iP045[3] = {9.27, 95.11, 5000.00};
 292 static float iP046[3] = {-9.27, 95.11, 5000.00};
 293 static float iP047[3] = {-24.27, 58.78, 5000.00};
 294 static float iP048[3] = {-30.00, 0.00, 5000.00};
 295 static float iP049[3] = {-24.27, -58.78, 5000.00};
 296 static float iP050[3] = {-9.27, -95.10, 5000.00};
 297 static float iP051[3] = {9.27, -95.11, 5000.00};
 298 static float iP052[3] = {24.27, -58.78, 5000.00};
 299 #if 0
 300 static float iP053[3] = {0.00, 0.00, 0.00};
 301 #endif
 302 static float iP061[3] = {0.00, 1181.61, 6344.65};
 303 static float iP069[3] = {0.00, -418.25, 5765.04};
 304 static float iP070[3] = {0.00, 1266.91, 6629.60};
 305 /* *INDENT-ON* */
 306
 307
 308
 309 static void
 310 Fish001(GLenum cap)
 311 {
 312         glBegin(cap);
 313         glNormal3fv(N005);
 314         glVertex3fv(P005);
 315         glNormal3fv(N059);
 316         glVertex3fv(P059);
 317         glNormal3fv(N060);
 318         glVertex3fv(P060);
 319         glNormal3fv(N006);
 320         glVertex3fv(P006);
 321         glEnd();
 322         glBegin(cap);
 323         glNormal3fv(N015);
 324         glVertex3fv(P015);
 325         glNormal3fv(N005);
 326         glVertex3fv(P005);
 327         glNormal3fv(N006);
 328         glVertex3fv(P006);
 329         glNormal3fv(N016);
 330         glVertex3fv(P016);
 331         glEnd();
 332         glBegin(cap);
 333         glNormal3fv(N006);
 334         glVertex3fv(P006);
 335         glNormal3fv(N060);
 336         glVertex3fv(P060);
 337         glNormal3fv(N008);
 338         glVertex3fv(P008);
 339         glEnd();
 340         glBegin(cap);
 341         glNormal3fv(N016);
 342         glVertex3fv(P016);
 343         glNormal3fv(N006);
 344         glVertex3fv(P006);
 345         glNormal3fv(N008);
 346         glVertex3fv(P008);
 347         glEnd();
 348         glBegin(cap);
 349         glNormal3fv(N016);
 350         glVertex3fv(P016);
 351         glNormal3fv(N008);
 352         glVertex3fv(P008);
 353         glNormal3fv(N017);
 354         glVertex3fv(P017);
 355         glEnd();
 356         glBegin(cap);
 357         glNormal3fv(N017);
 358         glVertex3fv(P017);
 359         glNormal3fv(N008);
 360         glVertex3fv(P008);
 361         glNormal3fv(N018);
 362         glVertex3fv(P018);
 363         glEnd();
 364         glBegin(cap);
 365         glNormal3fv(N008);
 366         glVertex3fv(P008);
 367         glNormal3fv(N009);
 368         glVertex3fv(P009);
 369         glNormal3fv(N018);
 370         glVertex3fv(P018);
 371         glEnd();
 372         glBegin(cap);
 373         glNormal3fv(N008);
 374         glVertex3fv(P008);
 375         glNormal3fv(N060);
 376         glVertex3fv(P060);
 377         glNormal3fv(N009);
 378         glVertex3fv(P009);
 379         glEnd();
 380         glBegin(cap);
 381         glNormal3fv(N007);
 382         glVertex3fv(P007);
 383         glNormal3fv(N010);
 384         glVertex3fv(P010);
 385         glNormal3fv(N009);
 386         glVertex3fv(P009);
 387         glEnd();
 388         glBegin(cap);
 389         glNormal3fv(N009);
 390         glVertex3fv(P009);
 391         glNormal3fv(N019);
 392         glVertex3fv(P019);
 393         glNormal3fv(N018);
 394         glVertex3fv(P018);
 395         glEnd();
 396         glBegin(cap);
 397         glNormal3fv(N009);
 398         glVertex3fv(P009);
 399         glNormal3fv(N010);
 400         glVertex3fv(P010);
 401         glNormal3fv(N019);
 402         glVertex3fv(P019);
 403         glEnd();
 404         glBegin(cap);
 405         glNormal3fv(N010);
 406         glVertex3fv(P010);
 407         glNormal3fv(N020);
 408         glVertex3fv(P020);
 409         glNormal3fv(N019);
 410         glVertex3fv(P019);
 411         glEnd();
 412         glBegin(cap);
 413         glNormal3fv(N010);
 414         glVertex3fv(P010);
 415         glNormal3fv(N011);
 416         glVertex3fv(P011);
 417         glNormal3fv(N021);
 418         glVertex3fv(P021);
 419         glNormal3fv(N020);
 420         glVertex3fv(P020);
 421         glEnd();
 422         glBegin(cap);
 423         glNormal3fv(N004);
 424         glVertex3fv(P004);
 425         glNormal3fv(N011);
 426         glVertex3fv(P011);
 427         glNormal3fv(N010);
 428         glVertex3fv(P010);
 429         glNormal3fv(N007);
 430         glVertex3fv(P007);
 431         glEnd();
 432         glBegin(cap);
 433         glNormal3fv(N004);
 434         glVertex3fv(P004);
 435         glNormal3fv(N012);
 436         glVertex3fv(P012);
 437         glNormal3fv(N011);
 438         glVertex3fv(P011);
 439         glEnd();
 440         glBegin(cap);
 441         glNormal3fv(N012);
 442         glVertex3fv(P012);
 443         glNormal3fv(N022);
 444         glVertex3fv(P022);
 445         glNormal3fv(N011);
 446         glVertex3fv(P011);
 447         glEnd();
 448         glBegin(cap);
 449         glNormal3fv(N011);
 450         glVertex3fv(P011);
 451         glNormal3fv(N022);
 452         glVertex3fv(P022);
 453         glNormal3fv(N021);
 454         glVertex3fv(P021);
 455         glEnd();
 456         glBegin(cap);
 457         glNormal3fv(N059);
 458         glVertex3fv(P059);
 459         glNormal3fv(N005);
 460         glVertex3fv(P005);
 461         glNormal3fv(N015);
 462         glVertex3fv(P015);
 463         glEnd();
 464         glBegin(cap);
 465         glNormal3fv(N015);
 466         glVertex3fv(P015);
 467         glNormal3fv(N014);
 468         glVertex3fv(P014);
 469         glNormal3fv(N003);
 470         glVertex3fv(P003);
 471         glEnd();
 472         glBegin(cap);
 473         glNormal3fv(N015);
 474         glVertex3fv(P015);
 475         glNormal3fv(N003);
 476         glVertex3fv(P003);
 477         glNormal3fv(N059);
 478         glVertex3fv(P059);
 479         glEnd();
 480         glBegin(cap);
 481         glNormal3fv(N014);
 482         glVertex3fv(P014);
 483         glNormal3fv(N013);
 484         glVertex3fv(P013);
 485         glNormal3fv(N003);
 486         glVertex3fv(P003);
 487         glEnd();
 488         glBegin(cap);
 489         glNormal3fv(N003);
 490         glVertex3fv(P003);
 491         glNormal3fv(N012);
 492         glVertex3fv(P012);
 493         glNormal3fv(N059);
 494         glVertex3fv(P059);
 495         glEnd();
 496         glBegin(cap);
 497         glNormal3fv(N013);
 498         glVertex3fv(P013);
 499         glNormal3fv(N012);
 500         glVertex3fv(P012);
 501         glNormal3fv(N003);
 502         glVertex3fv(P003);
 503         glEnd();
 504         glBegin(cap);
 505         glNormal3fv(N013);
 506         glVertex3fv(P013);
 507         glNormal3fv(N022);
 508         glVertex3fv(P022);
 509         glNormal3fv(N012);
 510         glVertex3fv(P012);
 511         glEnd();
 512         glBegin(cap);
 513         glVertex3fv(P071);
 514         glVertex3fv(P072);
 515         glVertex3fv(P073);
 516         glVertex3fv(P074);
 517         glVertex3fv(P075);
 518         glVertex3fv(P076);
 519         glEnd();
 520         glBegin(cap);
 521         glVertex3fv(P077);
 522         glVertex3fv(P078);
 523         glVertex3fv(P079);
 524         glVertex3fv(P080);
 525         glVertex3fv(P081);
 526         glVertex3fv(P082);
 527         glEnd();
 528 }
 529
 530 static void
 531 Fish002(GLenum cap)
 532 {
 533         glBegin(cap);
 534         glNormal3fv(N013);
 535         glVertex3fv(P013);
 536         glNormal3fv(N014);
 537         glVertex3fv(P014);
 538         glNormal3fv(N024);
 539         glVertex3fv(P024);
 540         glNormal3fv(N023);
 541         glVertex3fv(P023);
 542         glEnd();
 543         glBegin(cap);
 544         glNormal3fv(N014);
 545         glVertex3fv(P014);
 546         glNormal3fv(N015);
 547         glVertex3fv(P015);
 548         glNormal3fv(N025);
 549         glVertex3fv(P025);
 550         glNormal3fv(N024);
 551         glVertex3fv(P024);
 552         glEnd();
 553         glBegin(cap);
 554         glNormal3fv(N016);
 555         glVertex3fv(P016);
 556         glNormal3fv(N017);
 557         glVertex3fv(P017);
 558         glNormal3fv(N027);
 559         glVertex3fv(P027);
 560         glNormal3fv(N026);
 561         glVertex3fv(P026);
 562         glEnd();
 563         glBegin(cap);
 564         glNormal3fv(N017);
 565         glVertex3fv(P017);
 566         glNormal3fv(N018);
 567         glVertex3fv(P018);
 568         glNormal3fv(N028);
 569         glVertex3fv(P028);
 570         glNormal3fv(N027);
 571         glVertex3fv(P027);
 572         glEnd();
 573         glBegin(cap);
 574         glNormal3fv(N020);
 575         glVertex3fv(P020);
 576         glNormal3fv(N021);
 577         glVertex3fv(P021);
 578         glNormal3fv(N031);
 579         glVertex3fv(P031);
 580         glNormal3fv(N030);
 581         glVertex3fv(P030);
 582         glEnd();
 583         glBegin(cap);
 584         glNormal3fv(N013);
 585         glVertex3fv(P013);
 586         glNormal3fv(N023);
 587         glVertex3fv(P023);
 588         glNormal3fv(N022);
 589         glVertex3fv(P022);
 590         glEnd();
 591         glBegin(cap);
 592         glNormal3fv(N022);
 593         glVertex3fv(P022);
 594         glNormal3fv(N023);
 595         glVertex3fv(P023);
 596         glNormal3fv(N032);
 597         glVertex3fv(P032);
 598         glEnd();
 599         glBegin(cap);
 600         glNormal3fv(N022);
 601         glVertex3fv(P022);
 602         glNormal3fv(N032);
 603         glVertex3fv(P032);
 604         glNormal3fv(N031);
 605         glVertex3fv(P031);
 606         glEnd();
 607         glBegin(cap);
 608         glNormal3fv(N022);
 609         glVertex3fv(P022);
 610         glNormal3fv(N031);
 611         glVertex3fv(P031);
 612         glNormal3fv(N021);
 613         glVertex3fv(P021);
 614         glEnd();
 615         glBegin(cap);
 616         glNormal3fv(N018);
 617         glVertex3fv(P018);
 618         glNormal3fv(N019);
 619         glVertex3fv(P019);
 620         glNormal3fv(N029);
 621         glVertex3fv(P029);
 622         glEnd();
 623         glBegin(cap);
 624         glNormal3fv(N018);
 625         glVertex3fv(P018);
 626         glNormal3fv(N029);
 627         glVertex3fv(P029);
 628         glNormal3fv(N028);
 629         glVertex3fv(P028);
 630         glEnd();
 631         glBegin(cap);
 632         glNormal3fv(N019);
 633         glVertex3fv(P019);
 634         glNormal3fv(N020);
 635         glVertex3fv(P020);
 636         glNormal3fv(N030);
 637         glVertex3fv(P030);
 638         glEnd();
 639         glBegin(cap);
 640         glNormal3fv(N019);
 641         glVertex3fv(P019);
 642         glNormal3fv(N030);
 643         glVertex3fv(P030);
 644         glNormal3fv(N029);
 645         glVertex3fv(P029);
 646         glEnd();
 647 }
 648
 649 static void
 650 Fish003(GLenum cap)
 651 {
 652         glBegin(cap);
 653         glNormal3fv(N032);
 654         glVertex3fv(P032);
 655         glNormal3fv(N023);
 656         glVertex3fv(P023);
 657         glNormal3fv(N033);
 658         glVertex3fv(P033);
 659         glNormal3fv(N042);
 660         glVertex3fv(P042);
 661         glEnd();
 662         glBegin(cap);
 663         glNormal3fv(N031);
 664         glVertex3fv(P031);
 665         glNormal3fv(N032);
 666         glVertex3fv(P032);
 667         glNormal3fv(N042);
 668         glVertex3fv(P042);
 669         glNormal3fv(N041);
 670         glVertex3fv(P041);
 671         glEnd();
 672         glBegin(cap);
 673         glNormal3fv(N023);
 674         glVertex3fv(P023);
 675         glNormal3fv(N024);
 676         glVertex3fv(P024);
 677         glNormal3fv(N034);
 678         glVertex3fv(P034);
 679         glNormal3fv(N033);
 680         glVertex3fv(P033);
 681         glEnd();
 682         glBegin(cap);
 683         glNormal3fv(N024);
 684         glVertex3fv(P024);
 685         glNormal3fv(N025);
 686         glVertex3fv(P025);
 687         glNormal3fv(N035);
 688         glVertex3fv(P035);
 689         glNormal3fv(N034);
 690         glVertex3fv(P034);
 691         glEnd();
 692         glBegin(cap);
 693         glNormal3fv(N030);
 694         glVertex3fv(P030);
 695         glNormal3fv(N031);
 696         glVertex3fv(P031);
 697         glNormal3fv(N041);
 698         glVertex3fv(P041);
 699         glNormal3fv(N040);
 700         glVertex3fv(P040);
 701         glEnd();
 702         glBegin(cap);
 703         glNormal3fv(N025);
 704         glVertex3fv(P025);
 705         glNormal3fv(N026);
 706         glVertex3fv(P026);
 707         glNormal3fv(N036);
 708         glVertex3fv(P036);
 709         glNormal3fv(N035);
 710         glVertex3fv(P035);
 711         glEnd();
 712         glBegin(cap);
 713         glNormal3fv(N026);
 714         glVertex3fv(P026);
 715         glNormal3fv(N027);
 716         glVertex3fv(P027);
 717         glNormal3fv(N037);
 718         glVertex3fv(P037);
 719         glNormal3fv(N036);
 720         glVertex3fv(P036);
 721         glEnd();
 722         glBegin(cap);
 723         glNormal3fv(N027);
 724         glVertex3fv(P027);
 725         glNormal3fv(N028);
 726         glVertex3fv(P028);
 727         glNormal3fv(N038);
 728         glVertex3fv(P038);
 729         glNormal3fv(N037);
 730         glVertex3fv(P037);
 731         glEnd();
 732         glBegin(cap);
 733         glNormal3fv(N028);
 734         glVertex3fv(P028);
 735         glNormal3fv(N029);
 736         glVertex3fv(P029);
 737         glNormal3fv(N039);
 738         glVertex3fv(P039);
 739         glNormal3fv(N038);
 740         glVertex3fv(P038);
 741         glEnd();
 742         glBegin(cap);
 743         glNormal3fv(N029);
 744         glVertex3fv(P029);
 745         glNormal3fv(N030);
 746         glVertex3fv(P030);
 747         glNormal3fv(N040);
 748         glVertex3fv(P040);
 749         glNormal3fv(N039);
 750         glVertex3fv(P039);
 751         glEnd();
 752 }
 753
 754 static void
 755 Fish004(GLenum cap)
 756 {
 757         glBegin(cap);
 758         glNormal3fv(N040);
 759         glVertex3fv(P040);
 760         glNormal3fv(N041);
 761         glVertex3fv(P041);
 762         glNormal3fv(N051);
 763         glVertex3fv(P051);
 764         glNormal3fv(N050);
 765         glVertex3fv(P050);
 766         glEnd();
 767         glBegin(cap);
 768         glNormal3fv(N041);
 769         glVertex3fv(P041);
 770         glNormal3fv(N042);
 771         glVertex3fv(P042);
 772         glNormal3fv(N052);
 773         glVertex3fv(P052);
 774         glNormal3fv(N051);
 775         glVertex3fv(P051);
 776         glEnd();
 777         glBegin(cap);
 778         glNormal3fv(N042);
 779         glVertex3fv(P042);
 780         glNormal3fv(N033);
 781         glVertex3fv(P033);
 782         glNormal3fv(N043);
 783         glVertex3fv(P043);
 784         glNormal3fv(N052);
 785         glVertex3fv(P052);
 786         glEnd();
 787         glBegin(cap);
 788         glNormal3fv(N033);
 789         glVertex3fv(P033);
 790         glNormal3fv(N034);
 791         glVertex3fv(P034);
 792         glNormal3fv(N044);
 793         glVertex3fv(P044);
 794         glNormal3fv(N043);
 795         glVertex3fv(P043);
 796         glEnd();
 797         glBegin(cap);
 798         glNormal3fv(N034);
 799         glVertex3fv(P034);
 800         glNormal3fv(N035);
 801         glVertex3fv(P035);
 802         glNormal3fv(N045);
 803         glVertex3fv(P045);
 804         glNormal3fv(N044);
 805         glVertex3fv(P044);
 806         glEnd();
 807         glBegin(cap);
 808         glNormal3fv(N035);
 809         glVertex3fv(P035);
 810         glNormal3fv(N036);
 811         glVertex3fv(P036);
 812         glNormal3fv(N046);
 813         glVertex3fv(P046);
 814         glNormal3fv(N045);
 815         glVertex3fv(P045);
 816         glEnd();
 817         glBegin(cap);
 818         glNormal3fv(N036);
 819         glVertex3fv(P036);
 820         glNormal3fv(N037);
 821         glVertex3fv(P037);
 822         glNormal3fv(N047);
 823         glVertex3fv(P047);
 824         glNormal3fv(N046);
 825         glVertex3fv(P046);
 826         glEnd();
 827         glBegin(cap);
 828         glNormal3fv(N037);
 829         glVertex3fv(P037);
 830         glNormal3fv(N038);
 831         glVertex3fv(P038);
 832         glNormal3fv(N048);
 833         glVertex3fv(P048);
 834         glNormal3fv(N047);
 835         glVertex3fv(P047);
 836         glEnd();
 837         glBegin(cap);
 838         glNormal3fv(N038);
 839         glVertex3fv(P038);
 840         glNormal3fv(N039);
 841         glVertex3fv(P039);
 842         glNormal3fv(N049);
 843         glVertex3fv(P049);
 844         glNormal3fv(N048);
 845         glVertex3fv(P048);
 846         glEnd();
 847         glBegin(cap);
 848         glNormal3fv(N039);
 849         glVertex3fv(P039);
 850         glNormal3fv(N040);
 851         glVertex3fv(P040);
 852         glNormal3fv(N050);
 853         glVertex3fv(P050);
 854         glNormal3fv(N049);
 855         glVertex3fv(P049);
 856         glEnd();
 857         glBegin(cap);
 858         glNormal3fv(N070);
 859         glVertex3fv(P070);
 860         glNormal3fv(N061);
 861         glVertex3fv(P061);
 862         glNormal3fv(N002);
 863         glVertex3fv(P002);
 864         glEnd();
 865         glBegin(cap);
 866         glNormal3fv(N061);
 867         glVertex3fv(P061);
 868         glNormal3fv(N046);
 869         glVertex3fv(P046);
 870         glNormal3fv(N002);
 871         glVertex3fv(P002);
 872         glEnd();
 873         glBegin(cap);
 874         glNormal3fv(N045);
 875         glVertex3fv(P045);
 876         glNormal3fv(N046);
 877         glVertex3fv(P046);
 878         glNormal3fv(N061);
 879         glVertex3fv(P061);
 880         glEnd();
 881         glBegin(cap);
 882         glNormal3fv(N002);
 883         glVertex3fv(P002);
 884         glNormal3fv(N061);
 885         glVertex3fv(P061);
 886         glNormal3fv(N070);
 887         glVertex3fv(P070);
 888         glEnd();
 889         glBegin(cap);
 890         glNormal3fv(N002);
 891         glVertex3fv(P002);
 892         glNormal3fv(N045);
 893         glVertex3fv(P045);
 894         glNormal3fv(N061);
 895         glVertex3fv(P061);
 896         glEnd();
 897 }
 898
 899 static void
 900 Fish005(GLenum cap)
 901 {
 902         glBegin(cap);
 903         glNormal3fv(N002);
 904         glVertex3fv(P002);
 905         glNormal3fv(N044);
 906         glVertex3fv(P044);
 907         glNormal3fv(N045);
 908         glVertex3fv(P045);
 909         glEnd();
 910         glBegin(cap);
 911         glNormal3fv(N002);
 912         glVertex3fv(P002);
 913         glNormal3fv(N043);
 914         glVertex3fv(P043);
 915         glNormal3fv(N044);
 916         glVertex3fv(P044);
 917         glEnd();
 918         glBegin(cap);
 919         glNormal3fv(N002);
 920         glVertex3fv(P002);
 921         glNormal3fv(N052);
 922         glVertex3fv(P052);
 923         glNormal3fv(N043);
 924         glVertex3fv(P043);
 925         glEnd();
 926         glBegin(cap);
 927         glNormal3fv(N002);
 928         glVertex3fv(P002);
 929         glNormal3fv(N051);
 930         glVertex3fv(P051);
 931         glNormal3fv(N052);
 932         glVertex3fv(P052);
 933         glEnd();
 934         glBegin(cap);
 935         glNormal3fv(N002);
 936         glVertex3fv(P002);
 937         glNormal3fv(N046);
 938         glVertex3fv(P046);
 939         glNormal3fv(N047);
 940         glVertex3fv(P047);
 941         glEnd();
 942         glBegin(cap);
 943         glNormal3fv(N002);
 944         glVertex3fv(P002);
 945         glNormal3fv(N047);
 946         glVertex3fv(P047);
 947         glNormal3fv(N048);
 948         glVertex3fv(P048);
 949         glEnd();
 950         glBegin(cap);
 951         glNormal3fv(N002);
 952         glVertex3fv(P002);
 953         glNormal3fv(N048);
 954         glVertex3fv(P048);
 955         glNormal3fv(N049);
 956         glVertex3fv(P049);
 957         glEnd();
 958         glBegin(cap);
 959         glNormal3fv(N002);
 960         glVertex3fv(P002);
 961         glNormal3fv(N049);
 962         glVertex3fv(P049);
 963         glNormal3fv(N050);
 964         glVertex3fv(P050);
 965         glEnd();
 966         glBegin(cap);
 967         glNormal3fv(N050);
 968         glVertex3fv(P050);
 969         glNormal3fv(N051);
 970         glVertex3fv(P051);
 971         glNormal3fv(N069);
 972         glVertex3fv(P069);
 973         glEnd();
 974         glBegin(cap);
 975         glNormal3fv(N051);
 976         glVertex3fv(P051);
 977         glNormal3fv(N002);
 978         glVertex3fv(P002);
 979         glNormal3fv(N069);
 980         glVertex3fv(P069);
 981         glEnd();
 982         glBegin(cap);
 983         glNormal3fv(N050);
 984         glVertex3fv(P050);
 985         glNormal3fv(N069);
 986         glVertex3fv(P069);
 987         glNormal3fv(N002);
 988         glVertex3fv(P002);
 989         glEnd();
 990 }
 991
 992 static void
 993 Fish006(GLenum cap)
 994 {
 995         glBegin(cap);
 996         glNormal3fv(N066);
 997         glVertex3fv(P066);
 998         glNormal3fv(N016);
 999         glVertex3fv(P016);
1000         glNormal3fv(N026);
1001         glVertex3fv(P026);
1002         glEnd();
1003         glBegin(cap);
1004         glNormal3fv(N015);
1005         glVertex3fv(P015);
1006         glNormal3fv(N066);
1007         glVertex3fv(P066);
1008         glNormal3fv(N025);
1009         glVertex3fv(P025);
1010         glEnd();
1011         glBegin(cap);
1012         glNormal3fv(N025);
1013         glVertex3fv(P025);
1014         glNormal3fv(N066);
1015         glVertex3fv(P066);
1016         glNormal3fv(N026);
1017         glVertex3fv(P026);
1018         glEnd();
1019         glBegin(cap);
1020         glNormal3fv(N066);
1021         glVertex3fv(P066);
1022         glNormal3fv(N058);
1023         glVertex3fv(P058);
1024         glNormal3fv(N016);
1025         glVertex3fv(P016);
1026         glEnd();
1027         glBegin(cap);
1028         glNormal3fv(N015);
1029         glVertex3fv(P015);
1030         glNormal3fv(N058);
1031         glVertex3fv(P058);
1032         glNormal3fv(N066);
1033         glVertex3fv(P066);
1034         glEnd();
1035         glBegin(cap);
1036         glNormal3fv(N058);
1037         glVertex3fv(P058);
1038         glNormal3fv(N015);
1039         glVertex3fv(P015);
1040         glNormal3fv(N016);
1041         glVertex3fv(P016);
1042         glEnd();
1043 }
1044
1045 static void
1046 Fish007(GLenum cap)
1047 {
1048         glBegin(cap);
1049         glNormal3fv(N062);
1050         glVertex3fv(P062);
1051         glNormal3fv(N022);
1052         glVertex3fv(P022);
1053         glNormal3fv(N032);
1054         glVertex3fv(P032);
1055         glEnd();
1056         glBegin(cap);
1057         glNormal3fv(N062);
1058         glVertex3fv(P062);
1059         glNormal3fv(N032);
1060         glVertex3fv(P032);
1061         glNormal3fv(N064);
1062         glVertex3fv(P064);
1063         glEnd();
1064         glBegin(cap);
1065         glNormal3fv(N022);
1066         glVertex3fv(P022);
1067         glNormal3fv(N062);
1068         glVertex3fv(P062);
1069         glNormal3fv(N032);
1070         glVertex3fv(P032);
1071         glEnd();
1072         glBegin(cap);
1073         glNormal3fv(N062);
1074         glVertex3fv(P062);
1075         glNormal3fv(N064);
1076         glVertex3fv(P064);
1077         glNormal3fv(N032);
1078         glVertex3fv(P032);
1079         glEnd();
1080 }
1081
1082 static void
1083 Fish008(GLenum cap)
1084 {
1085         glBegin(cap);
1086         glNormal3fv(N063);
1087         glVertex3fv(P063);
1088         glNormal3fv(N019);
1089         glVertex3fv(P019);
1090         glNormal3fv(N029);
1091         glVertex3fv(P029);
1092         glEnd();
1093         glBegin(cap);
1094         glNormal3fv(N019);
1095         glVertex3fv(P019);
1096         glNormal3fv(N063);
1097         glVertex3fv(P063);
1098         glNormal3fv(N029);
1099         glVertex3fv(P029);
1100         glEnd();
1101         glBegin(cap);
1102         glNormal3fv(N063);
1103         glVertex3fv(P063);
1104         glNormal3fv(N029);
1105         glVertex3fv(P029);
1106         glNormal3fv(N065);
1107         glVertex3fv(P065);
1108         glEnd();
1109         glBegin(cap);
1110         glNormal3fv(N063);
1111         glVertex3fv(P063);
1112         glNormal3fv(N065);
1113         glVertex3fv(P065);
1114         glNormal3fv(N029);
1115         glVertex3fv(P029);
1116         glEnd();
1117 }
1118
1119 static void
1120 Fish009(GLenum cap)
1121 {
1122         glBegin(cap);
1123         glVertex3fv(P059);
1124         glVertex3fv(P012);
1125         glVertex3fv(P009);
1126         glVertex3fv(P060);
1127         glEnd();
1128         glBegin(cap);
1129         glVertex3fv(P012);
1130         glVertex3fv(P004);
1131         glVertex3fv(P007);
1132         glVertex3fv(P009);
1133         glEnd();
1134 }
1135
1136 static void
1137 Fish_1(GLenum cap)
1138 {
1139         Fish004(cap);
1140         Fish005(cap);
1141         Fish003(cap);
1142         Fish007(cap);
1143         Fish006(cap);
1144         Fish002(cap);
1145         Fish008(cap);
1146         Fish009(cap);
1147         Fish001(cap);
1148 }
1149
1150 static void
1151 Fish_2(GLenum cap)
1152 {
1153         Fish005(cap);
1154         Fish004(cap);
1155         Fish003(cap);
1156         Fish008(cap);
1157         Fish006(cap);
1158         Fish002(cap);
1159         Fish007(cap);
1160         Fish009(cap);
1161         Fish001(cap);
1162 }
1163
1164 static void
1165 Fish_3(GLenum cap)
1166 {
1167         Fish005(cap);
1168         Fish004(cap);
1169         Fish007(cap);
1170         Fish003(cap);
1171         Fish002(cap);
1172         Fish008(cap);
1173         Fish009(cap);
1174         Fish001(cap);
1175         Fish006(cap);
1176 }
1177
1178 static void
1179 Fish_4(GLenum cap)
1180 {
1181         Fish005(cap);
1182         Fish004(cap);
1183         Fish008(cap);
1184         Fish003(cap);
1185         Fish002(cap);
1186         Fish007(cap);
1187         Fish009(cap);
1188         Fish001(cap);
1189         Fish006(cap);
1190 }
1191
1192 static void
1193 Fish_5(GLenum cap)
1194 {
1195         Fish009(cap);
1196         Fish006(cap);
1197         Fish007(cap);
1198         Fish001(cap);
1199         Fish002(cap);
1200         Fish003(cap);
1201         Fish008(cap);
1202         Fish004(cap);
1203         Fish005(cap);
1204 }
1205
1206 static void
1207 Fish_6(GLenum cap)
1208 {
1209         Fish009(cap);
1210         Fish006(cap);
1211         Fish008(cap);
1212         Fish001(cap);
1213         Fish002(cap);
1214         Fish007(cap);
1215         Fish003(cap);
1216         Fish004(cap);
1217         Fish005(cap);
1218 }
1219
1220 static void
1221 Fish_7(GLenum cap)
1222 {
1223         Fish009(cap);
1224         Fish001(cap);
1225         Fish007(cap);
1226         Fish005(cap);
1227         Fish002(cap);
1228         Fish008(cap);
1229         Fish003(cap);
1230         Fish004(cap);
1231         Fish006(cap);
1232 }
1233
1234 static void
1235 Fish_8(GLenum cap)
1236 {
1237         Fish009(cap);
1238         Fish008(cap);
1239         Fish001(cap);
1240         Fish002(cap);
1241         Fish007(cap);
1242         Fish003(cap);
1243         Fish005(cap);
1244         Fish004(cap);
1245         Fish006(cap);
1246 }
1247
1248 void
1249 DrawShark(fishRec * fish, int wire)
1250 {
1251         float       mat[4][4];
1252         int         n;
1253         float       seg1, seg2, seg3, seg4, segup;
1254         float       thrash, chomp;
1255         GLenum      cap;
1256
1257         fish->htail = (int) (fish->htail - (int) (5.0 * fish->v)) % 360;
1258
1259         thrash = 50.0 * fish->v;
1260
1261         seg1 = 0.6 * thrash * sin(fish->htail * RRAD);
1262         seg2 = 1.8 * thrash * sin((fish->htail + 45.0) * RRAD);
1263         seg3 = 3.0 * thrash * sin((fish->htail + 90.0) * RRAD);
1264         seg4 = 4.0 * thrash * sin((fish->htail + 110.0) * RRAD);
1265
1266         chomp = 0.0;
1267         if (fish->v > 2.0) {
1268                 chomp = -(fish->v - 2.0) * 200.0;
1269         }
1270         P004[1] = iP004[1] + chomp;
1271         P007[1] = iP007[1] + chomp;
1272         P010[1] = iP010[1] + chomp;
1273         P011[1] = iP011[1] + chomp;
1274
1275         P023[0] = iP023[0] + seg1;
1276         P024[0] = iP024[0] + seg1;
1277         P025[0] = iP025[0] + seg1;
1278         P026[0] = iP026[0] + seg1;
1279         P027[0] = iP027[0] + seg1;
1280         P028[0] = iP028[0] + seg1;
1281         P029[0] = iP029[0] + seg1;
1282         P030[0] = iP030[0] + seg1;
1283         P031[0] = iP031[0] + seg1;
1284         P032[0] = iP032[0] + seg1;
1285         P033[0] = iP033[0] + seg2;
1286         P034[0] = iP034[0] + seg2;
1287         P035[0] = iP035[0] + seg2;
1288         P036[0] = iP036[0] + seg2;
1289         P037[0] = iP037[0] + seg2;
1290         P038[0] = iP038[0] + seg2;
1291         P039[0] = iP039[0] + seg2;
1292         P040[0] = iP040[0] + seg2;
1293         P041[0] = iP041[0] + seg2;
1294         P042[0] = iP042[0] + seg2;
1295         P043[0] = iP043[0] + seg3;
1296         P044[0] = iP044[0] + seg3;
1297         P045[0] = iP045[0] + seg3;
1298         P046[0] = iP046[0] + seg3;
1299         P047[0] = iP047[0] + seg3;
1300         P048[0] = iP048[0] + seg3;
1301         P049[0] = iP049[0] + seg3;
1302         P050[0] = iP050[0] + seg3;
1303         P051[0] = iP051[0] + seg3;
1304         P052[0] = iP052[0] + seg3;
1305         P002[0] = iP002[0] + seg4;
1306         P061[0] = iP061[0] + seg4;
1307         P069[0] = iP069[0] + seg4;
1308         P070[0] = iP070[0] + seg4;
1309
1310         fish->vtail += ((fish->dtheta - fish->vtail) * 0.1);
1311
1312         if (fish->vtail > 0.5) {
1313                 fish->vtail = 0.5;
1314         } else if (fish->vtail < -0.5) {
1315                 fish->vtail = -0.5;
1316         }
1317         segup = thrash * fish->vtail;
1318
1319         P023[1] = iP023[1] + segup;
1320         P024[1] = iP024[1] + segup;
1321         P025[1] = iP025[1] + segup;
1322         P026[1] = iP026[1] + segup;
1323         P027[1] = iP027[1] + segup;
1324         P028[1] = iP028[1] + segup;
1325         P029[1] = iP029[1] + segup;
1326         P030[1] = iP030[1] + segup;
1327         P031[1] = iP031[1] + segup;
1328         P032[1] = iP032[1] + segup;
1329         P033[1] = iP033[1] + segup * 5.0;
1330         P034[1] = iP034[1] + segup * 5.0;
1331         P035[1] = iP035[1] + segup * 5.0;
1332         P036[1] = iP036[1] + segup * 5.0;
1333         P037[1] = iP037[1] + segup * 5.0;
1334         P038[1] = iP038[1] + segup * 5.0;
1335         P039[1] = iP039[1] + segup * 5.0;
1336         P040[1] = iP040[1] + segup * 5.0;
1337         P041[1] = iP041[1] + segup * 5.0;
1338         P042[1] = iP042[1] + segup * 5.0;
1339         P043[1] = iP043[1] + segup * 12.0;
1340         P044[1] = iP044[1] + segup * 12.0;
1341         P045[1] = iP045[1] + segup * 12.0;
1342         P046[1] = iP046[1] + segup * 12.0;
1343         P047[1] = iP047[1] + segup * 12.0;
1344         P048[1] = iP048[1] + segup * 12.0;
1345         P049[1] = iP049[1] + segup * 12.0;
1346         P050[1] = iP050[1] + segup * 12.0;
1347         P051[1] = iP051[1] + segup * 12.0;
1348         P052[1] = iP052[1] + segup * 12.0;
1349         P002[1] = iP002[1] + segup * 17.0;
1350         P061[1] = iP061[1] + segup * 17.0;
1351         P069[1] = iP069[1] + segup * 17.0;
1352         P070[1] = iP070[1] + segup * 17.0;
1353
1354         glPushMatrix();
1355
1356         glTranslatef(0.0, 0.0, -3000.0);
1357
1358         glGetFloatv(GL_MODELVIEW_MATRIX, &mat[0][0]);
1359         n = 0;
1360         if (mat[0][2] >= 0.0) {
1361                 n += 1;
1362         }
1363         if (mat[1][2] >= 0.0) {
1364                 n += 2;
1365         }
1366         if (mat[2][2] >= 0.0) {
1367                 n += 4;
1368         }
1369         glScalef(2.0, 1.0, 1.0);
1370
1371         glEnable(GL_CULL_FACE);
1372         cap = wire ? GL_LINE_LOOP : GL_POLYGON;
1373         switch (n) {
1374                 case 0:
1375                         Fish_1(cap);
1376                         break;
1377                 case 1:
1378                         Fish_2(cap);
1379                         break;
1380                 case 2:
1381                         Fish_3(cap);
1382                         break;
1383                 case 3:
1384                         Fish_4(cap);
1385                         break;
1386                 case 4:
1387                         Fish_5(cap);
1388                         break;
1389                 case 5:
1390                         Fish_6(cap);
1391                         break;
1392                 case 6:
1393                         Fish_7(cap);
1394                         break;
1395                 case 7:
1396                         Fish_8(cap);
1397                         break;
1398         }
1399         glDisable(GL_CULL_FACE);
1400
1401         glPopMatrix();
1402 }
1403 #endif