#
# (c) Copyright 1993, 1994, Silicon Graphics, Inc.
# ALL RIGHTS RESERVED
# Permission to use, copy, modify, and distribute this software for
# any purpose and without fee is hereby granted, provided that the above
# copyright notice appear in all copies and that both the copyright notice
# and this permission notice appear in supporting documentation, and that
# the name of Silicon Graphics, Inc. not be used in advertising
# or publicity pertaining to distribution of the software without specific,
# written prior permission.
#
# THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
# AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
# INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
# FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL SILICON
# GRAPHICS, INC.  BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
# SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY
# KIND, OR ANY DAMAGES WHATSOEVER, INCLUDING WITHOUT LIMITATION,
# LOSS OF PROFIT, LOSS OF USE, SAVINGS OR REVENUE, OR THE CLAIMS OF
# THIRD PARTIES, WHETHER OR NOT SILICON GRAPHICS, INC.  HAS BEEN
# ADVISED OF THE POSSIBILITY OF SUCH LOSS, HOWEVER CAUSED AND ON
# ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
# POSSESSION, USE OR PERFORMANCE OF THIS SOFTWARE.
#
# US Government Users Restricted Rights
# Use, duplication, or disclosure by the Government is subject to
# restrictions set forth in FAR 52.227.19(c)(2) or subparagraph
# (c)(1)(ii) of the Rights in Technical Data and Computer Software
# clause at DFARS 252.227-7013 and/or in similar or successor
# clauses in the FAR or the DOD or NASA FAR Supplement.
# Unpublished-- rights reserved under the copyright laws of the
# United States.  Contractor/manufacturer is Silicon Graphics,
# Inc., 2011 N.  Shoreline Blvd., Mountain View, CA 94039-7311.
#
# OpenGL(TM) is a trademark of Silicon Graphics, Inc.
#

