http://ftp.x.org/contrib/applications/xscreensaver-3.09.tar.gz
[xscreensaver] / 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