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

   1 /* atlantis --- Shows moving 3D sea animals */
   2
   3 #if !defined( lint ) && !defined( SABER )
   4 static const char sccsid[] = "@(#)whale.c       1.3 98/06/18 xlockmore";
   5
   6 #endif
   7
   8 /* Copyright (c) E. Lassauge, 1998. */
   9
  10 /*-
  11  * Permission to use, copy, modify, and distribute this software and its
  12  * documentation for any purpose and without fee is hereby granted,
  13  * provided that the above copyright notice appear in all copies and that
  14  * both that copyright notice and this permission notice appear in
  15  * supporting documentation.
  16  *
  17  * This file is provided AS IS with no warranties of any kind.  The author
  18  * shall have no liability with respect to the infringement of copyrights,
  19  * trade secrets or any patents by this file or any part thereof.  In no
  20  * event will the author be liable for any lost revenue or profits or
  21  * other special, indirect and consequential damages.
  22  *
  23  * The original code for this mode was written by Mark J. Kilgard
  24  * as a demo for openGL programming.
  25  *
  26  * Porting it to xlock  was possible by comparing the original Mesa's morph3d
  27  * demo with it's ported version to xlock, so thanks for Marcelo F. Vianna
  28  * (look at morph3d.c) for his indirect help.
  29  *
  30  * Thanks goes also to Brian Paul for making it possible and inexpensive
  31  * to use OpenGL at home.
  32  *
  33  * My e-mail address is lassauge@sagem.fr
  34  *
  35  * Eric Lassauge  (May-13-1998)
  36  *
  37  */
  38
  39 /*-
  40  * (c) Copyright 1993, 1994, Silicon Graphics, Inc.
  41  * ALL RIGHTS RESERVED
  42  * Permission to use, copy, modify, and distribute this software for
  43  * any purpose and without fee is hereby granted, provided that the above
  44  * copyright notice appear in all copies and that both the copyright notice
  45  * and this permission notice appear in supporting documentation, and that
  46  * the name of Silicon Graphics, Inc. not be used in advertising
  47  * or publicity pertaining to distribution of the software without specific,
  48  * written prior permission.
  49  *
  50  * THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
  51  * AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
  52  * INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
  53  * FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
  54  * GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
  55  * SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
  56  * KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
  57  * LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
  58  * THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
  59  * ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
  60  * ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
  61  * POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
  62  *
  63  * US Government Users Restricted Rights
  64  * Use, duplication, or disclosure by the Government is subject to
  65  * restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
  66  * (c)(1)(ii) of the Rights in Technical Data and Computer Software
  67  * clause at DFARS 252.227-7013 and/or in similar or successor
  68  * clauses in the FAR or the DOD or NASA FAR Supplement.
  69  * Unpublished-- rights reserved under the copyright laws of the
  70  * United States.  Contractor/manufacturer is Silicon Graphics,
  71  * Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
  72  *
  73  * OpenGL(TM) is a trademark of Silicon Graphics, Inc.
  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 static float N001[3] = {0.019249 ,0.011340 ,-0.999750};
  89 static float N002[3] = {-0.132579 ,0.954547 ,0.266952};
  90 static float N003[3] = {-0.196061 ,0.980392 ,-0.019778};
  91 static float N004[3] = {0.695461 ,0.604704 ,0.388158};
  92 static float N005[3] = {0.870600 ,0.425754 ,0.246557};
  93 static float N006[3] = {-0.881191 ,0.392012 ,0.264251};
  94 #if 0
  95 static float N007[3] = {0.000000 ,1.000000 ,0.000000};
  96 #endif
  97 static float N008[3] = {-0.341437 ,0.887477 ,0.309523};
  98 static float N009[3] = {0.124035 ,-0.992278 ,0.000000};
  99 static float N010[3] = {0.242536 ,0.000000 ,-0.970143};
 100 static float N011[3] = {0.588172 ,0.000000 ,0.808736};
 101 static float N012[3] = {0.929824 ,-0.340623 ,-0.139298};
 102 static float N013[3] = {0.954183 ,0.267108 ,-0.134865};
 103 static float N014[3] = {0.495127 ,0.855436 ,-0.151914};
 104 static float N015[3] = {-0.390199 ,0.906569 ,-0.160867};
 105 static float N016[3] = {-0.923605 ,0.354581 ,-0.145692};
 106 static float N017[3] = {-0.955796 ,-0.260667 ,-0.136036};
 107 static float N018[3] = {-0.501283 ,-0.853462 ,-0.142540};
 108 static float N019[3] = {0.405300 ,-0.901974 ,-0.148913};
 109 static float N020[3] = {0.909913 ,-0.392746 ,-0.133451};
 110 static float N021[3] = {0.936494 ,0.331147 ,-0.115414};
 111 static float N022[3] = {0.600131 ,0.793724 ,-0.099222};
 112 static float N023[3] = {-0.231556 ,0.968361 ,-0.093053};
 113 static float N024[3] = {-0.844369 ,0.525330 ,-0.105211};
 114 static float N025[3] = {-0.982725 ,-0.136329 ,-0.125164};
 115 static float N026[3] = {-0.560844 ,-0.822654 ,-0.093241};
 116 static float N027[3] = {0.263884 ,-0.959981 ,-0.093817};
 117 static float N028[3] = {0.842057 ,-0.525192 ,-0.122938};
 118 static float N029[3] = {0.921620 ,0.367565 ,-0.124546};
 119 static float N030[3] = {0.613927 ,0.784109 ,-0.090918};
 120 static float N031[3] = {-0.448754 ,0.888261 ,-0.098037};
 121 static float N032[3] = {-0.891865 ,0.434376 ,-0.126077};
 122 static float N033[3] = {-0.881447 ,-0.448017 ,-0.149437};
 123 static float N034[3] = {-0.345647 ,-0.922057 ,-0.174183};
 124 static float N035[3] = {0.307998 ,-0.941371 ,-0.137688};
 125 static float N036[3] = {0.806316 ,-0.574647 ,-0.140124};
 126 static float N037[3] = {0.961346 ,0.233646 ,-0.145681};
 127 static float N038[3] = {0.488451 ,0.865586 ,-0.110351};
 128 static float N039[3] = {-0.374290 ,0.921953 ,-0.099553};
 129 static float N040[3] = {-0.928504 ,0.344533 ,-0.138485};
 130 static float N041[3] = {-0.918419 ,-0.371792 ,-0.135189};
 131 static float N042[3] = {-0.520666 ,-0.833704 ,-0.183968};
 132 static float N043[3] = {0.339204 ,-0.920273 ,-0.195036};
 133 static float N044[3] = {0.921475 ,-0.387382 ,-0.028636};
 134 static float N045[3] = {0.842465 ,0.533335 ,-0.076204};
 135 static float N046[3] = {0.380110 ,0.924939 ,0.002073};
 136 static float N047[3] = {-0.276128 ,0.961073 ,-0.009579};
 137 static float N048[3] = {-0.879684 ,0.473001 ,-0.049250};
 138 static float N049[3] = {-0.947184 ,-0.317614 ,-0.044321};
 139 static float N050[3] = {-0.642059 ,-0.764933 ,-0.051363};
 140 static float N051[3] = {0.466794 ,-0.880921 ,-0.077990};
 141 static float N052[3] = {0.898509 ,-0.432277 ,0.076279};
 142 static float N053[3] = {0.938985 ,0.328141 ,0.103109};
 143 static float N054[3] = {0.442420 ,0.895745 ,0.043647};
 144 static float N055[3] = {-0.255163 ,0.966723 ,0.018407};
 145 static float N056[3] = {-0.833769 ,0.540650 ,0.111924};
 146 static float N057[3] = {-0.953653 ,-0.289939 ,0.080507};
 147 static float N058[3] = {-0.672357 ,-0.730524 ,0.119461};
 148 static float N059[3] = {0.522249 ,-0.846652 ,0.102157};
 149 static float N060[3] = {0.885868 ,-0.427631 ,0.179914};
 150 #if 0
 151 static float N061[3] = {0.000000 ,1.000000 ,0.000000};
 152 #endif
 153 static float N062[3] = {0.648942 ,0.743116 ,0.163255};
 154 static float N063[3] = {-0.578967 ,0.807730 ,0.111219};
 155 #if 0
 156 static float N064[3] = {0.000000 ,1.000000 ,0.000000};
 157 #endif
 158 static float N065[3] = {-0.909864 ,-0.352202 ,0.219321};
 159 static float N066[3] = {-0.502541 ,-0.818090 ,0.279610};
 160 static float N067[3] = {0.322919 ,-0.915358 ,0.240504};
 161 static float N068[3] = {0.242536 ,0.000000 ,-0.970143};
 162 static float N069[3] = {0.000000 ,1.000000 ,0.000000};
 163 static float N070[3] = {0.000000 ,1.000000 ,0.000000};
 164 static float N071[3] = {0.000000 ,1.000000 ,0.000000};
 165 static float N072[3] = {0.000000 ,1.000000 ,0.000000};
 166 static float N073[3] = {0.000000 ,1.000000 ,0.000000};
 167 static float N074[3] = {0.000000 ,1.000000 ,0.000000};
 168 static float N075[3] = {0.031220 ,0.999025 ,-0.031220};
 169 static float N076[3] = {0.000000 ,1.000000 ,0.000000};
 170 static float N077[3] = {0.446821 ,0.893642 ,0.041889};
 171 static float N078[3] = {0.863035 ,-0.100980 ,0.494949};
 172 static float N079[3] = {0.585597 ,-0.808215 ,0.062174};
 173 static float N080[3] = {0.000000 ,1.000000 ,0.000000};
 174 static float N081[3] = {1.000000 ,0.000000 ,0.000000};
 175 static float N082[3] = {0.000000 ,1.000000 ,0.000000};
 176 static float N083[3] = {-1.000000 ,0.000000 ,0.000000};
 177 static float N084[3] = {-0.478893 ,0.837129 ,-0.264343};
 178 static float N085[3] = {0.000000 ,1.000000 ,0.000000};
 179 static float N086[3] = {0.763909 ,0.539455 ,-0.354163};
 180 static float N087[3] = {0.446821 ,0.893642 ,0.041889};
 181 static float N088[3] = {0.385134 ,-0.908288 ,0.163352};
 182 static float N089[3] = {-0.605952 ,0.779253 ,-0.159961};
 183 static float N090[3] = {0.000000 ,1.000000 ,0.000000};
 184 static float N091[3] = {0.000000 ,1.000000 ,0.000000};
 185 static float N092[3] = {0.000000 ,1.000000 ,0.000000};
 186 static float N093[3] = {0.000000 ,1.000000 ,0.000000};
 187 static float N094[3] = {1.000000 ,0.000000 ,0.000000};
 188 static float N095[3] = {-1.000000 ,0.000000 ,0.000000};
 189 static float N096[3] = {0.644444 ,-0.621516 ,0.445433};
 190 static float N097[3] = {-0.760896 ,-0.474416 ,0.442681};
 191 static float N098[3] = {0.636888 ,-0.464314 ,0.615456};
 192 static float N099[3] = {-0.710295 ,0.647038 ,0.277168};
 193 static float N100[3] = {0.009604 ,0.993655 ,0.112063};
 194 #if 0
 195 static float N101[3] = {0.000000 ,1.000000 ,0.000000};
 196 static float N102[3] = {0.000000 ,1.000000 ,0.000000};
 197 static float N103[3] = {0.000000 ,1.000000 ,0.000000};
 198 static float N104[3] = {0.031837 ,0.999285 ,0.020415};
 199 static float N105[3] = {0.031837 ,0.999285 ,0.020415};
 200 static float N106[3] = {0.031837 ,0.999285 ,0.020415};
 201 static float N107[3] = {0.014647 ,0.999648 ,0.022115};
 202 static float N108[3] = {0.014647 ,0.999648 ,0.022115};
 203 static float N109[3] = {0.014647 ,0.999648 ,0.022115};
 204 static float N110[3] = {-0.985141 ,0.039475 ,0.167149};
 205 static float N111[3] = {-0.985141 ,0.039475 ,0.167149};
 206 static float N112[3] = {-0.985141 ,0.039475 ,0.167149};
 207 static float N113[3] = {0.000000 ,1.000000 ,0.000000};
 208 static float N114[3] = {0.000000 ,1.000000 ,0.000000};
 209 static float N115[3] = {0.000000 ,1.000000 ,0.000000};
 210 static float N116[3] = {0.000000 ,1.000000 ,0.000000};
 211 static float N117[3] = {0.000000 ,1.000000 ,0.000000};
 212 static float N118[3] = {0.000000 ,1.000000 ,0.000000};
 213 static float N119[3] = {0.000000 ,1.000000 ,0.000000};
 214 static float N120[3] = {0.000000 ,1.000000 ,0.000000};
 215 static float N121[3] = {0.000000 ,1.000000 ,0.000000};
 216 #endif
 217 static float iP001[3] = {18.74, 13.19, 3.76};
 218 static float P001[3] = {18.74, 13.19, 3.76};
 219 static float P002[3] = {0.00, 390.42, 10292.57};
 220 static float P003[3] = {55.80, 622.31, 8254.35};
 221 static float P004[3] = {20.80, 247.66, 10652.13};
 222 static float P005[3] = {487.51, 198.05, 9350.78};
 223 static float P006[3] = {-457.61, 199.04, 9353.01};
 224 #if 0
 225 static float P007[3] = {0.00, 259.00, 10276.27};
 226 #endif
 227 static float P008[3] = {-34.67, 247.64, 10663.71};
 228 static float iP009[3] = {97.46, 67.63, 593.82};
 229 static float iP010[3] = {-84.33, 67.63, 588.18};
 230 static float iP011[3] = {118.69, 8.98, -66.91};
 231 static float P009[3] = {97.46, 67.63, 593.82};
 232 static float P010[3] = {-84.33, 67.63, 588.18};
 233 static float P011[3] = {118.69, 8.98, -66.91};
 234 static float iP012[3] = {156.48, -31.95, 924.54};
 235 static float iP013[3] = {162.00, 110.22, 924.54};
 236 static float iP014[3] = {88.16, 221.65, 924.54};
 237 static float iP015[3] = {-65.21, 231.16, 924.54};
 238 static float iP016[3] = {-156.48, 121.97, 924.54};
 239 static float iP017[3] = {-162.00, -23.93, 924.54};
 240 static float iP018[3] = {-88.16, -139.10, 924.54};
 241 static float iP019[3] = {65.21, -148.61, 924.54};
 242 static float iP020[3] = {246.87, -98.73, 1783.04};
 243 static float iP021[3] = {253.17, 127.76, 1783.04};
 244 static float iP022[3] = {132.34, 270.77, 1783.04};
 245 static float iP023[3] = {-97.88, 285.04, 1783.04};
 246 static float iP024[3] = {-222.97, 139.80, 1783.04};
 247 static float iP025[3] = {-225.29, -86.68, 1783.04};
 248 static float iP026[3] = {-108.44, -224.15, 1783.04};
 249 static float iP027[3] = {97.88, -221.56, 1783.04};
 250 static float iP028[3] = {410.55, -200.66, 3213.87};
 251 static float iP029[3] = {432.19, 148.42, 3213.87};
 252 static float iP030[3] = {200.66, 410.55, 3213.87};
 253 static float iP031[3] = {-148.42, 432.19, 3213.87};
 254 static float iP032[3] = {-407.48, 171.88, 3213.87};
 255 static float iP033[3] = {-432.19, -148.42, 3213.87};
 256 static float iP034[3] = {-148.88, -309.74, 3213.87};
 257 static float iP035[3] = {156.38, -320.17, 3213.87};
 258 static float iP036[3] = {523.39, -303.81, 4424.57};
 259 static float iP037[3] = {574.66, 276.84, 4424.57};
 260 static float iP038[3] = {243.05, 492.50, 4424.57};
 261 static float iP039[3] = {-191.23, 520.13, 4424.57};
 262 static float iP040[3] = {-523.39, 304.01, 4424.57};
 263 static float iP041[3] = {-574.66, -231.83, 4424.57};
 264 static float iP042[3] = {-266.95, -578.17, 4424.57};
 265 static float iP043[3] = {211.14, -579.67, 4424.57};
 266 static float iP044[3] = {680.57, -370.27, 5943.46};
 267 static float iP045[3] = {834.01, 363.09, 5943.46};
 268 static float iP046[3] = {371.29, 614.13, 5943.46};
 269 static float iP047[3] = {-291.43, 621.86, 5943.46};
 270 static float iP048[3] = {-784.13, 362.60, 5943.46};
 271 static float iP049[3] = {-743.29, -325.82, 5943.46};
 272 static float iP050[3] = {-383.24, -804.77, 5943.46};
 273 static float iP051[3] = {283.47, -846.09, 5943.46};
 274 static float P012[3] = {156.48, -31.95, 924.54};
 275 static float P013[3] = {162.00, 110.22, 924.54};
 276 static float P014[3] = {88.16, 221.65, 924.54};
 277 static float P015[3] = {-65.21, 231.16, 924.54};
 278 static float P016[3] = {-156.48, 121.97, 924.54};
 279 static float P017[3] = {-162.00, -23.93, 924.54};
 280 static float P018[3] = {-88.16, -139.10, 924.54};
 281 static float P019[3] = {65.21, -148.61, 924.54};
 282 static float P020[3] = {246.87, -98.73, 1783.04};
 283 static float P021[3] = {253.17, 127.76, 1783.04};
 284 static float P022[3] = {132.34, 270.77, 1783.04};
 285 static float P023[3] = {-97.88, 285.04, 1783.04};
 286 static float P024[3] = {-222.97, 139.80, 1783.04};
 287 static float P025[3] = {-225.29, -86.68, 1783.04};
 288 static float P026[3] = {-108.44, -224.15, 1783.04};
 289 static float P027[3] = {97.88, -221.56, 1783.04};
 290 static float P028[3] = {410.55, -200.66, 3213.87};
 291 static float P029[3] = {432.19, 148.42, 3213.87};
 292 static float P030[3] = {200.66, 410.55, 3213.87};
 293 static float P031[3] = {-148.42, 432.19, 3213.87};
 294 static float P032[3] = {-407.48, 171.88, 3213.87};
 295 static float P033[3] = {-432.19, -148.42, 3213.87};
 296 static float P034[3] = {-148.88, -309.74, 3213.87};
 297 static float P035[3] = {156.38, -320.17, 3213.87};
 298 static float P036[3] = {523.39, -303.81, 4424.57};
 299 static float P037[3] = {574.66, 276.84, 4424.57};
 300 static float P038[3] = {243.05, 492.50, 4424.57};
 301 static float P039[3] = {-191.23, 520.13, 4424.57};
 302 static float P040[3] = {-523.39, 304.01, 4424.57};
 303 static float P041[3] = {-574.66, -231.83, 4424.57};
 304 static float P042[3] = {-266.95, -578.17, 4424.57};
 305 static float P043[3] = {211.14, -579.67, 4424.57};
 306 static float P044[3] = {680.57, -370.27, 5943.46};
 307 static float P045[3] = {834.01, 363.09, 5943.46};
 308 static float P046[3] = {371.29, 614.13, 5943.46};
 309 static float P047[3] = {-291.43, 621.86, 5943.46};
 310 static float P048[3] = {-784.13, 362.60, 5943.46};
 311 static float P049[3] = {-743.29, -325.82, 5943.46};
 312 static float P050[3] = {-383.24, -804.77, 5943.46};
 313 static float P051[3] = {283.47, -846.09, 5943.46};
 314 static float P052[3] = {599.09, -332.24, 7902.59};
 315 static float P053[3] = {735.48, 306.26, 7911.92};
 316 static float P054[3] = {321.55, 558.53, 7902.59};
 317 static float P055[3] = {-260.54, 559.84, 7902.59};
 318 static float P056[3] = {-698.66, 320.83, 7902.59};
 319 static float P057[3] = {-643.29, -299.16, 7902.59};
 320 static float P058[3] = {-341.47, -719.30, 7902.59};
 321 static float P059[3] = {252.57, -756.12, 7902.59};
 322 static float P060[3] = {458.39, -265.31, 9355.44};
 323 static float iP061[3] = {353.63, 138.70, 10214.20};
 324 static float P061[3] = {353.63, 138.70, 10214.20};
 325 static float P062[3] = {224.04, 438.98, 9364.77};
 326 static float P063[3] = {-165.71, 441.27, 9355.44};
 327 static float iP064[3] = {-326.40, 162.04, 10209.54};
 328 static float P064[3] = {-326.40, 162.04, 10209.54};
 329 static float P065[3] = {-473.99, -219.71, 9355.44};
 330 static float P066[3] = {-211.97, -479.87, 9355.44};
 331 static float P067[3] = {192.86, -504.03, 9355.44};
 332 static float iP068[3] = {-112.44, 9.25, -64.42};
 333 static float iP069[3] = {1155.63, 0.00, -182.46};
 334 static float iP070[3] = {-1143.13, 0.00, -181.54};
 335 static float iP071[3] = {1424.23, 0.00, -322.09};
 336 static float iP072[3] = {-1368.01, 0.00, -310.38};
 337 static float iP073[3] = {1255.57, 2.31, 114.05};
 338 static float iP074[3] = {-1149.38, 0.00, 117.12};
 339 static float iP075[3] = {718.36, 0.00, 433.36};
 340 static float iP076[3] = {-655.90, 0.00, 433.36};
 341 static float P068[3] = {-112.44, 9.25, -64.42};
 342 static float P069[3] = {1155.63, 0.00, -182.46};
 343 static float P070[3] = {-1143.13, 0.00, -181.54};
 344 static float P071[3] = {1424.23, 0.00, -322.09};
 345 static float P072[3] = {-1368.01, 0.00, -310.38};
 346 static float P073[3] = {1255.57, 2.31, 114.05};
 347 static float P074[3] = {-1149.38, 0.00, 117.12};
 348 static float P075[3] = {718.36, 0.00, 433.36};
 349 static float P076[3] = {-655.90, 0.00, 433.36};
 350 static float P077[3] = {1058.00, -2.66, 7923.51};
 351 static float P078[3] = {-1016.51, -15.47, 7902.87};
 352 static float P079[3] = {-1363.99, -484.50, 7593.38};
 353 static float P080[3] = {1478.09, -861.47, 7098.12};
 354 static float P081[3] = {1338.06, -284.68, 7024.15};
 355 static float P082[3] = {-1545.51, -860.64, 7106.60};
 356 static float P083[3] = {1063.19, -70.46, 7466.60};
 357 static float P084[3] = {-1369.18, -288.11, 7015.34};
 358 static float P085[3] = {1348.44, -482.50, 7591.41};
 359 static float P086[3] = {-1015.45, -96.80, 7474.86};
 360 static float P087[3] = {731.04, 148.38, 7682.58};
 361 static float P088[3] = {-697.03, 151.82, 7668.81};
 362 static float P089[3] = {-686.82, 157.09, 7922.29};
 363 static float P090[3] = {724.73, 147.75, 7931.39};
 364 static float iP091[3] = {0.00, 327.10, 2346.55};
 365 static float iP092[3] = {0.00, 552.28, 2311.31};
 366 static float iP093[3] = {0.00, 721.16, 2166.41};
 367 static float iP094[3] = {0.00, 693.42, 2388.80};
 368 static float iP095[3] = {0.00, 389.44, 2859.97};
 369 static float P091[3] = {0.00, 327.10, 2346.55};
 370 static float P092[3] = {0.00, 552.28, 2311.31};
 371 static float P093[3] = {0.00, 721.16, 2166.41};
 372 static float P094[3] = {0.00, 693.42, 2388.80};
 373 static float P095[3] = {0.00, 389.44, 2859.97};
 374 static float iP096[3] = {222.02, -183.67, 10266.89};
 375 static float iP097[3] = {-128.90, -182.70, 10266.89};
 376 static float iP098[3] = {41.04, 88.31, 10659.36};
 377 static float iP099[3] = {-48.73, 88.30, 10659.36};
 378 static float P096[3] = {222.02, -183.67, 10266.89};
 379 static float P097[3] = {-128.90, -182.70, 10266.89};
 380 static float P098[3] = {41.04, 88.31, 10659.36};
 381 static float P099[3] = {-48.73, 88.30, 10659.36};
 382 static float P100[3] = {0.00, 603.42, 9340.68};
 383 #if 0
 384 static float P101[3] = {5.70, 567.00, 7862.98};
 385 static float P102[3] = {521.61, 156.61, 9162.34};
 386 static float P103[3] = {83.68, 566.67, 7861.26};
 387 #endif
 388 static float P104[3] = {-9.86, 567.62, 7858.65};
 389 static float P105[3] = {31.96, 565.27, 7908.46};
 390 static float P106[3] = {22.75, 568.13, 7782.83};
 391 static float P107[3] = {58.93, 568.42, 7775.94};
 392 static float P108[3] = {55.91, 565.59, 7905.86};
 393 static float P109[3] = {99.21, 566.00, 7858.65};
 394 static float P110[3] = {-498.83, 148.14, 9135.10};
 395 static float P111[3] = {-495.46, 133.24, 9158.48};
 396 static float P112[3] = {-490.82, 146.23, 9182.76};
 397 static float P113[3] = {-489.55, 174.11, 9183.66};
 398 static float P114[3] = {-492.92, 189.00, 9160.28};
 399 static float P115[3] = {-497.56, 176.02, 9136.00};
 400 static float P116[3] = {526.54, 169.68, 9137.70};
 401 static float P117[3] = {523.49, 184.85, 9161.42};
 402 static float P118[3] = {518.56, 171.78, 9186.06};
 403 static float P119[3] = {516.68, 143.53, 9186.98};
 404 static float P120[3] = {519.73, 128.36, 9163.26};
 405 static float P121[3] = {524.66, 141.43, 9138.62};
 406 /* *INDENT-ON* */
 407
 408
 409
 410 static void
 411 Whale001(GLenum cap)
 412 {
 413         glBegin(cap);
 414         glNormal3fv(N001);
 415         glVertex3fv(P001);
 416         glNormal3fv(N068);
 417         glVertex3fv(P068);
 418         glNormal3fv(N010);
 419         glVertex3fv(P010);
 420         glEnd();
 421         glBegin(cap);
 422         glNormal3fv(N068);
 423         glVertex3fv(P068);
 424         glNormal3fv(N076);
 425         glVertex3fv(P076);
 426         glNormal3fv(N010);
 427         glVertex3fv(P010);
 428         glEnd();
 429         glBegin(cap);
 430         glNormal3fv(N068);
 431         glVertex3fv(P068);
 432         glNormal3fv(N070);
 433         glVertex3fv(P070);
 434         glNormal3fv(N076);
 435         glVertex3fv(P076);
 436         glEnd();
 437         glBegin(cap);
 438         glNormal3fv(N076);
 439         glVertex3fv(P076);
 440         glNormal3fv(N070);
 441         glVertex3fv(P070);
 442         glNormal3fv(N074);
 443         glVertex3fv(P074);
 444         glEnd();
 445         glBegin(cap);
 446         glNormal3fv(N070);
 447         glVertex3fv(P070);
 448         glNormal3fv(N072);
 449         glVertex3fv(P072);
 450         glNormal3fv(N074);
 451         glVertex3fv(P074);
 452         glEnd();
 453         glBegin(cap);
 454         glNormal3fv(N072);
 455         glVertex3fv(P072);
 456         glNormal3fv(N070);
 457         glVertex3fv(P070);
 458         glNormal3fv(N074);
 459         glVertex3fv(P074);
 460         glEnd();
 461         glBegin(cap);
 462         glNormal3fv(N074);
 463         glVertex3fv(P074);
 464         glNormal3fv(N070);
 465         glVertex3fv(P070);
 466         glNormal3fv(N076);
 467         glVertex3fv(P076);
 468         glEnd();
 469         glBegin(cap);
 470         glNormal3fv(N070);
 471         glVertex3fv(P070);
 472         glNormal3fv(N068);
 473         glVertex3fv(P068);
 474         glNormal3fv(N076);
 475         glVertex3fv(P076);
 476         glEnd();
 477         glBegin(cap);
 478         glNormal3fv(N076);
 479         glVertex3fv(P076);
 480         glNormal3fv(N068);
 481         glVertex3fv(P068);
 482         glNormal3fv(N010);
 483         glVertex3fv(P010);
 484         glEnd();
 485         glBegin(cap);
 486         glNormal3fv(N068);
 487         glVertex3fv(P068);
 488         glNormal3fv(N001);
 489         glVertex3fv(P001);
 490         glNormal3fv(N010);
 491         glVertex3fv(P010);
 492         glEnd();
 493 }
 494
 495 static void
 496 Whale002(GLenum cap)
 497 {
 498         glBegin(cap);
 499         glNormal3fv(N011);
 500         glVertex3fv(P011);
 501         glNormal3fv(N001);
 502         glVertex3fv(P001);
 503         glNormal3fv(N009);
 504         glVertex3fv(P009);
 505         glEnd();
 506         glBegin(cap);
 507         glNormal3fv(N075);
 508         glVertex3fv(P075);
 509         glNormal3fv(N011);
 510         glVertex3fv(P011);
 511         glNormal3fv(N009);
 512         glVertex3fv(P009);
 513         glEnd();
 514         glBegin(cap);
 515         glNormal3fv(N069);
 516         glVertex3fv(P069);
 517         glNormal3fv(N011);
 518         glVertex3fv(P011);
 519         glNormal3fv(N075);
 520         glVertex3fv(P075);
 521         glEnd();
 522         glBegin(cap);
 523         glNormal3fv(N069);
 524         glVertex3fv(P069);
 525         glNormal3fv(N075);
 526         glVertex3fv(P075);
 527         glNormal3fv(N073);
 528         glVertex3fv(P073);
 529         glEnd();
 530         glBegin(cap);
 531         glNormal3fv(N071);
 532         glVertex3fv(P071);
 533         glNormal3fv(N069);
 534         glVertex3fv(P069);
 535         glNormal3fv(N073);
 536         glVertex3fv(P073);
 537         glEnd();
 538         glBegin(cap);
 539         glNormal3fv(N001);
 540         glVertex3fv(P001);
 541         glNormal3fv(N011);
 542         glVertex3fv(P011);
 543         glNormal3fv(N009);
 544         glVertex3fv(P009);
 545         glEnd();
 546         glBegin(cap);
 547         glNormal3fv(N009);
 548         glVertex3fv(P009);
 549         glNormal3fv(N011);
 550         glVertex3fv(P011);
 551         glNormal3fv(N075);
 552         glVertex3fv(P075);
 553         glEnd();
 554         glBegin(cap);
 555         glNormal3fv(N011);
 556         glVertex3fv(P011);
 557         glNormal3fv(N069);
 558         glVertex3fv(P069);
 559         glNormal3fv(N075);
 560         glVertex3fv(P075);
 561         glEnd();
 562         glBegin(cap);
 563         glNormal3fv(N069);
 564         glVertex3fv(P069);
 565         glNormal3fv(N073);
 566         glVertex3fv(P073);
 567         glNormal3fv(N075);
 568         glVertex3fv(P075);
 569         glEnd();
 570         glBegin(cap);
 571         glNormal3fv(N069);
 572         glVertex3fv(P069);
 573         glNormal3fv(N071);
 574         glVertex3fv(P071);
 575         glNormal3fv(N073);
 576         glVertex3fv(P073);
 577         glEnd();
 578 }
 579
 580 static void
 581 Whale003(GLenum cap)
 582 {
 583         glBegin(cap);
 584         glNormal3fv(N018);
 585         glVertex3fv(P018);
 586         glNormal3fv(N001);
 587         glVertex3fv(P001);
 588         glNormal3fv(N019);
 589         glVertex3fv(P019);
 590         glEnd();
 591         glBegin(cap);
 592         glNormal3fv(N019);
 593         glVertex3fv(P019);
 594         glNormal3fv(N001);
 595         glVertex3fv(P001);
 596         glNormal3fv(N012);
 597         glVertex3fv(P012);
 598         glEnd();
 599         glBegin(cap);
 600         glNormal3fv(N017);
 601         glVertex3fv(P017);
 602         glNormal3fv(N001);
 603         glVertex3fv(P001);
 604         glNormal3fv(N018);
 605         glVertex3fv(P018);
 606         glEnd();
 607         glBegin(cap);
 608         glNormal3fv(N001);
 609         glVertex3fv(P001);
 610         glNormal3fv(N017);
 611         glVertex3fv(P017);
 612         glNormal3fv(N016);
 613         glVertex3fv(P016);
 614         glEnd();
 615         glBegin(cap);
 616         glNormal3fv(N001);
 617         glVertex3fv(P001);
 618         glNormal3fv(N013);
 619         glVertex3fv(P013);
 620         glNormal3fv(N012);
 621         glVertex3fv(P012);
 622         glEnd();
 623         glBegin(cap);
 624         glNormal3fv(N001);
 625         glVertex3fv(P001);
 626         glNormal3fv(N016);
 627         glVertex3fv(P016);
 628         glNormal3fv(N015);
 629         glVertex3fv(P015);
 630         glEnd();
 631         glBegin(cap);
 632         glNormal3fv(N001);
 633         glVertex3fv(P001);
 634         glNormal3fv(N014);
 635         glVertex3fv(P014);
 636         glNormal3fv(N013);
 637         glVertex3fv(P013);
 638         glEnd();
 639         glBegin(cap);
 640         glNormal3fv(N001);
 641         glVertex3fv(P001);
 642         glNormal3fv(N015);
 643         glVertex3fv(P015);
 644         glNormal3fv(N014);
 645         glVertex3fv(P014);
 646         glEnd();
 647 }
 648
 649 static void
 650 Whale004(GLenum cap)
 651 {
 652         glBegin(cap);
 653         glNormal3fv(N014);
 654         glVertex3fv(P014);
 655         glNormal3fv(N015);
 656         glVertex3fv(P015);
 657         glNormal3fv(N023);
 658         glVertex3fv(P023);
 659         glNormal3fv(N022);
 660         glVertex3fv(P022);
 661         glEnd();
 662         glBegin(cap);
 663         glNormal3fv(N015);
 664         glVertex3fv(P015);
 665         glNormal3fv(N016);
 666         glVertex3fv(P016);
 667         glNormal3fv(N024);
 668         glVertex3fv(P024);
 669         glNormal3fv(N023);
 670         glVertex3fv(P023);
 671         glEnd();
 672         glBegin(cap);
 673         glNormal3fv(N016);
 674         glVertex3fv(P016);
 675         glNormal3fv(N017);
 676         glVertex3fv(P017);
 677         glNormal3fv(N025);
 678         glVertex3fv(P025);
 679         glNormal3fv(N024);
 680         glVertex3fv(P024);
 681         glEnd();
 682         glBegin(cap);
 683         glNormal3fv(N017);
 684         glVertex3fv(P017);
 685         glNormal3fv(N018);
 686         glVertex3fv(P018);
 687         glNormal3fv(N026);
 688         glVertex3fv(P026);
 689         glNormal3fv(N025);
 690         glVertex3fv(P025);
 691         glEnd();
 692         glBegin(cap);
 693         glNormal3fv(N013);
 694         glVertex3fv(P013);
 695         glNormal3fv(N014);
 696         glVertex3fv(P014);
 697         glNormal3fv(N022);
 698         glVertex3fv(P022);
 699         glNormal3fv(N021);
 700         glVertex3fv(P021);
 701         glEnd();
 702         glBegin(cap);
 703         glNormal3fv(N012);
 704         glVertex3fv(P012);
 705         glNormal3fv(N013);
 706         glVertex3fv(P013);
 707         glNormal3fv(N021);
 708         glVertex3fv(P021);
 709         glNormal3fv(N020);
 710         glVertex3fv(P020);
 711         glEnd();
 712         glBegin(cap);
 713         glNormal3fv(N018);
 714         glVertex3fv(P018);
 715         glNormal3fv(N019);
 716         glVertex3fv(P019);
 717         glNormal3fv(N027);
 718         glVertex3fv(P027);
 719         glNormal3fv(N026);
 720         glVertex3fv(P026);
 721         glEnd();
 722         glBegin(cap);
 723         glNormal3fv(N019);
 724         glVertex3fv(P019);
 725         glNormal3fv(N012);
 726         glVertex3fv(P012);
 727         glNormal3fv(N020);
 728         glVertex3fv(P020);
 729         glNormal3fv(N027);
 730         glVertex3fv(P027);
 731         glEnd();
 732 }
 733
 734 static void
 735 Whale005(GLenum cap)
 736 {
 737         glBegin(cap);
 738         glNormal3fv(N022);
 739         glVertex3fv(P022);
 740         glNormal3fv(N023);
 741         glVertex3fv(P023);
 742         glNormal3fv(N031);
 743         glVertex3fv(P031);
 744         glNormal3fv(N030);
 745         glVertex3fv(P030);
 746         glEnd();
 747         glBegin(cap);
 748         glNormal3fv(N021);
 749         glVertex3fv(P021);
 750         glNormal3fv(N022);
 751         glVertex3fv(P022);
 752         glNormal3fv(N030);
 753         glVertex3fv(P030);
 754         glEnd();
 755         glBegin(cap);
 756         glNormal3fv(N021);
 757         glVertex3fv(P021);
 758         glNormal3fv(N030);
 759         glVertex3fv(P030);
 760         glNormal3fv(N029);
 761         glVertex3fv(P029);
 762         glEnd();
 763         glBegin(cap);
 764         glNormal3fv(N023);
 765         glVertex3fv(P023);
 766         glNormal3fv(N024);
 767         glVertex3fv(P024);
 768         glNormal3fv(N031);
 769         glVertex3fv(P031);
 770         glEnd();
 771         glBegin(cap);
 772         glNormal3fv(N024);
 773         glVertex3fv(P024);
 774         glNormal3fv(N032);
 775         glVertex3fv(P032);
 776         glNormal3fv(N031);
 777         glVertex3fv(P031);
 778         glEnd();
 779         glBegin(cap);
 780         glNormal3fv(N024);
 781         glVertex3fv(P024);
 782         glNormal3fv(N025);
 783         glVertex3fv(P025);
 784         glNormal3fv(N032);
 785         glVertex3fv(P032);
 786         glEnd();
 787         glBegin(cap);
 788         glNormal3fv(N025);
 789         glVertex3fv(P025);
 790         glNormal3fv(N033);
 791         glVertex3fv(P033);
 792         glNormal3fv(N032);
 793         glVertex3fv(P032);
 794         glEnd();
 795         glBegin(cap);
 796         glNormal3fv(N020);
 797         glVertex3fv(P020);
 798         glNormal3fv(N021);
 799         glVertex3fv(P021);
 800         glNormal3fv(N029);
 801         glVertex3fv(P029);
 802         glEnd();
 803         glBegin(cap);
 804         glNormal3fv(N020);
 805         glVertex3fv(P020);
 806         glNormal3fv(N029);
 807         glVertex3fv(P029);
 808         glNormal3fv(N028);
 809         glVertex3fv(P028);
 810         glEnd();
 811         glBegin(cap);
 812         glNormal3fv(N027);
 813         glVertex3fv(P027);
 814         glNormal3fv(N020);
 815         glVertex3fv(P020);
 816         glNormal3fv(N028);
 817         glVertex3fv(P028);
 818         glEnd();
 819         glBegin(cap);
 820         glNormal3fv(N027);
 821         glVertex3fv(P027);
 822         glNormal3fv(N028);
 823         glVertex3fv(P028);
 824         glNormal3fv(N035);
 825         glVertex3fv(P035);
 826         glEnd();
 827         glBegin(cap);
 828         glNormal3fv(N025);
 829         glVertex3fv(P025);
 830         glNormal3fv(N026);
 831         glVertex3fv(P026);
 832         glNormal3fv(N033);
 833         glVertex3fv(P033);
 834         glEnd();
 835         glBegin(cap);
 836         glNormal3fv(N033);
 837         glVertex3fv(P033);
 838         glNormal3fv(N026);
 839         glVertex3fv(P026);
 840         glNormal3fv(N034);
 841         glVertex3fv(P034);
 842         glEnd();
 843         glBegin(cap);
 844         glNormal3fv(N026);
 845         glVertex3fv(P026);
 846         glNormal3fv(N027);
 847         glVertex3fv(P027);
 848         glNormal3fv(N035);
 849         glVertex3fv(P035);
 850         glNormal3fv(N034);
 851         glVertex3fv(P034);
 852         glEnd();
 853 }
 854
 855 static void
 856 Whale006(GLenum cap)
 857 {
 858         glBegin(cap);
 859         glNormal3fv(N092);
 860         glVertex3fv(P092);
 861         glNormal3fv(N093);
 862         glVertex3fv(P093);
 863         glNormal3fv(N094);
 864         glVertex3fv(P094);
 865         glEnd();
 866         glBegin(cap);
 867         glNormal3fv(N093);
 868         glVertex3fv(P093);
 869         glNormal3fv(N092);
 870         glVertex3fv(P092);
 871         glNormal3fv(N094);
 872         glVertex3fv(P094);
 873         glEnd();
 874         glBegin(cap);
 875         glNormal3fv(N092);
 876         glVertex3fv(P092);
 877         glNormal3fv(N091);
 878         glVertex3fv(P091);
 879         glNormal3fv(N095);
 880         glVertex3fv(P095);
 881         glNormal3fv(N094);
 882         glVertex3fv(P094);
 883         glEnd();
 884         glBegin(cap);
 885         glNormal3fv(N091);
 886         glVertex3fv(P091);
 887         glNormal3fv(N092);
 888         glVertex3fv(P092);
 889         glNormal3fv(N094);
 890         glVertex3fv(P094);
 891         glNormal3fv(N095);
 892         glVertex3fv(P095);
 893         glEnd();
 894 }
 895
 896 static void
 897 Whale007(GLenum cap)
 898 {
 899         glBegin(cap);
 900         glNormal3fv(N030);
 901         glVertex3fv(P030);
 902         glNormal3fv(N031);
 903         glVertex3fv(P031);
 904         glNormal3fv(N039);
 905         glVertex3fv(P039);
 906         glNormal3fv(N038);
 907         glVertex3fv(P038);
 908         glEnd();
 909         glBegin(cap);
 910         glNormal3fv(N029);
 911         glVertex3fv(P029);
 912         glNormal3fv(N030);
 913         glVertex3fv(P030);
 914         glNormal3fv(N038);
 915         glVertex3fv(P038);
 916         glEnd();
 917         glBegin(cap);
 918         glNormal3fv(N029);
 919         glVertex3fv(P029);
 920         glNormal3fv(N038);
 921         glVertex3fv(P038);
 922         glNormal3fv(N037);
 923         glVertex3fv(P037);
 924         glEnd();
 925         glBegin(cap);
 926         glNormal3fv(N028);
 927         glVertex3fv(P028);
 928         glNormal3fv(N029);
 929         glVertex3fv(P029);
 930         glNormal3fv(N037);
 931         glVertex3fv(P037);
 932         glEnd();
 933         glBegin(cap);
 934         glNormal3fv(N028);
 935         glVertex3fv(P028);
 936         glNormal3fv(N037);
 937         glVertex3fv(P037);
 938         glNormal3fv(N036);
 939         glVertex3fv(P036);
 940         glEnd();
 941         glBegin(cap);
 942         glNormal3fv(N035);
 943         glVertex3fv(P035);
 944         glNormal3fv(N028);
 945         glVertex3fv(P028);
 946         glNormal3fv(N036);
 947         glVertex3fv(P036);
 948         glEnd();
 949         glBegin(cap);
 950         glNormal3fv(N035);
 951         glVertex3fv(P035);
 952         glNormal3fv(N036);
 953         glVertex3fv(P036);
 954         glNormal3fv(N043);
 955         glVertex3fv(P043);
 956         glEnd();
 957         glBegin(cap);
 958         glNormal3fv(N034);
 959         glVertex3fv(P034);
 960         glNormal3fv(N035);
 961         glVertex3fv(P035);
 962         glNormal3fv(N043);
 963         glVertex3fv(P043);
 964         glNormal3fv(N042);
 965         glVertex3fv(P042);
 966         glEnd();
 967         glBegin(cap);
 968         glNormal3fv(N033);
 969         glVertex3fv(P033);
 970         glNormal3fv(N034);
 971         glVertex3fv(P034);
 972         glNormal3fv(N042);
 973         glVertex3fv(P042);
 974         glEnd();
 975         glBegin(cap);
 976         glNormal3fv(N033);
 977         glVertex3fv(P033);
 978         glNormal3fv(N042);
 979         glVertex3fv(P042);
 980         glNormal3fv(N041);
 981         glVertex3fv(P041);
 982         glEnd();
 983         glBegin(cap);
 984         glNormal3fv(N031);
 985         glVertex3fv(P031);
 986         glNormal3fv(N032);
 987         glVertex3fv(P032);
 988         glNormal3fv(N039);
 989         glVertex3fv(P039);
 990         glEnd();
 991         glBegin(cap);
 992         glNormal3fv(N039);
 993         glVertex3fv(P039);
 994         glNormal3fv(N032);
 995         glVertex3fv(P032);
 996         glNormal3fv(N040);
 997         glVertex3fv(P040);
 998         glEnd();
 999         glBegin(cap);
1000         glNormal3fv(N032);
1001         glVertex3fv(P032);
1002         glNormal3fv(N033);
1003         glVertex3fv(P033);
1004         glNormal3fv(N040);
1005         glVertex3fv(P040);
1006         glEnd();
1007         glBegin(cap);
1008         glNormal3fv(N040);
1009         glVertex3fv(P040);
1010         glNormal3fv(N033);
1011         glVertex3fv(P033);
1012         glNormal3fv(N041);
1013         glVertex3fv(P041);
1014         glEnd();
1015 }
1016
1017 static void
1018 Whale008(GLenum cap)
1019 {
1020         glBegin(cap);
1021         glNormal3fv(N042);
1022         glVertex3fv(P042);
1023         glNormal3fv(N043);
1024         glVertex3fv(P043);
1025         glNormal3fv(N051);
1026         glVertex3fv(P051);
1027         glNormal3fv(N050);
1028         glVertex3fv(P050);
1029         glEnd();
1030         glBegin(cap);
1031         glNormal3fv(N043);
1032         glVertex3fv(P043);
1033         glNormal3fv(N036);
1034         glVertex3fv(P036);
1035         glNormal3fv(N051);
1036         glVertex3fv(P051);
1037         glEnd();
1038         glBegin(cap);
1039         glNormal3fv(N051);
1040         glVertex3fv(P051);
1041         glNormal3fv(N036);
1042         glVertex3fv(P036);
1043         glNormal3fv(N044);
1044         glVertex3fv(P044);
1045         glEnd();
1046         glBegin(cap);
1047         glNormal3fv(N041);
1048         glVertex3fv(P041);
1049         glNormal3fv(N042);
1050         glVertex3fv(P042);
1051         glNormal3fv(N050);
1052         glVertex3fv(P050);
1053         glEnd();
1054         glBegin(cap);
1055         glNormal3fv(N041);
1056         glVertex3fv(P041);
1057         glNormal3fv(N050);
1058         glVertex3fv(P050);
1059         glNormal3fv(N049);
1060         glVertex3fv(P049);
1061         glEnd();
1062         glBegin(cap);
1063         glNormal3fv(N036);
1064         glVertex3fv(P036);
1065         glNormal3fv(N037);
1066         glVertex3fv(P037);
1067         glNormal3fv(N044);
1068         glVertex3fv(P044);
1069         glEnd();
1070         glBegin(cap);
1071         glNormal3fv(N044);
1072         glVertex3fv(P044);
1073         glNormal3fv(N037);
1074         glVertex3fv(P037);
1075         glNormal3fv(N045);
1076         glVertex3fv(P045);
1077         glEnd();
1078         glBegin(cap);
1079         glNormal3fv(N040);
1080         glVertex3fv(P040);
1081         glNormal3fv(N041);
1082         glVertex3fv(P041);
1083         glNormal3fv(N049);
1084         glVertex3fv(P049);
1085         glEnd();
1086         glBegin(cap);
1087         glNormal3fv(N040);
1088         glVertex3fv(P040);
1089         glNormal3fv(N049);
1090         glVertex3fv(P049);
1091         glNormal3fv(N048);
1092         glVertex3fv(P048);
1093         glEnd();
1094         glBegin(cap);
1095         glNormal3fv(N039);
1096         glVertex3fv(P039);
1097         glNormal3fv(N040);
1098         glVertex3fv(P040);
1099         glNormal3fv(N048);
1100         glVertex3fv(P048);
1101         glEnd();
1102         glBegin(cap);
1103         glNormal3fv(N039);
1104         glVertex3fv(P039);
1105         glNormal3fv(N048);
1106         glVertex3fv(P048);
1107         glNormal3fv(N047);
1108         glVertex3fv(P047);
1109         glEnd();
1110         glBegin(cap);
1111         glNormal3fv(N037);
1112         glVertex3fv(P037);
1113         glNormal3fv(N038);
1114         glVertex3fv(P038);
1115         glNormal3fv(N045);
1116         glVertex3fv(P045);
1117         glEnd();
1118         glBegin(cap);
1119         glNormal3fv(N038);
1120         glVertex3fv(P038);
1121         glNormal3fv(N046);
1122         glVertex3fv(P046);
1123         glNormal3fv(N045);
1124         glVertex3fv(P045);
1125         glEnd();
1126         glBegin(cap);
1127         glNormal3fv(N038);
1128         glVertex3fv(P038);
1129         glNormal3fv(N039);
1130         glVertex3fv(P039);
1131         glNormal3fv(N047);
1132         glVertex3fv(P047);
1133         glNormal3fv(N046);
1134         glVertex3fv(P046);
1135         glEnd();
1136 }
1137
1138 static void
1139 Whale009(GLenum cap)
1140 {
1141         glBegin(cap);
1142         glNormal3fv(N050);
1143         glVertex3fv(P050);
1144         glNormal3fv(N051);
1145         glVertex3fv(P051);
1146         glNormal3fv(N059);
1147         glVertex3fv(P059);
1148         glNormal3fv(N058);
1149         glVertex3fv(P058);
1150         glEnd();
1151         glBegin(cap);
1152         glNormal3fv(N051);
1153         glVertex3fv(P051);
1154         glNormal3fv(N044);
1155         glVertex3fv(P044);
1156         glNormal3fv(N059);
1157         glVertex3fv(P059);
1158         glEnd();
1159         glBegin(cap);
1160         glNormal3fv(N059);
1161         glVertex3fv(P059);
1162         glNormal3fv(N044);
1163         glVertex3fv(P044);
1164         glNormal3fv(N052);
1165         glVertex3fv(P052);
1166         glEnd();
1167         glBegin(cap);
1168         glNormal3fv(N044);
1169         glVertex3fv(P044);
1170         glNormal3fv(N045);
1171         glVertex3fv(P045);
1172         glNormal3fv(N053);
1173         glVertex3fv(P053);
1174         glEnd();
1175         glBegin(cap);
1176         glNormal3fv(N044);
1177         glVertex3fv(P044);
1178         glNormal3fv(N053);
1179         glVertex3fv(P053);
1180         glNormal3fv(N052);
1181         glVertex3fv(P052);
1182         glEnd();
1183         glBegin(cap);
1184         glNormal3fv(N049);
1185         glVertex3fv(P049);
1186         glNormal3fv(N050);
1187         glVertex3fv(P050);
1188         glNormal3fv(N058);
1189         glVertex3fv(P058);
1190         glEnd();
1191         glBegin(cap);
1192         glNormal3fv(N049);
1193         glVertex3fv(P049);
1194         glNormal3fv(N058);
1195         glVertex3fv(P058);
1196         glNormal3fv(N057);
1197         glVertex3fv(P057);
1198         glEnd();
1199         glBegin(cap);
1200         glNormal3fv(N048);
1201         glVertex3fv(P048);
1202         glNormal3fv(N049);
1203         glVertex3fv(P049);
1204         glNormal3fv(N057);
1205         glVertex3fv(P057);
1206         glEnd();
1207         glBegin(cap);
1208         glNormal3fv(N048);
1209         glVertex3fv(P048);
1210         glNormal3fv(N057);
1211         glVertex3fv(P057);
1212         glNormal3fv(N056);
1213         glVertex3fv(P056);
1214         glEnd();
1215         glBegin(cap);
1216         glNormal3fv(N047);
1217         glVertex3fv(P047);
1218         glNormal3fv(N048);
1219         glVertex3fv(P048);
1220         glNormal3fv(N056);
1221         glVertex3fv(P056);
1222         glEnd();
1223         glBegin(cap);
1224         glNormal3fv(N047);
1225         glVertex3fv(P047);
1226         glNormal3fv(N056);
1227         glVertex3fv(P056);
1228         glNormal3fv(N055);
1229         glVertex3fv(P055);
1230         glEnd();
1231         glBegin(cap);
1232         glNormal3fv(N045);
1233         glVertex3fv(P045);
1234         glNormal3fv(N046);
1235         glVertex3fv(P046);
1236         glNormal3fv(N053);
1237         glVertex3fv(P053);
1238         glEnd();
1239         glBegin(cap);
1240         glNormal3fv(N046);
1241         glVertex3fv(P046);
1242         glNormal3fv(N054);
1243         glVertex3fv(P054);
1244         glNormal3fv(N053);
1245         glVertex3fv(P053);
1246         glEnd();
1247         glBegin(cap);
1248         glNormal3fv(N046);
1249         glVertex3fv(P046);
1250         glNormal3fv(N047);
1251         glVertex3fv(P047);
1252         glNormal3fv(N055);
1253         glVertex3fv(P055);
1254         glNormal3fv(N054);
1255         glVertex3fv(P054);
1256         glEnd();
1257 }
1258
1259 static void
1260 Whale010(GLenum cap)
1261 {
1262         glBegin(cap);
1263         glNormal3fv(N080);
1264         glVertex3fv(P080);
1265         glNormal3fv(N081);
1266         glVertex3fv(P081);
1267         glNormal3fv(N085);
1268         glVertex3fv(P085);
1269         glEnd();
1270         glBegin(cap);
1271         glNormal3fv(N081);
1272         glVertex3fv(P081);
1273         glNormal3fv(N083);
1274         glVertex3fv(P083);
1275         glNormal3fv(N085);
1276         glVertex3fv(P085);
1277         glEnd();
1278         glBegin(cap);
1279         glNormal3fv(N085);
1280         glVertex3fv(P085);
1281         glNormal3fv(N083);
1282         glVertex3fv(P083);
1283         glNormal3fv(N077);
1284         glVertex3fv(P077);
1285         glEnd();
1286         glBegin(cap);
1287         glNormal3fv(N083);
1288         glVertex3fv(P083);
1289         glNormal3fv(N087);
1290         glVertex3fv(P087);
1291         glNormal3fv(N077);
1292         glVertex3fv(P077);
1293         glEnd();
1294         glBegin(cap);
1295         glNormal3fv(N077);
1296         glVertex3fv(P077);
1297         glNormal3fv(N087);
1298         glVertex3fv(P087);
1299         glNormal3fv(N090);
1300         glVertex3fv(P090);
1301         glEnd();
1302         glBegin(cap);
1303         glNormal3fv(N081);
1304         glVertex3fv(P081);
1305         glNormal3fv(N080);
1306         glVertex3fv(P080);
1307         glNormal3fv(N085);
1308         glVertex3fv(P085);
1309         glEnd();
1310         glBegin(cap);
1311         glNormal3fv(N083);
1312         glVertex3fv(P083);
1313         glNormal3fv(N081);
1314         glVertex3fv(P081);
1315         glNormal3fv(N085);
1316         glVertex3fv(P085);
1317         glEnd();
1318         glBegin(cap);
1319         glNormal3fv(N083);
1320         glVertex3fv(P083);
1321         glNormal3fv(N085);
1322         glVertex3fv(P085);
1323         glNormal3fv(N077);
1324         glVertex3fv(P077);
1325         glEnd();
1326         glBegin(cap);
1327         glNormal3fv(N087);
1328         glVertex3fv(P087);
1329         glNormal3fv(N083);
1330         glVertex3fv(P083);
1331         glNormal3fv(N077);
1332         glVertex3fv(P077);
1333         glEnd();
1334         glBegin(cap);
1335         glNormal3fv(N087);
1336         glVertex3fv(P087);
1337         glNormal3fv(N077);
1338         glVertex3fv(P077);
1339         glNormal3fv(N090);
1340         glVertex3fv(P090);
1341         glEnd();
1342 }
1343
1344 static void
1345 Whale011(GLenum cap)
1346 {
1347         glBegin(cap);
1348         glNormal3fv(N082);
1349         glVertex3fv(P082);
1350         glNormal3fv(N084);
1351         glVertex3fv(P084);
1352         glNormal3fv(N079);
1353         glVertex3fv(P079);
1354         glEnd();
1355         glBegin(cap);
1356         glNormal3fv(N084);
1357         glVertex3fv(P084);
1358         glNormal3fv(N086);
1359         glVertex3fv(P086);
1360         glNormal3fv(N079);
1361         glVertex3fv(P079);
1362         glEnd();
1363         glBegin(cap);
1364         glNormal3fv(N079);
1365         glVertex3fv(P079);
1366         glNormal3fv(N086);
1367         glVertex3fv(P086);
1368         glNormal3fv(N078);
1369         glVertex3fv(P078);
1370         glEnd();
1371         glBegin(cap);
1372         glNormal3fv(N086);
1373         glVertex3fv(P086);
1374         glNormal3fv(N088);
1375         glVertex3fv(P088);
1376         glNormal3fv(N078);
1377         glVertex3fv(P078);
1378         glEnd();
1379         glBegin(cap);
1380         glNormal3fv(N078);
1381         glVertex3fv(P078);
1382         glNormal3fv(N088);
1383         glVertex3fv(P088);
1384         glNormal3fv(N089);
1385         glVertex3fv(P089);
1386         glEnd();
1387         glBegin(cap);
1388         glNormal3fv(N088);
1389         glVertex3fv(P088);
1390         glNormal3fv(N086);
1391         glVertex3fv(P086);
1392         glNormal3fv(N089);
1393         glVertex3fv(P089);
1394         glEnd();
1395         glBegin(cap);
1396         glNormal3fv(N089);
1397         glVertex3fv(P089);
1398         glNormal3fv(N086);
1399         glVertex3fv(P086);
1400         glNormal3fv(N078);
1401         glVertex3fv(P078);
1402         glEnd();
1403         glBegin(cap);
1404         glNormal3fv(N086);
1405         glVertex3fv(P086);
1406         glNormal3fv(N084);
1407         glVertex3fv(P084);
1408         glNormal3fv(N078);
1409         glVertex3fv(P078);
1410         glEnd();
1411         glBegin(cap);
1412         glNormal3fv(N078);
1413         glVertex3fv(P078);
1414         glNormal3fv(N084);
1415         glVertex3fv(P084);
1416         glNormal3fv(N079);
1417         glVertex3fv(P079);
1418         glEnd();
1419         glBegin(cap);
1420         glNormal3fv(N084);
1421         glVertex3fv(P084);
1422         glNormal3fv(N082);
1423         glVertex3fv(P082);
1424         glNormal3fv(N079);
1425         glVertex3fv(P079);
1426         glEnd();
1427 }
1428
1429 static void
1430 Whale012(GLenum cap)
1431 {
1432         glBegin(cap);
1433         glNormal3fv(N058);
1434         glVertex3fv(P058);
1435         glNormal3fv(N059);
1436         glVertex3fv(P059);
1437         glNormal3fv(N067);
1438         glVertex3fv(P067);
1439         glNormal3fv(N066);
1440         glVertex3fv(P066);
1441         glEnd();
1442         glBegin(cap);
1443         glNormal3fv(N059);
1444         glVertex3fv(P059);
1445         glNormal3fv(N052);
1446         glVertex3fv(P052);
1447         glNormal3fv(N060);
1448         glVertex3fv(P060);
1449         glEnd();
1450         glBegin(cap);
1451         glNormal3fv(N059);
1452         glVertex3fv(P059);
1453         glNormal3fv(N060);
1454         glVertex3fv(P060);
1455         glNormal3fv(N067);
1456         glVertex3fv(P067);
1457         glEnd();
1458         glBegin(cap);
1459         glNormal3fv(N058);
1460         glVertex3fv(P058);
1461         glNormal3fv(N066);
1462         glVertex3fv(P066);
1463         glNormal3fv(N065);
1464         glVertex3fv(P065);
1465         glEnd();
1466         glBegin(cap);
1467         glNormal3fv(N058);
1468         glVertex3fv(P058);
1469         glNormal3fv(N065);
1470         glVertex3fv(P065);
1471         glNormal3fv(N057);
1472         glVertex3fv(P057);
1473         glEnd();
1474         glBegin(cap);
1475         glNormal3fv(N056);
1476         glVertex3fv(P056);
1477         glNormal3fv(N057);
1478         glVertex3fv(P057);
1479         glNormal3fv(N065);
1480         glVertex3fv(P065);
1481         glEnd();
1482         glBegin(cap);
1483         glNormal3fv(N056);
1484         glVertex3fv(P056);
1485         glNormal3fv(N065);
1486         glVertex3fv(P065);
1487         glNormal3fv(N006);
1488         glVertex3fv(P006);
1489         glEnd();
1490         glBegin(cap);
1491         glNormal3fv(N056);
1492         glVertex3fv(P056);
1493         glNormal3fv(N006);
1494         glVertex3fv(P006);
1495         glNormal3fv(N063);
1496         glVertex3fv(P063);
1497         glEnd();
1498         glBegin(cap);
1499         glNormal3fv(N056);
1500         glVertex3fv(P056);
1501         glNormal3fv(N063);
1502         glVertex3fv(P063);
1503         glNormal3fv(N055);
1504         glVertex3fv(P055);
1505         glEnd();
1506         glBegin(cap);
1507         glNormal3fv(N054);
1508         glVertex3fv(P054);
1509         glNormal3fv(N062);
1510         glVertex3fv(P062);
1511         glNormal3fv(N005);
1512         glVertex3fv(P005);
1513         glEnd();
1514         glBegin(cap);
1515         glNormal3fv(N054);
1516         glVertex3fv(P054);
1517         glNormal3fv(N005);
1518         glVertex3fv(P005);
1519         glNormal3fv(N053);
1520         glVertex3fv(P053);
1521         glEnd();
1522         glBegin(cap);
1523         glNormal3fv(N053);
1524         glVertex3fv(P053);
1525         glNormal3fv(N005);
1526         glVertex3fv(P005);
1527         glNormal3fv(N060);
1528         glVertex3fv(P060);
1529         glEnd();
1530         glBegin(cap);
1531         glNormal3fv(N053);
1532         glVertex3fv(P053);
1533         glNormal3fv(N060);
1534         glVertex3fv(P060);
1535         glNormal3fv(N052);
1536         glVertex3fv(P052);
1537         glEnd();
1538 }
1539
1540 static void
1541 Whale013(GLenum cap)
1542 {
1543         glBegin(cap);
1544         glNormal3fv(N066);
1545         glVertex3fv(P066);
1546         glNormal3fv(N067);
1547         glVertex3fv(P067);
1548         glNormal3fv(N096);
1549         glVertex3fv(P096);
1550         glNormal3fv(N097);
1551         glVertex3fv(P097);
1552         glEnd();
1553         glBegin(cap);
1554         glNormal3fv(N097);
1555         glVertex3fv(P097);
1556         glNormal3fv(N096);
1557         glVertex3fv(P096);
1558         glNormal3fv(N098);
1559         glVertex3fv(P098);
1560         glNormal3fv(N099);
1561         glVertex3fv(P099);
1562         glEnd();
1563         glBegin(cap);
1564         glNormal3fv(N065);
1565         glVertex3fv(P065);
1566         glNormal3fv(N066);
1567         glVertex3fv(P066);
1568         glNormal3fv(N097);
1569         glVertex3fv(P097);
1570         glEnd();
1571         glBegin(cap);
1572         glNormal3fv(N067);
1573         glVertex3fv(P067);
1574         glNormal3fv(N060);
1575         glVertex3fv(P060);
1576         glNormal3fv(N096);
1577         glVertex3fv(P096);
1578         glEnd();
1579         glBegin(cap);
1580         glNormal3fv(N060);
1581         glVertex3fv(P060);
1582         glNormal3fv(N005);
1583         glVertex3fv(P005);
1584         glNormal3fv(N096);
1585         glVertex3fv(P096);
1586         glEnd();
1587         glBegin(cap);
1588         glNormal3fv(N096);
1589         glVertex3fv(P096);
1590         glNormal3fv(N005);
1591         glVertex3fv(P005);
1592         glNormal3fv(N098);
1593         glVertex3fv(P098);
1594         glEnd();
1595         glBegin(cap);
1596         glNormal3fv(N006);
1597         glVertex3fv(P006);
1598         glNormal3fv(N065);
1599         glVertex3fv(P065);
1600         glNormal3fv(N097);
1601         glVertex3fv(P097);
1602         glEnd();
1603         glBegin(cap);
1604         glNormal3fv(N006);
1605         glVertex3fv(P006);
1606         glNormal3fv(N097);
1607         glVertex3fv(P097);
1608         glNormal3fv(N099);
1609         glVertex3fv(P099);
1610         glEnd();
1611         glBegin(cap);
1612         glVertex3fv(P005);
1613         glVertex3fv(P006);
1614         glVertex3fv(P099);
1615         glVertex3fv(P098);
1616         glEnd();
1617 }
1618
1619 static void
1620 Whale014(GLenum cap)
1621 {
1622         glBegin(cap);
1623         glNormal3fv(N062);
1624         glVertex3fv(P062);
1625         glNormal3fv(N004);
1626         glVertex3fv(P004);
1627         glNormal3fv(N005);
1628         glVertex3fv(P005);
1629         glEnd();
1630         glBegin(cap);
1631         glVertex3fv(P006);
1632         glVertex3fv(P005);
1633         glVertex3fv(P004);
1634         glVertex3fv(P008);
1635         glEnd();
1636         glBegin(cap);
1637         glNormal3fv(N063);
1638         glVertex3fv(P063);
1639         glNormal3fv(N006);
1640         glVertex3fv(P006);
1641         glNormal3fv(N002);
1642         glVertex3fv(P002);
1643         glEnd();
1644         glBegin(cap);
1645         glNormal3fv(N002);
1646         glVertex3fv(P002);
1647         glNormal3fv(N006);
1648         glVertex3fv(P006);
1649         glNormal3fv(N008);
1650         glVertex3fv(P008);
1651         glEnd();
1652         glBegin(cap);
1653         glNormal3fv(N002);
1654         glVertex3fv(P002);
1655         glNormal3fv(N008);
1656         glVertex3fv(P008);
1657         glNormal3fv(N004);
1658         glVertex3fv(P004);
1659         glEnd();
1660         glBegin(cap);
1661         glNormal3fv(N062);
1662         glVertex3fv(P062);
1663         glNormal3fv(N002);
1664         glVertex3fv(P002);
1665         glNormal3fv(N004);
1666         glVertex3fv(P004);
1667         glEnd();
1668 }
1669
1670 static void
1671 Whale015(GLenum cap)
1672 {
1673         glBegin(cap);
1674         glNormal3fv(N055);
1675         glVertex3fv(P055);
1676         glNormal3fv(N003);
1677         glVertex3fv(P003);
1678         glNormal3fv(N054);
1679         glVertex3fv(P054);
1680         glEnd();
1681         glBegin(cap);
1682         glNormal3fv(N003);
1683         glVertex3fv(P003);
1684         glNormal3fv(N055);
1685         glVertex3fv(P055);
1686         glNormal3fv(N063);
1687         glVertex3fv(P063);
1688         glEnd();
1689         glBegin(cap);
1690         glNormal3fv(N003);
1691         glVertex3fv(P003);
1692         glNormal3fv(N063);
1693         glVertex3fv(P063);
1694         glNormal3fv(N100);
1695         glVertex3fv(P100);
1696         glEnd();
1697         glBegin(cap);
1698         glNormal3fv(N003);
1699         glVertex3fv(P003);
1700         glNormal3fv(N100);
1701         glVertex3fv(P100);
1702         glNormal3fv(N054);
1703         glVertex3fv(P054);
1704         glEnd();
1705         glBegin(cap);
1706         glNormal3fv(N054);
1707         glVertex3fv(P054);
1708         glNormal3fv(N100);
1709         glVertex3fv(P100);
1710         glNormal3fv(N062);
1711         glVertex3fv(P062);
1712         glEnd();
1713         glBegin(cap);
1714         glNormal3fv(N100);
1715         glVertex3fv(P100);
1716         glNormal3fv(N063);
1717         glVertex3fv(P063);
1718         glNormal3fv(N002);
1719         glVertex3fv(P002);
1720         glEnd();
1721         glBegin(cap);
1722         glNormal3fv(N100);
1723         glVertex3fv(P100);
1724         glNormal3fv(N002);
1725         glVertex3fv(P002);
1726         glNormal3fv(N062);
1727         glVertex3fv(P062);
1728         glEnd();
1729 }
1730
1731 static void
1732 Whale016(GLenum cap)
1733 {
1734         glBegin(cap);
1735         glVertex3fv(P104);
1736         glVertex3fv(P105);
1737         glVertex3fv(P106);
1738         glEnd();
1739         glBegin(cap);
1740         glVertex3fv(P107);
1741         glVertex3fv(P108);
1742         glVertex3fv(P109);
1743         glEnd();
1744         glBegin(cap);
1745         glVertex3fv(P110);
1746         glVertex3fv(P111);
1747         glVertex3fv(P112);
1748         glVertex3fv(P113);
1749         glVertex3fv(P114);
1750         glVertex3fv(P115);
1751         glEnd();
1752         glBegin(cap);
1753         glVertex3fv(P116);
1754         glVertex3fv(P117);
1755         glVertex3fv(P118);
1756         glVertex3fv(P119);
1757         glVertex3fv(P120);
1758         glVertex3fv(P121);
1759         glEnd();
1760 }
1761
1762 void
1763 DrawWhale(fishRec * fish, int wire)
1764 {
1765         float       seg0, seg1, seg2, seg3, seg4, seg5, seg6, seg7;
1766         float       pitch, thrash, chomp;
1767         GLenum      cap;
1768
1769         fish->htail = (int) (fish->htail - (int) (5.0 * fish->v)) % 360;
1770
1771         thrash = 70.0 * fish->v;
1772
1773         seg0 = 1.5 * thrash * sin((fish->htail) * RRAD);
1774         seg1 = 2.5 * thrash * sin((fish->htail + 10.0) * RRAD);
1775         seg2 = 3.7 * thrash * sin((fish->htail + 15.0) * RRAD);
1776         seg3 = 4.8 * thrash * sin((fish->htail + 23.0) * RRAD);
1777         seg4 = 6.0 * thrash * sin((fish->htail + 28.0) * RRAD);
1778         seg5 = 6.5 * thrash * sin((fish->htail + 35.0) * RRAD);
1779         seg6 = 6.5 * thrash * sin((fish->htail + 40.0) * RRAD);
1780         seg7 = 6.5 * thrash * sin((fish->htail + 55.0) * RRAD);
1781
1782         pitch = fish->v * sin((fish->htail - 160.0) * RRAD);
1783
1784         chomp = 0.0;
1785         if (fish->v > 2.0) {
1786                 chomp = -(fish->v - 2.0) * 200.0;
1787         }
1788         P012[1] = iP012[1] + seg5;
1789         P013[1] = iP013[1] + seg5;
1790         P014[1] = iP014[1] + seg5;
1791         P015[1] = iP015[1] + seg5;
1792         P016[1] = iP016[1] + seg5;
1793         P017[1] = iP017[1] + seg5;
1794         P018[1] = iP018[1] + seg5;
1795         P019[1] = iP019[1] + seg5;
1796
1797         P020[1] = iP020[1] + seg4;
1798         P021[1] = iP021[1] + seg4;
1799         P022[1] = iP022[1] + seg4;
1800         P023[1] = iP023[1] + seg4;
1801         P024[1] = iP024[1] + seg4;
1802         P025[1] = iP025[1] + seg4;
1803         P026[1] = iP026[1] + seg4;
1804         P027[1] = iP027[1] + seg4;
1805
1806         P028[1] = iP028[1] + seg2;
1807         P029[1] = iP029[1] + seg2;
1808         P030[1] = iP030[1] + seg2;
1809         P031[1] = iP031[1] + seg2;
1810         P032[1] = iP032[1] + seg2;
1811         P033[1] = iP033[1] + seg2;
1812         P034[1] = iP034[1] + seg2;
1813         P035[1] = iP035[1] + seg2;
1814
1815         P036[1] = iP036[1] + seg1;
1816         P037[1] = iP037[1] + seg1;
1817         P038[1] = iP038[1] + seg1;
1818         P039[1] = iP039[1] + seg1;
1819         P040[1] = iP040[1] + seg1;
1820         P041[1] = iP041[1] + seg1;
1821         P042[1] = iP042[1] + seg1;
1822         P043[1] = iP043[1] + seg1;
1823
1824         P044[1] = iP044[1] + seg0;
1825         P045[1] = iP045[1] + seg0;
1826         P046[1] = iP046[1] + seg0;
1827         P047[1] = iP047[1] + seg0;
1828         P048[1] = iP048[1] + seg0;
1829         P049[1] = iP049[1] + seg0;
1830         P050[1] = iP050[1] + seg0;
1831         P051[1] = iP051[1] + seg0;
1832
1833         P009[1] = iP009[1] + seg6;
1834         P010[1] = iP010[1] + seg6;
1835         P075[1] = iP075[1] + seg6;
1836         P076[1] = iP076[1] + seg6;
1837
1838         P001[1] = iP001[1] + seg7;
1839         P011[1] = iP011[1] + seg7;
1840         P068[1] = iP068[1] + seg7;
1841         P069[1] = iP069[1] + seg7;
1842         P070[1] = iP070[1] + seg7;
1843         P071[1] = iP071[1] + seg7;
1844         P072[1] = iP072[1] + seg7;
1845         P073[1] = iP073[1] + seg7;
1846         P074[1] = iP074[1] + seg7;
1847
1848         P091[1] = iP091[1] + seg3 * 1.1;
1849         P092[1] = iP092[1] + seg3;
1850         P093[1] = iP093[1] + seg3;
1851         P094[1] = iP094[1] + seg3;
1852         P095[1] = iP095[1] + seg3 * 0.9;
1853
1854         P099[1] = iP099[1] + chomp;
1855         P098[1] = iP098[1] + chomp;
1856         P064[1] = iP064[1] + chomp;
1857         P061[1] = iP061[1] + chomp;
1858         P097[1] = iP097[1] + chomp;
1859         P096[1] = iP096[1] + chomp;
1860
1861         glPushMatrix();
1862
1863         glRotatef(pitch, 1.0, 0.0, 0.0);
1864
1865         glTranslatef(0.0, 0.0, 8000.0);
1866
1867         glRotatef(180.0, 0.0, 1.0, 0.0);
1868
1869         glScalef(3.0, 3.0, 3.0);
1870
1871         glEnable(GL_CULL_FACE);
1872
1873         cap = wire ? GL_LINE_LOOP : GL_POLYGON;
1874         Whale001(cap);
1875         Whale002(cap);
1876         Whale003(cap);
1877         Whale004(cap);
1878         Whale005(cap);
1879         Whale006(cap);
1880         Whale007(cap);
1881         Whale008(cap);
1882         Whale009(cap);
1883         Whale010(cap);
1884         Whale011(cap);
1885         Whale012(cap);
1886         Whale013(cap);
1887         Whale014(cap);
1888         Whale015(cap);
1889         Whale016(cap);
1890
1891         glDisable(GL_CULL_FACE);
1892
1893         glPopMatrix();
1894 }
1895 #endif