set dN001 {-0.005937 -0.101998 -0.994767}
set dN002 {0.936780 -0.200803 0.286569}
set dN003 {-0.233062 0.972058 0.028007}
set dN005 {0.898117 0.360171 0.252315}
set dN006 {-0.915437 0.348456 0.201378}
set dN007 {0.602263 -0.777527 0.180920}
set dN008 {-0.906912 -0.412015 0.088061}
set dN012 {0.884408 -0.429417 -0.182821}
set dN013 {0.921121 0.311084 -0.234016}
set dN014 {0.382635 0.877882 -0.287948}
set dN015 {-0.380046 0.888166 -0.258316}
set dN016 {-0.891515 0.392238 -0.226607}
set dN017 {-0.901419 -0.382002 -0.203763}
set dN018 {-0.367225 -0.911091 -0.187243}
set dN019 {0.339539 -0.924846 -0.171388}
set dN020 {0.914706 -0.378617 -0.141290}
set dN021 {0.950662 0.262713 -0.164994}
set dN022 {0.546359 0.801460 -0.243218}
set dN023 {-0.315796 0.917068 -0.243431}
set dN024 {-0.825687 0.532277 -0.186875}
set dN025 {-0.974763 -0.155232 -0.160435}
set dN026 {-0.560596 -0.816658 -0.137119}
set dN027 {0.380210 -0.910817 -0.160786}
set dN028 {0.923772 -0.358322 -0.135093}
set dN029 {0.951202 0.275053 -0.139859}
set dN030 {0.686099 0.702548 -0.188932}
set dN031 {-0.521865 0.826719 -0.210220}
set dN032 {-0.923820 0.346739 -0.162258}
set dN033 {-0.902095 -0.409995 -0.134646}
set dN034 {-0.509115 -0.848498 -0.144404}
set dN035 {0.456469 -0.880293 -0.129305}
set dN036 {0.873401 -0.475489 -0.105266}
set dN037 {0.970825 0.179861 -0.158584}
set dN038 {0.675609 0.714187 -0.183004}
set dN039 {-0.523574 0.830212 -0.191360}
set dN040 {-0.958895 0.230808 -0.165071}
set dN041 {-0.918285 -0.376803 -0.121542}
set dN042 {-0.622467 -0.774167 -0.114888}
set dN043 {0.404497 -0.908807 -0.102231}
set dN044 {0.930538 -0.365155 -0.027588}
set dN045 {0.921920 0.374157 -0.100345}
set dN046 {0.507346 0.860739 0.041562}
set dN047 {-0.394646 0.918815 -0.005730}
set dN048 {-0.925411 0.373024 -0.066837}
set dN049 {-0.945337 -0.322309 -0.049551}
set dN050 {-0.660437 -0.750557 -0.022072}
set dN051 {0.488835 -0.871950 -0.027261}
set dN052 {0.902599 -0.421397 0.087969}
set dN053 {0.938636 0.322606 0.122020}
set dN054 {0.484605 0.871078 0.079878}
set dN055 {-0.353607 0.931559 0.084619}
set dN056 {-0.867759 0.478564 0.134054}
set dN057 {-0.951583 -0.296030 0.082794}
set dN058 {-0.672355 -0.730209 0.121384}
set dN059 {0.528336 -0.842452 0.105525}
set dN060 {0.786913 -0.564760 0.248627}
set dN062 {0.622098 0.765230 0.165584}
set dN063 {-0.631711 0.767816 0.106773}
set dN064 {-0.687886 0.606351 0.398938}
set dN065 {-0.946327 -0.281623 0.158598}
set dN066 {-0.509549 -0.860437 0.002776}
set dN067 {0.462594 -0.876692 0.131977}
set dN071 {0.000000 1.000000 0.000000}
set dN077 {-0.880770 0.461448 0.106351}
set dN078 {-0.880770 0.461448 0.106351}
set dN079 {-0.880770 0.461448 0.106351}
set dN080 {-0.880770 0.461448 0.106351}
set dN081 {-0.571197 0.816173 0.087152}
set dN082 {-0.880770 0.461448 0.106351}
set dN083 {-0.571197 0.816173 0.087152}
set dN084 {-0.571197 0.816173 0.087152}
set dN085 {-0.880770 0.461448 0.106351}
set dN086 {-0.571197 0.816173 0.087152}
set dN087 {-0.880770 0.461448 0.106351}
set dN088 {-0.880770 0.461448 0.106351}
set dN089 {-0.880770 0.461448 0.106351}
set dN090 {-0.880770 0.461448 0.106351}
set dN091 {0.000000 1.000000 0.000000}
set dN092 {0.000000 1.000000 0.000000}
set dN093 {0.000000 1.000000 0.000000}
set dN094 {1.000000 0.000000 0.000000}
set dN095 {-1.000000 0.000000 0.000000}
set dN097 {-0.697296 0.702881 0.140491}
set dN098 {0.918864 0.340821 0.198819}
set dN099 {-0.932737 0.201195 0.299202}
set dN100 {0.029517 0.981679 0.188244}
set dN102 {0.813521 -0.204936 0.544229}
set dN110 {-0.781480 -0.384779 0.491155}
set dN111 {-0.722243 0.384927 0.574627}
set dN112 {-0.752278 0.502679 0.425901}
set dN113 {0.547257 0.367910 0.751766}
set dN114 {0.725949 -0.232568 0.647233}
set dN115 {-0.747182 -0.660786 0.071280}
set dN116 {0.931519 0.200748 0.303270}
set dN117 {-0.828928 0.313757 0.463071}
set dN118 {0.902554 -0.370967 0.218587}
set dN119 {-0.879257 -0.441851 0.177973}
set dN120 {0.642327 0.611901 0.461512}
set dN121 {0.964817 -0.202322 0.167910}
set dN122 {0.000000 1.000000 0.000000}
set dP001 {5.68 -300.95 1324.70}
set dP002 {338.69 -219.63 9677.03}
set dP003 {12.18 474.59 9138.14}
set dP005 {487.51 198.05 9350.78}
set dP006 {-457.61 68.74 9427.85}
set dP007 {156.52 -266.72 10311.68}
set dP008 {-185.56 -266.51 10310.47}
set dP009 {124.39 -261.46 1942.34}
set dP010 {-130.05 -261.46 1946.03}
set dP011 {141.07 -320.11 1239.38}
set dP012 {156.48 -360.12 2073.41}
set dP013 {162.00 -175.88 2064.44}
set dP014 {88.16 -87.72 2064.02}
set dP015 {-65.21 -96.13 2064.02}
set dP016 {-156.48 -180.96 2064.44}
set dP017 {-162.00 -368.93 2082.39}
set dP018 {-88.16 -439.22 2082.39}
set dP019 {65.21 -440.32 2083.39}
set dP020 {246.87 -356.02 2576.95}
set dP021 {253.17 -111.15 2567.15}
set dP022 {132.34 51.41 2559.84}
set dP023 {-97.88 40.44 2567.15}
set dP024 {-222.97 -117.49 2567.15}
set dP025 {-252.22 -371.53 2569.92}
set dP026 {-108.44 -518.19 2586.75}
set dP027 {97.88 -524.79 2586.75}
set dP028 {370.03 -421.19 3419.70}
set dP029 {351.15 -16.98 3423.17}
set dP030 {200.66 248.46 3430.37}
set dP031 {-148.42 235.02 3417.91}
set dP032 {-360.21 -30.27 3416.84}
set dP033 {-357.90 -414.89 3407.04}
set dP034 {-148.88 -631.35 3409.90}
set dP035 {156.38 -632.59 3419.70}
set dP036 {462.61 -469.21 4431.51}
set dP037 {466.60 102.25 4434.98}
set dP038 {243.05 474.34 4562.02}
set dP039 {-191.23 474.40 4554.42}
set dP040 {-476.12 111.05 4451.11}
set dP041 {-473.36 -470.74 4444.78}
set dP042 {-266.95 -748.41 4447.78}
set dP043 {211.14 -749.91 4429.73}
set dP044 {680.57 -370.27 5943.46}
set dP045 {834.01 363.09 6360.63}
set dP046 {371.29 804.51 6486.26}
set dP047 {-291.43 797.22 6494.28}
set dP048 {-784.13 370.75 6378.01}
set dP049 {-743.29 -325.82 5943.46}
set dP050 {-383.24 -804.77 5943.46}
set dP051 {283.47 -846.09 5943.46}
set idP001 {5.68 -300.95 1324.70}
set idP009 {124.39 -261.46 1942.34}
set idP010 {-130.05 -261.46 1946.03}
set idP011 {141.07 -320.11 1239.38}
set idP012 {156.48 -360.12 2073.41}
set idP013 {162.00 -175.88 2064.44}
set idP014 {88.16 -87.72 2064.02}
set idP015 {-65.21 -96.13 2064.02}
set idP016 {-156.48 -180.96 2064.44}
set idP017 {-162.00 -368.93 2082.39}
set idP018 {-88.16 -439.22 2082.39}
set idP019 {65.21 -440.32 2083.39}
set idP020 {246.87 -356.02 2576.95}
set idP021 {253.17 -111.15 2567.15}
set idP022 {132.34 51.41 2559.84}
set idP023 {-97.88 40.44 2567.15}
set idP024 {-222.97 -117.49 2567.15}
set idP025 {-252.22 -371.53 2569.92}
set idP026 {-108.44 -518.19 2586.75}
set idP027 {97.88 -524.79 2586.75}
set idP028 {370.03 -421.19 3419.70}
set idP029 {351.15 -16.98 3423.17}
set idP030 {200.66 248.46 3430.37}
set idP031 {-148.42 235.02 3417.91}
set idP032 {-360.21 -30.27 3416.84}
set idP033 {-357.90 -414.89 3407.04}
set idP034 {-148.88 -631.35 3409.90}
set idP035 {156.38 -632.59 3419.70}
set idP036 {462.61 -469.21 4431.51}
set idP037 {466.60 102.25 4434.98}
set idP038 {243.05 474.34 4562.02}
set idP039 {-191.23 474.40 4554.42}
set idP040 {-476.12 111.05 4451.11}
set idP041 {-473.36 -470.74 4444.78}
set idP042 {-266.95 -748.41 4447.78}
set idP043 {211.14 -749.91 4429.73}
set idP044 {680.57 -370.27 5943.46}
set idP045 {834.01 363.09 6360.63}
set idP046 {371.29 804.51 6486.26}
set idP047 {-291.43 797.22 6494.28}
set idP048 {-784.13 370.75 6378.01}
set idP049 {-743.29 -325.82 5943.46}
set idP050 {-383.24 -804.77 5943.46}
set idP051 {283.47 -846.09 5943.46}
set dP052 {599.09 -300.15 7894.03}
set dP053 {735.48 306.26 7911.92}
set dP054 {246.22 558.53 8460.50}
set dP055 {-230.41 559.84 8473.23}
set dP056 {-698.66 320.83 7902.59}
set dP057 {-643.29 -299.16 7902.59}
set dP058 {-341.47 -719.30 7902.59}
set dP059 {252.57 -756.12 7902.59}
set dP060 {458.39 -265.31 9355.44}
set dP062 {224.04 338.75 9450.30}
set dP063 {-165.71 341.04 9462.35}
set dP064 {-298.11 110.13 10180.37}
set dP065 {-473.99 -219.71 9355.44}
set dP066 {-211.97 -479.87 9355.44}
set dP067 {192.86 -491.45 9348.73}
set dP068 {-136.29 -319.84 1228.73}
set dP069 {1111.17 -314.14 1314.19}
set dP070 {-1167.34 -321.61 1319.45}
set dP071 {1404.86 -306.66 1235.45}
set dP072 {-1409.73 -314.14 1247.66}
set dP073 {1254.01 -296.87 1544.58}
set dP074 {-1262.09 -291.70 1504.26}
set dP075 {965.71 -269.26 1742.65}
set dP076 {-900.97 -276.74 1726.07}
set idP068 {-136.29 -319.84 1228.73}
set idP069 {1111.17 -314.14 1314.19}
set idP070 {-1167.34 -321.61 1319.45}
set idP071 {1404.86 -306.66 1235.45}
set idP072 {-1409.73 -314.14 1247.66}
set idP073 {1254.01 -296.87 1544.58}
set idP074 {-1262.09 -291.70 1504.26}
set idP075 {965.71 -269.26 1742.65}
set idP076 {-900.97 -276.74 1726.07}
set dP077 {1058.00 -448.81 8194.66}
set dP078 {-1016.51 -456.43 8190.62}
set dP079 {-1515.96 -676.45 7754.93}
set dP080 {1856.75 -830.34 7296.56}
set dP081 {1472.16 -497.38 7399.68}
set dP082 {-1775.26 -829.51 7298.46}
set dP083 {911.09 -252.51 7510.99}
set dP084 {-1451.94 -495.62 7384.30}
set dP085 {1598.75 -669.26 7769.90}
set dP086 {-836.53 -250.08 7463.25}
set dP087 {722.87 -158.18 8006.41}
set dP088 {-688.86 -162.28 7993.89}
set dP089 {-626.92 -185.30 8364.98}
set dP090 {647.72 -189.46 8354.99}
set dP091 {0.00 835.01 5555.62}
set dP092 {0.00 1350.18 5220.86}
set dP093 {0.00 1422.94 5285.27}
set dP094 {0.00 1296.75 5650.19}
set dP095 {0.00 795.63 6493.88}
set idP091 {0.00 835.01 5555.62}
set idP092 {0.00 1350.18 5220.86}
set idP093 {0.00 1422.94 5285.27}
set idP094 {0.00 1296.75 5650.19}
set idP095 {0.00 795.63 6493.88}
set dP097 {-194.91 -357.14 10313.32}
set dP098 {135.35 -357.66 10307.94}
set idP097 {-194.91 -357.14 10313.32}
set idP098 {135.35 -357.66 10307.94}
set dP099 {-380.53 -221.14 9677.98}
set dP100 {0.00 412.99 9629.33}
set dP102 {59.51 -412.55 10677.58}
set idP102 {59.51 -412.55 10677.58}
set dP103 {6.50 484.74 9009.94}
set dP105 {-41.86 476.51 9078.17}
set dP108 {49.20 476.83 9078.24}
set dP110 {-187.62 -410.04 10674.12}
set idP110 {-187.62 -410.04 10674.12}
set dP111 {-184.25 -318.70 10723.88}
set idP111 {-184.25 -318.70 10723.88}
set dP112 {-179.61 -142.81 10670.26}
set dP113 {57.43 -147.94 10675.26}
set dP114 {54.06 -218.90 10712.44}
set dP115 {-186.35 -212.09 10713.76}
set dP116 {205.90 -84.61 10275.97}
set dP117 {-230.96 -83.26 10280.09}
set idP118 {216.78 -509.17 10098.94}
set idP119 {-313.21 -510.79 10102.62}
set dP118 {216.78 -509.17 10098.94}
set dP119 {-313.21 -510.79 10102.62}
set dP120 {217.95 96.34 10161.62}
set dP121 {71.99 -319.74 10717.70}
set idP121 {71.99 -319.74 10717.70}
set dP122 {0.00 602.74 5375.84}
set idP122 {0.00 602.74 5375.84}
set dP123 {-448.94 -203.14 9499.60}
set dP124 {-442.64 -185.20 9528.07}
set dP125 {-441.07 -148.05 9528.07}
set dP126 {-443.43 -128.84 9499.60}
set dP127 {-456.87 -146.78 9466.67}
set dP128 {-453.68 -183.93 9466.67}
set dP129 {428.43 -124.08 9503.03}
set dP130 {419.73 -142.14 9534.56}
set dP131 {419.92 -179.96 9534.56}
set dP132 {431.20 -199.73 9505.26}
set dP133 {442.28 -181.67 9475.96}
set dP134 {442.08 -143.84 9475.96}

