—
— Jan & Uwe R. Zimmer, Australia, July 2011
—
with GL, GL.Materials, GLOBE_3D.Math;
package body Spaceship_P is
— Pretty output: FALSE
use GL, GL.Materials, GLOBE_3D, GLOBE_3D.Math;
— begin Separator # 1
— VRML: [# triangle mesh
— ]
matos_1 : constant Material_type := (ambient => (0.0, 0.0, 0.0, 1.0),
specular => (0.0, 0.0, 0.0, 1.0),
diffuse => (0.501961, 0.752941, 0.454902, 1.0),
emission => (0.0, 0.0, 0.0, 1.0),
shininess => 128.0);
coord_1 : constant Point_3D_array :=
((0.0, 4.0, -6.0), — VRML: [# coord point 0
— ]
(0.0, 3.719153, -7.840474), (0.0, 2.828427, -9.535534), (0.0, 1.472379, -10.648941), (0.0, 0.0, -11.0),
(1.840474, 3.719153, -6.0), (1.711251, 3.458025, -7.840474), (1.301411, 2.629838, -9.535534), (0.677469, 1.369001, -10.648941), (0.0, 0.0, -11.0),
(3.535534, 2.828427, -6.0), (3.287298, 2.629838, -7.840474), (2.5, 2.0, -9.535534), (1.301411, 1.041129, -10.648941), (0.0, 0.0, -11.0),
(4.648942, 1.472379, -6.0), (4.322531, 1.369001, -7.840474), (3.287298, 1.041129, -9.535534), (1.711251, 0.541975, -10.648941), (0.0, 0.0, -11.0),
(5.0, 0.0, -6.0), (4.648942, 0.0, -7.840474), (3.535534, 0.0, -9.535534), (1.840474, 0.0, -10.648941), (0.0, 0.0, -11.0),
(0.0, 0.727852, -10.916527), — VRML: [# coord point 25
— ]
(0.0, 2.188839, -10.184978), (0.0, 3.347982, -8.736049), (0.0, 3.933222, -6.909815), (4.916527, 0.0, -6.909815),
(4.184978, 0.0, -8.736049), (2.736049, 0.0, -10.184978), (0.909815, 0.0, -10.916527), (0.909815, 3.933222, -6.0), (2.736049, 3.347982, -6.0),
(4.184978, 2.188839, -6.0), (4.916527, 0.727852, -6.0), (5.0, 0.0, -6.0), (0.0, 0.0, -11.0), (4.682859, -0.519945, -7.523114),
(3.965406, -0.440285, -8.955855), (2.823837, -0.313535, -10.093028), (1.426092, -0.158341, -10.785041), (0.0, 0.0, -11.0), (4.427992, -1.051801, -7.523114),
(3.749586, -0.890656, -8.955855), (2.670148, -0.634252, -10.093028), (1.348476, -0.32031, -10.785041), (0.0, 0.0, -11.0), (3.367501, -2.020501, -7.523114),
(2.851571, -1.710943, -8.955855), — VRML: [# coord point 50
— ]
(2.030655, -1.218393, -10.093028), (1.02552, -0.615312, -10.785041), (0.0, 0.0, -11.0), (1.753002, -2.656795, -7.523114),
(1.484427, -2.249752, -8.955855), (1.057087, -1.602089, -10.093028), (0.533849, -0.809085, -10.785041), (0.0, 0.0, -11.0), (0.0, -2.857419, -7.523114),
(0.0, -2.419638, -8.955855), (0.0, -1.723068, -10.093028), (0.0, -0.870182, -10.785041), (0.0, 0.0, -11.0), (-1.753002, -2.656795, -7.523114),
(-1.484427, -2.249752, -8.955855), (-1.057087, -1.602089, -10.093028), (-0.533849, -0.809085, -10.785041), (0.0, 0.0, -11.0), (-3.367501, -2.020501, -7.523114),
(-2.851571, -1.710943, -8.955855), (-2.030655, -1.218393, -10.093028), (-1.02552, -0.615312, -10.785041), (0.0, 0.0, -11.0), (-4.648942, -1.104284, -6.0),
(-4.427992, -1.051801, -7.523114), — VRML: [# coord point 75
— ]
(-3.749586, -0.890656, -8.955855), (-2.670148, -0.634252, -10.093028), (-1.348476, -0.32031, -10.785041), (0.0, 0.0, -11.0),
(-4.682859, -0.519945, -7.523114), (-3.965406, -0.440285, -8.955855), (-2.823837, -0.313535, -10.093028), (-1.426092, -0.158341, -10.785041), (0.0, 0.0, -11.0),
(-5.0, -0.0, -6.0), (0.0, 0.0, -11.0), (0.909815, 0.0, -10.916527), (1.840474, 0.0, -10.648941), (2.736049, 0.0, -10.184978),
(3.535534, 0.0, -9.535534), (4.184978, 0.0, -8.736049), (4.648942, 0.0, -7.840474), (4.916527, 0.0, -6.909815), (-4.916527, -0.0, -6.909815),
(-4.648942, -0.0, -7.840474), (-4.184978, -0.0, -8.736049), (-3.535534, -0.0, -9.535534), (-2.736049, -0.0, -10.184978), (-1.840474, -0.0, -10.648941),
(-0.909815, -0.0, -10.916527), — VRML: [# coord point 100
— ]
(4.916527, -0.545889, -6.0), (4.648942, -1.104284, -6.0), (3.881766, -1.890894, -6.0), (3.347862, -2.22824, -6.0),
(2.736049, -2.510987, -6.0), (2.070038, -2.73082, -6.0), (1.375791, -2.884197, -6.0), (0.678477, -2.972252, -6.0), (-0.0, -3.0, -6.0),
(-0.678477, -2.972252, -6.0), (-1.375791, -2.884197, -6.0), (-2.070038, -2.73082, -6.0), (-2.736049, -2.510987, -6.0), (-3.347862, -2.22824, -6.0),
(-3.881766, -1.890894, -6.0), (-4.916527, -0.545889, -6.0), (-5.0, -0.0, -6.0), (-4.648942, -0.0, -7.840474), (-3.535534, -0.0, -9.535534),
(-1.840474, -0.0, -10.648941), (0.0, 0.0, -11.0), (-4.648942, 1.472379, -6.0), (-4.322531, 1.369001, -7.840474), (-3.287298, 1.041129, -9.535534),
(-1.711251, 0.541975, -10.648941), — VRML: [# coord point 125
— ]
(0.0, 0.0, -11.0), (-3.535534, 2.828427, -6.0), (-3.287298, 2.629838, -7.840474), (-2.5, 2.0, -9.535534),
(-1.301411, 1.041129, -10.648941), (0.0, 0.0, -11.0), (-1.840474, 3.719153, -6.0), (-1.711251, 3.458025, -7.840474), (-1.301411, 2.629838, -9.535534),
(-0.677469, 1.369001, -10.648941), (0.0, 0.0, -11.0), (0.0, 4.0, -6.0), (0.0, 3.719153, -7.840474), (0.0, 2.828427, -9.535534),
(0.0, 1.472379, -10.648941), (0.0, 0.0, -11.0), (0.0, 3.933222, -6.909815), (0.0, 3.347982, -8.736049), (0.0, 2.188839, -10.184978),
(0.0, 0.727852, -10.916527), (-0.909815, -0.0, -10.916527), (-2.736049, -0.0, -10.184978), (-4.184978, -0.0, -8.736049), (-4.916527, -0.0, -6.909815),
(-4.916527, 0.727852, -6.0), — VRML: [# coord point 150
— ]
(-4.184978, 2.188839, -6.0), (-2.736049, 3.347982, -6.0), (-0.909815, 3.933222, -6.0), (0.0, 4.0, 14.0),
(0.0, 4.085809, 13.919098), (0.0, 4.165268, 13.666107), (0.0, 4.414214, 8.142136), (0.0, 4.0, -6.0), (0.0, 4.0, 14.0),
(0.062856, 4.084806, 13.751678), (0.127289, 4.162986, 13.343657), (0.257494, 4.292191, 12.014576), (0.494644, 4.398617, 7.333976), (0.0, 4.0, 14.0),
(0.12985, 4.081457, 13.602017), (0.262957, 4.155365, 13.055412), (0.531938, 4.273184, 11.495037), (1.021849, 4.346536, 6.611545), (0.0, 4.0, 14.0),
(0.204733, 4.074604, 13.473963), (0.414602, 4.139774, 12.808778), (0.838702, 4.2343, 11.050499), (1.61114, 4.239989, 5.993404), (0.0, 4.0, 14.0),
(0.28681, 4.062323, 13.393813), — VRML: [# coord point 175
— ]
(0.580815, 4.111832, 12.65441), (1.174935, 4.16461, 10.772264), (2.257041, 4.049031, 5.606511), (0.0, 4.0, 14.0),
(0.367375, 4.042528, 13.412814), (0.743966, 4.066794, 12.691007), (1.504975, 4.052287, 10.838225), (2.891043, 3.741253, 5.698233), (0.0, 4.0, 14.0),
(0.419092, 4.02057, 13.541767), (0.848698, 4.016835, 12.939368), (1.71684, 3.927687, 11.285878), (3.298034, 3.399834, 6.320704), (0.0, 4.0, 14.0),
(0.442092, 4.00198, 13.710477), (0.895276, 3.97454, 13.264303), (1.811061, 3.822203, 11.871547), (3.479033, 3.110795, 7.135092), (0.0, 4.0, 14.0),
(0.449272, 3.98382, 13.919098), (0.909815, 3.933222, 13.666107), (3.535534, 2.828427, 8.142136), (5.0, 0.0, -6.0), (4.916527, 0.727852, -6.0),
(4.648942, 1.472379, -6.0), — VRML: [# coord point 200
— ]
(4.184978, 2.188839, -6.0), (3.535534, 2.828427, -6.0), (2.736049, 3.347982, -6.0), (1.840474, 3.719153, -6.0),
(0.909815, 3.933222, -6.0), (1.840474, 3.719153, 12.595766), (2.296473, 3.553136, 11.76568), (2.736049, 3.347982, 10.73991), (3.151491, 3.105413, 9.527063),
(3.881766, 2.521193, 6.605963), (4.03902, 2.357805, 5.789023), (4.184978, 2.188839, 4.944195), (4.319218, 2.015041, 4.075205), (4.44142, 1.837178, 3.185892),
(4.551367, 1.656031, 2.280154), (4.648942, 1.472379, 1.361894), (4.734126, 1.286995, 0.434974), (4.806995, 1.100633, -0.496836), (4.867713, 0.914021, -1.429897),
(4.916527, 0.727852, -2.360739), (4.953753, 0.542782, -3.286092), (4.979774, 0.359418, -4.202911), (4.995029, 0.178321, -5.108395), (0.0, 4.085809, -4.202911),
(0.0, 4.165268, -2.360739), — VRML: [# coord point 225
— ]
(0.0, 4.236557, -0.496836), (0.0, 4.297883, 1.361894), (0.0, 4.347579, 3.185892), (0.0, 4.384205, 4.944195),
(0.0, 4.384205, 10.73991), (0.0, 4.297883, 12.595766), (0.0, 4.043586, 13.980116), (0.0, 4.02195, 13.995072), (0.0, 4.0, 14.0),
(5.0, 0.0, -6.0), (0.0, 4.0, 14.0), (1.56805, 3.290549, 11.289227), (2.479204, 2.655261, 8.824897), (3.909606, 1.095049, 2.712256),
(4.183534, 0.627056, 0.867121), (4.393212, 0.164683, -0.96042), (4.538618, -0.282813, -2.733472), (4.622318, -0.70772, -4.421093), (4.648942, -1.104284, -6.0),
(0.0, 4.0, 14.0), (1.192507, 2.853031, 9.872027), (1.885442, 1.984331, 6.896493), (2.973267, 0.110234, 0.769444), (3.18159, -0.402075, -0.841538),
(3.341051, -0.888648, -2.344026), — VRML: [# coord point 250
— ]
(3.451632, -1.341086, -3.714049), (3.515287, -1.75322, -4.935412), (0.0, 4.0, 14.0), (0.620777, 2.565646, 8.941133),
(0.981494, 1.543629, 5.629814), (1.21975, 0.764102, 3.236679), (1.404671, 0.0751, 1.213696), (1.547777, -0.536645, -0.506699), (1.656223, -1.078064, -1.963877),
(1.739232, -1.580533, -3.252853), (1.796797, -2.036217, -4.358145), (1.829934, -2.439961, -5.273244), (0.0, 4.0, 14.0), (0.306873, 2.496578, 8.717412),
(0.48519, 1.437715, 5.325392), (0.602968, 0.635672, 2.906274), (0.694382, -0.069342, 0.88508), (0.765124, -0.69211, -0.813395), (0.818733, -1.240524, -2.233609),
(0.859768, -1.746814, -3.471272), (0.888224, -2.203278, -4.512941), (0.904605, -2.605006, -5.354435), (0.0, 4.0, 14.0), (0.0, 2.475033, 8.647622),
(0.0, 1.404675, 5.230428), — VRML: [# coord point 275
— ]
(0.0, 0.595608, 2.803204), (0.0, -0.114401, 0.782568), (0.0, -0.740607, -0.909069), (0.0, -1.291204, -2.317752),
(0.0, -1.798685, -3.539407), (0.0, -2.255392, -4.561229), (0.0, -2.656491, -5.379763), (0.0, 4.0, 14.0), (-0.306873, 2.496578, 8.717412),
(-0.48519, 1.437715, 5.325392), (-0.602968, 0.635672, 2.906274), (-0.694382, -0.069342, 0.88508), (-0.765124, -0.69211, -0.813395), (-0.818733, -1.240524, -2.233609),
(-0.859768, -1.746814, -3.471272), (-0.888224, -2.203278, -4.512941), (-0.904605, -2.605006, -5.354435), (0.0, 4.0, 14.0), (-0.620777, 2.565646, 8.941133),
(-0.981494, 1.543629, 5.629814), (-1.21975, 0.764102, 3.236679), (-1.404671, 0.0751, 1.213696), (-1.547777, -0.536645, -0.506699), (-1.656223, -1.078064, -1.963877),
(-1.739232, -1.580533, -3.252853), — VRML: [# coord point 300
— ]
(-1.796797, -2.036217, -4.358145), (-1.829934, -2.439961, -5.273244), (0.0, 4.0, 14.0), (-1.192507, 2.853031, 9.872027),
(-1.885442, 1.984331, 6.896493), (-2.973267, 0.110234, 0.769444), (-3.18159, -0.402075, -0.841538), (-3.341051, -0.888648, -2.344026), (-3.451632, -1.341086, -3.714049),
(-3.515287, -1.75322, -4.935412), (0.0, 4.0, 14.0), (-1.56805, 3.290549, 11.289227), (-2.479204, 2.655261, 8.824897), (-3.909606, 1.095049, 2.712256),
(-4.183534, 0.627056, 0.867121), (-4.393212, 0.164683, -0.96042), (-4.538618, -0.282813, -2.733472), (-4.622318, -0.70772, -4.421093), (-4.648942, -1.104284, -6.0),
(0.0, 4.0, 14.0), (-5.0, -0.0, -6.0), (4.995029, 0.178321, -5.108395), (4.979774, 0.359418, -4.202911), (4.953753, 0.542782, -3.286092),
(4.916527, 0.727852, -2.360739), — VRML: [# coord point 325
— ]
(4.867713, 0.914021, -1.429897), (4.806995, 1.100633, -0.496836), (4.734126, 1.286995, 0.434974), (4.648942, 1.472379, 1.361894),
(4.551367, 1.656031, 2.280154), (4.44142, 1.837178, 3.185892), (4.319218, 2.015041, 4.075205), (4.184978, 2.188839, 4.944195), (4.03902, 2.357805, 5.789023),
(3.881766, 2.521193, 6.605963), (3.535534, 2.828427, 8.142136), (3.151491, 3.105413, 9.527063), (2.736049, 3.347982, 10.73991), (2.296473, 3.553136, 11.76568),
(1.840474, 3.719153, 12.595766), (0.909815, 3.933222, 13.666107), (0.449272, 3.98382, 13.919098), (-3.5, 1.512817, 4.487183), (-3.450922, 1.716545, 5.147576),
(-3.274537, 1.872316, 5.799232), (-3.092764, 1.90439, 6.061034), (-3.0, 1.894876, 6.105124), (-2.944071, 1.881754, 6.10585), (-2.892884, 1.864749, 6.089044),
(-2.805425, 1.823695, 6.018488), — VRML: [# coord point 350
— ]
(-2.695005, 1.745616, 5.839203), (-2.574782, 1.601139, 5.451018), (-2.51766, 1.466542, 5.060178), (-2.5, 1.335671, 4.664329),
(-2.517191, 1.209481, 4.270625), (-2.571819, 1.088564, 3.878684), (-2.696655, 0.96467, 3.445454), (-2.80792, 0.914926, 3.238492), (-2.894456, 0.90012, 3.144595),
(-2.944927, 0.899618, 3.112356), (-3.0, 0.905387, 3.094613), (-3.055169, 0.917602, 3.094422), (-3.105728, 0.934692, 3.110207), (-3.192408, 0.978211, 3.175801),
(-3.303747, 1.065608, 3.345745), (-3.425245, 1.228502, 3.719514), (-3.482508, 1.375839, 4.099494), (-0.449272, 3.98382, 13.919098), (-0.909815, 3.933222, 13.666107),
(-1.840474, 3.719153, 12.595766), (-2.296473, 3.553136, 11.76568), (-2.736049, 3.347982, 10.73991), (-3.151491, 3.105413, 9.527063), (-3.535534, 2.828427, 8.142136),
(-3.881766, 2.521193, 6.605963), — VRML: [# coord point 375
— ]
(-4.03902, 2.357805, 5.789023), (-4.184978, 2.188839, 4.944195), (-4.319218, 2.015041, 4.075205), (-4.44142, 1.837178, 3.185892),
(-4.551367, 1.656031, 2.280154), (-4.648942, 1.472379, 1.361894), (-4.734126, 1.286995, 0.434974), (-4.806995, 1.100633, -0.496836), (-4.867713, 0.914021, -1.429897),
(-4.916527, 0.727852, -2.360739), (-4.953753, 0.542782, -3.286092), (-4.979774, 0.359418, -4.202911), (-4.995029, 0.178321, -5.108395), (-4.916527, -0.545889, -6.0),
(-3.881766, -1.890894, -6.0), (-3.347862, -2.22824, -6.0), (-2.736049, -2.510987, -6.0), (-2.070038, -2.73082, -6.0), (-1.375791, -2.884197, -6.0),
(-0.678477, -2.972252, -6.0), (-0.0, -3.0, -6.0), (0.678477, -2.972252, -6.0), (1.375791, -2.884197, -6.0), (2.070038, -2.73082, -6.0),
(2.736049, -2.510987, -6.0), — VRML: [# coord point 400
— ]
(3.347862, -2.22824, -6.0), (3.881766, -1.890894, -6.0), (4.916527, -0.545889, -6.0), (3.5, 1.512817, 4.487183),
(3.482508, 1.375839, 4.099494), (3.425245, 1.228502, 3.719514), (3.303747, 1.065608, 3.345745), (3.192408, 0.978211, 3.175801), (3.105728, 0.934692, 3.110207),
(3.055169, 0.917602, 3.094422), (3.0, 0.905387, 3.094613), (2.944927, 0.899618, 3.112356), (2.894456, 0.90012, 3.144595), (2.80792, 0.914926, 3.238492),
(2.696655, 0.96467, 3.445454), (2.571819, 1.088564, 3.878684), (2.517191, 1.209481, 4.270625), (2.5, 1.335671, 4.664329), (2.51766, 1.466542, 5.060178),
(2.574782, 1.601139, 5.451018), (2.695005, 1.745616, 5.839203), (2.805425, 1.823695, 6.018488), (2.892884, 1.864749, 6.089044), (2.944071, 1.881754, 6.10585),
(3.0, 1.894876, 6.105124), — VRML: [# coord point 425
— ]
(3.092764, 1.90439, 6.061034), (3.274537, 1.872316, 5.799232), (3.450922, 1.716545, 5.147576), (0.0, 4.0, 14.0),
(-0.449272, 3.98382, 13.919098), (-0.909815, 3.933222, 13.666107), (-3.535534, 2.828427, 8.142136), (-5.0, -0.0, -6.0), (0.0, 4.0, 14.0),
(-0.443503, 4.000112, 13.73001), (-0.898131, 3.97029, 13.301924), (-1.816838, 3.811604, 11.939355), (-3.49013, 3.081753, 7.229381), (0.0, 4.0, 14.0),
(-0.421371, 4.019201, 13.552509), (-0.853314, 4.013721, 12.960058), (-1.726177, 3.919921, 11.323169), (-3.31597, 3.378554, 6.372559), (0.0, 4.0, 14.0),
(-0.37262, 4.040799, 13.419608), (-0.754588, 4.06286, 12.704092), (-1.526463, 4.042476, 10.861811), (-2.932323, 3.714367, 5.731028), (0.0, 4.0, 14.0),
(-0.292164, 4.061298, 13.391398), — VRML: [# coord point 450
— ]
(-0.591657, 4.109501, 12.64976), (-1.196869, 4.158799, 10.763883), (-2.299174, 4.033107, 5.594858), (0.0, 4.0, 14.0),
(-0.209951, 4.073988, 13.466791), (-0.425168, 4.138372, 12.794966), (-0.860077, 4.230803, 11.025603), (-1.6522, 4.230409, 5.958786), (0.0, 4.0, 14.0),
(-0.1346, 4.081125, 13.592599), (-0.272577, 4.15461, 13.037271), (-0.5514, 4.2713, 11.462339), (-1.059234, 4.341372, 6.566079), (0.0, 4.0, 14.0),
(-0.06635, 4.084691, 13.743122), (-0.134365, 4.162724, 13.327179), (-0.271808, 4.291537, 11.984875), (-0.522141, 4.396825, 7.292677), (0.0, 4.0, 14.0),
(0.0, 4.165268, 13.666107), (0.0, 4.414214, 8.142136), (0.0, 4.0, -6.0), (-0.909815, 3.933222, -6.0), (-1.840474, 3.719153, -6.0),
(-2.736049, 3.347982, -6.0), — VRML: [# coord point 475
— ]
(-3.535534, 2.828427, -6.0), (-4.184978, 2.188839, -6.0), (-4.648942, 1.472379, -6.0), (-4.916527, 0.727852, -6.0),
(0.0, 4.02195, 13.995072), (0.0, 4.043586, 13.980116), (0.0, 4.085809, 13.919098), (0.0, 4.297883, 12.595766), (0.0, 4.384205, 10.73991),
(0.0, 4.384205, 4.944195), (0.0, 4.347579, 3.185892), (0.0, 4.297883, 1.361894), (0.0, 4.236557, -0.496836), (0.0, 4.165268, -2.360739),
(0.0, 4.085809, -4.202911), (-4.995029, 0.178321, -5.108395), (-4.979774, 0.359418, -4.202911), (-4.953753, 0.542782, -3.286092), (-4.916527, 0.727852, -2.360739),
(-4.867713, 0.914021, -1.429897), (-4.806995, 1.100633, -0.496836), (-4.734126, 1.286995, 0.434974), (-4.648942, 1.472379, 1.361894), (-4.551367, 1.656031, 2.280154),
(-4.44142, 1.837178, 3.185892), — VRML: [# coord point 500
— ]
(-4.319218, 2.015041, 4.075205), (-4.184978, 2.188839, 4.944195), (-4.03902, 2.357805, 5.789023), (-3.881766, 2.521193, 6.605963),
(-3.151491, 3.105413, 9.527063), (-2.736049, 3.347982, 10.73991), (-2.296473, 3.553136, 11.76568), (-1.840474, 3.719153, 12.595766), (-3.0, 0.454284, 3.545716),
(-3.5, 1.179389, 4.820611), (-3.5, 1.179389, 4.820611), (-3.5, 1.512817, 4.487183), (-3.450922, 1.716545, 5.147576), (-3.274537, 1.872316, 5.799232),
(-3.092764, 1.90439, 6.061034), (-3.0, 1.894876, 6.105124), (-2.944071, 1.881754, 6.10585), (-2.892884, 1.864749, 6.089044), (-2.805425, 1.823695, 6.018488),
(-2.695005, 1.745616, 5.839203), (-2.574782, 1.601139, 5.451018), (-2.51766, 1.466542, 5.060178), (-2.5, 1.335671, 4.664329), (-2.517191, 1.209481, 4.270625),
(-2.571819, 1.088564, 3.878684), — VRML: [# coord point 525
— ]
(-2.696655, 0.96467, 3.445454), (-2.80792, 0.914926, 3.238492), (-2.894456, 0.90012, 3.144595), (-2.944927, 0.899618, 3.112356),
(-3.0, 0.905387, 3.094613), (-3.055169, 0.917602, 3.094422), (-3.105728, 0.934692, 3.110207), (-3.192408, 0.978211, 3.175801), (-3.303747, 1.065608, 3.345745),
(-3.425245, 1.228502, 3.719514), (-3.482508, 1.375839, 4.099494), (-3.5, 1.512817, 4.487183), (-3.0, 0.980581, 7.019419), (-3.058017, 0.979611, 7.006987),
(-3.110825, 0.976981, 6.973362), (-3.19986, 0.968421, 6.864568), (-3.304968, 0.949855, 6.635047), (-3.423161, 0.905427, 6.159917), (-3.481555, 0.852987, 5.685443),
(-3.5, 0.791128, 5.208872), (-2.929686, 0.458799, 3.560962), (-2.868857, 0.470157, 3.599747), (-2.77872, 0.500298, 3.706224), (-2.665377, 0.562472, 3.951445),
(-2.54922, 0.670223, 4.464466), — VRML: [# coord point 550
— ]
(-2.5, 0.791128, 5.208872), (-2.518445, 0.852987, 5.685443), (-2.576839, 0.905427, 6.159917), (-2.695032, 0.949855, 6.635047),
(-2.80014, 0.968421, 6.864568), (-2.889175, 0.976981, 6.973362), (-2.941983, 0.979611, 7.006987), (-3.5, 0.791128, 5.208872), (-3.45078, 0.670223, 4.464466),
(-3.334623, 0.562472, 3.951445), (-3.22128, 0.500298, 3.706224), (-3.131143, 0.470157, 3.599747), (-3.070314, 0.458799, 3.560962), (-3.0, 0.0, 3.0),
(-3.0, 1.0, 8.0), (-3.0, 0.973347, 9.146691), (-3.0, 0.890134, 10.278497), (-3.0, 0.730389, 11.415155), (-3.0, 0.454836, 12.452877),
(-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.644456, 0.322228, 3.549331), (-4.032053, 0.516026, 4.581544), (-4.248063, 0.624031, 5.648567),
(-4.374914, 0.687457, 6.829465), — VRML: [# coord point 575
— ]
(-4.414214, 0.707107, 8.0), (-4.37652, 0.68826, 9.146691), (-4.258839, 0.62942, 10.278497), (-4.032927, 0.516463, 11.415155),
(-3.643234, 0.321617, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.847408, 0.16774, 3.549331), (-4.357066, 0.268625, 4.581544),
(-4.641102, 0.324849, 5.648567), (-4.8079, 0.357866, 6.829465), (-4.859577, 0.368095, 8.0), (-4.810013, 0.358284, 9.146691), (-4.655272, 0.327654, 10.278497),
(-4.358215, 0.268852, 11.415155), (-3.845802, 0.167423, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.896183, 0.08292, 3.549331),
(-4.435176, 0.132791, 4.581544), (-4.735561, 0.160585, 5.648567), (-4.91196, 0.176906, 6.829465), (-4.966611, 0.181963, 8.0), (-4.914194, 0.177113, 9.146691),
(-4.750546, 0.161971, 10.278497), — VRML: [# coord point 600
— ]
(-4.436391, 0.132904, 11.415155), (-3.894485, 0.082763, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0),
(-3.911399, 0.0, 3.549331), (-4.459543, 0.0, 4.581544), (-4.765028, 0.0, 5.648567), (-4.944422, 0.0, 6.829465), (-5.0, 0.0, 8.0),
(-4.946693, 0.0, 9.146691), (-4.780268, 0.0, 10.278497), (-4.460779, 0.0, 11.415155), (-3.909671, 0.0, 12.452877), (-3.0, 0.0, 13.0),
(-3.0, 0.0, 3.0), (-3.896183, -0.08292, 3.549331), (-4.435176, -0.132791, 4.581544), (-4.735561, -0.160585, 5.648567), (-4.91196, -0.176906, 6.829465),
(-4.966611, -0.181963, 8.0), (-4.914194, -0.177113, 9.146691), (-4.750546, -0.161971, 10.278497), (-4.436391, -0.132904, 11.415155), (-3.894485, -0.082763, 12.452877),
(-3.0, 0.0, 13.0), — VRML: [# coord point 625
— ]
(-3.0, 0.0, 3.0), (-3.847408, -0.16774, 3.549331), (-4.357066, -0.268625, 4.581544), (-4.641102, -0.324849, 5.648567),
(-4.8079, -0.357866, 6.829465), (-4.859577, -0.368095, 8.0), (-4.810013, -0.358284, 9.146691), (-4.655272, -0.327654, 10.278497), (-4.358215, -0.268852, 11.415155),
(-3.845802, -0.167423, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.644456, -0.322228, 3.549331), (-4.032053, -0.516026, 4.581544),
(-4.248063, -0.624031, 5.648567), (-4.374914, -0.687457, 6.829465), (-4.414214, -0.707107, 8.0), (-4.37652, -0.68826, 9.146691), (-4.258839, -0.62942, 10.278497),
(-4.032927, -0.516463, 11.415155), (-3.643234, -0.321617, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.0, -0.455699, 3.549331),
(-3.0, -0.729771, 4.581544), — VRML: [# coord point 650
— ]
(-3.0, -0.882514, 5.648567), (-3.0, -0.972211, 6.829465), (-3.0, -1.0, 8.0), (-3.0, -0.973347, 9.146691),
(-3.0, -0.890134, 10.278497), (-3.0, -0.730389, 11.415155), (-3.0, -0.454836, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0),
(-2.355544, -0.322228, 3.549331), (-1.967947, -0.516026, 4.581544), (-1.751937, -0.624031, 5.648567), (-1.625086, -0.687457, 6.829465), (-1.585786, -0.707107, 8.0),
(-1.62348, -0.68826, 9.146691), (-1.741161, -0.62942, 10.278497), (-1.967074, -0.516463, 11.415155), (-2.356766, -0.321617, 12.452877), (-3.0, 0.0, 13.0),
(-3.0, 0.0, 3.0), (-2.152592, -0.16774, 3.549331), (-1.642934, -0.268625, 4.581544), (-1.358898, -0.324849, 5.648567), (-1.192099, -0.357866, 6.829465),
(-1.140423, -0.368095, 8.0), — VRML: [# coord point 675
— ]
(-1.189987, -0.358284, 9.146691), (-1.344728, -0.327654, 10.278497), (-1.641785, -0.268852, 11.415155), (-2.154198, -0.167423, 12.452877),
(-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-2.103817, -0.08292, 3.549331), (-1.564824, -0.132791, 4.581544), (-1.264439, -0.160585, 5.648567),
(-1.08804, -0.176906, 6.829465), (-1.033389, -0.181963, 8.0), (-1.085806, -0.177113, 9.146691), (-1.249453, -0.161971, 10.278497), (-1.563609, -0.132904, 11.415155),
(-2.105515, -0.082763, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-2.088601, 0.0, 3.549331), (-1.540457, 0.0, 4.581544),
(-1.234972, 0.0, 5.648567), (-1.055578, 0.0, 6.829465), (-1.0, 0.0, 8.0), (-1.053306, 0.0, 9.146691), (-1.219732, 0.0, 10.278497),
(-1.539222, 0.0, 11.415155), — VRML: [# coord point 700
— ]
(-2.090329, 0.0, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-2.103817, 0.08292, 3.549331),
(-1.564824, 0.132791, 4.581544), (-1.264439, 0.160585, 5.648567), (-1.08804, 0.176906, 6.829465), (-1.033389, 0.181963, 8.0), (-1.085806, 0.177113, 9.146691),
(-1.249453, 0.161971, 10.278497), (-1.563609, 0.132904, 11.415155), (-2.105515, 0.082763, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0),
(-2.152592, 0.16774, 3.549331), (-1.642934, 0.268625, 4.581544), (-1.358898, 0.324849, 5.648567), (-1.192099, 0.357866, 6.829465), (-1.140423, 0.368095, 8.0),
(-1.189987, 0.358284, 9.146691), (-1.344728, 0.327654, 10.278497), (-1.641785, 0.268852, 11.415155), (-2.154198, 0.167423, 12.452877), (-3.0, 0.0, 13.0),
(-3.0, 0.0, 3.0), — VRML: [# coord point 725
— ]
(-2.355544, 0.322228, 3.549331), (-1.967947, 0.516026, 4.581544), (-1.751937, 0.624031, 5.648567), (-1.625086, 0.687457, 6.829465),
(-1.585786, 0.707107, 8.0), (-1.62348, 0.68826, 9.146691), (-1.741161, 0.62942, 10.278497), (-1.967074, 0.516463, 11.415155), (-2.356766, 0.321617, 12.452877),
(-3.0, 0.0, 13.0), (-3.0, 0.0, 3.0), (-3.0, 1.0, 8.0), (-3.0, 0.973347, 9.146691), (-3.0, 0.890134, 10.278497),
(-3.0, 0.730389, 11.415155), (-3.0, 0.454836, 12.452877), (-3.0, 0.0, 13.0), (-3.0, 0.980581, 7.019419), (-3.058017, 0.979611, 7.006987),
(-3.110825, 0.976981, 6.973362), (-3.19986, 0.968421, 6.864568), (-3.304968, 0.949855, 6.635047), (-3.423161, 0.905427, 6.159917), (-3.481555, 0.852987, 5.685443),
(-3.5, 0.791128, 5.208872), — VRML: [# coord point 750
— ]
(-3.0, 0.454284, 3.545716), (-2.929686, 0.458799, 3.560962), (-2.868857, 0.470157, 3.599747), (-2.77872, 0.500298, 3.706224),
(-2.665377, 0.562472, 3.951445), (-2.54922, 0.670223, 4.464466), (-2.5, 0.791128, 5.208872), (-2.518445, 0.852987, 5.685443), (-2.576839, 0.905427, 6.159917),
(-2.695032, 0.949855, 6.635047), (-2.80014, 0.968421, 6.864568), (-2.889175, 0.976981, 6.973362), (-2.941983, 0.979611, 7.006987), (-3.0, 0.980581, 7.019419),
(-3.45078, 0.670223, 4.464466), (-3.334623, 0.562472, 3.951445), (-3.22128, 0.500298, 3.706224), (-3.131143, 0.470157, 3.599747), (-3.070314, 0.458799, 3.560962),
(-3.0, 0.454284, 3.545716), (3.0, 0.454284, 3.545716), (3.5, 1.179389, 4.820611), (3.5, 1.179389, 4.820611), (3.0, 0.980581, 7.019419),
(3.058017, 0.979611, 7.006987), — VRML: [# coord point 775
— ]
(3.110825, 0.976981, 6.973362), (3.19986, 0.968421, 6.864568), (3.304968, 0.949855, 6.635047), (3.423161, 0.905427, 6.159917),
(3.481555, 0.852987, 5.685443), (3.5, 0.791128, 5.208872), (2.929686, 0.458799, 3.560962), (2.868857, 0.470157, 3.599747), (2.77872, 0.500298, 3.706224),
(2.665377, 0.562472, 3.951445), (2.54922, 0.670223, 4.464466), (2.5, 0.791128, 5.208872), (2.518445, 0.852987, 5.685443), (2.576839, 0.905427, 6.159917),
(2.695032, 0.949855, 6.635047), (2.80014, 0.968421, 6.864568), (2.889175, 0.976981, 6.973362), (2.941983, 0.979611, 7.006987), (3.5, 0.791128, 5.208872),
(3.45078, 0.670223, 4.464466), (3.334623, 0.562472, 3.951445), (3.22128, 0.500298, 3.706224), (3.131143, 0.470157, 3.599747), (3.070314, 0.458799, 3.560962),
(3.5, 1.512817, 4.487183), — VRML: [# coord point 800
— ]
(3.450922, 1.716545, 5.147576), (3.274537, 1.872316, 5.799232), (3.092764, 1.90439, 6.061034), (3.0, 1.894876, 6.105124),
(2.944071, 1.881754, 6.10585), (2.892884, 1.864749, 6.089044), (2.805425, 1.823695, 6.018488), (2.695005, 1.745616, 5.839203), (2.574782, 1.601139, 5.451018),
(2.51766, 1.466542, 5.060178), (2.5, 1.335671, 4.664329), (2.517191, 1.209481, 4.270625), (2.571819, 1.088564, 3.878684), (2.696655, 0.96467, 3.445454),
(2.80792, 0.914926, 3.238492), (2.894456, 0.90012, 3.144595), (2.944927, 0.899618, 3.112356), (3.0, 0.905387, 3.094613), (3.055169, 0.917602, 3.094422),
(3.105728, 0.934692, 3.110207), (3.192408, 0.978211, 3.175801), (3.303747, 1.065608, 3.345745), (3.425245, 1.228502, 3.719514), (3.482508, 1.375839, 4.099494),
(3.5, 1.512817, 4.487183), — VRML: [# coord point 825
— ]
(3.0, 1.441686, 6.558314), (3.0, 0.0, 3.0), (3.0, 1.0, 8.0), (3.0, 0.973347, 9.146691),
(3.0, 0.890134, 10.278497), (3.0, 0.730389, 11.415155), (3.0, 0.454836, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0),
(3.644456, 0.322228, 3.549331), (4.032053, 0.516026, 4.581544), (4.248063, 0.624031, 5.648567), (4.374914, 0.687457, 6.829465), (4.414214, 0.707107, 8.0),
(4.37652, 0.68826, 9.146691), (4.258839, 0.62942, 10.278497), (4.032927, 0.516463, 11.415155), (3.643234, 0.321617, 12.452877), (3.0, 0.0, 13.0),
(3.0, 0.0, 3.0), (3.847408, 0.16774, 3.549331), (4.357066, 0.268625, 4.581544), (4.641102, 0.324849, 5.648567), (4.8079, 0.357866, 6.829465),
(4.859577, 0.368095, 8.0), — VRML: [# coord point 850
— ]
(4.810013, 0.358284, 9.146691), (4.655272, 0.327654, 10.278497), (4.358215, 0.268852, 11.415155), (3.845802, 0.167423, 12.452877),
(3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (3.896183, 0.08292, 3.549331), (4.435176, 0.132791, 4.581544), (4.735561, 0.160585, 5.648567),
(4.91196, 0.176906, 6.829465), (4.966611, 0.181963, 8.0), (4.914194, 0.177113, 9.146691), (4.750546, 0.161971, 10.278497), (4.436391, 0.132904, 11.415155),
(3.894485, 0.082763, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (3.911399, 0.0, 3.549331), (4.459543, 0.0, 4.581544),
(4.765028, 0.0, 5.648567), (4.944422, 0.0, 6.829465), (5.0, 0.0, 8.0), (4.946693, 0.0, 9.146691), (4.780268, 0.0, 10.278497),
(4.460779, 0.0, 11.415155), — VRML: [# coord point 875
— ]
(3.909671, 0.0, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (3.896183, -0.08292, 3.549331),
(4.435176, -0.132791, 4.581544), (4.735561, -0.160585, 5.648567), (4.91196, -0.176906, 6.829465), (4.966611, -0.181963, 8.0), (4.914194, -0.177113, 9.146691),
(4.750546, -0.161971, 10.278497), (4.436391, -0.132904, 11.415155), (3.894485, -0.082763, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0),
(3.847408, -0.16774, 3.549331), (4.357066, -0.268625, 4.581544), (4.641102, -0.324849, 5.648567), (4.8079, -0.357866, 6.829465), (4.859577, -0.368095, 8.0),
(4.810013, -0.358284, 9.146691), (4.655272, -0.327654, 10.278497), (4.358215, -0.268852, 11.415155), (3.845802, -0.167423, 12.452877), (3.0, 0.0, 13.0),
(3.0, 0.0, 3.0), — VRML: [# coord point 900
— ]
(3.644456, -0.322228, 3.549331), (4.032053, -0.516026, 4.581544), (4.248063, -0.624031, 5.648567), (4.374914, -0.687457, 6.829465),
(4.414214, -0.707107, 8.0), (4.37652, -0.68826, 9.146691), (4.258839, -0.62942, 10.278497), (4.032927, -0.516463, 11.415155), (3.643234, -0.321617, 12.452877),
(3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (3.0, -0.455699, 3.549331), (3.0, -0.729771, 4.581544), (3.0, -0.882514, 5.648567),
(3.0, -0.972211, 6.829465), (3.0, -1.0, 8.0), (3.0, -0.973347, 9.146691), (3.0, -0.890134, 10.278497), (3.0, -0.730389, 11.415155),
(3.0, -0.454836, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (2.355544, -0.322228, 3.549331), (1.967947, -0.516026, 4.581544),
(1.751937, -0.624031, 5.648567), — VRML: [# coord point 925
— ]
(1.625086, -0.687457, 6.829465), (1.585786, -0.707107, 8.0), (1.62348, -0.68826, 9.146691), (1.741161, -0.62942, 10.278497),
(1.967074, -0.516463, 11.415155), (2.356766, -0.321617, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (2.152592, -0.16774, 3.549331),
(1.642934, -0.268625, 4.581544), (1.358898, -0.324849, 5.648567), (1.192099, -0.357866, 6.829465), (1.140423, -0.368095, 8.0), (1.189987, -0.358284, 9.146691),
(1.344728, -0.327654, 10.278497), (1.641785, -0.268852, 11.415155), (2.154198, -0.167423, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0),
(2.103817, -0.08292, 3.549331), (1.564824, -0.132791, 4.581544), (1.264439, -0.160585, 5.648567), (1.08804, -0.176906, 6.829465), (1.033389, -0.181963, 8.0),
(1.085806, -0.177113, 9.146691), — VRML: [# coord point 950
— ]
(1.249453, -0.161971, 10.278497), (1.563609, -0.132904, 11.415155), (2.105515, -0.082763, 12.452877), (3.0, 0.0, 13.0),
(3.0, 0.0, 3.0), (2.088601, 0.0, 3.549331), (1.540457, 0.0, 4.581544), (1.234972, 0.0, 5.648567), (1.055578, 0.0, 6.829465),
(1.0, 0.0, 8.0), (1.053306, 0.0, 9.146691), (1.219732, 0.0, 10.278497), (1.539222, 0.0, 11.415155), (2.090329, 0.0, 12.452877),
(3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (2.103817, 0.08292, 3.549331), (1.564824, 0.132791, 4.581544), (1.264439, 0.160585, 5.648567),
(1.08804, 0.176906, 6.829465), (1.033389, 0.181963, 8.0), (1.085806, 0.177113, 9.146691), (1.249453, 0.161971, 10.278497), (1.563609, 0.132904, 11.415155),
(2.105515, 0.082763, 12.452877), — VRML: [# coord point 975
— ]
(3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (2.152592, 0.16774, 3.549331), (1.642934, 0.268625, 4.581544),
(1.358898, 0.324849, 5.648567), (1.192099, 0.357866, 6.829465), (1.140423, 0.368095, 8.0), (1.189987, 0.358284, 9.146691), (1.344728, 0.327654, 10.278497),
(1.641785, 0.268852, 11.415155), (2.154198, 0.167423, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0), (2.355544, 0.322228, 3.549331),
(1.967947, 0.516026, 4.581544), (1.751937, 0.624031, 5.648567), (1.625086, 0.687457, 6.829465), (1.585786, 0.707107, 8.0), (1.62348, 0.68826, 9.146691),
(1.741161, 0.62942, 10.278497), (1.967074, 0.516463, 11.415155), (2.356766, 0.321617, 12.452877), (3.0, 0.0, 13.0), (3.0, 0.0, 3.0),
(3.0, 1.0, 8.0), — VRML: [# coord point 1000
— ]
(3.0, 0.973347, 9.146691), (3.0, 0.890134, 10.278497), (3.0, 0.730389, 11.415155), (3.0, 0.454836, 12.452877),
(3.0, 0.0, 13.0), (3.0, 0.980581, 7.019419), (3.058017, 0.979611, 7.006987), (3.110825, 0.976981, 6.973362), (3.19986, 0.968421, 6.864568),
(3.304968, 0.949855, 6.635047), (3.423161, 0.905427, 6.159917), (3.481555, 0.852987, 5.685443), (3.5, 0.791128, 5.208872), (3.0, 0.454284, 3.545716),
(2.929686, 0.458799, 3.560962), (2.868857, 0.470157, 3.599747), (2.77872, 0.500298, 3.706224), (2.665377, 0.562472, 3.951445), (2.54922, 0.670223, 4.464466),
(2.5, 0.791128, 5.208872), (2.518445, 0.852987, 5.685443), (2.576839, 0.905427, 6.159917), (2.695032, 0.949855, 6.635047), (2.80014, 0.968421, 6.864568),
(2.889175, 0.976981, 6.973362), — VRML: [# coord point 1025
— ]
(2.941983, 0.979611, 7.006987), (3.0, 0.980581, 7.019419), (3.45078, 0.670223, 4.464466), (3.334623, 0.562472, 3.951445),
(3.22128, 0.500298, 3.706224), (3.131143, 0.470157, 3.599747), (3.070314, 0.458799, 3.560962), (3.0, 0.454284, 3.545716) — 1034
);
— VRML: [# 1034 vertices
— ]
— begin Separator # 2
— VRML: [#triangle mesh
— ]
idx_2 : constant Idx_4_array_array :=
((13, 8, 7, 0), — VRML: [# triangle 0
— ]
(13, 7, 12, 0), (14, 9, 8, 0), (14, 8, 13, 0), (15, 9, 14, 0), (18, 13, 12, 0), (18, 12, 17, 0), (19, 14, 13, 0),
(19, 13, 18, 0), (20, 14, 19, 0), (29, 1, 34, 0), (29, 7, 2, 0), (7, 29, 34, 0), (7, 6, 35, 0), (7, 35, 12, 0), (34, 6, 7, 0),
(28, 2, 7, 0), (8, 3, 28, 0), (9, 4, 27, 0), (27, 3, 8, 0), (4, 9, 26, 0), (9, 10, 26, 0), (8, 9, 27, 0), (8, 28, 7, 0),
(12, 35, 11, 0), (17, 36, 16, 0), — VRML: [# triangle 25
— ]
(36, 17, 12, 0), (17, 16, 37, 0), (11, 36, 12, 0), (30, 37, 21, 0), (30, 22, 17, 0), (37, 30, 17, 0),
(31, 17, 22, 0), (32, 19, 18, 0), (17, 31, 18, 0), (19, 33, 20, 0), (31, 23, 18, 0), (18, 23, 32, 0), (19, 24, 33, 0), (19, 32, 24, 0),
(46, 41, 40, 0), (46, 40, 45, 0), (47, 42, 41, 0), (47, 41, 46, 0), (48, 43, 42, 0), (48, 42, 47, 0), (49, 43, 48, 0), (51, 46, 45, 0),
(51, 45, 50, 0), (52, 47, 46, 0), (52, 46, 51, 0), — VRML: [# triangle 50
— ]
(53, 48, 47, 0), (53, 47, 52, 0), (54, 48, 53, 0), (56, 51, 50, 0), (56, 50, 55, 0),
(57, 52, 51, 0), (57, 51, 56, 0), (58, 53, 52, 0), (58, 52, 57, 0), (59, 53, 58, 0), (61, 56, 55, 0), (61, 55, 60, 0), (62, 57, 56, 0),
(62, 56, 61, 0), (63, 58, 57, 0), (63, 57, 62, 0), (64, 58, 63, 0), (66, 61, 60, 0), (66, 60, 65, 0), (67, 62, 61, 0), (67, 61, 66, 0),
(68, 63, 62, 0), (68, 62, 67, 0), (69, 63, 68, 0), (71, 66, 65, 0), — VRML: [# triangle 75
— ]
(71, 65, 70, 0), (72, 67, 66, 0), (72, 66, 71, 0), (73, 68, 67, 0),
(73, 67, 72, 0), (74, 68, 73, 0), (77, 71, 70, 0), (77, 70, 76, 0), (78, 72, 71, 0), (78, 71, 77, 0), (79, 73, 72, 0), (79, 72, 78, 0),
(80, 73, 79, 0), (82, 77, 76, 0), (82, 76, 81, 0), (83, 78, 77, 0), (83, 77, 82, 0), (84, 79, 78, 0), (84, 78, 83, 0), (85, 79, 84, 0),
(94, 38, 102, 0), (45, 102, 103, 0), (94, 102, 40, 0), (45, 40, 102, 0), (93, 94, 40, 0), — VRML: [# triangle 100
— ]
(45, 103, 104, 0), (50, 104, 105, 0), (50, 105, 106, 0),
(106, 107, 55, 0), (50, 106, 55, 0), (108, 55, 107, 0), (109, 55, 108, 0), (45, 104, 50, 0), (41, 92, 93, 0), (41, 91, 92, 0), (42, 89, 90, 0),
(43, 88, 89, 0), (90, 91, 42, 0), (40, 41, 93, 0), (109, 60, 55, 0), (88, 43, 44, 0), (43, 89, 42, 0), (41, 42, 91, 0), (60, 109, 110, 0),
(60, 111, 65, 0), (65, 111, 112, 0), (114, 65, 113, 0), (112, 113, 65, 0), (70, 65, 114, 0), (70, 115, 116, 0), — VRML: [# triangle 125
— ]
(76, 70, 116, 0), (75, 76, 116, 0),
(75, 117, 76, 0), (117, 86, 95, 0), (117, 95, 81, 0), (114, 115, 70, 0), (117, 81, 76, 0), (96, 82, 81, 0), (100, 84, 83, 0), (101, 85, 84, 0),
(83, 82, 98, 0), (82, 96, 97, 0), (82, 97, 98, 0), (83, 99, 100, 0), (84, 100, 101, 0), (83, 98, 99, 0), (96, 81, 95, 0), (111, 60, 110, 0),
(130, 125, 124, 0), (130, 124, 129, 0), (131, 126, 125, 0), (131, 125, 130, 0), (132, 126, 131, 0), (135, 130, 129, 0), (135, 129, 134, 0), — VRML: [# triangle 150
— ]
(136, 131, 130, 0),
(136, 130, 135, 0), (137, 131, 136, 0), (150, 118, 151, 0), (150, 124, 119, 0), (124, 150, 151, 0), (124, 123, 152, 0), (124, 152, 129, 0), (151, 123, 124, 0),
(149, 119, 124, 0), (125, 120, 149, 0), (126, 121, 148, 0), (148, 120, 125, 0), (121, 126, 147, 0), (126, 127, 147, 0), (125, 126, 148, 0), (125, 149, 124, 0),
(129, 152, 128, 0), (134, 153, 133, 0), (153, 134, 129, 0), (134, 133, 154, 0), (128, 153, 129, 0), (143, 154, 138, 0), (143, 139, 134, 0), (154, 143, 134, 0),
— VRML: [# triangle 175
— ]
(144, 134, 139, 0), (145, 136, 135, 0), (134, 144, 135, 0), (136, 146, 137, 0), (144, 140, 135, 0), (135, 140, 145, 0), (136, 141, 146, 0), (136, 145, 141, 0),
(166, 161, 160, 0), (167, 162, 161, 0), (167, 161, 166, 0), (168, 163, 162, 0), (168, 162, 167, 0), (169, 164, 163, 0), (169, 163, 168, 0), (171, 166, 165, 0),
(172, 167, 166, 0), (172, 166, 171, 0), (173, 168, 167, 0), (173, 167, 172, 0), (174, 169, 168, 0), (174, 168, 173, 0), (176, 171, 170, 0), (177, 172, 171, 0),
(177, 171, 176, 0), — VRML: [# triangle 200
— ]
(178, 173, 172, 0), (178, 172, 177, 0), (179, 174, 173, 0), (179, 173, 178, 0), (181, 176, 175, 0), (182, 177, 176, 0), (182, 176, 181, 0),
(183, 178, 177, 0), (183, 177, 182, 0), (184, 179, 178, 0), (184, 178, 183, 0), (186, 181, 180, 0), (187, 182, 181, 0), (187, 181, 186, 0), (188, 183, 182, 0),
(188, 182, 187, 0), (189, 184, 183, 0), (189, 183, 188, 0), (191, 186, 185, 0), (192, 187, 186, 0), (192, 186, 191, 0), (193, 188, 187, 0), (193, 187, 192, 0),
(194, 189, 188, 0), (194, 188, 193, 0), — VRML: [# triangle 225
— ]
(160, 233, 234, 0), (161, 157, 156, 0), (163, 231, 232, 0), (232, 157, 162, 0), (156, 233, 161, 0), (161, 162, 157, 0),
(163, 164, 231, 0), (162, 163, 232, 0), (230, 158, 164, 0), (164, 158, 231, 0), (205, 169, 174, 0), (228, 164, 169, 0), (160, 161, 233, 0), (229, 230, 164, 0),
(228, 229, 164, 0), (206, 226, 227, 0), (206, 159, 225, 0), (225, 226, 206, 0), (227, 228, 206, 0), (228, 169, 206, 0), (205, 174, 204, 0), (205, 206, 169, 0),
(184, 203, 179, 0), (179, 203, 204, 0), (202, 189, 201, 0), — VRML: [# triangle 250
— ]
(202, 203, 184, 0), (189, 202, 184, 0), (174, 179, 204, 0), (196, 192, 191, 0), (193, 209, 194, 0),
(207, 193, 192, 0), (194, 200, 189, 0), (191, 195, 196, 0), (192, 196, 197, 0), (193, 207, 208, 0), (192, 197, 207, 0), (194, 209, 210, 0), (194, 198, 211, 0),
(194, 210, 198, 0), (193, 208, 209, 0), (211, 212, 194, 0), (213, 214, 194, 0), (214, 215, 194, 0), (194, 216, 217, 0), (216, 194, 215, 0), (194, 217, 200, 0),
(218, 200, 217, 0), (212, 213, 194, 0), (200, 218, 219, 0), (200, 220, 221, 0), — VRML: [# triangle 275
— ]
(200, 219, 220, 0), (200, 222, 223, 0), (200, 224, 199, 0), (200, 223, 224, 0),
(200, 221, 222, 0), (201, 189, 200, 0), (247, 238, 237, 0), (248, 239, 238, 0), (248, 238, 247, 0), (250, 241, 240, 0), (250, 240, 249, 0), (251, 242, 241, 0),
(251, 241, 250, 0), (252, 243, 242, 0), (252, 242, 251, 0), (253, 244, 243, 0), (253, 243, 252, 0), (255, 247, 246, 0), (256, 248, 247, 0), (256, 247, 255, 0),
(248, 256, 257, 0), (258, 259, 249, 0), (260, 250, 249, 0), (260, 249, 259, 0), (261, 251, 250, 0), — VRML: [# triangle 300
— ]
(261, 250, 260, 0), (262, 252, 251, 0), (262, 251, 261, 0),
(263, 253, 252, 0), (263, 252, 262, 0), (265, 255, 254, 0), (266, 256, 255, 0), (266, 255, 265, 0), (267, 257, 256, 0), (267, 256, 266, 0), (268, 258, 257, 0),
(268, 257, 267, 0), (269, 259, 258, 0), (269, 258, 268, 0), (270, 260, 259, 0), (270, 259, 269, 0), (271, 261, 260, 0), (271, 260, 270, 0), (272, 262, 261, 0),
(272, 261, 271, 0), (273, 263, 262, 0), (273, 262, 272, 0), (275, 265, 264, 0), (276, 266, 265, 0), (276, 265, 275, 0), — VRML: [# triangle 325
— ]
(277, 267, 266, 0), (277, 266, 276, 0),
(278, 268, 267, 0), (278, 267, 277, 0), (279, 269, 268, 0), (279, 268, 278, 0), (280, 270, 269, 0), (280, 269, 279, 0), (281, 271, 270, 0), (281, 270, 280, 0),
(282, 272, 271, 0), (282, 271, 281, 0), (283, 273, 272, 0), (283, 272, 282, 0), (285, 275, 274, 0), (286, 276, 275, 0), (286, 275, 285, 0), (287, 277, 276, 0),
(287, 276, 286, 0), (288, 278, 277, 0), (288, 277, 287, 0), (289, 279, 278, 0), (289, 278, 288, 0), (290, 280, 279, 0), (290, 279, 289, 0), — VRML: [# triangle 350
— ]
(291, 281, 280, 0),
(291, 280, 290, 0), (292, 282, 281, 0), (292, 281, 291, 0), (293, 283, 282, 0), (293, 282, 292, 0), (295, 285, 284, 0), (296, 286, 285, 0), (296, 285, 295, 0),
(297, 287, 286, 0), (297, 286, 296, 0), (298, 288, 287, 0), (298, 287, 297, 0), (299, 289, 288, 0), (299, 288, 298, 0), (300, 290, 289, 0), (300, 289, 299, 0),
(301, 291, 290, 0), (301, 290, 300, 0), (302, 292, 291, 0), (302, 291, 301, 0), (303, 293, 292, 0), (303, 292, 302, 0), (305, 295, 294, 0), (306, 296, 295, 0),
— VRML: [# triangle 375
— ]
(306, 295, 305, 0), (297, 296, 306, 0), (307, 299, 298, 0), (308, 300, 299, 0), (308, 299, 307, 0), (309, 301, 300, 0), (309, 300, 308, 0), (310, 302, 301, 0),
(310, 301, 309, 0), (311, 303, 302, 0), (311, 302, 310, 0), (313, 305, 304, 0), (314, 306, 305, 0), (314, 305, 313, 0), (316, 308, 307, 0), (316, 307, 315, 0),
(317, 309, 308, 0), (317, 308, 316, 0), (318, 310, 309, 0), (318, 309, 317, 0), (319, 311, 310, 0), (319, 310, 318, 0), (238, 341, 342, 0), (342, 343, 237, 0),
(341, 238, 340, 0), — VRML: [# triangle 400
— ]
(339, 340, 239, 0), (238, 239, 340, 0), (338, 339, 239, 0), (425, 239, 424, 0), (237, 238, 342, 0), (428, 337, 338, 0), (337, 428, 429, 0),
(428, 338, 427, 0), (429, 336, 337, 0), (426, 427, 239, 0), (405, 336, 429, 0), (239, 427, 338, 0), (426, 239, 425, 0), (406, 240, 405, 0), (248, 421, 422, 0),
(423, 424, 239, 0), (422, 423, 239, 0), (419, 420, 248, 0), (421, 248, 420, 0), (418, 419, 257, 0), (248, 257, 419, 0), (417, 418, 257, 0), (239, 248, 422, 0),
(413, 249, 412, 0), (411, 249, 410, 0), — VRML: [# triangle 425
— ]
(249, 411, 412, 0), (258, 416, 417, 0), (415, 249, 414, 0), (416, 258, 415, 0), (249, 413, 414, 0), (258, 417, 257, 0),
(415, 258, 249, 0), (335, 336, 405, 0), (240, 333, 334, 0), (334, 335, 240, 0), (332, 333, 241, 0), (240, 241, 333, 0), (330, 331, 241, 0), (332, 241, 331, 0),
(242, 329, 330, 0), (405, 240, 335, 0), (242, 328, 329, 0), (243, 326, 327, 0), (327, 328, 243, 0), (244, 404, 324, 0), (236, 323, 404, 0), (324, 404, 323, 0),
(325, 244, 324, 0), (326, 244, 325, 0), (241, 242, 330, 0), — VRML: [# triangle 450
— ]
(408, 240, 407, 0), (326, 243, 244, 0), (328, 242, 243, 0), (249, 408, 409, 0), (401, 253, 263, 0),
(409, 410, 249, 0), (249, 240, 408, 0), (240, 406, 407, 0), (403, 244, 253, 0), (403, 245, 244, 0), (401, 402, 253, 0), (403, 253, 402, 0), (398, 273, 283, 0),
(399, 400, 263, 0), (273, 398, 399, 0), (398, 283, 397, 0), (263, 400, 401, 0), (263, 273, 399, 0), (404, 244, 245, 0), (355, 297, 306, 0), (297, 355, 356, 0),
(355, 306, 354, 0), (357, 297, 356, 0), (306, 352, 353, 0), (351, 314, 350, 0), — VRML: [# triangle 475
— ]
(314, 351, 352, 0), (306, 353, 354, 0), (306, 314, 352, 0), (298, 357, 358, 0),
(359, 307, 298, 0), (358, 359, 298, 0), (297, 357, 298, 0), (360, 307, 359, 0), (363, 307, 362, 0), (362, 307, 361, 0), (361, 307, 360, 0), (364, 307, 363, 0),
(370, 313, 312, 0), (350, 314, 349, 0), (313, 372, 314, 0), (312, 369, 370, 0), (313, 371, 372, 0), (314, 372, 373, 0), (313, 370, 371, 0), (374, 314, 373, 0),
(348, 349, 314, 0), (348, 314, 347, 0), (375, 346, 374, 0), (347, 374, 346, 0), (345, 376, 344, 0), — VRML: [# triangle 500
— ]
(346, 375, 345, 0), (315, 368, 344, 0), (314, 374, 347, 0),
(345, 375, 376, 0), (307, 365, 366, 0), (396, 283, 293, 0), (315, 307, 366, 0), (364, 365, 307, 0), (315, 367, 368, 0), (382, 317, 316, 0), (384, 318, 317, 0),
(316, 315, 379, 0), (366, 367, 315, 0), (283, 396, 397, 0), (395, 293, 303, 0), (395, 396, 293, 0), (395, 303, 394, 0), (394, 303, 393, 0), (311, 393, 303, 0),
(311, 392, 393, 0), (311, 391, 392, 0), (319, 391, 311, 0), (377, 378, 315, 0), (379, 380, 316, 0), (378, 379, 315, 0), — VRML: [# triangle 525
— ]
(381, 382, 316, 0), (383, 384, 317, 0),
(384, 385, 318, 0), (382, 383, 317, 0), (380, 381, 316, 0), (388, 390, 319, 0), (386, 318, 385, 0), (319, 390, 320, 0), (319, 318, 386, 0), (391, 319, 320, 0),
(319, 386, 387, 0), (390, 388, 389, 0), (390, 389, 322, 0), (319, 387, 388, 0), (377, 315, 344, 0), (376, 377, 344, 0), (441, 436, 435, 0), (442, 437, 436, 0),
(442, 436, 441, 0), (443, 438, 437, 0), (443, 437, 442, 0), (444, 439, 438, 0), (444, 438, 443, 0), (446, 441, 440, 0), (447, 442, 441, 0), — VRML: [# triangle 550
— ]
(447, 441, 446, 0),
(448, 443, 442, 0), (448, 442, 447, 0), (449, 444, 443, 0), (449, 443, 448, 0), (451, 446, 445, 0), (452, 447, 446, 0), (452, 446, 451, 0), (453, 448, 447, 0),
(453, 447, 452, 0), (454, 449, 448, 0), (454, 448, 453, 0), (456, 451, 450, 0), (457, 452, 451, 0), (457, 451, 456, 0), (458, 453, 452, 0), (458, 452, 457, 0),
(459, 454, 453, 0), (459, 453, 458, 0), (461, 456, 455, 0), (462, 457, 456, 0), (462, 456, 461, 0), (463, 458, 457, 0), (463, 457, 462, 0), (464, 459, 458, 0),
— VRML: [# triangle 575
— ]
(464, 458, 463, 0), (466, 461, 460, 0), (467, 462, 461, 0), (467, 461, 466, 0), (468, 463, 462, 0), (468, 462, 467, 0), (469, 464, 463, 0), (469, 463, 468, 0),
(436, 432, 431, 0), (438, 508, 509, 0), (439, 506, 507, 0), (507, 508, 438, 0), (509, 432, 437, 0), (436, 437, 432, 0), (438, 439, 507, 0), (437, 438, 509, 0),
(439, 505, 433, 0), (504, 505, 439, 0), (433, 506, 439, 0), (444, 480, 439, 0), (435, 436, 431, 0), (503, 504, 439, 0), (502, 503, 439, 0), (500, 501, 439, 0),
(480, 498, 499, 0), — VRML: [# triangle 600
— ]
(500, 439, 499, 0), (502, 439, 501, 0), (480, 496, 497, 0), (480, 494, 495, 0), (495, 496, 480, 0), (480, 492, 493, 0), (492, 480, 434, 0),
(480, 493, 494, 0), (480, 497, 498, 0), (439, 480, 499, 0), (480, 444, 479, 0), (482, 466, 465, 0), (471, 467, 466, 0), (477, 449, 454, 0), (475, 459, 464, 0),
(476, 454, 459, 0), (481, 482, 465, 0), (483, 471, 466, 0), (482, 483, 466, 0), (468, 467, 484, 0), (484, 467, 471, 0), (468, 484, 485, 0), (485, 469, 468, 0),
(479, 449, 478, 0), (464, 469, 488, 0), — VRML: [# triangle 625
— ]
(478, 449, 477, 0), (476, 477, 454, 0), (474, 475, 464, 0), (476, 459, 475, 0), (464, 488, 474, 0), (469, 472, 486, 0),
(469, 487, 488, 0), (469, 486, 487, 0), (474, 489, 490, 0), (474, 491, 473, 0), (474, 490, 491, 0), (474, 488, 489, 0), (472, 469, 485, 0), (444, 449, 479, 0),
(552, 551, 525, 0), (550, 549, 527, 0), (550, 527, 526, 0), (526, 551, 550, 0), (514, 545, 544, 0), (515, 544, 543, 0), (553, 552, 524, 0), (528, 527, 549, 0),
(523, 554, 553, 0), (554, 522, 555, 0), (545, 511, 546, 0), — VRML: [# triangle 650
— ]
(548, 528, 549, 0), (547, 510, 530, 0), (510, 564, 532, 0), (563, 562, 534, 0), (563, 533, 564, 0),
(535, 562, 561, 0), (547, 529, 548, 0), (530, 510, 531, 0), (531, 510, 532, 0), (560, 559, 537, 0), (560, 536, 561, 0), (564, 533, 532, 0), (533, 563, 534, 0),
(529, 547, 530, 0), (529, 528, 548, 0), (516, 542, 541, 0), (513, 511, 545, 0), (516, 541, 540, 0), (539, 558, 518, 0), (517, 540, 539, 0), (558, 557, 519, 0),
(515, 514, 544, 0), (543, 542, 515, 0), (516, 515, 542, 0), (519, 518, 558, 0), — VRML: [# triangle 675
— ]
(518, 517, 539, 0), (540, 517, 516, 0), (514, 513, 545, 0), (520, 519, 557, 0),
(551, 526, 525, 0), (525, 524, 552, 0), (535, 561, 536, 0), (512, 537, 559, 0), (537, 536, 560, 0), (534, 562, 535, 0), (555, 521, 556, 0), (555, 522, 521, 0),
(522, 554, 523, 0), (553, 524, 523, 0), (512, 538, 537, 0), (556, 521, 520, 0), (520, 557, 556, 0), (578, 567, 566, 0), (578, 566, 577, 0), (579, 568, 567, 0),
(579, 567, 578, 0), (580, 569, 568, 0), (580, 568, 579, 0), (581, 570, 569, 0), (581, 569, 580, 0), — VRML: [# triangle 700
— ]
(582, 570, 581, 0), (584, 573, 572, 0), (585, 574, 573, 0),
(585, 573, 584, 0), (586, 575, 574, 0), (586, 574, 585, 0), (587, 576, 575, 0), (587, 575, 586, 0), (588, 577, 576, 0), (588, 576, 587, 0), (589, 578, 577, 0),
(589, 577, 588, 0), (590, 579, 578, 0), (590, 578, 589, 0), (591, 580, 579, 0), (591, 579, 590, 0), (592, 581, 580, 0), (592, 580, 591, 0), (593, 581, 592, 0),
(595, 584, 583, 0), (596, 585, 584, 0), (596, 584, 595, 0), (597, 586, 585, 0), (597, 585, 596, 0), (598, 587, 586, 0), — VRML: [# triangle 725
— ]
(598, 586, 597, 0), (599, 588, 587, 0),
(599, 587, 598, 0), (600, 589, 588, 0), (600, 588, 599, 0), (601, 590, 589, 0), (601, 589, 600, 0), (602, 591, 590, 0), (602, 590, 601, 0), (603, 592, 591, 0),
(603, 591, 602, 0), (604, 592, 603, 0), (606, 595, 594, 0), (607, 596, 595, 0), (607, 595, 606, 0), (608, 597, 596, 0), (608, 596, 607, 0), (609, 598, 597, 0),
(609, 597, 608, 0), (610, 599, 598, 0), (610, 598, 609, 0), (611, 600, 599, 0), (611, 599, 610, 0), (612, 601, 600, 0), (612, 600, 611, 0), — VRML: [# triangle 750
— ]
(613, 602, 601, 0),
(613, 601, 612, 0), (614, 603, 602, 0), (614, 602, 613, 0), (615, 603, 614, 0), (617, 606, 605, 0), (618, 607, 606, 0), (618, 606, 617, 0), (619, 608, 607, 0),
(619, 607, 618, 0), (620, 609, 608, 0), (620, 608, 619, 0), (621, 610, 609, 0), (621, 609, 620, 0), (622, 611, 610, 0), (622, 610, 621, 0), (623, 612, 611, 0),
(623, 611, 622, 0), (624, 613, 612, 0), (624, 612, 623, 0), (625, 614, 613, 0), (625, 613, 624, 0), (626, 614, 625, 0), (628, 617, 616, 0), (629, 618, 617, 0),
— VRML: [# triangle 775
— ]
(629, 617, 628, 0), (630, 619, 618, 0), (630, 618, 629, 0), (631, 620, 619, 0), (631, 619, 630, 0), (632, 621, 620, 0), (632, 620, 631, 0), (633, 622, 621, 0),
(633, 621, 632, 0), (634, 623, 622, 0), (634, 622, 633, 0), (635, 624, 623, 0), (635, 623, 634, 0), (636, 625, 624, 0), (636, 624, 635, 0), (637, 625, 636, 0),
(639, 628, 627, 0), (640, 629, 628, 0), (640, 628, 639, 0), (641, 630, 629, 0), (641, 629, 640, 0), (642, 631, 630, 0), (642, 630, 641, 0), (643, 632, 631, 0),
(643, 631, 642, 0), — VRML: [# triangle 800
— ]
(644, 633, 632, 0), (644, 632, 643, 0), (645, 634, 633, 0), (645, 633, 644, 0), (646, 635, 634, 0), (646, 634, 645, 0), (647, 636, 635, 0),
(647, 635, 646, 0), (648, 636, 647, 0), (650, 639, 638, 0), (651, 640, 639, 0), (651, 639, 650, 0), (652, 641, 640, 0), (652, 640, 651, 0), (653, 642, 641, 0),
(653, 641, 652, 0), (654, 643, 642, 0), (654, 642, 653, 0), (655, 644, 643, 0), (655, 643, 654, 0), (656, 645, 644, 0), (656, 644, 655, 0), (657, 646, 645, 0),
(657, 645, 656, 0), (658, 647, 646, 0), — VRML: [# triangle 825
— ]
(658, 646, 657, 0), (659, 647, 658, 0), (661, 650, 649, 0), (662, 651, 650, 0), (662, 650, 661, 0), (663, 652, 651, 0),
(663, 651, 662, 0), (664, 653, 652, 0), (664, 652, 663, 0), (665, 654, 653, 0), (665, 653, 664, 0), (666, 655, 654, 0), (666, 654, 665, 0), (667, 656, 655, 0),
(667, 655, 666, 0), (668, 657, 656, 0), (668, 656, 667, 0), (669, 658, 657, 0), (669, 657, 668, 0), (670, 658, 669, 0), (672, 661, 660, 0), (673, 662, 661, 0),
(673, 661, 672, 0), (674, 663, 662, 0), (674, 662, 673, 0), — VRML: [# triangle 850
— ]
(675, 664, 663, 0), (675, 663, 674, 0), (676, 665, 664, 0), (676, 664, 675, 0), (677, 666, 665, 0),
(677, 665, 676, 0), (678, 667, 666, 0), (678, 666, 677, 0), (679, 668, 667, 0), (679, 667, 678, 0), (680, 669, 668, 0), (680, 668, 679, 0), (681, 669, 680, 0),
(683, 672, 671, 0), (684, 673, 672, 0), (684, 672, 683, 0), (685, 674, 673, 0), (685, 673, 684, 0), (686, 675, 674, 0), (686, 674, 685, 0), (687, 676, 675, 0),
(687, 675, 686, 0), (688, 677, 676, 0), (688, 676, 687, 0), (689, 678, 677, 0), — VRML: [# triangle 875
— ]
(689, 677, 688, 0), (690, 679, 678, 0), (690, 678, 689, 0), (691, 680, 679, 0),
(691, 679, 690, 0), (692, 680, 691, 0), (694, 683, 682, 0), (695, 684, 683, 0), (695, 683, 694, 0), (696, 685, 684, 0), (696, 684, 695, 0), (697, 686, 685, 0),
(697, 685, 696, 0), (698, 687, 686, 0), (698, 686, 697, 0), (699, 688, 687, 0), (699, 687, 698, 0), (700, 689, 688, 0), (700, 688, 699, 0), (701, 690, 689, 0),
(701, 689, 700, 0), (702, 691, 690, 0), (702, 690, 701, 0), (703, 691, 702, 0), (705, 694, 693, 0), — VRML: [# triangle 900
— ]
(706, 695, 694, 0), (706, 694, 705, 0), (707, 696, 695, 0),
(707, 695, 706, 0), (708, 697, 696, 0), (708, 696, 707, 0), (709, 698, 697, 0), (709, 697, 708, 0), (710, 699, 698, 0), (710, 698, 709, 0), (711, 700, 699, 0),
(711, 699, 710, 0), (712, 701, 700, 0), (712, 700, 711, 0), (713, 702, 701, 0), (713, 701, 712, 0), (714, 702, 713, 0), (716, 705, 704, 0), (717, 706, 705, 0),
(717, 705, 716, 0), (718, 707, 706, 0), (718, 706, 717, 0), (719, 708, 707, 0), (719, 707, 718, 0), (720, 709, 708, 0), — VRML: [# triangle 925
— ]
(720, 708, 719, 0), (721, 710, 709, 0),
(721, 709, 720, 0), (722, 711, 710, 0), (722, 710, 721, 0), (723, 712, 711, 0), (723, 711, 722, 0), (724, 713, 712, 0), (724, 712, 723, 0), (725, 713, 724, 0),
(727, 716, 715, 0), (728, 717, 716, 0), (728, 716, 727, 0), (729, 718, 717, 0), (729, 717, 728, 0), (730, 719, 718, 0), (730, 718, 729, 0), (731, 720, 719, 0),
(731, 719, 730, 0), (732, 721, 720, 0), (732, 720, 731, 0), (733, 722, 721, 0), (733, 721, 732, 0), (734, 723, 722, 0), (734, 722, 733, 0), — VRML: [# triangle 950
— ]
(735, 724, 723, 0),
(735, 723, 734, 0), (736, 724, 735, 0), (739, 732, 731, 0), (739, 731, 738, 0), (740, 733, 732, 0), (740, 732, 739, 0), (741, 734, 733, 0), (741, 733, 740, 0),
(742, 735, 734, 0), (742, 734, 741, 0), (743, 735, 742, 0), (770, 771, 565, 0), (565, 769, 770, 0), (769, 572, 768, 0), (767, 768, 573, 0), (572, 573, 768, 0),
(574, 767, 573, 0), (574, 751, 766, 0), (767, 574, 766, 0), (575, 751, 574, 0), (566, 746, 747, 0), (566, 744, 745, 0), (746, 566, 745, 0), (566, 747, 577, 0),
— VRML: [# triangle 975
— ]
(750, 576, 749, 0), (751, 575, 750, 0), (575, 576, 750, 0), (577, 748, 576, 0), (749, 576, 748, 0), (747, 748, 577, 0), (727, 756, 728, 0), (758, 728, 757, 0),
(728, 756, 757, 0), (729, 728, 758, 0), (755, 727, 726, 0), (752, 753, 737, 0), (754, 737, 753, 0), (755, 756, 727, 0), (754, 755, 726, 0), (730, 729, 759, 0),
(758, 759, 729, 0), (761, 731, 730, 0), (759, 760, 730, 0), (760, 761, 730, 0), (738, 762, 763, 0), (731, 762, 738, 0), (738, 764, 765, 0), (763, 764, 738, 0),
(761, 762, 731, 0), — VRML: [# triangle 1000
— ]
(773, 781, 782, 0), (786, 815, 785, 0), (787, 814, 786, 0), (786, 814, 815, 0), (813, 787, 788, 0), (803, 779, 780, 0), (803, 778, 779, 0),
(788, 789, 812, 0), (816, 785, 815, 0), (811, 789, 790, 0), (790, 791, 810, 0), (780, 781, 802, 0), (784, 785, 816, 0), (783, 818, 772, 0), (772, 820, 800, 0),
(799, 822, 798, 0), (799, 800, 821, 0), (823, 797, 798, 0), (783, 784, 817, 0), (818, 819, 772, 0), (819, 820, 772, 0), (796, 825, 795, 0), (796, 797, 824, 0),
(800, 820, 821, 0), (821, 822, 799, 0), — VRML: [# triangle 1025
— ]
(817, 818, 783, 0), (817, 784, 816, 0), (804, 827, 776, 0), (801, 781, 773, 0), (776, 777, 804, 0), (794, 807, 793, 0),
(794, 775, 827, 0), (776, 827, 775, 0), (827, 806, 794, 0), (780, 802, 803, 0), (803, 804, 778, 0), (777, 778, 804, 0), (807, 794, 806, 0), (806, 827, 805, 0),
(827, 804, 805, 0), (802, 781, 801, 0), (808, 793, 807, 0), (787, 813, 814, 0), (813, 788, 812, 0), (823, 824, 797, 0), (774, 795, 825, 0), (825, 796, 824, 0),
(822, 823, 798, 0), (791, 792, 809, 0), (791, 809, 810, 0), — VRML: [# triangle 1050
— ]
(810, 811, 790, 0), (789, 811, 812, 0), (774, 825, 826, 0), (792, 808, 809, 0), (808, 792, 793, 0),
(841, 840, 829, 0), (841, 829, 830, 0), (842, 841, 830, 0), (842, 830, 831, 0), (843, 842, 831, 0), (843, 831, 832, 0), (844, 843, 832, 0), (844, 832, 833, 0),
(845, 844, 833, 0), (847, 835, 836, 0), (848, 847, 836, 0), (848, 836, 837, 0), (849, 848, 837, 0), (849, 837, 838, 0), (850, 849, 838, 0), (850, 838, 839, 0),
(851, 850, 839, 0), (851, 839, 840, 0), (852, 851, 840, 0), (852, 840, 841, 0), — VRML: [# triangle 1075
— ]
(853, 852, 841, 0), (853, 841, 842, 0), (854, 853, 842, 0), (854, 842, 843, 0),
(855, 854, 843, 0), (855, 843, 844, 0), (856, 855, 844, 0), (858, 846, 847, 0), (859, 858, 847, 0), (859, 847, 848, 0), (860, 859, 848, 0), (860, 848, 849, 0),
(861, 860, 849, 0), (861, 849, 850, 0), (862, 861, 850, 0), (862, 850, 851, 0), (863, 862, 851, 0), (863, 851, 852, 0), (864, 863, 852, 0), (864, 852, 853, 0),
(865, 864, 853, 0), (865, 853, 854, 0), (866, 865, 854, 0), (866, 854, 855, 0), (867, 866, 855, 0), — VRML: [# triangle 1100
— ]
(869, 857, 858, 0), (870, 869, 858, 0), (870, 858, 859, 0),
(871, 870, 859, 0), (871, 859, 860, 0), (872, 871, 860, 0), (872, 860, 861, 0), (873, 872, 861, 0), (873, 861, 862, 0), (874, 873, 862, 0), (874, 862, 863, 0),
(875, 874, 863, 0), (875, 863, 864, 0), (876, 875, 864, 0), (876, 864, 865, 0), (877, 876, 865, 0), (877, 865, 866, 0), (878, 877, 866, 0), (880, 868, 869, 0),
(881, 880, 869, 0), (881, 869, 870, 0), (882, 881, 870, 0), (882, 870, 871, 0), (883, 882, 871, 0), (883, 871, 872, 0), — VRML: [# triangle 1125
— ]
(884, 883, 872, 0), (884, 872, 873, 0),
(885, 884, 873, 0), (885, 873, 874, 0), (886, 885, 874, 0), (886, 874, 875, 0), (887, 886, 875, 0), (887, 875, 876, 0), (888, 887, 876, 0), (888, 876, 877, 0),
(889, 888, 877, 0), (891, 879, 880, 0), (892, 891, 880, 0), (892, 880, 881, 0), (893, 892, 881, 0), (893, 881, 882, 0), (894, 893, 882, 0), (894, 882, 883, 0),
(895, 894, 883, 0), (895, 883, 884, 0), (896, 895, 884, 0), (896, 884, 885, 0), (897, 896, 885, 0), (897, 885, 886, 0), (898, 897, 886, 0), — VRML: [# triangle 1150
— ]
(898, 886, 887, 0),
(899, 898, 887, 0), (899, 887, 888, 0), (900, 899, 888, 0), (902, 890, 891, 0), (903, 902, 891, 0), (903, 891, 892, 0), (904, 903, 892, 0), (904, 892, 893, 0),
(905, 904, 893, 0), (905, 893, 894, 0), (906, 905, 894, 0), (906, 894, 895, 0), (907, 906, 895, 0), (907, 895, 896, 0), (908, 907, 896, 0), (908, 896, 897, 0),
(909, 908, 897, 0), (909, 897, 898, 0), (910, 909, 898, 0), (910, 898, 899, 0), (911, 910, 899, 0), (913, 901, 902, 0), (914, 913, 902, 0), (914, 902, 903, 0),
— VRML: [# triangle 1175
— ]
(915, 914, 903, 0), (915, 903, 904, 0), (916, 915, 904, 0), (916, 904, 905, 0), (917, 916, 905, 0), (917, 905, 906, 0), (918, 917, 906, 0), (918, 906, 907, 0),
(919, 918, 907, 0), (919, 907, 908, 0), (920, 919, 908, 0), (920, 908, 909, 0), (921, 920, 909, 0), (921, 909, 910, 0), (922, 921, 910, 0), (924, 912, 913, 0),
(925, 924, 913, 0), (925, 913, 914, 0), (926, 925, 914, 0), (926, 914, 915, 0), (927, 926, 915, 0), (927, 915, 916, 0), (928, 927, 916, 0), (928, 916, 917, 0),
(929, 928, 917, 0), — VRML: [# triangle 1200
— ]
(929, 917, 918, 0), (930, 929, 918, 0), (930, 918, 919, 0), (931, 930, 919, 0), (931, 919, 920, 0), (932, 931, 920, 0), (932, 920, 921, 0),
(933, 932, 921, 0), (935, 923, 924, 0), (936, 935, 924, 0), (936, 924, 925, 0), (937, 936, 925, 0), (937, 925, 926, 0), (938, 937, 926, 0), (938, 926, 927, 0),
(939, 938, 927, 0), (939, 927, 928, 0), (940, 939, 928, 0), (940, 928, 929, 0), (941, 940, 929, 0), (941, 929, 930, 0), (942, 941, 930, 0), (942, 930, 931, 0),
(943, 942, 931, 0), (943, 931, 932, 0), — VRML: [# triangle 1225
— ]
(944, 943, 932, 0), (946, 934, 935, 0), (947, 946, 935, 0), (947, 935, 936, 0), (948, 947, 936, 0), (948, 936, 937, 0),
(949, 948, 937, 0), (949, 937, 938, 0), (950, 949, 938, 0), (950, 938, 939, 0), (951, 950, 939, 0), (951, 939, 940, 0), (952, 951, 940, 0), (952, 940, 941, 0),
(953, 952, 941, 0), (953, 941, 942, 0), (954, 953, 942, 0), (954, 942, 943, 0), (955, 954, 943, 0), (957, 945, 946, 0), (958, 957, 946, 0), (958, 946, 947, 0),
(959, 958, 947, 0), (959, 947, 948, 0), (960, 959, 948, 0), — VRML: [# triangle 1250
— ]
(960, 948, 949, 0), (961, 960, 949, 0), (961, 949, 950, 0), (962, 961, 950, 0), (962, 950, 951, 0),
(963, 962, 951, 0), (963, 951, 952, 0), (964, 963, 952, 0), (964, 952, 953, 0), (965, 964, 953, 0), (965, 953, 954, 0), (966, 965, 954, 0), (968, 956, 957, 0),
(969, 968, 957, 0), (969, 957, 958, 0), (970, 969, 958, 0), (970, 958, 959, 0), (971, 970, 959, 0), (971, 959, 960, 0), (972, 971, 960, 0), (972, 960, 961, 0),
(973, 972, 961, 0), (973, 961, 962, 0), (974, 973, 962, 0), (974, 962, 963, 0), — VRML: [# triangle 1275
— ]
(975, 974, 963, 0), (975, 963, 964, 0), (976, 975, 964, 0), (976, 964, 965, 0),
(977, 976, 965, 0), (979, 967, 968, 0), (980, 979, 968, 0), (980, 968, 969, 0), (981, 980, 969, 0), (981, 969, 970, 0), (982, 981, 970, 0), (982, 970, 971, 0),
(983, 982, 971, 0), (983, 971, 972, 0), (984, 983, 972, 0), (984, 972, 973, 0), (985, 984, 973, 0), (985, 973, 974, 0), (986, 985, 974, 0), (986, 974, 975, 0),
(987, 986, 975, 0), (987, 975, 976, 0), (988, 987, 976, 0), (990, 978, 979, 0), (991, 990, 979, 0), — VRML: [# triangle 1300
— ]
(991, 979, 980, 0), (992, 991, 980, 0), (992, 980, 981, 0),
(993, 992, 981, 0), (993, 981, 982, 0), (994, 993, 982, 0), (994, 982, 983, 0), (995, 994, 983, 0), (995, 983, 984, 0), (996, 995, 984, 0), (996, 984, 985, 0),
(997, 996, 985, 0), (997, 985, 986, 0), (998, 997, 986, 0), (998, 986, 987, 0), (999, 998, 987, 0), (1002, 1001, 994, 0), (1002, 994, 995, 0), (1003, 1002, 995, 0),
(1003, 995, 996, 0), (1004, 1003, 996, 0), (1004, 996, 997, 0), (1005, 1004, 997, 0), (1005, 997, 998, 0), (1006, 1005, 998, 0), — VRML: [# triangle 1325
— ]
(1033, 828, 1034, 0), (828, 1033, 1032, 0),
(1032, 1031, 835, 0), (1030, 836, 1031, 0), (835, 1031, 836, 0), (837, 836, 1030, 0), (837, 1029, 1014, 0), (1030, 1029, 837, 0), (838, 837, 1014, 0), (829, 1010, 1009, 0),
(829, 1008, 1007, 0), (1009, 1008, 829, 0), (829, 840, 1010, 0), (1013, 1012, 839, 0), (1014, 1013, 838, 0), (838, 1013, 839, 0), (840, 839, 1011, 0), (1012, 1011, 839, 0),
(1010, 840, 1011, 0), (990, 991, 1019, 0), (1021, 1020, 991, 0), (991, 1020, 1019, 0), (992, 1021, 991, 0), (1018, 989, 990, 0), (1015, 1000, 1016, 0), — VRML: [# triangle 1350
— ]
(1017, 1016, 1000, 0),
(1018, 990, 1019, 0), (1017, 989, 1018, 0), (993, 1022, 992, 0), (1021, 992, 1022, 0), (1024, 993, 994, 0), (1022, 993, 1023, 0), (1023, 993, 1024, 0), (1001, 1026, 1025, 0),
(994, 1001, 1025, 0), (1001, 1028, 1027, 0), (1026, 1001, 1027, 0), (1024, 994, 1025, 0) — 1364
);
— VRML: [# 1364 triangles
— ]
— last index now: 0
— end Separator # 2
— VRML: [#triangle mesh
— ]
— last index now: 0
— end Separator # 2
— VRML: [# triangle mesh
— ]
procedure Create (Object : in out GLOBE_3D.p_Object_3D;
Scale : GLOBE_3D.Real;
Centre : GLOBE_3D.Point_3D) is
face_0 : Face_type; — takes defaults values
begin
Object :=
new Object_3D (Max_points => 1034, Max_faces => 1364);
Object.all.Centre := Centre;
Set_name (Object.all, “insect_body”);
face_0.skin := material_only;
face_0.material := VRML_Defaults;
— Creating separator # 1
if Almost_zero (Scale – 1.0) then
Object.all.Point (1 .. 1034) := coord_1;
else
for p in 1 .. 1034 loop
Object.all.Point (0 + p) := Scale * coord_1 (p);
end loop;
end if;
face_0.material := matos_1;
— Creating separator # 2
for f in 1 .. 1364 loop
face_0.P := idx_2 (f);
Object.all.face (0 + f) := face_0;
end loop;
end Create;
end Spaceship_P;
— Converted by Wrl2Ada