Back to... GLOBE_3D

Source file : skotknot.adb


with GL.Math, GL.Materials;

package body SkotKnot is
  -- Pretty output: FALSE
  use GL, GL.Math, GL.Materials, GLOBE_3D;

-- begin Separator # 1
-- VRML Info: ["Knot model created by KnotPlot
-- URL: http://www.cs.ubc.ca/nest/imager/contributions/scharein/KnotPlot.html
--
-- Author: Rob Scharein
--         Department of Computer Science
--         2366 Main Mall - Room 201
--         University of British Columbia
--         Vancouver, B.C. CANADA  V6T 1Z4
--         URL: http://www.cs.ubc.ca/spider/scharein
--         E-mail: scharein@cs.ubc.ca
-- date:   Thu Aug 8 19:06:39 PDT 1996
-- "]
-- begin Separator # 2

matos_2: constant Material_type:= (
ambient =>   (0.4,0.2,0.0,1.0),
specular =>  (0.9,0.9,0.0,1.0),
diffuse =>   (0.9,0.5,0.0,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 25.6
);
-- begin Separator # 3
coord_3: constant Point_3D_array:=
( (0.0,0.0,0.0),(0.406759,-5.257874,1.141623),(0.615515,-4.923208,1.81569),(0.680914,-4.162976,1.982171),(0.553709,-3.549647,1.515702),
(0.329689,-3.545071,0.767544),(0.177544,-4.152694,0.301075),(0.211844,-4.914963,0.467556),(-0.326118,-5.135679,1.360761),(-0.065318,-4.809473,2.0207),
(0.112076,-4.061206,2.156988),(0.072485,-3.454339,1.666997),(-0.154279,-3.445855,0.9197),(-0.397459,-4.042142,0.477827),(-0.473934,-4.794185,0.674118),
(-1.012058,-4.916273,1.55827),(-0.717389,-4.601119,2.209265),(-0.444252,-3.877823,2.319651),(-0.398324,-3.291041,1.806306),(-0.614191,-3.282631,1.055788),
(-0.9293,-3.858927,0.633253),(-1.106367,-4.585966,0.856878),(-1.670023,-4.609369,1.725342),(-1.358743,-4.30261,2.372606),(-1.005557,-3.611928,2.46296),
(-0.876421,-3.05742,1.928366),(-1.068578,-3.056641,1.171384),(-1.437328,-3.610179,0.762037),(-1.704997,-4.301208,1.008571),(-2.282457,-4.233074,1.844659),
(-1.967881,-3.929171,2.491676),(-1.545014,-3.276959,2.567504),(-1.332284,-2.767568,2.015044),(-1.48988,-2.784579,1.250308),(-1.89913,-3.315183,0.849159),
(-2.25186,-3.959824,1.11367),(-2.86327,-3.786102,1.905571),(-2.557406,-3.476438,2.554032),(-2.074336,-2.866474,2.621357),(-1.777819,-2.415525,2.056849),
(-1.891141,-2.463165,1.285593),(-2.328967,-2.973519,0.888362),(-2.761605,-3.562282,1.164278),(-3.390153,-3.290309,1.898182),(-3.09827,-2.968522,2.547184),
(-2.561892,-2.404605,2.612322),(-2.184924,-2.023198,2.044545),(-2.251229,-2.11151,1.271401),(-2.71088,-2.603039,0.875084),(-3.217748,-3.127653,1.154028),
(-3.871537,-2.739587,1.81391),(-3.597782,-2.398076,2.460729),(-3.014395,-1.883492,2.530075),(-2.560677,-1.583327,1.969728),(-2.578288,-1.723612,1.201642),
(-3.053966,-2.198709,0.804201),(-3.629516,-2.65086,1.076685),(-4.28456,-2.16337,1.658927),(-4.025636,-1.802637,2.301404),(-3.402018,-1.339427,2.38192),
(-2.883303,-1.122545,1.839847),(-2.860095,-1.31531,1.083375),(-3.349868,-1.772564,0.682144),(-3.983815,-2.149986,0.938288),(-4.634342,-1.556735,1.434752),
(-4.387295,-1.177368,2.071145),(-3.729916,-0.767225,2.169036),(-3.157226,-0.635152,1.654712),(-3.100471,-0.880602,0.91547),(-3.602389,-1.318747,0.507973),
(-4.285026,-1.619654,0.739075),(-4.910887,-0.935755,1.163573),(-4.667531,-0.551186,1.798263),(-3.981829,-0.197876,1.920455),(-3.370127,-0.141875,1.438136),
(-3.29305,-0.425353,0.714502),(-3.808638,-0.834845,0.294465),(-4.528643,-1.061996,0.49432),(-5.116389,-0.294141,0.861497),(-4.871826,0.081839,1.500853),
(-4.163826,0.374405,1.652797),(-3.525527,0.36325,1.202913),(-3.43758,0.056774,0.489972),(-3.966213,-0.314241,0.050834),(-4.713353,-0.470413,0.216178),
(-5.242921,0.37227,0.552657),(-4.993741,0.716367,1.207984),(-4.268296,0.934582,1.397876),(-3.612862,0.862595,0.979342),(-3.520994,0.554614,0.267545),
(-4.06187,0.242554,-0.201516),(-4.828199,0.161403,-0.074629),(-5.28117,1.080145,0.257077),(-5.030346,1.367514,0.938585),(-4.296265,1.495349,1.172528),
(-3.631705,1.367388,0.782743),(-3.537093,1.079988,0.062746),(-4.083674,0.849567,-0.445291),(-4.859861,0.849637,-0.358806),(-5.213558,1.80301,0.002265),
(-4.970901,2.016679,0.713186),(-4.242362,2.034869,0.993982),(-3.576545,1.843884,0.633206),(-3.474824,1.587538,-0.09747),(-4.013798,1.458866,-0.647831),
(-4.787607,1.55476,-0.603445),(-5.010697,2.568537,-0.2012),(-4.793842,2.688972,0.539351),(-4.094268,2.573552,0.866796),(-3.438767,2.30919,0.534562),
(-3.320947,2.094957,-0.207171),(-3.829526,2.092174,-0.799864),(-4.581536,2.302936,-0.797207),(-4.683752,3.28264,-0.323846),(-4.509555,3.312241,0.436894),
(-3.865555,3.059328,0.799172),(-3.236696,2.714349,0.490184),(-3.096524,2.537081,-0.257394),(-3.550589,2.661009,-0.880622),(-4.256972,2.992814,-0.910196),
(-4.193893,3.973505,-0.363205),(-4.083723,3.913535,0.407647),(-3.530845,3.517031,0.791127),(-2.951588,3.082569,0.498467),(-2.782143,2.937308,-0.249954),
(-3.150107,3.190632,-0.89056),(-3.778395,3.651783,-0.940961),(-3.61658,4.532909,-0.316225),(-3.580242,4.402082,0.452872),(-3.13997,3.885043,0.83859),
(-2.627297,3.371134,0.550474),(-2.428277,3.247338,-0.194517),(-2.692775,3.606876,-0.835391),(-3.22162,4.179009,-0.889556),(-2.920976,4.985329,-0.183325),
(-2.968273,4.800191,0.573929),(-2.663703,4.183843,0.944467),(-2.236614,3.600407,0.649266),(-2.008612,3.489222,-0.089381),(-2.151387,3.934013,-0.715258),
(-2.557427,4.599844,-0.757067),(-2.208309,5.278843,0.007889),(-2.335618,5.061096,0.747027),(-2.16781,4.37965,1.089691),(-1.831247,3.747648,0.777848),
(-1.579369,3.641001,0.046322),(-1.601845,4.140015,-0.554033),(-1.881749,4.868923,-0.571137),(-1.456242,5.436409,0.255175),(-1.658744,5.203211,0.972502),
(-1.626653,4.485308,1.278332),(-1.384132,3.823297,0.94237),(-1.113806,3.715684,0.217601),(-1.019235,4.243505,-0.350208),(-1.171633,5.0093,-0.333486),
(-0.736051,5.460366,0.523125),(-0.999827,5.225698,1.219759),(-1.089466,4.497084,1.486281),(-0.937468,3.823187,1.121995),(-0.65829,3.711463,0.401214),
(-0.46216,4.246044,-0.133297),(-0.496767,5.024379,-0.079042),(-0.028169,5.36894,0.806567),(-0.339153,5.141172,1.4858),(-0.535617,4.4206,1.714109),
(-0.469618,3.74983,1.319573),(-0.190856,3.633965,0.599286),(0.090756,4.160254,0.095638),(0.163158,4.932391,0.187887),(0.636343,5.180123,1.077965),
(0.294723,4.96209,1.745575),(0.006672,4.262497,1.939336),(-0.010902,3.608153,1.513341),(0.255235,3.491792,0.788374),(0.604676,4.001036,0.310349),
(0.774285,4.752414,0.439229),(1.27516,4.901945,1.329378),(0.918519,4.691742,1.991622),(0.553441,4.0213,2.156463),(0.454838,3.395476,1.699771),
(0.69696,3.285527,0.965445),(1.097484,3.774248,0.506447),(1.354807,4.493622,0.668413),(1.872782,4.549245,1.540587),(1.514017,4.341691,2.20252),
(1.081884,3.706654,2.343707),(0.901787,3.122328,1.857831),(1.109344,3.028724,1.110767),(1.548259,3.496327,0.665069),(1.888021,4.173022,0.856356),
(2.442872,4.11966,1.702135),(2.09365,3.906359,2.367337),(1.603446,3.311039,2.490793),(1.341395,2.781989,1.979539),(1.504825,2.717593,1.218559),
(1.970671,3.166343,0.780887),(2.388141,3.790322,0.996098),(2.964638,3.632955,1.799518),(2.630558,3.407032,2.468321),(2.088846,2.85567,2.580096),
(1.747421,2.394055,2.050674),(1.863383,2.369793,1.278722),(2.349411,2.801154,0.845534),(2.839515,3.363314,1.07731),(3.447001,3.082134,1.825288),
(3.132629,2.835163,2.4962),(2.545265,2.331507,2.602408),(2.127206,1.950429,2.063935),(2.193259,1.978888,1.286264),(2.693684,2.395455,0.854995),
(3.251652,2.886446,1.094883),(3.866894,2.497293,1.778791),(3.569704,2.228292,2.449063),(2.942967,1.774876,2.556581),(2.458627,1.478476,2.020383),
(2.481403,1.562287,1.244236),(2.994143,1.963199,0.812595),(3.610745,2.379315,1.050495),(4.229798,1.873369,1.661131),(3.947381,1.581363,2.328155),
(3.28718,1.180307,2.443192),(2.746338,0.972203,1.919618),(2.732121,1.113759,1.151695),(3.255235,1.49838,0.717684),(3.921764,1.836438,0.944404),
(4.523651,1.230645,1.488723),(4.248305,0.926795,2.153409),(3.559516,0.582104,2.282651),(2.975955,0.456131,1.77913),(2.937056,0.643737,1.022005),
(3.472111,1.00365,0.581408),(4.178211,1.264849,0.789117),(4.749726,0.565153,1.275224),(4.476286,0.2611,1.940602),(3.764384,-0.023411,2.08958),
(3.150095,-0.074138,1.609973),(3.095992,0.147119,0.862936),(3.642815,0.473748,0.411002),(4.378796,0.65979,0.594487),(4.898904,-0.125626,1.042206),
(4.622396,-0.407169,1.716167),(3.891299,-0.617747,1.89252),(3.256144,-0.598791,1.438466),(3.195215,-0.364574,0.695919),(3.754393,-0.091468,0.224031),
(4.512606,0.014874,0.378143),(4.960715,-0.852065,0.809844),(4.682045,-1.087722,1.500318),(3.939609,-1.209352,1.70994),(3.292475,-1.125363,1.280858),
(3.22795,-0.899002,0.536182),(3.79462,-0.700723,0.036666),(4.565773,-0.679834,0.158457),(4.915648,-1.594897,0.60244),(4.642589,-1.764298,1.31426),
(3.90185,-1.776554,1.561449),(3.251223,-1.622436,1.157868),(3.180642,-1.417998,0.407422),(3.743257,-1.317186,-0.124789),(4.515407,-1.395913,-0.037998),
(4.734151,-2.376609,0.435144),(4.483071,-2.457742,1.17021),(3.766557,-2.336314,1.456232),(3.124157,-2.103764,1.077828),(3.039612,-1.935205,0.319945),
(3.576587,-1.957567,-0.246716),(4.330727,-2.15401,-0.195448),(4.421671,-3.107018,0.333812),(4.210023,-3.099743,1.085542),(3.545095,-2.839247,1.401706),
(2.927592,-2.521688,1.044224),(2.822506,-2.386195,0.282289),(3.308969,-2.534797,-0.310347),(4.020664,-2.855593,-0.287417),(3.93615,-3.813745,0.304141),
(3.78756,-3.716772,1.064709),(3.21231,-3.30886,1.40033),(2.643575,-2.897175,1.058275),(2.509624,-2.791724,0.296118),(2.911324,-3.071914,-0.312221),
(3.546188,-3.526756,-0.308651),(3.353971,-4.381376,0.348477),(3.278666,-4.214682,1.107745),(2.816967,-3.683423,1.446189),(2.316542,-3.187647,1.108953),
(2.154222,-3.100684,0.349982),(2.452236,-3.488019,-0.259202),(2.986175,-4.057981,-0.259872),(2.640081,-4.834805,0.465936),(2.648586,-4.615911,1.215576),
(2.327099,-3.983328,1.541813),(1.917708,-3.413403,1.198985),(1.728691,-3.335302,0.445248),(1.902383,-3.807837,-0.151818),(2.307989,-4.475178,-0.142612),
(1.905613,-5.117989,0.629595),(1.992867,-4.86981,1.364946),(1.813286,-4.172862,1.668198),(1.502099,-3.551963,1.310996),(1.293636,-3.474661,0.562321),
(1.344874,-3.999166,-0.014059),(1.617229,-4.730516,0.01588),(1.125402,-5.255263,0.835677),(1.284958,-4.995297,1.554639),(1.246744,-4.264665,1.827884),
(1.039535,-3.613549,1.449654),(0.819365,-3.532251,0.704764),(0.752025,-4.081991,0.15413),(0.888224,-4.848804,0.212392),(0.0,0.0,0.0)  --  310
);

idx_3: constant Idx_4_array_array:=
( (2,3,10,9),(3,4,11,10),(4,5,12,11),(5,6,13,12),(6,7,14,13),(7,8,15,14),(8,2,9,15),(9,10,17,16),
(10,11,18,17),(11,12,19,18),(12,13,20,19),(13,14,21,20),(14,15,22,21),(15,9,16,22),(16,17,24,23),(17,18,25,24),
(18,19,26,25),(19,20,27,26),(20,21,28,27),(21,22,29,28),(22,16,23,29),(23,24,31,30),(24,25,32,31),(25,26,33,32),
(26,27,34,33),(27,28,35,34),(28,29,36,35),(29,23,30,36),(30,31,38,37),(31,32,39,38),(32,33,40,39),(33,34,41,40),
(34,35,42,41),(35,36,43,42),(36,30,37,43),(37,38,45,44),(38,39,46,45),(39,40,47,46),(40,41,48,47),(41,42,49,48),
(42,43,50,49),(43,37,44,50),(44,45,52,51),(45,46,53,52),(46,47,54,53),(47,48,55,54),(48,49,56,55),(49,50,57,56),
(50,44,51,57),(51,52,59,58),(52,53,60,59),(53,54,61,60),(54,55,62,61),(55,56,63,62),(56,57,64,63),(57,51,58,64),
(58,59,66,65),(59,60,67,66),(60,61,68,67),(61,62,69,68),(62,63,70,69),(63,64,71,70),(64,58,65,71),(65,66,73,72),
(66,67,74,73),(67,68,75,74),(68,69,76,75),(69,70,77,76),(70,71,78,77),(71,65,72,78),(72,73,80,79),(73,74,81,80),
(74,75,82,81),(75,76,83,82),(76,77,84,83),(77,78,85,84),(78,72,79,85),(79,80,87,86),(80,81,88,87),(81,82,89,88),
(82,83,90,89),(83,84,91,90),(84,85,92,91),(85,79,86,92),(86,87,94,93),(87,88,95,94),(88,89,96,95),(89,90,97,96),
(90,91,98,97),(91,92,99,98),(92,86,93,99),(93,94,101,100),(94,95,102,101),(95,96,103,102),(96,97,104,103),(97,98,105,104),
(98,99,106,105),(99,93,100,106),(100,101,108,107),(101,102,109,108),(102,103,110,109),(103,104,111,110),(104,105,112,111),(105,106,113,112),
(106,100,107,113),(107,108,115,114),(108,109,116,115),(109,110,117,116),(110,111,118,117),(111,112,119,118),(112,113,120,119),(113,107,114,120),
(114,115,122,121),(115,116,123,122),(116,117,124,123),(117,118,125,124),(118,119,126,125),(119,120,127,126),(120,114,121,127),(121,122,129,128),
(122,123,130,129),(123,124,131,130),(124,125,132,131),(125,126,133,132),(126,127,134,133),(127,121,128,134),(128,129,136,135),(129,130,137,136),
(130,131,138,137),(131,132,139,138),(132,133,140,139),(133,134,141,140),(134,128,135,141),(135,136,143,142),(136,137,144,143),(137,138,145,144),
(138,139,146,145),(139,140,147,146),(140,141,148,147),(141,135,142,148),(142,143,150,149),(143,144,151,150),(144,145,152,151),(145,146,153,152),
(146,147,154,153),(147,148,155,154),(148,142,149,155),(149,150,157,156),(150,151,158,157),(151,152,159,158),(152,153,160,159),(153,154,161,160),
(154,155,162,161),(155,149,156,162),(156,157,164,163),(157,158,165,164),(158,159,166,165),(159,160,167,166),(160,161,168,167),(161,162,169,168),
(162,156,163,169),(163,164,171,170),(164,165,172,171),(165,166,173,172),(166,167,174,173),(167,168,175,174),(168,169,176,175),(169,163,170,176),
(170,171,178,177),(171,172,179,178),(172,173,180,179),(173,174,181,180),(174,175,182,181),(175,176,183,182),(176,170,177,183),(177,178,185,184),
(178,179,186,185),(179,180,187,186),(180,181,188,187),(181,182,189,188),(182,183,190,189),(183,177,184,190),(184,185,192,191),(185,186,193,192),
(186,187,194,193),(187,188,195,194),(188,189,196,195),(189,190,197,196),(190,184,191,197),(191,192,199,198),(192,193,200,199),(193,194,201,200),
(194,195,202,201),(195,196,203,202),(196,197,204,203),(197,191,198,204),(198,199,206,205),(199,200,207,206),(200,201,208,207),(201,202,209,208),
(202,203,210,209),(203,204,211,210),(204,198,205,211),(205,206,213,212),(206,207,214,213),(207,208,215,214),(208,209,216,215),(209,210,217,216),
(210,211,218,217),(211,205,212,218),(212,213,220,219),(213,214,221,220),(214,215,222,221),(215,216,223,222),(216,217,224,223),(217,218,225,224),
(218,212,219,225),(219,220,227,226),(220,221,228,227),(221,222,229,228),(222,223,230,229),(223,224,231,230),(224,225,232,231),(225,219,226,232),
(226,227,234,233),(227,228,235,234),(228,229,236,235),(229,230,237,236),(230,231,238,237),(231,232,239,238),(232,226,233,239),(233,234,241,240),
(234,235,242,241),(235,236,243,242),(236,237,244,243),(237,238,245,244),(238,239,246,245),(239,233,240,246),(240,241,248,247),(241,242,249,248),
(242,243,250,249),(243,244,251,250),(244,245,252,251),(245,246,253,252),(246,240,247,253),(247,248,255,254),(248,249,256,255),(249,250,257,256),
(250,251,258,257),(251,252,259,258),(252,253,260,259),(253,247,254,260),(254,255,262,261),(255,256,263,262),(256,257,264,263),(257,258,265,264),
(258,259,266,265),(259,260,267,266),(260,254,261,267),(261,262,269,268),(262,263,270,269),(263,264,271,270),(264,265,272,271),(265,266,273,272),
(266,267,274,273),(267,261,268,274),(268,269,276,275),(269,270,277,276),(270,271,278,277),(271,272,279,278),(272,273,280,279),(273,274,281,280),
(274,268,275,281),(275,276,283,282),(276,277,284,283),(277,278,285,284),(278,279,286,285),(279,280,287,286),(280,281,288,287),(281,275,282,288),
(282,283,290,289),(283,284,291,290),(284,285,292,291),(285,286,293,292),(286,287,294,293),(287,288,295,294),(288,282,289,295),(289,290,297,296),
(290,291,298,297),(291,292,299,298),(292,293,300,299),(293,294,301,300),(294,295,302,301),(295,289,296,302),(296,297,304,303),(297,298,305,304),
(298,299,306,305),(299,300,307,306),(300,301,308,307),(301,302,309,308),(302,296,303,309),(303,304,3,2),(304,305,4,3),(305,306,5,4),
(306,307,6,5),(307,308,7,6),(308,309,8,7),(309,303,2,8),(309,303,2,8)--  309
);
-- last index now: 310
-- end Separator # 3
-- last index now: 310
-- end Separator # 3
-- begin Separator # 4

matos_4: constant Material_type:= (
ambient =>   (0.4,0.2,0.0,1.0),
specular =>  (0.9,0.9,0.0,1.0),
diffuse =>   (0.0,0.5,0.0,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 25.6
);
-- begin Separator # 5
coord_5: constant Point_3D_array:=
( (0.0,0.0,0.0),(-11.496922,-0.723811,-1.838573),(-10.803056,-0.923886,-1.541143),(-10.631684,-1.514294,-1.059482),(-11.111856,-2.050445,-0.756291),
(-11.881989,-2.128607,-0.859879),(-12.362161,-1.689921,-1.292242),(-12.190789,-1.064729,-1.727802),(-11.341837,-1.062492,-2.291526),(-10.662498,-1.20294,-1.932752),
(-10.484077,-1.778498,-1.435917),(-10.940931,-2.355759,-1.175147),(-11.689038,-2.500034,-1.346807),(-12.165058,-2.10268,-1.821635),(-12.010539,-1.462914,-2.242074),
(-11.1223,-1.380911,-2.721144),(-10.467893,-1.463547,-2.302971),(-10.285566,-2.022992,-1.789428),(-10.712617,-2.637971,-1.567225),(-11.427466,-2.845394,-1.803684),
(-11.891818,-2.489066,-2.320747),(-11.756006,-1.83731,-2.729055),(-10.833234,-1.684472,-3.134618),(-10.214424,-1.71104,-2.658893),(-10.031878,-2.253212,-2.127223),
(-10.423056,-2.90272,-1.939966),(-11.093393,-3.170472,-2.238131),(-11.538113,-2.854845,-2.797193),(-11.422332,-2.193513,-3.196167),(-10.489467,-1.959273,-3.512652),
(-9.915551,-1.933242,-2.983606),(-9.736591,-2.457531,-2.433114),(-10.087349,-3.13734,-2.275708),(-10.703695,-3.460757,-2.629918),(-11.12151,-3.184245,-3.229016),
(-11.026169,-2.516021,-3.62187),(-10.084158,-2.210109,-3.861609),(-9.564462,-2.134945,-3.283497),(-9.393323,-2.640936,-2.713733),(-9.699612,-3.347061,-2.581361),
(-10.252687,-3.721592,-2.986059),(-10.636071,-3.482501,-3.623082),(-10.561069,-2.809828,-4.012738),(-9.636579,-2.426226,-4.165599),(-9.179099,-2.306321,-3.544083),
(-9.02025,-2.793925,-2.955053),(-9.279648,-3.521862,-2.842061),(-9.761961,-3.941981,-3.290192),(-10.103997,-3.737923,-3.961994),(-10.048197,-3.063349,-4.351587),
(-9.137836,-2.611308,-4.429039),(-8.750748,-2.45108,-3.769922),(-8.609118,-2.920478,-3.162014),(-8.819598,-3.666036,-3.063081),(-9.223692,-4.126333,-3.547623),
(-9.517109,-3.954757,-4.250769),(-9.4789,-3.280507,-4.643037),(-8.610929,-2.757842,-4.639545),(-8.300864,-2.562436,-3.949892),(-8.181618,-3.014189,-3.324076),
(-8.342986,-3.772922,-3.233349),(-8.663455,-4.267293,-3.746032),(-8.901706,-4.125031,-4.476062),(-8.878329,-3.453263,-4.873713),(-8.045329,-2.86825,-4.799065),
(-7.819162,-2.642911,-4.086312),(-7.727927,-3.077958,-3.444162),(-7.840325,-3.845793,-3.356168),(-8.071718,-4.368219,-3.88859),(-8.247864,-4.251841,-4.640504),
(-8.236118,-3.584292,-5.045704),(-7.466902,-2.938607,-4.899055),(-7.329789,-2.689095,-4.171807),(-7.272489,-3.108818,-3.515685),(-7.338151,-3.881714,-3.424762),
(-7.477329,-4.425777,-3.967506),(-7.58522,-4.331317,-4.735219),(-7.58058,-3.669464,-5.149797),(-6.864186,-2.969959,-4.938208),(-6.821463,-2.702217,-4.205791),
(-6.804425,-3.108516,-3.539025),(-6.825901,-3.882906,-3.439999),(-6.86972,-4.442254,-3.983281),(-6.902885,-4.365361,-4.759769),(-6.900422,-3.710128,-5.184752),
(-6.266122,-2.962228,-4.913063),(-6.319855,-2.682538,-4.185853),(-6.348527,-3.077922,-3.512952),(-6.330546,-3.850647,-3.401067),(-6.279453,-4.418837,-3.934449),
(-6.233722,-4.354632,-4.711452),(-6.227789,-3.70638,-5.146976),(-5.661815,-2.915344,-4.819577),(-5.814004,-2.630034,-4.108674),(-5.893932,-3.017533,-3.435322),
(-5.841411,-3.786046,-3.306569),(-5.69599,-4.356865,-3.819369),(-5.567174,-4.300154,-4.587573),(-5.551965,-3.658617,-5.032707),(-5.08167,-2.833374,-4.66198),
(-5.329007,-2.548403,-3.978195),(-5.462543,-2.931328,-3.31075),(-5.381723,-3.693798,-3.162245),(-5.147406,-4.261658,-3.644507),(-4.936037,-4.207297,-4.394383),
(-4.906782,-3.571651,-4.847201),(-4.516586,-2.715694,-4.435832),(-4.855619,-2.436689,-3.789952),(-5.04485,-2.818584,-3.13551),(-4.941783,-3.573804,-2.965313),
(-4.624032,-4.133652,-3.407523),(-4.330868,-4.076553,-4.129147),(-4.28305,-3.445502,-4.586787),(-3.992461,-2.569773,-4.154053),(-4.413888,-2.300845,-3.554033),
(-4.656135,-2.684549,-2.918396),(-4.536786,-3.431948,-2.72579),(-4.145713,-3.980235,-3.121251),(-3.777402,-3.916539,-3.806988),(-3.709198,-3.288825,-4.266629),
(-3.502178,-2.395294,-3.815174),(-3.997033,-2.139779,-3.267656),(-4.289401,-2.527858,-2.656213),(-4.159121,-3.267301,-2.441275),(-3.704298,-3.801291,-2.784694),
(-3.267423,-3.727724,-3.42787),(-3.177471,-3.101996,-3.886476),(-3.059976,-2.199858,-3.437798),(-3.614831,-1.958604,-2.943956),(-3.949365,-2.35157,-2.357772),
(-3.811667,-3.082843,-2.120654),(-3.305427,-3.601761,-2.411157),(-2.811854,-3.517568,-3.010526),(-2.702618,-2.893662,-3.467424),(-2.659639,-1.984155,-3.027515),
(-3.262562,-1.756971,-2.586134),(-3.631979,-2.154544,-2.024517),(-3.489711,-2.877492,-1.765573),(-2.942889,-3.381422,-2.004292),(-2.403281,-3.286863,-2.560915),
(-2.277223,-2.665021,-3.016292),(-2.297986,-1.750265,-2.599709),(-2.935262,-1.534115,-2.203345),(-3.328763,-1.932799,-1.659143),(-3.182174,-2.646099,-1.376899),
(-2.60588,-3.136886,-1.569149),(-2.033842,-3.035587,-2.091124),(-1.896816,-2.418483,-2.549766),(-1.969517,-1.50127,-2.170119),(-2.629783,-1.291959,-1.809308),
(-3.038326,-1.687113,-1.273685),(-2.887505,-2.389173,-0.966584),(-2.290891,-2.869474,-1.119259),(-1.697747,-2.766339,-1.616742),(-1.554722,-2.157431,-2.084419),
(-1.653273,-1.228528,-1.743351),(-2.323936,-1.018044,-1.402977),(-2.735287,-1.40002,-0.859994),(-2.577571,-2.08682,-0.523278),(-1.96955,-2.56127,-0.646383),
(-1.369078,-2.466099,-1.136609),(-1.228321,-1.872974,-1.624806),(-1.346794,-0.940905,-1.347216),(-2.017492,-0.720247,-1.013418),(-2.421351,-1.078274,-0.448918),
(-2.254259,-1.745385,-0.078796),(-1.642038,-2.219231,-0.181762),(-1.045704,-2.142997,-0.680279),(-0.914308,-1.574089,-1.198956),(-1.030979,-0.63444,-1.010428),
(-1.683998,-0.384627,-0.662426),(-2.057683,-0.692668,-0.049713),(-1.87064,-1.326603,0.366325),(-1.263717,-1.809065,0.272404),(-0.693939,-1.776751,-0.260752),
(-0.590361,-1.253993,-0.831666),(-0.697582,-0.314538,-0.763115),(-1.314439,-0.014309,-0.38989),(-1.631989,-0.241078,0.286634),(-1.411111,-0.824084,0.75702),
(-0.81813,-1.324312,0.667058),(-0.299573,-1.365079,0.084492),(-0.245924,-0.915687,-0.551995),(-0.366177,-0.009001,-0.635704),(-0.929336,0.361296,-0.241142),
(-1.161979,0.249139,0.495909),(-0.88892,-0.261016,1.020436),(-0.315779,-0.78501,0.937458),(0.125858,-0.928267,0.309461),(0.103429,-0.58291,-0.390662),
(-0.018943,0.289525,-0.645527),(-0.5058,0.754607,-0.249779),(-0.61191,0.804179,0.52238),(-0.257369,0.400914,1.089499),(0.290845,-0.151523,1.024526),
(0.619917,-0.437134,0.376387),(0.482048,-0.240849,-0.366856),(0.303958,0.559981,-0.751477),(-0.118456,1.10288,-0.381649),(-0.107575,1.296475,0.374889),
(0.328408,0.994985,0.948447),(0.861188,0.425438,0.907126),(1.089571,0.016714,0.28204),(0.841581,0.076591,-0.456108),(0.622588,0.81499,-0.971495),
(0.258909,1.427831,-0.651949),(0.387227,1.762795,0.041794),(0.910918,1.567647,0.587332),(1.435631,0.989338,0.573864),(1.566246,0.463346,0.011531),
(1.204408,0.385754,-0.676219),(0.924832,1.051025,-1.257442),(0.598006,1.707652,-0.989164),(0.802549,2.134939,-0.36825),(1.384436,2.011131,0.13774),
(1.905494,1.429458,0.147784),(1.973356,0.827931,-0.34568),(1.536921,0.659513,-0.971064),(1.251294,1.297006,-1.621451),(0.945338,1.979138,-1.395545),
(1.190673,2.45969,-0.830896),(1.802556,2.376796,-0.352698),(2.320228,1.792877,-0.321043),(2.35387,1.147637,-0.759768),(1.87815,0.926953,-1.338504),
(1.570488,1.516192,-2.008417),(1.279525,2.216248,-1.820778),(1.547122,2.730407,-1.297348),(2.171772,2.671496,-0.83228),(2.683102,2.083877,-0.77578),
(2.696069,1.410038,-1.170393),(2.200909,1.157395,-1.718968),(1.92215,1.732195,-2.430419),(1.64182,2.444425,-2.275209),(1.913275,2.975296,-1.770794),
(2.532104,2.925051,-1.297008),(3.032315,2.331525,-1.210621),(3.03724,1.641656,-1.576685),(2.54317,1.374929,-2.119546),(2.290371,1.925732,-2.844544),
(2.022234,2.64894,-2.721988),(2.289353,3.189752,-2.225888),(2.890582,3.140926,-1.729816),(3.373183,2.53923,-1.607327),(3.373748,1.837752,-1.950655),
(2.891851,1.564719,-2.501269),(2.703377,2.107631,-3.257593),(2.44961,2.840692,-3.167204),(2.702726,3.385565,-2.668212),(3.272124,3.331948,-2.136368),
(3.729035,2.720217,-1.972162),(3.729396,2.011018,-2.299243),(3.272935,1.738391,-2.871314),(3.151252,2.267929,-3.641686),(2.916338,3.010526,-3.584143),
(3.149478,3.557122,-3.077364),(3.67511,3.49612,-2.502964),(4.097425,2.873454,-2.293478),(4.098409,2.158005,-2.606653),(3.677323,1.888521,-3.206662),
(3.652409,2.409728,-3.99612),(3.441836,3.16139,-3.971419),(3.647962,3.708042,-3.453124),(4.11557,3.638044,-2.831521),(4.492541,3.004107,-2.57469),
(4.495009,2.283597,-2.87603),(4.121115,2.019073,-3.508626),(4.186927,2.523544,-4.297896),(4.007177,3.283531,-4.305368),(4.18349,3.830825,-3.776853),
(4.583099,3.753304,-3.110333),(4.905091,3.109342,-2.807711),(4.906999,2.383855,-3.096868),(4.587386,2.12315,-3.760062),(4.767518,2.609377,-4.546481),
(4.626032,3.376506,-4.584458),(4.769506,3.925283,-4.047611),(5.089901,3.842469,-3.340196),(5.345953,3.190424,-2.994912),(5.34485,2.460151,-3.271764),
(5.087421,2.201561,-3.962277),(5.36478,2.659983,-4.727644),(5.268345,3.432242,-4.792933),(5.380699,3.984433,-4.252184),(5.617236,3.900745,-3.512595),
(5.79984,3.244196,-3.131089),(5.791006,2.509182,-3.39495),(5.597386,2.249182,-4.105484),(5.987976,2.674007,-4.843228),(5.943848,3.448727,-4.931589),
(6.027121,4.006028,-4.390824),(6.17509,3.926251,-3.62814),(6.27633,3.26947,-3.217853),(6.254606,2.530254,-3.468919),(6.126276,2.265248,-4.192278),
(6.606253,2.648725,-4.889855),(6.619449,3.422388,-4.995773),(6.678813,3.986433,-4.45886),(6.739642,3.916124,-3.683423),(6.756132,3.264404,-3.253381),
(6.715865,2.522032,-3.492565),(6.649162,2.248029,-4.220864),(7.227265,2.582297,-4.870588),(7.302767,3.350736,-4.987838),(7.343592,3.922545,-4.457448),
(7.318998,3.867141,-3.678813),(7.247505,3.226244,-3.238261),(7.182949,2.482462,-3.467537),(7.173941,2.195879,-4.193991),(7.824328,2.47635,-4.790048),
(7.964345,3.234946,-4.91201),(7.993029,3.81493,-4.389763),(7.88878,3.779564,-3.61657),(7.730101,3.155478,-3.17466),(7.636479,2.412622,-3.396801),
(7.678414,2.110382,-4.115716),(8.404249,2.328731,-4.650963),(8.610709,3.072359,-4.770708),(8.63346,3.660171,-4.25699),(8.455369,3.649533,-3.49665),
(8.210544,3.048455,-3.062239),(8.083342,2.309562,-3.280878),(8.169549,1.989255,-3.987926),(8.946302,2.144225,-4.461627),(9.218617,2.86775,-4.572538),
(9.240681,3.462568,-4.066918),(8.995877,3.480768,-3.32551),(8.668549,2.908645,-2.906609),(8.505181,2.17702,-3.125656),(8.628793,1.836821,-3.817704),
(9.45657,1.92019,-4.222764),(9.793884,2.618104,-4.318056),(9.820062,3.218464,-3.819228),(9.51539,3.269186,-3.101907),(9.109294,2.732075,-2.706251),
(8.907571,2.011587,-2.930196),(9.062123,1.650264,-3.605107),(9.918204,1.663879,-3.944374),(10.317529,2.331016,-4.017957),(10.351174,2.935354,-3.524408),
(9.993805,3.021814,-2.835381),(9.514528,2.52529,-2.469726),(9.274248,1.819674,-2.70279),(9.453901,1.43631,-3.35907),(10.33614,1.372138,-3.625056),
(10.794176,2.003064,-3.670682),(10.838141,2.609362,-3.180359),(10.434928,2.734478,-2.523311),(9.888165,2.284196,-2.194309),(9.609574,1.597589,-2.441097),
(9.808942,1.191685,-3.077839),(10.696528,1.054659,-3.275835),(11.208108,1.644642,-3.28821),(11.263651,2.251316,-2.799531),(10.821334,2.417844,-2.177783),
(10.214229,2.018826,-1.891156),(9.8995,1.354731,-2.155485),(10.114143,0.925636,-2.771725),(11.002674,0.707836,-2.892977),(11.562317,1.251936,-2.866505),
(11.630306,1.857162,-2.377603),(11.155444,2.067766,-1.794424),(10.495311,1.72516,-1.556113),(10.147001,1.087332,-1.842124),(10.372799,0.63458,-2.437084),
(11.243066,0.344665,-2.4904),(11.843549,0.839177,-2.420939),(11.924073,1.441524,-1.930389),(11.424003,1.698128,-1.388143),(10.7199,1.415759,-1.202523),
(10.341969,0.807048,-1.513306),(10.5748,0.330366,-2.086465),(11.419764,-0.038885,-2.063027),(12.053567,0.40222,-1.946126),(12.146384,1.000134,-1.452335),
(11.628322,1.304616,-0.953488),(10.889491,1.086385,-0.825227),(10.486247,0.509773,-1.164135),(10.72224,0.008981,-1.715008),(11.525727,-0.427219,-1.627221),
(12.184071,-0.041603,-1.460395),(12.288516,0.550796,-0.962296),(11.760414,0.903888,-0.508004),(10.997437,0.751789,-0.43961),(10.574121,0.209032,-0.808615),
(10.809233,-0.315676,-1.337152),(11.561748,-0.824636,-1.176934),(12.235655,-0.496599,-0.957417),(12.350812,0.089161,-0.453859),(11.820503,0.491555,-0.045449),
(11.044063,0.407573,-0.039729),(10.606165,-0.099546,-0.441005),(10.836555,-0.64793,-0.947109),(11.526815,-1.214278,-0.72966),(12.206886,-0.943678,-0.457216),
(12.331756,-0.365085,0.052278),(11.807393,0.085808,0.415163),(11.028655,0.06947,0.35818),(10.581948,-0.401796,-0.075763),(10.80365,-0.973118,-0.559897),
(11.420622,-1.600276,-0.278793),(12.097555,-1.386885,0.047047),(12.231034,-0.815969,0.562978),(11.720547,-0.317439,0.880494),(10.950499,-0.266699,0.760498),
(10.500753,-0.701956,0.293351),(10.709978,-1.295453,-0.169178),(11.248544,-1.966352,0.158376),(11.913698,-1.807907,0.53575),(12.054873,-1.244891,1.058272),
(11.56576,-0.701265,1.332471),(10.814671,-0.586391,1.15187),(10.367192,-0.986771,0.652466),(10.560284,-1.600911,0.210319),(11.009398,-2.316355,0.588436),
(11.654516,-2.210551,1.015722),(11.802453,-1.655622,1.54498),(11.341808,-1.069441,1.777669),(10.619456,-0.893414,1.538569),(10.179343,-1.260093,1.007727),
(10.352883,-1.893362,0.584878),(10.713659,-2.6365,0.996405),(11.331836,-2.579591,1.470288),(11.485911,-2.03271,2.006132),(11.059863,-1.407669,2.200434),
(10.374515,-1.175137,1.906883),(9.945948,-1.510215,1.346527),(10.096881,-2.160583,0.941326),(10.359056,-2.930052,1.388707),(10.943878,-2.918354,1.906194),
(11.103539,-2.37947,2.448466),(10.717812,-1.719189,2.607179),(10.077156,-1.434717,2.262821),(9.664,-1.740267,1.674699),(9.789457,-2.405753,1.285681),
(9.9594,-3.186461,1.75315),(10.505967,-3.215497,2.310257),(10.67085,-2.684579,2.858789),(10.329888,-1.993502,2.98569),(9.739835,-1.662659,2.5954),
(9.345011,-1.941182,1.981817),(9.442726,-2.619338,1.60698),(9.511687,-3.408261,2.095501),(10.015617,-3.47368,2.688562),(10.185453,-2.950707,3.24318),
(9.893305,-2.233151,3.341717),(9.359166,-1.861347,2.909973),(8.985254,-2.11527,2.273059),(9.053133,-2.803711,1.910585),(9.031466,-3.588342,2.405749),
(9.489072,-3.685752,3.031093),(9.663048,-3.171022,3.592102),(9.422386,-2.431753,3.666326),(8.94831,-2.024629,3.197872),(8.597809,-2.256224,2.539495),
(8.634817,-2.952142,2.186968),(8.514961,-3.728621,2.68828),(8.922823,-3.85374,3.342451),(9.100104,-3.347475,3.910089),(8.913308,-2.591053,3.963751),
(8.503097,-2.154076,3.463027),(8.178367,-2.365596,2.784974),(8.183647,-3.066335,2.440179),(7.978334,-3.82534,2.934482),(8.332661,-3.97402,3.614404),
(8.511006,-3.47667,4.189541),(8.379073,-2.707806,4.226803),(8.03621,-2.246398,3.698132),(7.740599,-2.439896,3.001626),(7.714842,-3.142591,2.66177),
(7.417268,-3.87999,3.146724),(7.714356,-4.047986,3.849193),(7.891367,-3.559722,4.432469),(7.81501,-2.782871,4.457335),(7.542781,-2.302418,3.905064),
(7.279675,-2.480153,3.191529),(7.223817,-3.182239,2.854036),(6.848887,-3.892256,3.316499),(7.083389,-4.075219,4.038635),(7.253897,-3.596031,4.6313),
(7.232016,-2.81553,4.648207),(7.034222,-2.321449,4.076623),(6.809458,-2.485841,3.346964),(6.726976,-3.184916,3.008677),(6.268466,-3.863782,3.4434),
(6.434957,-4.056968,4.181578),(6.593515,-3.586177,4.784206),(6.624743,-2.805924,4.797494),(6.505126,-2.303756,4.211435),(6.324736,-2.457815,3.467344),
(6.219413,-3.152092,3.125536),(5.694232,-3.797868,3.519444),(5.785624,-3.995913,4.269359),(5.923801,-3.531903,4.882178),(6.004714,-2.755246,4.896437),
(5.967432,-2.250781,4.301398),(5.840032,-2.39838,3.545138),(5.718446,-3.086898,3.197135),(5.121215,-3.696507,3.541552),(5.130497,-3.89345,4.297246),
(5.239697,-3.433603,4.918987),(5.366589,-2.663239,4.938591),(5.415618,-2.162458,4.341297),(5.349865,-2.308359,3.576878),(5.218844,-2.991074,3.220958),
(4.571383,-3.567419,3.502985),(4.490118,-3.756361,4.256405),(4.558488,-3.29642,4.883882),(4.72501,-2.533941,4.91291),(4.86429,-2.043087,4.321632),
(4.871447,-2.19348,3.555293),(4.741091,-2.871871,3.19096),(4.039418,-3.413254,3.397774),(3.859764,-3.586733,4.137757),(3.875838,-3.121295,4.764699),
(4.075535,-2.367425,4.806499),(4.30848,-1.892802,4.23168),(4.399261,-2.054827,3.473094),(4.279517,-2.731492,3.10197),(3.551775,-3.246693,3.225028),
(3.267777,-3.397251,3.936803),(3.219582,-2.919684,4.552882),(3.443482,-2.173609,4.609344),(3.770875,-1.720837,4.063673),(3.955228,-1.902313,3.32677),
(3.857719,-2.581383,2.953537),(3.103044,-3.070792,2.976451),(2.710548,-3.191105,3.640845),(2.587978,-2.694245,4.230805),(2.827631,-1.954358,4.30208),
(3.249044,-1.528594,3.800999),(3.534884,-1.737562,3.104885),(3.469908,-2.423904,2.737927),(2.721129,-2.90297,2.663174),(2.22375,-2.989026,3.259123),
(2.020979,-2.466937,3.803414),(2.265507,-1.729847,3.886186),(2.7732,-1.3328,3.445109),(3.161753,-1.57478,2.812323),(3.13858,-2.273572,2.464329),
(2.402108,-2.747994,2.276587),(1.806902,-2.797773,2.779776),(1.522544,-2.246033,3.253769),(1.76316,-1.508247,3.341641),(2.347563,-1.139982,2.977221),
(2.835684,-1.41855,2.434926),(2.859959,-2.134182,2.123114),(2.159152,-2.61957,1.835535),(1.485913,-2.6393,2.23089),(1.129308,-2.059942,2.614459),
(1.357869,-1.317765,2.697405),(1.999484,-0.971644,2.417269),(2.571005,-1.282213,1.984999),(2.642064,-2.01561,1.726103),(1.992508,-2.525576,1.34006),
(1.261594,-2.523773,1.615211),(0.845595,-1.921864,1.888336),(1.057767,-1.1731,1.953767),(1.73834,-0.841314,1.762233),(2.374828,-1.176348,1.457963),
(2.487944,-1.925915,1.270078),(1.868914,-2.444362,0.764833),(1.110094,-2.437461,0.949472),(0.661272,-1.827946,1.141819),(0.86042,-1.074794,1.197031),
(1.557576,-0.745144,1.073534),(2.227766,-1.087229,0.864323),(2.366324,-1.843451,0.726938),(1.781387,-2.371066,0.141659),(1.010549,-2.368076,0.267146),
(0.542841,-1.759193,0.410173),(0.730456,-1.002917,0.463037),(1.432116,-0.668741,0.385931),(2.119457,-1.008305,0.236917),(2.274897,-1.76591,0.128206),
(1.666693,-2.248368,-0.555786),(0.898393,-2.260189,-0.416067),(0.42835,-1.665326,-0.228596),(0.610517,-0.911724,-0.134543),(1.307718,-0.56686,-0.204732),
(1.994946,-0.890424,-0.386309),(2.154705,-1.638765,-0.542543),(1.438465,-1.991731,-1.339254),(0.692225,-2.038378,-1.11365),(0.247799,-1.487197,-0.784058),
(0.439848,-0.753239,-0.598666),(1.123755,-0.38919,-0.69708),(1.784525,-0.669186,-1.00519),(1.924584,-1.382384,-1.290985),(1.112258,-1.621831,-2.000579),
(0.408718,-1.726012,-1.677896),(0.02194,-1.254197,-1.190311),(0.243176,-0.561672,-0.904984),(0.905831,-0.169924,-1.036774),(1.510911,-0.373946,-1.486439),
(1.60278,-1.020105,-1.915373),(0.593586,-1.046072,-2.56107),(-0.029427,-1.247848,-2.135526),(-0.299877,-0.9179,-1.481357),(-0.014109,-0.304684,-1.091164),
(0.612688,0.130034,-1.258772),(1.108523,0.058904,-1.857967),(1.100021,-0.464512,-2.437544),(0.039182,-0.432722,-2.839512),(-0.492982,-0.742864,-2.359346),
(-0.626843,-0.576355,-1.608146),(-0.2616,-0.058579,-1.15158),(0.327711,0.420568,-1.333452),(0.697327,0.500278,-2.016809),(0.56892,0.120528,-2.687068),
(-0.615718,0.286458,-2.834238),(-1.040131,-0.149516,-2.344599),(-1.005702,-0.179706,-1.564952),(-0.538357,0.218622,-1.082387),(0.009985,0.74552,-1.260285),
(0.226409,1.004221,-1.964686),(-0.052055,0.799919,-2.665161),(-1.179015,0.905634,-2.56261),(-1.510546,0.360212,-2.112555),(-1.326025,0.153255,-1.382441),
(-0.764398,0.440604,-0.922058),(-0.248583,1.005881,-1.078084),(-0.166999,1.42342,-1.733028),(-0.58108,1.378806,-2.393704),(-1.70214,1.477772,-1.988798),
(-1.948996,0.832629,-1.624381),(-1.622809,0.459177,-1.020989),(-0.969205,0.638631,-0.632988),(-0.480361,1.23586,-0.752552),(-0.524386,1.801138,-1.289645),
(-1.068129,1.908798,-1.839827),(-2.068801,1.87311,-1.286586),(-2.263428,1.164259,-1.022774),(-1.847401,0.681588,-0.571225),(-1.133996,0.788559,-0.271964),
(-0.660422,1.40462,-0.350342),(-0.783289,2.065865,-0.747337),(-1.410077,2.274363,-1.164005),(-2.322319,2.130435,-0.486785),(-2.488406,1.385023,-0.323315),
(-2.020921,0.836771,-0.021944),(-1.271891,0.898525,0.190391),(-0.805349,1.523782,0.153796),(-0.972613,2.241711,-0.104172),(-1.647728,2.511697,-0.389257),
(-2.500523,2.283017,0.233088),(-2.661569,1.52604,0.337948),(-2.183271,0.954108,0.570482),(-1.425799,0.997899,0.755588),(-0.959543,1.624436,0.753877),
(-1.135605,2.361926,0.566638),(-1.821405,2.655022,0.334864),(-2.682748,2.408179,0.843158),(-2.852086,1.650887,0.931365),(-2.389075,1.074488,1.183023),
(-1.642374,1.113021,1.408629),(-1.174262,1.737472,1.438298),(-1.337238,2.477614,1.249687),(-2.008578,2.776107,0.984825),(-2.892293,2.525743,1.347237),
(-3.072927,1.77003,1.426085),(-2.640263,1.195058,1.729655),(-1.920105,1.233791,2.029353),(-1.454747,1.857063,2.099499),(-1.594613,2.595537,1.887273),
(-2.234381,2.893127,1.552485),(-3.163324,2.656496,1.770127),(-3.359965,1.904276,1.843916),(-2.98666,1.339291,2.232994),(-2.324517,1.386986,2.644379),
(-1.872141,2.011445,2.768288),(-1.970182,2.742439,2.511416),(-2.544813,3.029513,2.067193),(-3.475299,2.782322,2.112751),(-3.677758,2.02992,2.166115),
(-3.371265,1.474298,2.621411),(-2.786617,1.533852,3.13579),(-2.364064,2.163736,3.321914),(-2.421798,2.889634,3.039629),(-2.916345,3.164931,2.501501),
(-3.862939,2.905404,2.412698),(-4.055121,2.148689,2.432573),(-3.818639,1.599258,2.934717),(-3.331569,1.670844,3.541005),(-2.960684,2.309541,3.794889),
(-2.985269,3.034398,3.50519),(-3.386811,3.299582,2.890057),(-4.284785,3.008798,2.644644),(-4.452567,2.246217,2.628377),(-4.279568,1.698177,3.157216),
(-3.896058,1.777365,3.832935),(-3.590829,2.42415,4.146704),(-3.593724,3.15149,3.862248),(-3.902563,3.411683,3.193769),(-4.768245,3.091667,2.827297),
(-4.896533,2.323044,2.775261),(-4.775677,1.771564,3.314901),(-4.496685,1.852503,4.039855),(-4.269643,2.504912,4.404219),(-4.26552,3.237514,4.133619),
(-4.487418,3.498644,3.431823),(-5.270337,3.145006,2.947844),(-5.350735,2.372553,2.865394),(-5.271156,1.814277,3.405711),(-5.091524,1.890572,4.161924),
(-4.947106,2.543987,4.56459),(-4.946651,3.282486,4.310492),(-5.090503,3.549965,3.590973),(-5.808808,3.166881,3.014786),(-5.834041,2.393641,2.907966),
(-5.783504,1.826348,3.442354),(-5.695254,1.892183,4.215545),(-5.635743,2.541573,4.64531),(-5.649786,3.285513,4.408028),(-5.726807,3.563801,3.682377),
(-6.34935,3.155404,3.027101),(-6.316715,2.385105,2.902518),(-6.286159,1.807779,3.427597),(-6.280691,1.858165,4.206942),(-6.304429,2.49832,4.653689),
(-6.339498,3.246196,4.431431),(-6.359489,3.538625,3.70753),(-6.903777,3.108697,2.988804),(-6.8116,2.345204,2.852689),(-6.792046,1.757778,3.366981),
(-6.859839,1.788764,4.144406),(-6.963931,2.414829,4.599549),(-7.025937,3.164532,4.389677),(-6.999166,3.473333,3.672828),(-7.446198,3.029101,2.903865),
(-7.294667,2.276236,2.761813),(-7.280384,1.679054,3.264919),(-7.414103,1.687245,4.034334),(-7.595131,2.294641,4.490672),(-7.68715,3.043861,4.290302),
(-7.620869,3.370727,3.584106),(-7.985031,2.914776,2.773114),(-7.774794,2.176292,2.630325),(-7.76042,1.570217,3.12268),(-7.952734,1.552938,3.879426),
(-8.206919,2.137465,4.330717),(-8.331569,2.883639,4.136722),(-8.232819,3.229575,3.443524),(-8.501109,2.770013,2.602258),(-8.233342,2.049598,2.463521),
(-8.215361,1.43553,2.94575),(-8.460706,1.390217,3.685817),(-8.784627,1.94778,4.126436),(-8.943205,2.688362,3.935813),(-8.817028,3.05429,3.25749),
(-9.000548,2.592664,2.38993),(-8.676712,1.893977,2.259881),(-8.651905,1.273108,2.733012),(-8.944809,1.197584,3.453046),(-9.334861,1.724276,3.877784),
(-9.528344,2.456574,3.687388),(-9.37956,2.843043,3.025231),(-9.467289,2.388556,2.142612),(-9.089043,1.715327,2.025822),(-9.055475,1.088659,2.490693),
(-9.391862,0.980443,3.18717),(-9.844898,1.47217,3.59079),(-10.073438,2.193559,3.39762),(-9.905386,2.601389,2.75312),(-9.905551,2.155139,1.85693),
(-9.474754,1.51124,1.758165),(-9.430636,0.879943,2.215838),(-9.806419,0.736628,2.885311),(-10.31913,1.189213,3.262459),(-10.582688,1.896894,3.06328),
(-10.398628,2.326771,2.437761),(-10.301454,1.899077,1.54056),(-9.820143,1.288688,1.464989),(-9.763831,0.654121,1.916763),(-10.174922,0.473218,2.555688),
(-10.743855,0.882203,2.90064),(-11.042213,1.573102,2.691863),(-10.845326,2.025654,2.086571),(-10.657565,1.616702,1.188606),(-10.12826,1.044341,1.141854),
(-10.058273,0.40808,1.589313),(-10.500307,0.187035,2.194038),(-11.121501,0.547659,2.500658),(-11.454082,1.218393,2.278282),(-11.247612,1.694162,1.694364),
(-10.960995,1.317142,0.811821),(-10.38757,0.787073,0.799298),(-10.302808,0.150813,1.244198),(-10.770535,-0.11252,1.811501),(-11.438545,0.195368,2.074016),
(-11.803812,0.842632,1.834065),(-11.591282,1.341868,1.272335),(-11.21293,0.996029,0.404144),(-10.599921,0.512912,0.431818),(-10.49953,-0.12142,0.876218),
(-10.987351,-0.429301,1.402702),(-11.696047,-0.178892,1.614816),(-12.091953,0.441245,1.352835),(-11.876946,0.964134,0.814035),(-11.402894,0.66505,-0.019909),
(-10.756563,0.232766,0.053116),(-10.640119,-0.397473,0.499419),(-11.141247,-0.751084,0.982924),(-11.882587,-0.56179,1.139542),(-12.305895,0.027866,0.851336),
(-12.092411,0.573861,0.335332),(-11.530566,0.319038,-0.46727),(-10.858063,-0.05821,-0.343301),(-10.725598,-0.681975,0.107607),(-11.232923,-1.082547,0.54591),
(-11.99801,-0.958289,0.641558),(-12.444733,-0.402769,0.322525),(-12.236701,0.165695,-0.17095),(-11.589986,-0.027657,-0.919382),(-10.900155,-0.347354,-0.740846),
(-10.752445,-0.962235,-0.282535),(-11.258084,-1.409284,0.110433),(-12.036315,-1.351862,0.142145),(-12.501115,-0.83321,-0.211278),(-12.30248,-0.243884,-0.683702),
(-11.579279,-0.380703,-1.383651),(-10.881785,-0.640082,-1.146644),(-10.72023,-1.243538,-0.677936),(-11.216266,-1.736657,-0.330475),(-11.996368,-1.748109,-0.365906),
(-12.473104,-1.269271,-0.757549),(-12.287482,-0.660718,-1.210488),(0.0,0.0,0.0)  --  828
);

idx_5: constant Idx_4_array_array:=
( (312,313,320,319),(313,314,321,320),(314,315,322,321),(315,316,323,322),(316,317,324,323),(317,318,325,324),(318,312,319,325),(319,320,327,326),
(320,321,328,327),(321,322,329,328),(322,323,330,329),(323,324,331,330),(324,325,332,331),(325,319,326,332),(326,327,334,333),(327,328,335,334),
(328,329,336,335),(329,330,337,336),(330,331,338,337),(331,332,339,338),(332,326,333,339),(333,334,341,340),(334,335,342,341),(335,336,343,342),
(336,337,344,343),(337,338,345,344),(338,339,346,345),(339,333,340,346),(340,341,348,347),(341,342,349,348),(342,343,350,349),(343,344,351,350),
(344,345,352,351),(345,346,353,352),(346,340,347,353),(347,348,355,354),(348,349,356,355),(349,350,357,356),(350,351,358,357),(351,352,359,358),
(352,353,360,359),(353,347,354,360),(354,355,362,361),(355,356,363,362),(356,357,364,363),(357,358,365,364),(358,359,366,365),(359,360,367,366),
(360,354,361,367),(361,362,369,368),(362,363,370,369),(363,364,371,370),(364,365,372,371),(365,366,373,372),(366,367,374,373),(367,361,368,374),
(368,369,376,375),(369,370,377,376),(370,371,378,377),(371,372,379,378),(372,373,380,379),(373,374,381,380),(374,368,375,381),(375,376,383,382),
(376,377,384,383),(377,378,385,384),(378,379,386,385),(379,380,387,386),(380,381,388,387),(381,375,382,388),(382,383,390,389),(383,384,391,390),
(384,385,392,391),(385,386,393,392),(386,387,394,393),(387,388,395,394),(388,382,389,395),(389,390,397,396),(390,391,398,397),(391,392,399,398),
(392,393,400,399),(393,394,401,400),(394,395,402,401),(395,389,396,402),(396,397,404,403),(397,398,405,404),(398,399,406,405),(399,400,407,406),
(400,401,408,407),(401,402,409,408),(402,396,403,409),(403,404,411,410),(404,405,412,411),(405,406,413,412),(406,407,414,413),(407,408,415,414),
(408,409,416,415),(409,403,410,416),(410,411,418,417),(411,412,419,418),(412,413,420,419),(413,414,421,420),(414,415,422,421),(415,416,423,422),
(416,410,417,423),(417,418,425,424),(418,419,426,425),(419,420,427,426),(420,421,428,427),(421,422,429,428),(422,423,430,429),(423,417,424,430),
(424,425,432,431),(425,426,433,432),(426,427,434,433),(427,428,435,434),(428,429,436,435),(429,430,437,436),(430,424,431,437),(431,432,439,438),
(432,433,440,439),(433,434,441,440),(434,435,442,441),(435,436,443,442),(436,437,444,443),(437,431,438,444),(438,439,446,445),(439,440,447,446),
(440,441,448,447),(441,442,449,448),(442,443,450,449),(443,444,451,450),(444,438,445,451),(445,446,453,452),(446,447,454,453),(447,448,455,454),
(448,449,456,455),(449,450,457,456),(450,451,458,457),(451,445,452,458),(452,453,460,459),(453,454,461,460),(454,455,462,461),(455,456,463,462),
(456,457,464,463),(457,458,465,464),(458,452,459,465),(459,460,467,466),(460,461,468,467),(461,462,469,468),(462,463,470,469),(463,464,471,470),
(464,465,472,471),(465,459,466,472),(466,467,474,473),(467,468,475,474),(468,469,476,475),(469,470,477,476),(470,471,478,477),(471,472,479,478),
(472,466,473,479),(473,474,481,480),(474,475,482,481),(475,476,483,482),(476,477,484,483),(477,478,485,484),(478,479,486,485),(479,473,480,486),
(480,481,488,487),(481,482,489,488),(482,483,490,489),(483,484,491,490),(484,485,492,491),(485,486,493,492),(486,480,487,493),(487,488,495,494),
(488,489,496,495),(489,490,497,496),(490,491,498,497),(491,492,499,498),(492,493,500,499),(493,487,494,500),(494,495,502,501),(495,496,503,502),
(496,497,504,503),(497,498,505,504),(498,499,506,505),(499,500,507,506),(500,494,501,507),(501,502,509,508),(502,503,510,509),(503,504,511,510),
(504,505,512,511),(505,506,513,512),(506,507,514,513),(507,501,508,514),(508,509,516,515),(509,510,517,516),(510,511,518,517),(511,512,519,518),
(512,513,520,519),(513,514,521,520),(514,508,515,521),(515,516,523,522),(516,517,524,523),(517,518,525,524),(518,519,526,525),(519,520,527,526),
(520,521,528,527),(521,515,522,528),(522,523,530,529),(523,524,531,530),(524,525,532,531),(525,526,533,532),(526,527,534,533),(527,528,535,534),
(528,522,529,535),(529,530,537,536),(530,531,538,537),(531,532,539,538),(532,533,540,539),(533,534,541,540),(534,535,542,541),(535,529,536,542),
(536,537,544,543),(537,538,545,544),(538,539,546,545),(539,540,547,546),(540,541,548,547),(541,542,549,548),(542,536,543,549),(543,544,551,550),
(544,545,552,551),(545,546,553,552),(546,547,554,553),(547,548,555,554),(548,549,556,555),(549,543,550,556),(550,551,558,557),(551,552,559,558),
(552,553,560,559),(553,554,561,560),(554,555,562,561),(555,556,563,562),(556,550,557,563),(557,558,565,564),(558,559,566,565),(559,560,567,566),
(560,561,568,567),(561,562,569,568),(562,563,570,569),(563,557,564,570),(564,565,572,571),(565,566,573,572),(566,567,574,573),(567,568,575,574),
(568,569,576,575),(569,570,577,576),(570,564,571,577),(571,572,579,578),(572,573,580,579),(573,574,581,580),(574,575,582,581),(575,576,583,582),
(576,577,584,583),(577,571,578,584),(578,579,586,585),(579,580,587,586),(580,581,588,587),(581,582,589,588),(582,583,590,589),(583,584,591,590),
(584,578,585,591),(585,586,593,592),(586,587,594,593),(587,588,595,594),(588,589,596,595),(589,590,597,596),(590,591,598,597),(591,585,592,598),
(592,593,600,599),(593,594,601,600),(594,595,602,601),(595,596,603,602),(596,597,604,603),(597,598,605,604),(598,592,599,605),(599,600,607,606),
(600,601,608,607),(601,602,609,608),(602,603,610,609),(603,604,611,610),(604,605,612,611),(605,599,606,612),(606,607,614,613),(607,608,615,614),
(608,609,616,615),(609,610,617,616),(610,611,618,617),(611,612,619,618),(612,606,613,619),(613,614,621,620),(614,615,622,621),(615,616,623,622),
(616,617,624,623),(617,618,625,624),(618,619,626,625),(619,613,620,626),(620,621,628,627),(621,622,629,628),(622,623,630,629),(623,624,631,630),
(624,625,632,631),(625,626,633,632),(626,620,627,633),(627,628,635,634),(628,629,636,635),(629,630,637,636),(630,631,638,637),(631,632,639,638),
(632,633,640,639),(633,627,634,640),(634,635,642,641),(635,636,643,642),(636,637,644,643),(637,638,645,644),(638,639,646,645),(639,640,647,646),
(640,634,641,647),(641,642,649,648),(642,643,650,649),(643,644,651,650),(644,645,652,651),(645,646,653,652),(646,647,654,653),(647,641,648,654),
(648,649,656,655),(649,650,657,656),(650,651,658,657),(651,652,659,658),(652,653,660,659),(653,654,661,660),(654,648,655,661),(655,656,663,662),
(656,657,664,663),(657,658,665,664),(658,659,666,665),(659,660,667,666),(660,661,668,667),(661,655,662,668),(662,663,670,669),(663,664,671,670),
(664,665,672,671),(665,666,673,672),(666,667,674,673),(667,668,675,674),(668,662,669,675),(669,670,677,676),(670,671,678,677),(671,672,679,678),
(672,673,680,679),(673,674,681,680),(674,675,682,681),(675,669,676,682),(676,677,684,683),(677,678,685,684),(678,679,686,685),(679,680,687,686),
(680,681,688,687),(681,682,689,688),(682,676,683,689),(683,684,691,690),(684,685,692,691),(685,686,693,692),(686,687,694,693),(687,688,695,694),
(688,689,696,695),(689,683,690,696),(690,691,698,697),(691,692,699,698),(692,693,700,699),(693,694,701,700),(694,695,702,701),(695,696,703,702),
(696,690,697,703),(697,698,705,704),(698,699,706,705),(699,700,707,706),(700,701,708,707),(701,702,709,708),(702,703,710,709),(703,697,704,710),
(704,705,712,711),(705,706,713,712),(706,707,714,713),(707,708,715,714),(708,709,716,715),(709,710,717,716),(710,704,711,717),(711,712,719,718),
(712,713,720,719),(713,714,721,720),(714,715,722,721),(715,716,723,722),(716,717,724,723),(717,711,718,724),(718,719,726,725),(719,720,727,726),
(720,721,728,727),(721,722,729,728),(722,723,730,729),(723,724,731,730),(724,718,725,731),(725,726,733,732),(726,727,734,733),(727,728,735,734),
(728,729,736,735),(729,730,737,736),(730,731,738,737),(731,725,732,738),(732,733,740,739),(733,734,741,740),(734,735,742,741),(735,736,743,742),
(736,737,744,743),(737,738,745,744),(738,732,739,745),(739,740,747,746),(740,741,748,747),(741,742,749,748),(742,743,750,749),(743,744,751,750),
(744,745,752,751),(745,739,746,752),(746,747,754,753),(747,748,755,754),(748,749,756,755),(749,750,757,756),(750,751,758,757),(751,752,759,758),
(752,746,753,759),(753,754,761,760),(754,755,762,761),(755,756,763,762),(756,757,764,763),(757,758,765,764),(758,759,766,765),(759,753,760,766),
(760,761,768,767),(761,762,769,768),(762,763,770,769),(763,764,771,770),(764,765,772,771),(765,766,773,772),(766,760,767,773),(767,768,775,774),
(768,769,776,775),(769,770,777,776),(770,771,778,777),(771,772,779,778),(772,773,780,779),(773,767,774,780),(774,775,782,781),(775,776,783,782),
(776,777,784,783),(777,778,785,784),(778,779,786,785),(779,780,787,786),(780,774,781,787),(781,782,789,788),(782,783,790,789),(783,784,791,790),
(784,785,792,791),(785,786,793,792),(786,787,794,793),(787,781,788,794),(788,789,796,795),(789,790,797,796),(790,791,798,797),(791,792,799,798),
(792,793,800,799),(793,794,801,800),(794,788,795,801),(795,796,803,802),(796,797,804,803),(797,798,805,804),(798,799,806,805),(799,800,807,806),
(800,801,808,807),(801,795,802,808),(802,803,810,809),(803,804,811,810),(804,805,812,811),(805,806,813,812),(806,807,814,813),(807,808,815,814),
(808,802,809,815),(809,810,817,816),(810,811,818,817),(811,812,819,818),(812,813,820,819),(813,814,821,820),(814,815,822,821),(815,809,816,822),
(816,817,824,823),(817,818,825,824),(818,819,826,825),(819,820,827,826),(820,821,828,827),(821,822,829,828),(822,816,823,829),(823,824,831,830),
(824,825,832,831),(825,826,833,832),(826,827,834,833),(827,828,835,834),(828,829,836,835),(829,823,830,836),(830,831,838,837),(831,832,839,838),
(832,833,840,839),(833,834,841,840),(834,835,842,841),(835,836,843,842),(836,830,837,843),(837,838,845,844),(838,839,846,845),(839,840,847,846),
(840,841,848,847),(841,842,849,848),(842,843,850,849),(843,837,844,850),(844,845,852,851),(845,846,853,852),(846,847,854,853),(847,848,855,854),
(848,849,856,855),(849,850,857,856),(850,844,851,857),(851,852,859,858),(852,853,860,859),(853,854,861,860),(854,855,862,861),(855,856,863,862),
(856,857,864,863),(857,851,858,864),(858,859,866,865),(859,860,867,866),(860,861,868,867),(861,862,869,868),(862,863,870,869),(863,864,871,870),
(864,858,865,871),(865,866,873,872),(866,867,874,873),(867,868,875,874),(868,869,876,875),(869,870,877,876),(870,871,878,877),(871,865,872,878),
(872,873,880,879),(873,874,881,880),(874,875,882,881),(875,876,883,882),(876,877,884,883),(877,878,885,884),(878,872,879,885),(879,880,887,886),
(880,881,888,887),(881,882,889,888),(882,883,890,889),(883,884,891,890),(884,885,892,891),(885,879,886,892),(886,887,894,893),(887,888,895,894),
(888,889,896,895),(889,890,897,896),(890,891,898,897),(891,892,899,898),(892,886,893,899),(893,894,901,900),(894,895,902,901),(895,896,903,902),
(896,897,904,903),(897,898,905,904),(898,899,906,905),(899,893,900,906),(900,901,908,907),(901,902,909,908),(902,903,910,909),(903,904,911,910),
(904,905,912,911),(905,906,913,912),(906,900,907,913),(907,908,915,914),(908,909,916,915),(909,910,917,916),(910,911,918,917),(911,912,919,918),
(912,913,920,919),(913,907,914,920),(914,915,922,921),(915,916,923,922),(916,917,924,923),(917,918,925,924),(918,919,926,925),(919,920,927,926),
(920,914,921,927),(921,922,929,928),(922,923,930,929),(923,924,931,930),(924,925,932,931),(925,926,933,932),(926,927,934,933),(927,921,928,934),
(928,929,936,935),(929,930,937,936),(930,931,938,937),(931,932,939,938),(932,933,940,939),(933,934,941,940),(934,928,935,941),(935,936,943,942),
(936,937,944,943),(937,938,945,944),(938,939,946,945),(939,940,947,946),(940,941,948,947),(941,935,942,948),(942,943,950,949),(943,944,951,950),
(944,945,952,951),(945,946,953,952),(946,947,954,953),(947,948,955,954),(948,942,949,955),(949,950,957,956),(950,951,958,957),(951,952,959,958),
(952,953,960,959),(953,954,961,960),(954,955,962,961),(955,949,956,962),(956,957,964,963),(957,958,965,964),(958,959,966,965),(959,960,967,966),
(960,961,968,967),(961,962,969,968),(962,956,963,969),(963,964,971,970),(964,965,972,971),(965,966,973,972),(966,967,974,973),(967,968,975,974),
(968,969,976,975),(969,963,970,976),(970,971,978,977),(971,972,979,978),(972,973,980,979),(973,974,981,980),(974,975,982,981),(975,976,983,982),
(976,970,977,983),(977,978,985,984),(978,979,986,985),(979,980,987,986),(980,981,988,987),(981,982,989,988),(982,983,990,989),(983,977,984,990),
(984,985,992,991),(985,986,993,992),(986,987,994,993),(987,988,995,994),(988,989,996,995),(989,990,997,996),(990,984,991,997),(991,992,999,998),
(992,993,1000,999),(993,994,1001,1000),(994,995,1002,1001),(995,996,1003,1002),(996,997,1004,1003),(997,991,998,1004),(998,999,1006,1005),(999,1000,1007,1006),
(1000,1001,1008,1007),(1001,1002,1009,1008),(1002,1003,1010,1009),(1003,1004,1011,1010),(1004,998,1005,1011),(1005,1006,1013,1012),(1006,1007,1014,1013),(1007,1008,1015,1014),
(1008,1009,1016,1015),(1009,1010,1017,1016),(1010,1011,1018,1017),(1011,1005,1012,1018),(1012,1013,1020,1019),(1013,1014,1021,1020),(1014,1015,1022,1021),(1015,1016,1023,1022),
(1016,1017,1024,1023),(1017,1018,1025,1024),(1018,1012,1019,1025),(1019,1020,1027,1026),(1020,1021,1028,1027),(1021,1022,1029,1028),(1022,1023,1030,1029),(1023,1024,1031,1030),
(1024,1025,1032,1031),(1025,1019,1026,1032),(1026,1027,1034,1033),(1027,1028,1035,1034),(1028,1029,1036,1035),(1029,1030,1037,1036),(1030,1031,1038,1037),(1031,1032,1039,1038),
(1032,1026,1033,1039),(1033,1034,1041,1040),(1034,1035,1042,1041),(1035,1036,1043,1042),(1036,1037,1044,1043),(1037,1038,1045,1044),(1038,1039,1046,1045),(1039,1033,1040,1046),
(1040,1041,1048,1047),(1041,1042,1049,1048),(1042,1043,1050,1049),(1043,1044,1051,1050),(1044,1045,1052,1051),(1045,1046,1053,1052),(1046,1040,1047,1053),(1047,1048,1055,1054),
(1048,1049,1056,1055),(1049,1050,1057,1056),(1050,1051,1058,1057),(1051,1052,1059,1058),(1052,1053,1060,1059),(1053,1047,1054,1060),(1054,1055,1062,1061),(1055,1056,1063,1062),
(1056,1057,1064,1063),(1057,1058,1065,1064),(1058,1059,1066,1065),(1059,1060,1067,1066),(1060,1054,1061,1067),(1061,1062,1069,1068),(1062,1063,1070,1069),(1063,1064,1071,1070),
(1064,1065,1072,1071),(1065,1066,1073,1072),(1066,1067,1074,1073),(1067,1061,1068,1074),(1068,1069,1076,1075),(1069,1070,1077,1076),(1070,1071,1078,1077),(1071,1072,1079,1078),
(1072,1073,1080,1079),(1073,1074,1081,1080),(1074,1068,1075,1081),(1075,1076,1083,1082),(1076,1077,1084,1083),(1077,1078,1085,1084),(1078,1079,1086,1085),(1079,1080,1087,1086),
(1080,1081,1088,1087),(1081,1075,1082,1088),(1082,1083,1090,1089),(1083,1084,1091,1090),(1084,1085,1092,1091),(1085,1086,1093,1092),(1086,1087,1094,1093),(1087,1088,1095,1094),
(1088,1082,1089,1095),(1089,1090,1097,1096),(1090,1091,1098,1097),(1091,1092,1099,1098),(1092,1093,1100,1099),(1093,1094,1101,1100),(1094,1095,1102,1101),(1095,1089,1096,1102),
(1096,1097,1104,1103),(1097,1098,1105,1104),(1098,1099,1106,1105),(1099,1100,1107,1106),(1100,1101,1108,1107),(1101,1102,1109,1108),(1102,1096,1103,1109),(1103,1104,1111,1110),
(1104,1105,1112,1111),(1105,1106,1113,1112),(1106,1107,1114,1113),(1107,1108,1115,1114),(1108,1109,1116,1115),(1109,1103,1110,1116),(1110,1111,1118,1117),(1111,1112,1119,1118),
(1112,1113,1120,1119),(1113,1114,1121,1120),(1114,1115,1122,1121),(1115,1116,1123,1122),(1116,1110,1117,1123),(1117,1118,1125,1124),(1118,1119,1126,1125),(1119,1120,1127,1126),
(1120,1121,1128,1127),(1121,1122,1129,1128),(1122,1123,1130,1129),(1123,1117,1124,1130),(1124,1125,1132,1131),(1125,1126,1133,1132),(1126,1127,1134,1133),(1127,1128,1135,1134),
(1128,1129,1136,1135),(1129,1130,1137,1136),(1130,1124,1131,1137),(1131,1132,313,312),(1132,1133,314,313),(1133,1134,315,314),(1134,1135,316,315),(1135,1136,317,316),
(1136,1137,318,317),(1137,1131,312,318),(1137,1131,312,318)--  827
);
-- last index now: 1138
-- end Separator # 5
-- begin Separator # 6

matos_6: constant Material_type:= (
ambient =>   (0.4,0.2,0.0,1.0),
specular =>  (0.9,0.9,0.0,1.0),
diffuse =>   (0.0,0.0,1.0,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 128.0
);
-- begin Separator # 7
coord_7: constant Point_3D_array:=
( (0.0,0.0,0.0),(-6.849022,-0.860054,-0.490014),(-7.202265,-0.502449,0.107719),(-7.9667,-0.440865,0.255347),(-8.566691,-0.721678,-0.158297),
(-8.550433,-1.133429,-0.82173),(-7.93017,-1.366061,-1.235374),(-7.17297,-1.244398,-1.087746),(-6.836735,-1.375296,-0.177287),(-7.185765,-1.013277,0.420264),
(-7.949478,-0.940648,0.566601),(-8.552782,-1.212101,0.15153),(-8.541377,-1.623225,-0.512392),(-7.923852,-1.864436,-0.925219),(-7.165215,-1.754097,-0.776083),
(-6.827284,-1.884911,0.120133),(-7.171819,-1.53071,0.724934),(-7.934522,-1.455309,0.875084),(-8.541063,-1.715486,0.457516),(-8.534704,-2.115323,-0.213331),
(-7.920233,-2.353734,-0.632297),(-7.16036,-2.251191,-0.483892),(-6.814998,-2.39742,0.396513),(-7.15467,-2.063836,1.015618),(-7.91613,-1.994342,1.174665),
(-8.525983,-2.241268,0.753888),(-8.524997,-2.618674,0.070141),(-7.913915,-2.842366,-0.3617),(-7.152894,-2.743899,-0.216451),(-6.791333,-2.901258,0.637579),
(-7.125053,-2.601835,1.27705),(-7.884579,-2.551369,1.45175),(-8.497972,-2.787863,1.030126),(-8.503334,-3.133232,0.329671),(-7.896628,-3.327406,-0.12216),
(-7.134716,-3.224168,0.014872),(-6.747487,-3.406831,0.841378),(-7.072703,-3.156212,1.505736),(-7.828507,-3.139128,1.701735),(-8.445762,-3.368443,1.281785),
(-8.459661,-3.671478,0.562117),(-7.859741,-3.820042,0.084655),(-7.097751,-3.702263,0.208938),(-6.678466,-3.900586,0.999804),(-6.991167,-3.709626,1.689513),
(-7.73999,-3.738668,1.909438),(-8.361057,-3.965843,1.49397),(-8.386692,-4.220085,0.755966),(-7.797591,-4.309943,0.251157),(-7.037359,-4.167753,0.359675),
(-6.576736,-4.392539,1.113268),(-6.870713,-4.272615,1.826811),(-7.607087,-4.361529,2.07134),(-8.231353,-4.592328,1.66272),(-8.273427,-4.791214,0.908651),
(-7.701626,-4.808422,0.376961),(-6.946527,-4.630995,0.468025),(-6.44338,-4.865823,1.180123),(-6.712469,-4.820091,1.911865),(-7.430111,-4.976319,2.177437),
(-8.055908,-5.216865,1.776859),(-8.118621,-5.360592,1.011773),(-7.571027,-5.299271,0.458305),(-6.825475,-5.079078,0.533228),(-6.272393,-5.329462,1.202332),
(-6.509192,-5.360805,1.945898),(-7.199996,-5.591831,2.227612),(-7.824615,-5.848574,1.835337),(-7.9127,-5.937701,1.064465),(-7.397919,-5.792097,0.495477),
(-6.667913,-5.521406,0.556834),(-6.069561,-5.766058,1.184084),(-6.269356,-5.868736,1.932072),(-6.926349,-6.174792,2.222995),(-7.545812,-6.45376,1.837782),
(-7.661276,-6.495571,1.066506),(-7.185795,-6.268741,0.489954),(-6.477416,-5.944077,0.542281),(-5.82932,-6.183433,1.128545),(-5.987677,-6.351486,1.87462),
(-6.603238,-6.732283,2.16792),(-7.212474,-7.039075,1.787583),(-7.356618,-7.040843,1.020012),(-6.927126,-6.736254,0.443202),(-6.247415,-6.354671,0.491504),
(-5.559399,-6.568823,1.043945),(-5.676098,-6.79071,1.783603),(-6.245484,-7.240076,2.073115),(-6.838797,-7.578537,1.694473),(-7.00926,-7.551227,0.932801),
(-6.628511,-7.17871,0.361655),(-5.983263,-6.741499,0.411119),(-5.254599,-6.928525,0.934461),(-5.33065,-7.193507,1.665178),(-5.849502,-7.705217,1.946055),
(-6.420447,-8.078327,1.565587),(-6.613554,-8.031878,0.810273),(-6.283408,-7.600846,0.248881),(-5.678616,-7.109807,0.30415),(-4.922841,-7.254411,0.809263),
(-4.962399,-7.550745,1.530766),(-5.429197,-8.115991,1.800105),(-5.971729,-8.524506,1.414461),(-6.181456,-8.46867,0.664232),(-5.900449,-7.99053,0.114356),
(-5.340313,-7.450134,0.1789),(-4.559259,-7.551584,0.672984),(-4.567784,-7.869058,1.386485),(-4.98175,-8.479681,1.64284),(-5.489432,-8.923642,1.249008),
(-5.708536,-8.86663,0.501553),(-5.474072,-8.351574,-0.036677),(-4.962596,-7.766324,0.039617),(-4.171696,-7.815305,0.533286),(-4.155052,-8.145782,1.240714),
(-4.517126,-8.793512,1.484219),(-4.985268,-9.270742,1.080436),(-5.206958,-9.218108,0.333422),(-5.015259,-8.675244,-0.194306),(-4.554524,-8.050938,-0.105358),
(-3.756014,-8.04967,0.394028),(-3.721013,-8.386436,1.097811),(-4.032873,-9.063944,1.329486),(-4.456758,-9.572016,0.914599),(-4.673472,-9.528063,0.165567),
(-4.519827,-8.965184,-0.353574),(-4.11152,-8.307238,-0.251899),(-3.32052,-8.251796,0.260268),(-3.271843,-8.590872,0.962126),(-3.535517,-9.29185,1.183603),
(-3.912992,-9.826879,0.757923),(-4.12002,-9.793072,0.005632),(-4.000706,-9.215885,-0.506781),(-3.644895,-8.529953,-0.393457),(-2.862155,-8.424756,0.134061),
(-2.804922,-8.763032,0.835659),(-3.022927,-9.48205,1.04881),(-3.352009,-10.040375,0.613005),(-3.544361,-10.017577,-0.143584),(-3.45514,-9.430823,-0.651231),
(-3.15153,-8.721951,-0.527668),(-2.390063,-8.56636,0.01715),(-2.325247,-8.902904,0.718921),(-2.498842,-9.635836,0.925375),(-2.780128,-10.213241,0.481046),
(-2.957291,-10.200322,-0.279475),(-2.896923,-9.606809,-0.783502),(-2.644483,-8.879626,-0.651491),(-1.902145,-8.678579,-0.091199),(-1.830757,-9.012637,0.611123),
(-1.961435,-9.75585,0.812381),(-2.195774,-10.348563,0.361024),(-2.357314,-10.344451,-0.403066),(-2.324411,-9.746611,-0.904515),(-2.121842,-9.005228,-0.765721),
(-1.40719,-8.759913,-0.192407),(-1.326132,-9.091589,0.509994),(-1.413537,-9.842241,0.707043),(-1.603586,-10.446613,0.250358),(-1.753169,-10.449601,-0.516169),
(-1.749647,-9.848955,-1.015326),(-1.595672,-9.096973,-0.871238),(-0.903927,-8.811207,-0.289767),(-0.809986,-9.140239,0.412272),(-0.8538,-9.895599,0.605814),
(-1.002374,-10.508486,0.145116),(-1.143831,-10.517382,-0.622906),(-1.171649,-9.91559,-1.119916),(-1.064882,-9.156271,-0.971655),(-0.400356,-8.831585,-0.386372),
(-0.28806,-9.157436,0.314454),(-0.286641,-9.914906,0.504678),(-0.397168,-10.533603,0.041057),(-0.536413,-10.547636,-0.727292),(-0.59952,-9.946439,-1.221787),
(-0.538969,-9.182724,-1.070064),(0.104598,-8.821043,-0.486882),(0.240796,-9.142505,0.211731),(0.289165,-9.89931,0.398421),(0.213282,-10.521568,-0.067393),
(0.070288,-10.540708,-0.834943),(-0.032139,-9.942315,-1.326248),(-0.01687,-9.176992,-1.171347),(0.602671,-8.779062,-0.593919),(0.768241,-9.094211,0.101217),
(0.865964,-9.847292,0.283603),(0.822251,-10.471221,-0.184102),(0.67002,-10.496166,-0.949707),(0.523904,-9.903343,-1.436694),(0.49393,-9.13916,-1.278354),
(1.09526,-8.704808,-0.711994),(1.295571,-9.010945,-0.021992),(1.445048,-9.756824,0.154838),(1.431131,-10.380782,-0.314661),(1.2643,-10.412967,-1.076945),
(1.070182,-9.829143,-1.558001),(0.994952,-9.06894,-1.395582),(1.573774,-8.598677,-0.841467),(1.811746,-8.892742,-0.15821),(2.014776,-9.627558,0.011413),
(2.029977,-10.249792,-0.460329),(1.845903,-10.29089,-1.218204),(1.601165,-9.719903,-1.691516),(1.480056,-8.966798,-1.523853),(2.040082,-8.459147,-0.985398),
(2.318464,-8.737475,-0.310873),(2.576789,-9.456852,-0.150524),(2.620533,-10.075572,-0.625097),(2.416755,-10.127726,-1.377228),(2.118906,-9.574041,-1.840548),
(1.95127,-8.831454,-1.666167),(2.485969,-8.287979,-1.14068),(2.803298,-8.547716,-0.476011),(3.116809,-9.247308,-0.326916),(3.190421,-9.859946,-0.805666),
(2.968703,-9.924303,-1.551752),(2.618613,-9.391916,-2.003357),(2.403776,-8.663683,-1.820413),(2.914186,-8.083107,-1.308009),(3.268944,-8.321301,-0.654284),
(3.637395,-8.996391,-0.518474),(3.742088,-9.60002,-1.002849),(3.504187,-9.677643,-1.742662),(3.102837,-9.170809,-2.180821),(2.840261,-8.461174,-1.987382),
(3.317841,-7.84751,-1.481299),(3.704775,-8.063171,-0.838089),(4.125946,-8.709613,-0.716949),(4.264204,-9.300052,-1.209101),(4.015438,-9.389874,-1.943944),
(3.566974,-8.911444,-2.368126),(3.256514,-8.225027,-2.16223),(3.700333,-7.578579,-1.658907),(4.114493,-7.771187,-1.025408),(4.586106,-8.384708,-0.919957),
(4.760038,-8.957148,-1.421961),(4.505315,-9.057446,-2.153399),(4.013749,-8.610079,-2.563485),(3.655498,-7.951921,-2.343415),(4.056976,-7.280198,-1.8329),
(4.49096,-7.451983,-1.206726),(5.008935,-8.029537,-1.116836),(5.220856,-8.577949,-1.630919),(4.967141,-8.684253,-2.36186),(4.438843,-8.2684,-2.759245),
(4.033782,-7.643537,-2.523836),(4.391727,-6.949314,-1.999656),(4.83888,-7.103453,-1.378172),(5.399327,-7.642165,-1.303104),(5.651041,-8.159788,-1.83098),
(5.404475,-8.266542,-2.564298),(4.845299,-7.88204,-2.950855),(4.394584,-7.295818,-2.699566),(4.700366,-6.591459,-2.150514),(5.153722,-6.733253,-1.530586),
(5.75198,-7.23144,-1.468591),(6.044641,-7.710876,-2.011212),(5.811324,-7.810535,-2.749845),(5.227723,-7.455373,-3.128284),(4.733301,-6.912833,-2.861557),
(4.987052,-6.202909,-2.28084),(5.440572,-6.338737,-1.659699),(6.072356,-6.795,-1.60851),(6.406657,-7.228122,-2.165819),(6.191741,-7.311954,-2.911963),
(5.589443,-6.983368,-3.285078),(5.053306,-6.489797,-3.004202),(5.247567,-5.7919,-2.382745),(5.69621,-5.928994,-1.758349),(6.356834,-6.343285,-1.714924),
(6.731975,-6.722803,-2.285171),(6.539144,-6.781765,-3.039681),(5.923547,-6.475769,-3.410294),(5.348741,-6.035238,-3.11793),(5.485981,-5.354161,-2.45138),
(5.925599,-5.500662,-1.822714),(6.610871,-5.87327,-1.783821),(7.025773,-6.191403,-2.363988),(6.857876,-6.215501,-3.126337),(6.23361,-5.927418,-3.496804),
(5.62306,-5.544086,-3.19642),(5.69737,-4.901837,-2.481195),(6.125567,-5.064722,-1.848691),(6.831381,-5.396893,-1.810806),(7.28332,-5.648218,-2.39607),
(7.141064,-5.629445,-3.163766),(6.511735,-5.35471,-3.535804),(5.869231,-5.030894,-3.232031),(5.885175,-4.430347,-2.467727),(6.30026,-4.61708,-1.833076),
(7.022988,-4.910321,-1.792827),(7.50913,-5.089253,-2.377289),(7.392612,-5.019137,-3.146349),(6.761173,-4.752772,-3.52089),(6.090301,-4.490736,-3.218874),
(6.045727,-3.953526,-2.410097),(6.447757,-4.168488,-1.775975),(7.183777,-4.42561,-1.730049),(7.69955,-4.531272,-2.306903),(7.606689,-4.40591,-3.072153),
(6.975119,-4.143923,-3.449551),(6.280426,-3.942593,-3.154908),(6.181841,-3.467442,-2.305164),(6.571239,-3.715053,-1.675081),(7.317439,-3.939054,-1.620704),
(7.858536,-3.970768,-2.182981),(7.787074,-3.786314,-2.938504),(7.156865,-3.524589,-3.318351),(6.442469,-3.382678,-3.036488),(6.292789,-2.983378,-2.156512),
(6.670995,-3.264374,-1.533657),(7.424318,-3.459915,-1.468733),(7.98549,-3.422754,-2.010629),(7.931938,-3.180875,-2.751286),(7.303987,-2.916418,-3.132974),
(6.574497,-2.828523,-2.868275),(6.381335,-2.499072,-1.963401),(6.749734,-2.814048,-1.351014),(7.507735,-2.985818,-1.274355),(8.084547,-2.885037,-1.79115),
(8.045818,-2.587594,-2.512243),(7.420714,-2.31747,-2.894635),(6.679949,-2.278074,-2.650377),(6.450878,-2.017915,-1.731064),(6.810992,-2.364363,-1.130865),
(7.571422,-2.519085,-1.04281),(8.159549,-2.365572,-1.533205),(8.132501,-2.019423,-2.232773),(7.510646,-1.741295,-2.614725),(6.762253,-1.740623,-2.391444),
(6.505471,-1.540076,-1.462837),(6.858416,-1.915454,-0.875922),(7.619722,-2.05952,-0.777923),(8.216111,-1.86379,-1.242633),(8.19849,-1.475653,-1.920118),
(7.580128,-1.187384,-2.300217),(6.826663,-1.216055,-2.096708),(6.550868,-1.062041,-1.163411),(6.897498,-1.461615,-0.588838),(7.658564,-1.601779,-0.483575),
(8.260966,-1.376986,-0.926887),(8.251084,-0.95651,-1.584951),(7.63636,-0.656978,-1.962232),(6.879692,-0.703943,-1.774629),(6.592602,-0.585175,-0.84056),
(6.933383,-1.004445,-0.27662),(7.693483,-1.146837,-0.167447),(8.300531,-0.905128,-0.59525),(8.297408,-0.461329,-1.237885),(7.686465,-0.149631,-1.611434),
(6.927755,-0.204747,-1.434608),(6.633964,-0.107672,-0.501995),(6.969401,-0.539945,0.055291),(7.728275,-0.686873,0.166953),(8.339139,-0.437817,-0.251094),
(8.341999,0.019679,-0.884052),(7.734702,0.341112,-1.25529),(6.974555,0.284435,-1.085259),(6.67839,0.371774,-0.156426),(7.008949,-0.067126,0.39859),
(7.766368,-0.220618,0.5113),(8.380295,0.026882,0.096831),(8.38843,0.489,-0.532714),(7.784647,0.817753,-0.903274),(7.023608,0.765583,-0.73581),
(6.72144,0.847679,0.181845),(7.048006,0.41194,0.741696),(7.804462,0.257623,0.859622),(8.421183,0.500933,0.446823),(8.433764,0.958651,-0.185855),
(7.832732,1.286107,-0.561993),(7.070676,1.23672,-0.398352),(6.759759,1.326515,0.507098),(7.083141,0.90397,1.078785),(7.839107,0.754834,1.206151),
(8.458397,0.99141,0.793286),(8.474675,1.435552,0.151087),(7.875683,1.75281,-0.236858),(7.112473,1.704284,-0.078418),(6.78406,1.799946,0.804146),
(7.104653,1.403154,1.39552),(7.860689,1.270994,1.540057),(8.482856,1.502986,1.128919),(8.50265,1.924435,0.471701),(7.905167,2.217981,0.063302),
(7.140322,2.162578,0.211254),(6.786831,2.278,1.070865),(7.103752,1.920655,1.688775),(7.859406,1.818449,1.857553),(8.484772,2.048346,1.450108),
(8.508935,2.437227,0.773252),(7.913701,2.692259,0.336673),(7.147293,2.621397,0.469123),(6.762062,2.751007,1.296756),(7.072583,2.444999,1.944739),
(7.82577,2.385022,2.14237),(8.454458,2.616241,1.740828),(8.485232,2.964542,1.042483),(7.894918,3.167648,0.573203),(7.128036,3.072616,0.686365),
(6.70334,3.229686,1.482031),(7.002482,2.988026,2.161781),(7.748981,2.983962,2.391283),(8.380705,3.220554,1.997716),(8.421955,3.519643,1.277445),
(7.841668,3.65601,0.772848),(7.076812,3.526967,0.863898),(6.610717,3.699991,1.621035),(6.892427,3.52913,2.329125),(7.626644,3.588973,2.588532),
(8.260486,3.834455,2.203917),(8.316658,4.080725,1.464902),(7.752861,4.142336,0.927982),(6.993646,3.972893,0.997467),(6.479528,4.17169,1.715109),
(6.736243,4.078245,2.446759),(7.450889,4.21046,2.732674),(8.085322,4.468773,2.357553),(8.161802,4.65867,1.603871),(7.622737,4.637154,1.039165),
(6.874055,4.420427,1.08867),(6.314786,4.627629,1.763751),(6.540527,4.609688,2.511191),(7.229009,4.815652,2.816998),(7.861792,5.090426,2.450894),
(7.962376,5.227099,1.688562),(7.455021,5.122754,1.104054),(6.721775,4.855965,1.137516),(6.11249,5.075903,1.769171),(6.301239,5.131359,2.524979),
(6.956463,5.412281,2.8439),(7.584764,5.707129,2.485782),(7.713019,5.793878,1.720294),(7.244649,5.607203,1.123865),(6.532347,5.287674,1.145617),
(5.880168,5.501197,1.735916),(6.029392,5.621276,2.493055),(6.646523,5.972744,2.817963),(7.26685,6.29094,2.465978),(7.423252,6.336255,1.702151),
(6.997957,6.074566,1.10166),(6.31122,5.702931,1.116687),(5.614012,5.909965,1.667347),(5.722161,6.086125,2.420485),(6.296794,6.503562,2.745278),
(6.905201,6.847936,2.397148),(7.089239,6.859928,1.638246),(6.710323,6.530507,1.04004),(6.053786,6.107733,1.052991),(5.321568,6.29143,1.570747),
(5.390189,6.512612,2.316612),(5.920144,6.988802,2.636515),(6.512366,7.361419,2.289561),(6.720899,7.349874,1.537014),(6.388714,6.962862,0.945557),
(5.765954,6.49181,0.96057),(4.999218,6.650452,1.450251),(5.031009,6.906516,2.187385),(5.514799,7.434511,2.499017),(6.086285,7.836846,2.150482),
(6.315126,7.810555,1.404233),(6.029,7.375435,0.822212),(5.443366,6.859141,0.842691),(4.653397,6.98062,1.313618),(4.652715,7.261843,2.042219),
(5.090345,7.834161,2.34368),(5.636743,8.266606,1.990994),(5.880459,8.233541,1.249742),(5.63797,7.759861,0.6781),(5.091877,7.20226,0.706528),
(4.280751,7.285677,1.165184),(4.252903,7.583539,1.886606),(4.645013,8.193283,2.177137),(5.161813,8.655761,1.818001),(5.414143,8.622717,1.079635),
(5.211993,8.119034,0.518044),(4.707586,7.523995,0.556116),(3.887312,7.561326,1.011537),(3.837179,7.86942,1.727435),(4.184641,8.510528,2.007074),
(4.668051,9.001882,1.639879),(4.923393,8.973482,0.902356),(4.758388,8.446714,0.349874),(4.297289,7.818246,0.398464),(3.470058,7.810326,0.856133),
(3.403145,8.123233,1.568565),(3.707273,8.790216,1.837982),(4.153426,9.309024,1.461509),(4.405642,9.288983,0.722637),(4.273998,8.745185,0.177752),
(3.857624,8.08712,0.237163),(3.035199,8.029624,0.703632),(2.955222,8.344088,1.414028),(3.216899,9.03244,1.67411),(3.623181,9.576337,1.288031),
(3.868131,9.566214,0.546517),(3.767295,9.009693,0.007942),(3.396606,8.325846,0.077865),(2.580259,8.221105,0.555944),(2.491248,8.534474,1.265749),
(2.711612,9.240129,1.51762),(3.075414,9.806693,1.121895),(3.308703,9.807535,0.376561),(3.235807,9.24202,-0.157129),(2.911619,8.535992,-0.077296),
(2.11217,8.382375,0.415551),(2.015584,8.693583,1.125317),(2.194936,9.413248,1.369979),(2.515171,9.99945,0.965303),(2.735146,10.010766,0.216017),
(2.689214,9.438674,-0.313651),(2.411964,8.713972,-0.22485),(1.628919,8.514603,0.282472),(1.526286,8.822786,0.992709),(1.665017,9.553428,1.231168),
(1.940643,10.156341,0.818285),(2.145614,10.177519,0.064968),(2.125581,9.601014,-0.461518),(1.89563,8.860948,-0.36472),(1.137753,8.616039,0.157009),
(1.027917,8.921115,0.86751),(1.125418,9.660135,1.100511),(1.356835,10.276603,0.680558),(1.547906,10.306305,-0.076116),(1.554752,9.726875,-0.59972),
(1.372216,8.974637,-0.49597),(0.637132,8.687216,0.037383),(0.518879,8.988957,0.747957),(0.574572,9.733794,0.976129),(0.762273,10.360849,0.550082),
(0.94064,10.397938,-0.209362),(0.975358,9.817132,-0.730328),(0.840284,9.055789,-0.620516),(0.133917,8.727141,-0.077592),(0.004263,9.025314,0.632498),
(0.0169,9.773474,0.856206),(0.162311,10.408239,0.425073),(0.330999,10.451619,-0.336247),(0.395938,9.870949,-0.854466),(0.308228,9.103484,-0.739354),
(-0.372978,8.735817,-0.190781),(-0.517074,9.029816,0.518266),(-0.548772,9.778687,0.73766),(-0.444202,10.418515,0.302193),(-0.282107,10.467497,-0.460219),
(-0.184548,9.888748,-0.975465),(-0.224989,9.118078,-0.855554),(-0.87654,8.712779,-0.303742),(-1.038744,9.001577,0.403529),(-1.116442,9.74838,0.618464),
(-1.051126,10.390826,0.179212),(-0.89198,10.445144,-0.58346),(-0.758845,9.870429,-1.095245),(-0.751973,9.099454,-0.970759),(-1.377943,8.657534,-0.41974),
(-1.561908,8.939611,0.284912),(-1.687308,9.681298,0.494963),(-1.659714,10.32409,0.052239),(-1.499905,10.38395,-0.709879),(-1.32822,9.815804,-1.217501),
(-1.273942,9.047476,-1.088377),(-1.870107,8.570423,-0.539808),(-2.078838,8.843832,0.161352),(-2.253299,9.577101,0.365867),(-2.262117,10.218063,-0.080267),
(-2.098652,10.284061,-0.841102),(-1.885997,9.725398,-1.343714),(-1.784285,8.962757,-1.209625),(-2.354542,8.450566,-0.666948),(-2.590949,8.712879,0.02965),
(-2.815811,9.434105,0.227683),(-2.859802,10.071146,-0.221973),(-2.689797,10.144297,-0.980717),(-2.433812,9.598474,-1.477201),(-2.28461,8.844693,-1.33756),
(-2.823666,8.29917,-0.800523),(-3.088777,8.547966,-0.109318),(-3.364677,9.253334,0.081159),(-3.443608,9.884118,-0.372524),(-3.266134,9.965324,-1.128735),
(-2.965895,9.435803,-1.618032),(-2.768979,8.694295,-1.471963),(-3.279346,8.114772,-0.942451),(-3.574054,8.347322,-0.257605),(-3.901531,9.032673,-0.075948),
(-4.015179,9.654742,-0.534271),(-3.82942,9.745098,-1.287449),(-3.484134,9.235702,-1.768322),(-3.239328,8.510139,-1.614784),(-3.714268,7.899738,-1.090165),
(-4.037091,8.114017,-0.412067),(-4.41543,8.775312,-0.240326),(-4.564387,9.385655,-0.704265),(-4.371795,9.485445,-1.454529),(-3.98268,8.999538,-1.926155),
(-3.690053,8.293833,-1.763998),(-4.130705,7.652047,-1.244251),(-4.480138,7.845996,-0.573261),(-4.908535,8.478918,-0.412536),(-5.093303,9.07421,-0.883104),
(-4.895309,9.183604,-1.630619),(-4.463647,8.724726,-2.092185),(-4.123366,8.043118,-1.920236),(-4.521581,7.375284,-1.400178),(-4.894023,7.548178,-0.735843),
(-5.370523,8.148753,-0.586836),(-5.592268,8.724764,-1.065363),(-5.392278,8.842463,-1.811082),(-4.92115,8.413219,-2.262453),(-4.533653,7.760263,-2.079583),
(-4.889546,7.066676,-1.557156),(-5.281548,7.218073,-0.898855),(-5.804075,7.782159,-0.762044),(-6.063655,8.334167,-1.249744),(-5.86482,8.458424,-1.994708),
(-5.357295,8.06136,-2.435962),(-4.923257,7.441974,-2.241234),(-5.228596,6.730992,-1.709175),(-5.63518,6.862342,-1.05543),(-6.200462,7.386576,-0.930606),
(-6.498774,7.908935,-1.4287),(-6.305481,8.036073,-2.174635),(-5.766136,7.672252,-2.606709),(-5.286877,7.091436,-2.399559),(-5.541525,6.364798,-1.854089),
(-5.958167,6.478114,-1.203309),(-6.562929,6.959093,-1.089871),(-6.900413,7.445548,-1.599197),(-6.716486,7.571168,-2.347754),(-6.149649,7.241359,-2.771863),
(-5.626742,6.704474,-2.552161),(-5.822933,5.974658,-1.984994),(-6.244624,6.073825,-1.335156),(-6.884705,6.509195,-1.231738),(-7.261182,6.952926,-1.752616),
(-7.090561,7.070879,-2.505558),(-6.501322,6.774234,-2.923584),(-5.937175,6.286369,-2.691911),(-6.075692,5.556316,-2.098745),(-6.498135,5.64594,-1.448011),
(-7.169505,6.033427,-1.352808),(-7.584246,6.42699,-1.884827),(-7.43005,6.53027,-2.643446),(-6.82303,6.265493,-3.05741),(-6.220284,5.832044,-2.814996),
(-6.295179,5.118773,-2.188586),(-6.714509,5.204818,-1.53536),(-7.412459,5.543641,-1.445851),(-7.863458,5.880101,-1.987461),(-7.727894,5.960836,-2.752347),
(-7.107851,5.725052,-3.164534),(-6.470232,5.350299,-2.913637),(-6.484138,4.657105,-2.25068),(-6.897384,4.746228,-1.593998),(-7.617515,5.035799,-1.507354),
(-8.102258,5.307764,-2.055994),(-7.986592,5.357328,-2.82678),(-7.357616,5.14717,-3.239295),(-6.688961,4.835541,-2.982907),(-6.639077,4.183114,-2.28005),
(-7.044437,4.281882,-1.619842),(-7.782015,4.523445,-1.53282),(-8.2964,4.725902,-2.084515),(-8.200249,4.736798,-2.859487),(-7.565966,4.547929,-3.274168),
(-6.87118,4.301517,-3.016295),(-6.762381,3.69175,-2.272726),(-7.158916,3.807135,-1.609859),(-7.909711,4.002169,-1.51923),(-8.449404,4.129988,-2.069085),
(-8.371593,4.094341,-2.845372),(-7.734873,3.922072,-3.263531),(-7.018706,3.742902,-3.00868),(-6.853035,3.195662,-2.22668),(-7.240926,3.333438,-1.562975),
(-8.000678,3.485927,-1.465664),(-8.560184,3.538302,-2.008026),(-8.498124,3.451123,-2.781651),(-7.86123,3.290038,-3.203983),(-7.129097,3.176347,-2.956998),
(-6.913376,2.690787,-2.138228),(-7.29344,2.856714,-1.476439),(-8.058661,2.97086,-1.369875),(-8.63281,2.947272,-1.898782),(-8.583542,2.803711,-2.664882),
(-7.947957,2.648283,-3.091286),(-7.204664,2.598027,-2.856904),(-6.946013,2.186227,-2.008862),(-7.319719,2.383308,-1.352014),(-8.087372,2.466343,-1.234704),
(-8.670913,2.372804,-1.745269),(-8.630924,2.173129,-2.499243),(-7.997519,2.017676,-2.928869),(-7.247663,2.023505,-2.710629),(-6.954381,1.680294,-1.836927),
(-7.323287,1.911238,-1.188452),(-8.091373,1.970304,-1.059993),(-8.680254,1.813014,-1.548282),(-8.646491,1.557811,-2.285627),(-8.015508,1.396868,-2.716793),
(-7.262448,1.451378,-2.517102),(-6.944402,1.174352,-1.625948),(-7.309813,1.438251,-0.988156),(-8.077192,1.482865,-0.850004),(-8.668686,1.274599,-1.315522),
(-8.638887,0.970282,-2.034167),(-8.010236,0.799071,-2.464783),(-7.256119,0.88989,-2.283109),(-6.922191,0.669136,-1.378792),(-7.28493,0.964889,-0.753575),
(-8.051324,1.003998,-0.60846),(-8.644261,0.757013,-1.052723),(-8.617249,0.409919,-1.751824),(-7.990629,0.224084,-2.179326),(-7.236257,0.339446,-2.013311),
(-6.89462,0.161148,-1.101115),(-7.254708,0.483679,-0.487717),(-8.020281,0.525184,-0.33898),(-8.614846,0.25441,-0.766905),(-8.590684,-0.124746,-1.449257),
(-7.96599,-0.326771,-1.87221),(-7.211171,-0.199537,-1.717272),(-6.869245,-0.349184,-0.800924),(-7.226277,-0.004663,-0.197783),(-7.991324,0.046487,-0.049349),
(-8.58829,-0.23425,-0.467397),(-8.567648,-0.635474,-1.137128),(-7.944941,-0.855055,-1.554221),(-7.18908,-0.727644,-1.404596),(0.0,0.0,0.0)  --  730
);

idx_7: constant Idx_4_array_array:=
( (1140,1141,1148,1147),(1141,1142,1149,1148),(1142,1143,1150,1149),(1143,1144,1151,1150),(1144,1145,1152,1151),(1145,1146,1153,1152),(1146,1140,1147,1153),(1147,1148,1155,1154),
(1148,1149,1156,1155),(1149,1150,1157,1156),(1150,1151,1158,1157),(1151,1152,1159,1158),(1152,1153,1160,1159),(1153,1147,1154,1160),(1154,1155,1162,1161),(1155,1156,1163,1162),
(1156,1157,1164,1163),(1157,1158,1165,1164),(1158,1159,1166,1165),(1159,1160,1167,1166),(1160,1154,1161,1167),(1161,1162,1169,1168),(1162,1163,1170,1169),(1163,1164,1171,1170),
(1164,1165,1172,1171),(1165,1166,1173,1172),(1166,1167,1174,1173),(1167,1161,1168,1174),(1168,1169,1176,1175),(1169,1170,1177,1176),(1170,1171,1178,1177),(1171,1172,1179,1178),
(1172,1173,1180,1179),(1173,1174,1181,1180),(1174,1168,1175,1181),(1175,1176,1183,1182),(1176,1177,1184,1183),(1177,1178,1185,1184),(1178,1179,1186,1185),(1179,1180,1187,1186),
(1180,1181,1188,1187),(1181,1175,1182,1188),(1182,1183,1190,1189),(1183,1184,1191,1190),(1184,1185,1192,1191),(1185,1186,1193,1192),(1186,1187,1194,1193),(1187,1188,1195,1194),
(1188,1182,1189,1195),(1189,1190,1197,1196),(1190,1191,1198,1197),(1191,1192,1199,1198),(1192,1193,1200,1199),(1193,1194,1201,1200),(1194,1195,1202,1201),(1195,1189,1196,1202),
(1196,1197,1204,1203),(1197,1198,1205,1204),(1198,1199,1206,1205),(1199,1200,1207,1206),(1200,1201,1208,1207),(1201,1202,1209,1208),(1202,1196,1203,1209),(1203,1204,1211,1210),
(1204,1205,1212,1211),(1205,1206,1213,1212),(1206,1207,1214,1213),(1207,1208,1215,1214),(1208,1209,1216,1215),(1209,1203,1210,1216),(1210,1211,1218,1217),(1211,1212,1219,1218),
(1212,1213,1220,1219),(1213,1214,1221,1220),(1214,1215,1222,1221),(1215,1216,1223,1222),(1216,1210,1217,1223),(1217,1218,1225,1224),(1218,1219,1226,1225),(1219,1220,1227,1226),
(1220,1221,1228,1227),(1221,1222,1229,1228),(1222,1223,1230,1229),(1223,1217,1224,1230),(1224,1225,1232,1231),(1225,1226,1233,1232),(1226,1227,1234,1233),(1227,1228,1235,1234),
(1228,1229,1236,1235),(1229,1230,1237,1236),(1230,1224,1231,1237),(1231,1232,1239,1238),(1232,1233,1240,1239),(1233,1234,1241,1240),(1234,1235,1242,1241),(1235,1236,1243,1242),
(1236,1237,1244,1243),(1237,1231,1238,1244),(1238,1239,1246,1245),(1239,1240,1247,1246),(1240,1241,1248,1247),(1241,1242,1249,1248),(1242,1243,1250,1249),(1243,1244,1251,1250),
(1244,1238,1245,1251),(1245,1246,1253,1252),(1246,1247,1254,1253),(1247,1248,1255,1254),(1248,1249,1256,1255),(1249,1250,1257,1256),(1250,1251,1258,1257),(1251,1245,1252,1258),
(1252,1253,1260,1259),(1253,1254,1261,1260),(1254,1255,1262,1261),(1255,1256,1263,1262),(1256,1257,1264,1263),(1257,1258,1265,1264),(1258,1252,1259,1265),(1259,1260,1267,1266),
(1260,1261,1268,1267),(1261,1262,1269,1268),(1262,1263,1270,1269),(1263,1264,1271,1270),(1264,1265,1272,1271),(1265,1259,1266,1272),(1266,1267,1274,1273),(1267,1268,1275,1274),
(1268,1269,1276,1275),(1269,1270,1277,1276),(1270,1271,1278,1277),(1271,1272,1279,1278),(1272,1266,1273,1279),(1273,1274,1281,1280),(1274,1275,1282,1281),(1275,1276,1283,1282),
(1276,1277,1284,1283),(1277,1278,1285,1284),(1278,1279,1286,1285),(1279,1273,1280,1286),(1280,1281,1288,1287),(1281,1282,1289,1288),(1282,1283,1290,1289),(1283,1284,1291,1290),
(1284,1285,1292,1291),(1285,1286,1293,1292),(1286,1280,1287,1293),(1287,1288,1295,1294),(1288,1289,1296,1295),(1289,1290,1297,1296),(1290,1291,1298,1297),(1291,1292,1299,1298),
(1292,1293,1300,1299),(1293,1287,1294,1300),(1294,1295,1302,1301),(1295,1296,1303,1302),(1296,1297,1304,1303),(1297,1298,1305,1304),(1298,1299,1306,1305),(1299,1300,1307,1306),
(1300,1294,1301,1307),(1301,1302,1309,1308),(1302,1303,1310,1309),(1303,1304,1311,1310),(1304,1305,1312,1311),(1305,1306,1313,1312),(1306,1307,1314,1313),(1307,1301,1308,1314),
(1308,1309,1316,1315),(1309,1310,1317,1316),(1310,1311,1318,1317),(1311,1312,1319,1318),(1312,1313,1320,1319),(1313,1314,1321,1320),(1314,1308,1315,1321),(1315,1316,1323,1322),
(1316,1317,1324,1323),(1317,1318,1325,1324),(1318,1319,1326,1325),(1319,1320,1327,1326),(1320,1321,1328,1327),(1321,1315,1322,1328),(1322,1323,1330,1329),(1323,1324,1331,1330),
(1324,1325,1332,1331),(1325,1326,1333,1332),(1326,1327,1334,1333),(1327,1328,1335,1334),(1328,1322,1329,1335),(1329,1330,1337,1336),(1330,1331,1338,1337),(1331,1332,1339,1338),
(1332,1333,1340,1339),(1333,1334,1341,1340),(1334,1335,1342,1341),(1335,1329,1336,1342),(1336,1337,1344,1343),(1337,1338,1345,1344),(1338,1339,1346,1345),(1339,1340,1347,1346),
(1340,1341,1348,1347),(1341,1342,1349,1348),(1342,1336,1343,1349),(1343,1344,1351,1350),(1344,1345,1352,1351),(1345,1346,1353,1352),(1346,1347,1354,1353),(1347,1348,1355,1354),
(1348,1349,1356,1355),(1349,1343,1350,1356),(1350,1351,1358,1357),(1351,1352,1359,1358),(1352,1353,1360,1359),(1353,1354,1361,1360),(1354,1355,1362,1361),(1355,1356,1363,1362),
(1356,1350,1357,1363),(1357,1358,1365,1364),(1358,1359,1366,1365),(1359,1360,1367,1366),(1360,1361,1368,1367),(1361,1362,1369,1368),(1362,1363,1370,1369),(1363,1357,1364,1370),
(1364,1365,1372,1371),(1365,1366,1373,1372),(1366,1367,1374,1373),(1367,1368,1375,1374),(1368,1369,1376,1375),(1369,1370,1377,1376),(1370,1364,1371,1377),(1371,1372,1379,1378),
(1372,1373,1380,1379),(1373,1374,1381,1380),(1374,1375,1382,1381),(1375,1376,1383,1382),(1376,1377,1384,1383),(1377,1371,1378,1384),(1378,1379,1386,1385),(1379,1380,1387,1386),
(1380,1381,1388,1387),(1381,1382,1389,1388),(1382,1383,1390,1389),(1383,1384,1391,1390),(1384,1378,1385,1391),(1385,1386,1393,1392),(1386,1387,1394,1393),(1387,1388,1395,1394),
(1388,1389,1396,1395),(1389,1390,1397,1396),(1390,1391,1398,1397),(1391,1385,1392,1398),(1392,1393,1400,1399),(1393,1394,1401,1400),(1394,1395,1402,1401),(1395,1396,1403,1402),
(1396,1397,1404,1403),(1397,1398,1405,1404),(1398,1392,1399,1405),(1399,1400,1407,1406),(1400,1401,1408,1407),(1401,1402,1409,1408),(1402,1403,1410,1409),(1403,1404,1411,1410),
(1404,1405,1412,1411),(1405,1399,1406,1412),(1406,1407,1414,1413),(1407,1408,1415,1414),(1408,1409,1416,1415),(1409,1410,1417,1416),(1410,1411,1418,1417),(1411,1412,1419,1418),
(1412,1406,1413,1419),(1413,1414,1421,1420),(1414,1415,1422,1421),(1415,1416,1423,1422),(1416,1417,1424,1423),(1417,1418,1425,1424),(1418,1419,1426,1425),(1419,1413,1420,1426),
(1420,1421,1428,1427),(1421,1422,1429,1428),(1422,1423,1430,1429),(1423,1424,1431,1430),(1424,1425,1432,1431),(1425,1426,1433,1432),(1426,1420,1427,1433),(1427,1428,1435,1434),
(1428,1429,1436,1435),(1429,1430,1437,1436),(1430,1431,1438,1437),(1431,1432,1439,1438),(1432,1433,1440,1439),(1433,1427,1434,1440),(1434,1435,1442,1441),(1435,1436,1443,1442),
(1436,1437,1444,1443),(1437,1438,1445,1444),(1438,1439,1446,1445),(1439,1440,1447,1446),(1440,1434,1441,1447),(1441,1442,1449,1448),(1442,1443,1450,1449),(1443,1444,1451,1450),
(1444,1445,1452,1451),(1445,1446,1453,1452),(1446,1447,1454,1453),(1447,1441,1448,1454),(1448,1449,1456,1455),(1449,1450,1457,1456),(1450,1451,1458,1457),(1451,1452,1459,1458),
(1452,1453,1460,1459),(1453,1454,1461,1460),(1454,1448,1455,1461),(1455,1456,1463,1462),(1456,1457,1464,1463),(1457,1458,1465,1464),(1458,1459,1466,1465),(1459,1460,1467,1466),
(1460,1461,1468,1467),(1461,1455,1462,1468),(1462,1463,1470,1469),(1463,1464,1471,1470),(1464,1465,1472,1471),(1465,1466,1473,1472),(1466,1467,1474,1473),(1467,1468,1475,1474),
(1468,1462,1469,1475),(1469,1470,1477,1476),(1470,1471,1478,1477),(1471,1472,1479,1478),(1472,1473,1480,1479),(1473,1474,1481,1480),(1474,1475,1482,1481),(1475,1469,1476,1482),
(1476,1477,1484,1483),(1477,1478,1485,1484),(1478,1479,1486,1485),(1479,1480,1487,1486),(1480,1481,1488,1487),(1481,1482,1489,1488),(1482,1476,1483,1489),(1483,1484,1491,1490),
(1484,1485,1492,1491),(1485,1486,1493,1492),(1486,1487,1494,1493),(1487,1488,1495,1494),(1488,1489,1496,1495),(1489,1483,1490,1496),(1490,1491,1498,1497),(1491,1492,1499,1498),
(1492,1493,1500,1499),(1493,1494,1501,1500),(1494,1495,1502,1501),(1495,1496,1503,1502),(1496,1490,1497,1503),(1497,1498,1505,1504),(1498,1499,1506,1505),(1499,1500,1507,1506),
(1500,1501,1508,1507),(1501,1502,1509,1508),(1502,1503,1510,1509),(1503,1497,1504,1510),(1504,1505,1512,1511),(1505,1506,1513,1512),(1506,1507,1514,1513),(1507,1508,1515,1514),
(1508,1509,1516,1515),(1509,1510,1517,1516),(1510,1504,1511,1517),(1511,1512,1519,1518),(1512,1513,1520,1519),(1513,1514,1521,1520),(1514,1515,1522,1521),(1515,1516,1523,1522),
(1516,1517,1524,1523),(1517,1511,1518,1524),(1518,1519,1526,1525),(1519,1520,1527,1526),(1520,1521,1528,1527),(1521,1522,1529,1528),(1522,1523,1530,1529),(1523,1524,1531,1530),
(1524,1518,1525,1531),(1525,1526,1533,1532),(1526,1527,1534,1533),(1527,1528,1535,1534),(1528,1529,1536,1535),(1529,1530,1537,1536),(1530,1531,1538,1537),(1531,1525,1532,1538),
(1532,1533,1540,1539),(1533,1534,1541,1540),(1534,1535,1542,1541),(1535,1536,1543,1542),(1536,1537,1544,1543),(1537,1538,1545,1544),(1538,1532,1539,1545),(1539,1540,1547,1546),
(1540,1541,1548,1547),(1541,1542,1549,1548),(1542,1543,1550,1549),(1543,1544,1551,1550),(1544,1545,1552,1551),(1545,1539,1546,1552),(1546,1547,1554,1553),(1547,1548,1555,1554),
(1548,1549,1556,1555),(1549,1550,1557,1556),(1550,1551,1558,1557),(1551,1552,1559,1558),(1552,1546,1553,1559),(1553,1554,1561,1560),(1554,1555,1562,1561),(1555,1556,1563,1562),
(1556,1557,1564,1563),(1557,1558,1565,1564),(1558,1559,1566,1565),(1559,1553,1560,1566),(1560,1561,1568,1567),(1561,1562,1569,1568),(1562,1563,1570,1569),(1563,1564,1571,1570),
(1564,1565,1572,1571),(1565,1566,1573,1572),(1566,1560,1567,1573),(1567,1568,1575,1574),(1568,1569,1576,1575),(1569,1570,1577,1576),(1570,1571,1578,1577),(1571,1572,1579,1578),
(1572,1573,1580,1579),(1573,1567,1574,1580),(1574,1575,1582,1581),(1575,1576,1583,1582),(1576,1577,1584,1583),(1577,1578,1585,1584),(1578,1579,1586,1585),(1579,1580,1587,1586),
(1580,1574,1581,1587),(1581,1582,1589,1588),(1582,1583,1590,1589),(1583,1584,1591,1590),(1584,1585,1592,1591),(1585,1586,1593,1592),(1586,1587,1594,1593),(1587,1581,1588,1594),
(1588,1589,1596,1595),(1589,1590,1597,1596),(1590,1591,1598,1597),(1591,1592,1599,1598),(1592,1593,1600,1599),(1593,1594,1601,1600),(1594,1588,1595,1601),(1595,1596,1603,1602),
(1596,1597,1604,1603),(1597,1598,1605,1604),(1598,1599,1606,1605),(1599,1600,1607,1606),(1600,1601,1608,1607),(1601,1595,1602,1608),(1602,1603,1610,1609),(1603,1604,1611,1610),
(1604,1605,1612,1611),(1605,1606,1613,1612),(1606,1607,1614,1613),(1607,1608,1615,1614),(1608,1602,1609,1615),(1609,1610,1617,1616),(1610,1611,1618,1617),(1611,1612,1619,1618),
(1612,1613,1620,1619),(1613,1614,1621,1620),(1614,1615,1622,1621),(1615,1609,1616,1622),(1616,1617,1624,1623),(1617,1618,1625,1624),(1618,1619,1626,1625),(1619,1620,1627,1626),
(1620,1621,1628,1627),(1621,1622,1629,1628),(1622,1616,1623,1629),(1623,1624,1631,1630),(1624,1625,1632,1631),(1625,1626,1633,1632),(1626,1627,1634,1633),(1627,1628,1635,1634),
(1628,1629,1636,1635),(1629,1623,1630,1636),(1630,1631,1638,1637),(1631,1632,1639,1638),(1632,1633,1640,1639),(1633,1634,1641,1640),(1634,1635,1642,1641),(1635,1636,1643,1642),
(1636,1630,1637,1643),(1637,1638,1645,1644),(1638,1639,1646,1645),(1639,1640,1647,1646),(1640,1641,1648,1647),(1641,1642,1649,1648),(1642,1643,1650,1649),(1643,1637,1644,1650),
(1644,1645,1652,1651),(1645,1646,1653,1652),(1646,1647,1654,1653),(1647,1648,1655,1654),(1648,1649,1656,1655),(1649,1650,1657,1656),(1650,1644,1651,1657),(1651,1652,1659,1658),
(1652,1653,1660,1659),(1653,1654,1661,1660),(1654,1655,1662,1661),(1655,1656,1663,1662),(1656,1657,1664,1663),(1657,1651,1658,1664),(1658,1659,1666,1665),(1659,1660,1667,1666),
(1660,1661,1668,1667),(1661,1662,1669,1668),(1662,1663,1670,1669),(1663,1664,1671,1670),(1664,1658,1665,1671),(1665,1666,1673,1672),(1666,1667,1674,1673),(1667,1668,1675,1674),
(1668,1669,1676,1675),(1669,1670,1677,1676),(1670,1671,1678,1677),(1671,1665,1672,1678),(1672,1673,1680,1679),(1673,1674,1681,1680),(1674,1675,1682,1681),(1675,1676,1683,1682),
(1676,1677,1684,1683),(1677,1678,1685,1684),(1678,1672,1679,1685),(1679,1680,1687,1686),(1680,1681,1688,1687),(1681,1682,1689,1688),(1682,1683,1690,1689),(1683,1684,1691,1690),
(1684,1685,1692,1691),(1685,1679,1686,1692),(1686,1687,1694,1693),(1687,1688,1695,1694),(1688,1689,1696,1695),(1689,1690,1697,1696),(1690,1691,1698,1697),(1691,1692,1699,1698),
(1692,1686,1693,1699),(1693,1694,1701,1700),(1694,1695,1702,1701),(1695,1696,1703,1702),(1696,1697,1704,1703),(1697,1698,1705,1704),(1698,1699,1706,1705),(1699,1693,1700,1706),
(1700,1701,1708,1707),(1701,1702,1709,1708),(1702,1703,1710,1709),(1703,1704,1711,1710),(1704,1705,1712,1711),(1705,1706,1713,1712),(1706,1700,1707,1713),(1707,1708,1715,1714),
(1708,1709,1716,1715),(1709,1710,1717,1716),(1710,1711,1718,1717),(1711,1712,1719,1718),(1712,1713,1720,1719),(1713,1707,1714,1720),(1714,1715,1722,1721),(1715,1716,1723,1722),
(1716,1717,1724,1723),(1717,1718,1725,1724),(1718,1719,1726,1725),(1719,1720,1727,1726),(1720,1714,1721,1727),(1721,1722,1729,1728),(1722,1723,1730,1729),(1723,1724,1731,1730),
(1724,1725,1732,1731),(1725,1726,1733,1732),(1726,1727,1734,1733),(1727,1721,1728,1734),(1728,1729,1736,1735),(1729,1730,1737,1736),(1730,1731,1738,1737),(1731,1732,1739,1738),
(1732,1733,1740,1739),(1733,1734,1741,1740),(1734,1728,1735,1741),(1735,1736,1743,1742),(1736,1737,1744,1743),(1737,1738,1745,1744),(1738,1739,1746,1745),(1739,1740,1747,1746),
(1740,1741,1748,1747),(1741,1735,1742,1748),(1742,1743,1750,1749),(1743,1744,1751,1750),(1744,1745,1752,1751),(1745,1746,1753,1752),(1746,1747,1754,1753),(1747,1748,1755,1754),
(1748,1742,1749,1755),(1749,1750,1757,1756),(1750,1751,1758,1757),(1751,1752,1759,1758),(1752,1753,1760,1759),(1753,1754,1761,1760),(1754,1755,1762,1761),(1755,1749,1756,1762),
(1756,1757,1764,1763),(1757,1758,1765,1764),(1758,1759,1766,1765),(1759,1760,1767,1766),(1760,1761,1768,1767),(1761,1762,1769,1768),(1762,1756,1763,1769),(1763,1764,1771,1770),
(1764,1765,1772,1771),(1765,1766,1773,1772),(1766,1767,1774,1773),(1767,1768,1775,1774),(1768,1769,1776,1775),(1769,1763,1770,1776),(1770,1771,1778,1777),(1771,1772,1779,1778),
(1772,1773,1780,1779),(1773,1774,1781,1780),(1774,1775,1782,1781),(1775,1776,1783,1782),(1776,1770,1777,1783),(1777,1778,1785,1784),(1778,1779,1786,1785),(1779,1780,1787,1786),
(1780,1781,1788,1787),(1781,1782,1789,1788),(1782,1783,1790,1789),(1783,1777,1784,1790),(1784,1785,1792,1791),(1785,1786,1793,1792),(1786,1787,1794,1793),(1787,1788,1795,1794),
(1788,1789,1796,1795),(1789,1790,1797,1796),(1790,1784,1791,1797),(1791,1792,1799,1798),(1792,1793,1800,1799),(1793,1794,1801,1800),(1794,1795,1802,1801),(1795,1796,1803,1802),
(1796,1797,1804,1803),(1797,1791,1798,1804),(1798,1799,1806,1805),(1799,1800,1807,1806),(1800,1801,1808,1807),(1801,1802,1809,1808),(1802,1803,1810,1809),(1803,1804,1811,1810),
(1804,1798,1805,1811),(1805,1806,1813,1812),(1806,1807,1814,1813),(1807,1808,1815,1814),(1808,1809,1816,1815),(1809,1810,1817,1816),(1810,1811,1818,1817),(1811,1805,1812,1818),
(1812,1813,1820,1819),(1813,1814,1821,1820),(1814,1815,1822,1821),(1815,1816,1823,1822),(1816,1817,1824,1823),(1817,1818,1825,1824),(1818,1812,1819,1825),(1819,1820,1827,1826),
(1820,1821,1828,1827),(1821,1822,1829,1828),(1822,1823,1830,1829),(1823,1824,1831,1830),(1824,1825,1832,1831),(1825,1819,1826,1832),(1826,1827,1834,1833),(1827,1828,1835,1834),
(1828,1829,1836,1835),(1829,1830,1837,1836),(1830,1831,1838,1837),(1831,1832,1839,1838),(1832,1826,1833,1839),(1833,1834,1841,1840),(1834,1835,1842,1841),(1835,1836,1843,1842),
(1836,1837,1844,1843),(1837,1838,1845,1844),(1838,1839,1846,1845),(1839,1833,1840,1846),(1840,1841,1848,1847),(1841,1842,1849,1848),(1842,1843,1850,1849),(1843,1844,1851,1850),
(1844,1845,1852,1851),(1845,1846,1853,1852),(1846,1840,1847,1853),(1847,1848,1855,1854),(1848,1849,1856,1855),(1849,1850,1857,1856),(1850,1851,1858,1857),(1851,1852,1859,1858),
(1852,1853,1860,1859),(1853,1847,1854,1860),(1854,1855,1862,1861),(1855,1856,1863,1862),(1856,1857,1864,1863),(1857,1858,1865,1864),(1858,1859,1866,1865),(1859,1860,1867,1866),
(1860,1854,1861,1867),(1861,1862,1141,1140),(1862,1863,1142,1141),(1863,1864,1143,1142),(1864,1865,1144,1143),(1865,1866,1145,1144),(1866,1867,1146,1145),(1867,1861,1140,1146),
(1867,1861,1140,1146)--  729
);
-- last index now: 1868
-- end Separator # 7
-- last index now: 1868
-- end Separator # 7
-- last index now: 1868
-- end Separator # 7
-- last index now: 1868
-- end Separator # 7

  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 => 1868, Max_faces => 1865 );
    object.centre:= centre;
    Set_name(object.all, "SkotKnot");
    face_0.skin:= material_only;
    face_0.material:= VRML_Defaults;
    -- Creating separator # 1
    -- Creating separator # 2
    face_0.material:= matos_2;
    -- Creating separator # 3
    if Almost_zero(scale - 1.0) then
      object.point( 1.. 310):= coord_3;
    else
      for p in 1 .. 310 loop
        object.point( 0 + p ):= scale * coord_3(p);
      end loop;
    end if;
    for f in 1 .. 309 loop
      face_0.P:= idx_3(f);
      object.face( 0 + f ):= face_0;
    end loop;
    -- Creating separator # 4
    face_0.material:= matos_4;
    -- Creating separator # 5
    if Almost_zero(scale - 1.0) then
      object.point( 311.. 1138):= coord_5;
    else
      for p in 1 .. 828 loop
        object.point( 310 + p ):= scale * coord_5(p);
      end loop;
    end if;
    for f in 1 .. 827 loop
      face_0.P:= idx_5(f);
      object.face( 309 + f ):= face_0;
    end loop;
    -- Creating separator # 6
    face_0.material:= matos_6;
    -- Creating separator # 7
    if Almost_zero(scale - 1.0) then
      object.point( 1139.. 1868):= coord_7;
    else
      for p in 1 .. 730 loop
        object.point( 1138 + p ):= scale * coord_7(p);
      end loop;
    end if;
    for f in 1 .. 729 loop
      face_0.P:= idx_7(f);
      object.face( 1136 + f ):= face_0;
    end loop;
    end Create;
end SkotKnot;
-- Converted by Wrl2Ada

GLOBE_3D: Ada library for real-time 3D rendering. Ada programming.