proc Dolphin001 {} {
    glNormal3fv $::dN071
    glBegin $::GL_POLYGON
    glVertex3fv $::dP001
    glVertex3fv $::dP068
    glVertex3fv $::dP010
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP068
    glVertex3fv $::dP076
    glVertex3fv $::dP010
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP068
    glVertex3fv $::dP070
    glVertex3fv $::dP076
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP076
    glVertex3fv $::dP070
    glVertex3fv $::dP074
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP070
    glVertex3fv $::dP072
    glVertex3fv $::dP074
    glEnd
    glNormal3fv $::dN119
    glBegin $::GL_POLYGON
    glVertex3fv $::dP072
    glVertex3fv $::dP070
    glVertex3fv $::dP074
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP074
    glVertex3fv $::dP070
    glVertex3fv $::dP076
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP070
    glVertex3fv $::dP068
    glVertex3fv $::dP076
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP076
    glVertex3fv $::dP068
    glVertex3fv $::dP010
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP068
    glVertex3fv $::dP001
    glVertex3fv $::dP010
    glEnd
}

proc Dolphin002 {} {
    glNormal3fv $::dN071
    glBegin $::GL_POLYGON
    glVertex3fv $::dP011
    glVertex3fv $::dP001
    glVertex3fv $::dP009
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP075
    glVertex3fv $::dP011
    glVertex3fv $::dP009
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP069
    glVertex3fv $::dP011
    glVertex3fv $::dP075
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP069
    glVertex3fv $::dP075
    glVertex3fv $::dP073
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP071
    glVertex3fv $::dP069
    glVertex3fv $::dP073
    glEnd
    glNormal3fv $::dN119
    glBegin $::GL_POLYGON
    glVertex3fv $::dP001
    glVertex3fv $::dP011
    glVertex3fv $::dP009
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP009
    glVertex3fv $::dP011
    glVertex3fv $::dP075
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP011
    glVertex3fv $::dP069
    glVertex3fv $::dP075
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP069
    glVertex3fv $::dP073
    glVertex3fv $::dP075
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP069
    glVertex3fv $::dP071
    glVertex3fv $::dP073
    glEnd
}

proc Dolphin003 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN018
    glVertex3fv $::dP018
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN019
    glVertex3fv $::dP019
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN019
    glVertex3fv $::dP019
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN012
    glVertex3fv $::dP012
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN017
    glVertex3fv $::dP017
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN018
    glVertex3fv $::dP018
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN017
    glVertex3fv $::dP017
    glNormal3fv $::dN016
    glVertex3fv $::dP016
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN013
    glVertex3fv $::dP013
    glNormal3fv $::dN012
    glVertex3fv $::dP012
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN016
    glVertex3fv $::dP016
    glNormal3fv $::dN015
    glVertex3fv $::dP015
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN014
    glVertex3fv $::dP014
    glNormal3fv $::dN013
    glVertex3fv $::dP013
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN001
    glVertex3fv $::dP001
    glNormal3fv $::dN015
    glVertex3fv $::dP015
    glNormal3fv $::dN014
    glVertex3fv $::dP014
    glEnd
}

proc Dolphin004 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN014
    glVertex3fv $::dP014
    glNormal3fv $::dN015
    glVertex3fv $::dP015
    glNormal3fv $::dN023
    glVertex3fv $::dP023
    glNormal3fv $::dN022
    glVertex3fv $::dP022
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN015
    glVertex3fv $::dP015
    glNormal3fv $::dN016
    glVertex3fv $::dP016
    glNormal3fv $::dN024
    glVertex3fv $::dP024
    glNormal3fv $::dN023
    glVertex3fv $::dP023
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN016
    glVertex3fv $::dP016
    glNormal3fv $::dN017
    glVertex3fv $::dP017
    glNormal3fv $::dN025
    glVertex3fv $::dP025
    glNormal3fv $::dN024
    glVertex3fv $::dP024
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN017
    glVertex3fv $::dP017
    glNormal3fv $::dN018
    glVertex3fv $::dP018
    glNormal3fv $::dN026
    glVertex3fv $::dP026
    glNormal3fv $::dN025
    glVertex3fv $::dP025
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN013
    glVertex3fv $::dP013
    glNormal3fv $::dN014
    glVertex3fv $::dP014
    glNormal3fv $::dN022
    glVertex3fv $::dP022
    glNormal3fv $::dN021
    glVertex3fv $::dP021
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN012
    glVertex3fv $::dP012
    glNormal3fv $::dN013
    glVertex3fv $::dP013
    glNormal3fv $::dN021
    glVertex3fv $::dP021
    glNormal3fv $::dN020
    glVertex3fv $::dP020
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN018
    glVertex3fv $::dP018
    glNormal3fv $::dN019
    glVertex3fv $::dP019
    glNormal3fv $::dN027
    glVertex3fv $::dP027
    glNormal3fv $::dN026
    glVertex3fv $::dP026
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN019
    glVertex3fv $::dP019
    glNormal3fv $::dN012
    glVertex3fv $::dP012
    glNormal3fv $::dN020
    glVertex3fv $::dP020
    glNormal3fv $::dN027
    glVertex3fv $::dP027
    glEnd
}

proc Dolphin005 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN022
    glVertex3fv $::dP022
    glNormal3fv $::dN023
    glVertex3fv $::dP023
    glNormal3fv $::dN031
    glVertex3fv $::dP031
    glNormal3fv $::dN030
    glVertex3fv $::dP030
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN021
    glVertex3fv $::dP021
    glNormal3fv $::dN022
    glVertex3fv $::dP022
    glNormal3fv $::dN030
    glVertex3fv $::dP030
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN021
    glVertex3fv $::dP021
    glNormal3fv $::dN030
    glVertex3fv $::dP030
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN023
    glVertex3fv $::dP023
    glNormal3fv $::dN024
    glVertex3fv $::dP024
    glNormal3fv $::dN031
    glVertex3fv $::dP031
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN024
    glVertex3fv $::dP024
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glNormal3fv $::dN031
    glVertex3fv $::dP031
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN024
    glVertex3fv $::dP024
    glNormal3fv $::dN025
    glVertex3fv $::dP025
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN025
    glVertex3fv $::dP025
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN020
    glVertex3fv $::dP020
    glNormal3fv $::dN021
    glVertex3fv $::dP021
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN020
    glVertex3fv $::dP020
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN027
    glVertex3fv $::dP027
    glNormal3fv $::dN020
    glVertex3fv $::dP020
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN027
    glVertex3fv $::dP027
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glNormal3fv $::dN035
    glVertex3fv $::dP035
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN025
    glVertex3fv $::dP025
    glNormal3fv $::dN026
    glVertex3fv $::dP026
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN026
    glVertex3fv $::dP026
    glNormal3fv $::dN034
    glVertex3fv $::dP034
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN026
    glVertex3fv $::dP026
    glNormal3fv $::dN027
    glVertex3fv $::dP027
    glNormal3fv $::dN035
    glVertex3fv $::dP035
    glNormal3fv $::dN034
    glVertex3fv $::dP034
    glEnd
}

proc Dolphin006 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN092
    glVertex3fv $::dP092
    glNormal3fv $::dN093
    glVertex3fv $::dP093
    glNormal3fv $::dN094
    glVertex3fv $::dP094
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN093
    glVertex3fv $::dP093
    glNormal3fv $::dN092
    glVertex3fv $::dP092
    glNormal3fv $::dN094
    glVertex3fv $::dP094
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN092
    glVertex3fv $::dP092
    glNormal3fv $::dN091
    glVertex3fv $::dP091
    glNormal3fv $::dN095
    glVertex3fv $::dP095
    glNormal3fv $::dN094
    glVertex3fv $::dP094
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN091
    glVertex3fv $::dP091
    glNormal3fv $::dN092
    glVertex3fv $::dP092
    glNormal3fv $::dN094
    glVertex3fv $::dP094
    glNormal3fv $::dN095
    glVertex3fv $::dP095
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN122
    glVertex3fv $::dP122
    glNormal3fv $::dN095
    glVertex3fv $::dP095
    glNormal3fv $::dN091
    glVertex3fv $::dP091
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN122
    glVertex3fv $::dP122
    glNormal3fv $::dN091
    glVertex3fv $::dP091
    glNormal3fv $::dN095
    glVertex3fv $::dP095
    glEnd
}

proc Dolphin007 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN030
    glVertex3fv $::dP030
    glNormal3fv $::dN031
    glVertex3fv $::dP031
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glNormal3fv $::dN030
    glVertex3fv $::dP030
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glNormal3fv $::dN029
    glVertex3fv $::dP029
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN035
    glVertex3fv $::dP035
    glNormal3fv $::dN028
    glVertex3fv $::dP028
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN035
    glVertex3fv $::dP035
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glNormal3fv $::dN043
    glVertex3fv $::dP043
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN034
    glVertex3fv $::dP034
    glNormal3fv $::dN035
    glVertex3fv $::dP035
    glNormal3fv $::dN043
    glVertex3fv $::dP043
    glNormal3fv $::dN042
    glVertex3fv $::dP042
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN034
    glVertex3fv $::dP034
    glNormal3fv $::dN042
    glVertex3fv $::dP042
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN042
    glVertex3fv $::dP042
    glNormal3fv $::dN041
    glVertex3fv $::dP041
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN031
    glVertex3fv $::dP031
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN032
    glVertex3fv $::dP032
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glNormal3fv $::dN033
    glVertex3fv $::dP033
    glNormal3fv $::dN041
    glVertex3fv $::dP041
    glEnd
}

proc Dolphin008 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN042
    glVertex3fv $::dP042
    glNormal3fv $::dN043
    glVertex3fv $::dP043
    glNormal3fv $::dN051
    glVertex3fv $::dP051
    glNormal3fv $::dN050
    glVertex3fv $::dP050
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN043
    glVertex3fv $::dP043
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glNormal3fv $::dN051
    glVertex3fv $::dP051
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN051
    glVertex3fv $::dP051
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN041
    glVertex3fv $::dP041
    glNormal3fv $::dN042
    glVertex3fv $::dP042
    glNormal3fv $::dN050
    glVertex3fv $::dP050
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN041
    glVertex3fv $::dP041
    glNormal3fv $::dN050
    glVertex3fv $::dP050
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN036
    glVertex3fv $::dP036
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glNormal3fv $::dN045
    glVertex3fv $::dP045
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glNormal3fv $::dN041
    glVertex3fv $::dP041
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glNormal3fv $::dN040
    glVertex3fv $::dP040
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glNormal3fv $::dN047
    glVertex3fv $::dP047
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN037
    glVertex3fv $::dP037
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glNormal3fv $::dN045
    glVertex3fv $::dP045
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glNormal3fv $::dN046
    glVertex3fv $::dP046
    glNormal3fv $::dN045
    glVertex3fv $::dP045
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN038
    glVertex3fv $::dP038
    glNormal3fv $::dN039
    glVertex3fv $::dP039
    glNormal3fv $::dN047
    glVertex3fv $::dP047
    glNormal3fv $::dN046
    glVertex3fv $::dP046
    glEnd
}

proc Dolphin009 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN050
    glVertex3fv $::dP050
    glNormal3fv $::dN051
    glVertex3fv $::dP051
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN051
    glVertex3fv $::dP051
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glNormal3fv $::dN052
    glVertex3fv $::dP052
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glNormal3fv $::dN045
    glVertex3fv $::dP045
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN044
    glVertex3fv $::dP044
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glNormal3fv $::dN052
    glVertex3fv $::dP052
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glNormal3fv $::dN050
    glVertex3fv $::dP050
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glNormal3fv $::dN057
    glVertex3fv $::dP057
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glNormal3fv $::dN049
    glVertex3fv $::dP049
    glNormal3fv $::dN057
    glVertex3fv $::dP057
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glNormal3fv $::dN057
    glVertex3fv $::dP057
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN047
    glVertex3fv $::dP047
    glNormal3fv $::dN048
    glVertex3fv $::dP048
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN047
    glVertex3fv $::dP047
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glNormal3fv $::dN055
    glVertex3fv $::dP055
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN045
    glVertex3fv $::dP045
    glNormal3fv $::dN046
    glVertex3fv $::dP046
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN046
    glVertex3fv $::dP046
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN046
    glVertex3fv $::dP046
    glNormal3fv $::dN047
    glVertex3fv $::dP047
    glNormal3fv $::dN055
    glVertex3fv $::dP055
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glEnd
}

proc Dolphin010 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN080
    glVertex3fv $::dP080
    glNormal3fv $::dN081
    glVertex3fv $::dP081
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN081
    glVertex3fv $::dP081
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN087
    glVertex3fv $::dP087
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glNormal3fv $::dN087
    glVertex3fv $::dP087
    glNormal3fv $::dN090
    glVertex3fv $::dP090
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN081
    glVertex3fv $::dP081
    glNormal3fv $::dN080
    glVertex3fv $::dP080
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN081
    glVertex3fv $::dP081
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN085
    glVertex3fv $::dP085
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN087
    glVertex3fv $::dP087
    glNormal3fv $::dN083
    glVertex3fv $::dP083
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN087
    glVertex3fv $::dP087
    glNormal3fv $::dN077
    glVertex3fv $::dP077
    glNormal3fv $::dN090
    glVertex3fv $::dP090
    glEnd
}

proc Dolphin011 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN082
    glVertex3fv $::dP082
    glNormal3fv $::dN084
    glVertex3fv $::dP084
    glNormal3fv $::dN079
    glVertex3fv $::dP079
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN084
    glVertex3fv $::dP084
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN079
    glVertex3fv $::dP079
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN079
    glVertex3fv $::dP079
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN088
    glVertex3fv $::dP088
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glNormal3fv $::dN088
    glVertex3fv $::dP088
    glNormal3fv $::dN089
    glVertex3fv $::dP089
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN088
    glVertex3fv $::dP088
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN089
    glVertex3fv $::dP089
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN089
    glVertex3fv $::dP089
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN086
    glVertex3fv $::dP086
    glNormal3fv $::dN084
    glVertex3fv $::dP084
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN078
    glVertex3fv $::dP078
    glNormal3fv $::dN084
    glVertex3fv $::dP084
    glNormal3fv $::dN079
    glVertex3fv $::dP079
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN084
    glVertex3fv $::dP084
    glNormal3fv $::dN082
    glVertex3fv $::dP082
    glNormal3fv $::dN079
    glVertex3fv $::dP079
    glEnd
}

proc Dolphin012 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glNormal3fv $::dN067
    glVertex3fv $::dP067
    glNormal3fv $::dN066
    glVertex3fv $::dP066
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glNormal3fv $::dN052
    glVertex3fv $::dP052
    glNormal3fv $::dN060
    glVertex3fv $::dP060
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN059
    glVertex3fv $::dP059
    glNormal3fv $::dN060
    glVertex3fv $::dP060
    glNormal3fv $::dN067
    glVertex3fv $::dP067
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glNormal3fv $::dN066
    glVertex3fv $::dP066
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN058
    glVertex3fv $::dP058
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glNormal3fv $::dN057
    glVertex3fv $::dP057
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glNormal3fv $::dN057
    glVertex3fv $::dP057
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glNormal3fv $::dN006
    glVertex3fv $::dP006
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glNormal3fv $::dN006
    glVertex3fv $::dP006
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN056
    glVertex3fv $::dP056
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glNormal3fv $::dN055
    glVertex3fv $::dP055
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glNormal3fv $::dN062
    glVertex3fv $::dP062
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN052
    glVertex3fv $::dP052
    glNormal3fv $::dN053
    glVertex3fv $::dP053
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glNormal3fv $::dN060
    glVertex3fv $::dP060
    glEnd
}

proc Dolphin013 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glNormal3fv $::dN117
    glVertex3fv $::dP117
    glNormal3fv $::dN112
    glVertex3fv $::dP112
    glNormal3fv $::dN113
    glVertex3fv $::dP113
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN114
    glVertex3fv $::dP114
    glNormal3fv $::dN113
    glVertex3fv $::dP113
    glNormal3fv $::dN112
    glVertex3fv $::dP112
    glNormal3fv $::dN115
    glVertex3fv $::dP115
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN114
    glVertex3fv $::dP114
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glNormal3fv $::dN113
    glVertex3fv $::dP113
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN114
    glVertex3fv $::dP114
    glNormal3fv $::dN007
    glVertex3fv $::dP007
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN007
    glVertex3fv $::dP007
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP002
    glVertex3fv $::dP007
    glVertex3fv $::dP008
    glVertex3fv $::dP099
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP007
    glVertex3fv $::dP114
    glVertex3fv $::dP115
    glVertex3fv $::dP008
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN117
    glVertex3fv $::dP117
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glNormal3fv $::dN008
    glVertex3fv $::dP008
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN117
    glVertex3fv $::dP117
    glNormal3fv $::dN008
    glVertex3fv $::dP008
    glNormal3fv $::dN112
    glVertex3fv $::dP112
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN112
    glVertex3fv $::dP112
    glNormal3fv $::dN008
    glVertex3fv $::dP008
    glNormal3fv $::dN115
    glVertex3fv $::dP115
    glEnd
}

proc Dolphin014 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN111
    glVertex3fv $::dP111
    glNormal3fv $::dN110
    glVertex3fv $::dP110
    glNormal3fv $::dN102
    glVertex3fv $::dP102
    glNormal3fv $::dN121
    glVertex3fv $::dP121
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN111
    glVertex3fv $::dP111
    glNormal3fv $::dN097
    glVertex3fv $::dP097
    glNormal3fv $::dN110
    glVertex3fv $::dP110
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN097
    glVertex3fv $::dP097
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glNormal3fv $::dN110
    glVertex3fv $::dP110
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN097
    glVertex3fv $::dP097
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glNormal3fv $::dN066
    glVertex3fv $::dP066
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP098
    glVertex3fv $::dP097
    glVertex3fv $::dP111
    glVertex3fv $::dP121
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP002
    glVertex3fv $::dP099
    glVertex3fv $::dP097
    glVertex3fv $::dP098
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN110
    glVertex3fv $::dP110
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glNormal3fv $::dN118
    glVertex3fv $::dP118
    glNormal3fv $::dN102
    glVertex3fv $::dP102
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN119
    glVertex3fv $::dP119
    glNormal3fv $::dN066
    glVertex3fv $::dP066
    glNormal3fv $::dN067
    glVertex3fv $::dP067
    glNormal3fv $::dN118
    glVertex3fv $::dP118
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN067
    glVertex3fv $::dP067
    glNormal3fv $::dN060
    glVertex3fv $::dP060
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN067
    glVertex3fv $::dP067
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glNormal3fv $::dN118
    glVertex3fv $::dP118
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN118
    glVertex3fv $::dP118
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glNormal3fv $::dN098
    glVertex3fv $::dP098
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN118
    glVertex3fv $::dP118
    glNormal3fv $::dN098
    glVertex3fv $::dP098
    glNormal3fv $::dN102
    glVertex3fv $::dP102
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN102
    glVertex3fv $::dP102
    glNormal3fv $::dN098
    glVertex3fv $::dP098
    glNormal3fv $::dN121
    glVertex3fv $::dP121
    glEnd
}

proc Dolphin015 {} {
    glBegin $::GL_POLYGON
    glNormal3fv $::dN055
    glVertex3fv $::dP055
    glNormal3fv $::dN003
    glVertex3fv $::dP003
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN003
    glVertex3fv $::dP003
    glNormal3fv $::dN055
    glVertex3fv $::dP055
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN003
    glVertex3fv $::dP003
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN003
    glVertex3fv $::dP003
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN054
    glVertex3fv $::dP054
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glNormal3fv $::dN062
    glVertex3fv $::dP062
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN063
    glVertex3fv $::dP063
    glNormal3fv $::dN006
    glVertex3fv $::dP006
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glNormal3fv $::dN006
    glVertex3fv $::dP006
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glNormal3fv $::dN117
    glVertex3fv $::dP117
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glNormal3fv $::dN064
    glVertex3fv $::dP064
    glNormal3fv $::dN117
    glVertex3fv $::dP117
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN006
    glVertex3fv $::dP006
    glNormal3fv $::dN065
    glVertex3fv $::dP065
    glNormal3fv $::dN099
    glVertex3fv $::dP099
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN062
    glVertex3fv $::dP062
    glNormal3fv $::dN100
    glVertex3fv $::dP100
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glNormal3fv $::dN062
    glVertex3fv $::dP062
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glNormal3fv $::dN120
    glVertex3fv $::dP120
    glNormal3fv $::dN116
    glVertex3fv $::dP116
    glEnd
    glBegin $::GL_POLYGON
    glNormal3fv $::dN060
    glVertex3fv $::dP060
    glNormal3fv $::dN005
    glVertex3fv $::dP005
    glNormal3fv $::dN002
    glVertex3fv $::dP002
    glEnd
}

proc Dolphin016 {} {

    glDisable $::GL_DEPTH_TEST
    glBegin $::GL_POLYGON
    glVertex3fv $::dP123
    glVertex3fv $::dP124
    glVertex3fv $::dP125
    glVertex3fv $::dP126
    glVertex3fv $::dP127
    glVertex3fv $::dP128
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP129
    glVertex3fv $::dP130
    glVertex3fv $::dP131
    glVertex3fv $::dP132
    glVertex3fv $::dP133
    glVertex3fv $::dP134
    glEnd
    glBegin $::GL_POLYGON
    glVertex3fv $::dP103
    glVertex3fv $::dP105
    glVertex3fv $::dP108
    glEnd
    glEnable $::GL_DEPTH_TEST
}

proc DrawDolphin { fishArr ind } {
    upvar 1 $fishArr fish

    set fish($ind,htail) [expr int($fish($ind,htail) - int(10.0 * $fish($ind,v))) % 360]

    set thrash [expr 70.0 * $fish($ind,v)]

    set seg0 [expr 1.0 * $thrash * sin(($fish($ind,htail)) * $::RRAD)]
    set seg3 [expr 1.0 * $thrash * sin(($fish($ind,htail)) * $::RRAD)]
    set seg1 [expr 2.0 * $thrash * sin(($fish($ind,htail) + 4.0) * $::RRAD)]
    set seg2 [expr 3.0 * $thrash * sin(($fish($ind,htail) + 6.0) * $::RRAD)]
    set seg4 [expr 4.0 * $thrash * sin(($fish($ind,htail) + 10.0) * $::RRAD)]
    set seg5 [expr 4.5 * $thrash * sin(($fish($ind,htail) + 15.0) * $::RRAD)]
    set seg6 [expr 5.0 * $thrash * sin(($fish($ind,htail) + 20.0) * $::RRAD)]
    set seg7 [expr 6.0 * $thrash * sin(($fish($ind,htail) + 30.0) * $::RRAD)]

    set pitch [expr $fish($ind,v) * sin(($fish($ind,htail) + 180.0) * $::RRAD)]

    if {$fish($ind,v) > 2.0} {
        set chomp [expr -1.0 * ($fish($ind,v) - 2.0) * 200.0]
    }
    set chomp 100.0

    lset ::dP012 1 [expr [lindex $::idP012 1] + $seg5]
    lset ::dP013 1 [expr [lindex $::idP013 1] + $seg5]
    lset ::dP014 1 [expr [lindex $::idP014 1] + $seg5]
    lset ::dP015 1 [expr [lindex $::idP015 1] + $seg5]
    lset ::dP016 1 [expr [lindex $::idP016 1] + $seg5]
    lset ::dP017 1 [expr [lindex $::idP017 1] + $seg5]
    lset ::dP018 1 [expr [lindex $::idP018 1] + $seg5]
    lset ::dP019 1 [expr [lindex $::idP019 1] + $seg5]

    lset ::dP020 1 [expr [lindex $::idP020 1] + $seg4]
    lset ::dP021 1 [expr [lindex $::idP021 1] + $seg4]
    lset ::dP022 1 [expr [lindex $::idP022 1] + $seg4]
    lset ::dP023 1 [expr [lindex $::idP023 1] + $seg4]
    lset ::dP024 1 [expr [lindex $::idP024 1] + $seg4]
    lset ::dP025 1 [expr [lindex $::idP025 1] + $seg4]
    lset ::dP026 1 [expr [lindex $::idP026 1] + $seg4]
    lset ::dP027 1 [expr [lindex $::idP027 1] + $seg4]

    lset ::dP028 1 [expr [lindex $::idP028 1] + $seg2]
    lset ::dP029 1 [expr [lindex $::idP029 1] + $seg2]
    lset ::dP030 1 [expr [lindex $::idP030 1] + $seg2]
    lset ::dP031 1 [expr [lindex $::idP031 1] + $seg2]
    lset ::dP032 1 [expr [lindex $::idP032 1] + $seg2]
    lset ::dP033 1 [expr [lindex $::idP033 1] + $seg2]
    lset ::dP034 1 [expr [lindex $::idP034 1] + $seg2]
    lset ::dP035 1 [expr [lindex $::idP035 1] + $seg2]

    lset ::dP036 1 [expr [lindex $::idP036 1] + $seg1]
    lset ::dP037 1 [expr [lindex $::idP037 1] + $seg1]
    lset ::dP038 1 [expr [lindex $::idP038 1] + $seg1]
    lset ::dP039 1 [expr [lindex $::idP039 1] + $seg1]
    lset ::dP040 1 [expr [lindex $::idP040 1] + $seg1]
    lset ::dP041 1 [expr [lindex $::idP041 1] + $seg1]
    lset ::dP042 1 [expr [lindex $::idP042 1] + $seg1]
    lset ::dP043 1 [expr [lindex $::idP043 1] + $seg1]

    lset ::dP044 1 [expr [lindex $::idP044 1] + $seg0]
    lset ::dP045 1 [expr [lindex $::idP045 1] + $seg0]
    lset ::dP046 1 [expr [lindex $::idP046 1] + $seg0]
    lset ::dP047 1 [expr [lindex $::idP047 1] + $seg0]
    lset ::dP048 1 [expr [lindex $::idP048 1] + $seg0]
    lset ::dP049 1 [expr [lindex $::idP049 1] + $seg0]
    lset ::dP050 1 [expr [lindex $::idP050 1] + $seg0]
    lset ::dP051 1 [expr [lindex $::idP051 1] + $seg0]

    lset ::dP009 1 [expr [lindex $::idP009 1] + $seg6]
    lset ::dP010 1 [expr [lindex $::idP010 1] + $seg6]
    lset ::dP075 1 [expr [lindex $::idP075 1] + $seg6]
    lset ::dP076 1 [expr [lindex $::idP076 1] + $seg6]

    lset ::dP001 1 [expr [lindex $::idP001 1] + $seg7]
    lset ::dP011 1 [expr [lindex $::idP011 1] + $seg7]
    lset ::dP068 1 [expr [lindex $::idP068 1] + $seg7]
    lset ::dP069 1 [expr [lindex $::idP069 1] + $seg7]
    lset ::dP070 1 [expr [lindex $::idP070 1] + $seg7]
    lset ::dP071 1 [expr [lindex $::idP071 1] + $seg7]
    lset ::dP072 1 [expr [lindex $::idP072 1] + $seg7]
    lset ::dP073 1 [expr [lindex $::idP073 1] + $seg7]
    lset ::dP074 1 [expr [lindex $::idP074 1] + $seg7]

    lset ::dP091 1 [expr [lindex $::idP091 1] + $seg3]
    lset ::dP092 1 [expr [lindex $::idP092 1] + $seg3]
    lset ::dP093 1 [expr [lindex $::idP093 1] + $seg3]
    lset ::dP094 1 [expr [lindex $::idP094 1] + $seg3]
    lset ::dP095 1 [expr [lindex $::idP095 1] + $seg3]
    lset ::dP122 1 [expr [lindex $::idP122 1] + $seg3 * 1.5]

    lset ::dP097 1 [expr [lindex $::idP097 1] + $chomp]
    lset ::dP098 1 [expr [lindex $::idP098 1] + $chomp]
    lset ::dP102 1 [expr [lindex $::idP102 1] + $chomp]
    lset ::dP110 1 [expr [lindex $::idP110 1] + $chomp]
    lset ::dP111 1 [expr [lindex $::idP111 1] + $chomp]
    lset ::dP121 1 [expr [lindex $::idP121 1] + $chomp]
    lset ::dP118 1 [expr [lindex $::idP118 1] + $chomp]
    lset ::dP119 1 [expr [lindex $::idP119 1] + $chomp]

    glPushMatrix

    glRotatef $pitch 1.0 0.0 0.0

    glTranslatef 0.0 0.0 7000.0

    glRotatef 180.0 0.0 1.0 0.0

    glEnable GL_CULL_FACE
    Dolphin014
    Dolphin010
    Dolphin009
    Dolphin012
    Dolphin013
    Dolphin006
    Dolphin002
    Dolphin001
    Dolphin003
    Dolphin015
    Dolphin004
    Dolphin005
    Dolphin007
    Dolphin008
    Dolphin011
    Dolphin016
    glDisable GL_CULL_FACE

    glPopMatrix
}
