Back to...

with GL, GL.Materials, GL.Math;

package body Knot_link is
  -- Pretty output: FALSE
  use GL, GL.Materials, GL.Math, 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:26:25 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.0,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),(-11.074977,-1.904247,-6.335541),(-10.467472,-2.266152,-6.004015),(-10.31743,-3.031728,-5.967581),(-10.737837,-3.624481,-6.253673),
(-11.412117,-3.598056,-6.646859),(-11.832523,-2.972351,-6.851061),(-11.682482,-2.218536,-6.712512),(-10.418904,-1.718678,-7.160396),(-9.843089,-2.072862,-6.769324),
(-9.644618,-2.828203,-6.773202),(-9.972943,-3.415915,-7.169111),(-10.580831,-3.393438,-7.658923),(-11.010527,-2.777698,-7.873799),(-10.938463,-2.03236,-7.651934),
(-9.68015,-1.436725,-7.836391),(-9.14852,-1.791213,-7.387331),(-8.90166,-2.531563,-7.417143),(-9.12546,-3.100276,-7.903379),(-9.651394,-3.0691,-8.479894),
(-10.083423,-2.461511,-8.712558),(-10.09622,-1.735036,-8.426172),(-8.824729,-1.049486,-8.383142),(-8.350908,-1.413561,-7.88026),(-8.057976,-2.136257,-7.923247),
(-8.166515,-2.673369,-8.479733),(-8.594795,-2.620441,-9.130672),(-9.020312,-2.017329,-9.385894),(-9.122643,-1.318188,-9.053211),(-7.90955,-0.597471,-8.75301),
(-7.50986,-0.981294,-8.202669),(-7.182138,-1.689035,-8.243261),(-7.173165,-2.18775,-8.844218),(-7.489699,-2.101897,-9.553008),(-7.893382,-1.496125,-9.835896),
(-8.080234,-0.826592,-9.479864),(-6.907384,-0.083159,-8.938935),(-6.598333,-0.496563,-8.35282),(-6.249502,-1.194778,-8.380385),(-6.123567,-1.652032,-9.000873),
(-6.31536,-1.524005,-9.747044),(-6.680457,-0.907103,-10.057015),(-6.943933,-0.265866,-9.697373),(-5.836481,0.449716,-8.933965),(-5.630558,0.002241,-8.327906),
(-5.285749,-0.698476,-8.334939),(-5.061704,-1.124781,-8.949768),(-5.127132,-0.955656,-9.709414),(-5.432765,-0.318458,-10.041849),(-5.748455,0.306992,-9.696742),
(-4.703288,0.961116,-8.73432),(-4.609353,0.480286,-8.126105),(-4.293331,-0.233811,-8.114184),(-3.993193,-0.643446,-8.707534),(-3.93495,-0.440154,-9.45935),
(-4.162459,0.22298,-9.803499),(-4.504402,0.846604,-9.48083),(-3.492236,1.424644,-8.368343),(-3.498731,0.923301,-7.769545),(-3.230324,0.190283,-7.745254),
(-2.889131,-0.222431,-8.313762),(-2.732077,-0.004059,-9.04697),(-2.877427,0.680959,-9.392758),(-3.21573,1.316792,-9.090741),(-2.243444,1.791919,-7.884465),
(-2.338497,1.282631,-7.300053),(-2.133447,0.529552,-7.272244),(-1.782701,0.099766,-7.821978),(-1.550377,0.316911,-8.535295),(-1.611421,1.017472,-8.875051),
(-1.919865,1.673912,-8.585405),(-0.958835,2.033315,-7.315362),(-1.134033,1.526767,-6.747329),(-1.005708,0.756716,-6.724953),(-0.67049,0.303026,-7.265083),
(-0.380806,0.507335,-7.960991),(-0.354794,1.215794,-8.288644),(-0.612041,1.894919,-8.001311),(0.367742,2.111085,-6.687947),(0.117044,1.617318,-6.137228),
(0.151834,0.837133,-6.13035),(0.445914,0.358025,-6.672493),(0.777835,0.540771,-7.355412),(0.897655,1.247761,-7.664855),(0.715146,1.946616,-7.367805),
(1.664343,1.977713,-6.0943),(1.349039,1.507524,-5.556292),(1.267571,0.731038,-5.575784),(1.481285,0.232966,-6.138098),(1.829251,0.388365,-6.819799),
(2.049443,1.080217,-7.107554),(1.976053,1.787544,-6.784677),(3.031888,1.549674,-5.553052),(2.663823,1.113028,-5.020309),(2.437403,0.367505,-5.07394),
(2.523129,-0.125501,-5.673559),(2.856445,0.005253,-6.36764),(3.186359,0.661307,-6.633528),(3.264438,1.348639,-6.271003),(4.288838,0.92602,-5.187947),
(3.90926,0.513838,-4.643913),(3.570072,-0.186347,-4.712027),(3.52669,-0.647281,-5.340997),(3.811782,-0.521872,-6.057197),(4.210667,0.095445,-6.321313),
(4.422976,0.739818,-5.93446),(5.51159,0.146776,-5.018365),(5.159137,-0.263018,-4.454635),(4.741309,-0.919729,-4.518646),(4.572739,-1.328839,-5.162198),
(4.780364,-1.182282,-5.900682),(5.207838,-0.590417,-6.178006),(5.533264,0.001069,-5.785337),(6.636482,-0.607694,-4.995756),(6.328127,-1.027054,-4.413519),
(5.891217,-1.672941,-4.456951),(5.654754,-2.058988,-5.093347),(5.796801,-1.894495,-5.843487),(6.210392,-1.303327,-6.142502),(6.584085,-0.730647,-5.765226),
(7.740471,-1.253566,-5.041667),(7.49159,-1.688956,-4.442968),(7.092616,-2.360086,-4.461684),(6.843984,-2.761582,-5.083722),(6.932918,-2.591108,-5.840673),
(7.29245,-1.977035,-6.162539),(7.651845,-1.381773,-5.806948),(8.801161,-1.747102,-5.076196),(8.596786,-2.183733,-4.461761),(8.260984,-2.888818,-4.455569),
(8.046621,-3.331414,-5.062285),(8.115116,-3.178237,-5.825038),(8.414891,-2.544632,-6.169459),(8.720209,-1.907717,-5.836194),(9.899519,-2.08945,-5.02593),
(9.718302,-2.512908,-4.395224),(9.474777,-3.254118,-4.359877),(9.352324,-3.754935,-4.946507),(9.443151,-3.638233,-5.713368),(9.678865,-2.991891,-6.083),
(9.881968,-2.302618,-5.777061),(10.935951,-2.261686,-4.882641),(10.759584,-2.664682,-4.237323),(10.610991,-3.428018,-4.165317),(10.602066,-3.976886,-4.720845),
(10.73953,-3.897977,-5.485582),(10.919868,-3.250712,-5.883667),(11.007284,-2.522494,-5.615333),(11.993578,-2.27564,-4.607554),(11.800408,-2.655638,-3.953159),
(11.747476,-3.425802,-3.834867),(11.87464,-4.006181,-4.341754),(12.086143,-3.95974,-5.092125),(12.222719,-3.321449,-5.520934),(12.181523,-2.571954,-5.305281),
(12.938805,-2.136661,-4.231965),(12.712943,-2.496943,-3.576885),(12.74371,-3.258008,-3.404315),(13.007936,-3.846758,-3.844206),(13.306656,-3.819853,-4.565309),
(13.414925,-3.197553,-5.02462),(13.251216,-2.448462,-4.876268),(13.832147,-1.833704,-3.712513),(13.558872,-2.1826,-3.069443),(13.660343,-2.920767,-2.835438),
(14.06015,-3.492352,-3.186708),(14.457231,-3.466939,-3.858741),(14.552575,-2.863665,-4.345481),(14.274386,-2.136807,-4.280404),(14.549281,-1.416344,-3.11288),
(14.219233,-1.766798,-2.497903),(14.369281,-2.473754,-2.201854),(14.886436,-3.004861,-2.447665),(15.381271,-2.960183,-3.050234),(15.481164,-2.373365,-3.555815),
(15.110893,-1.686292,-3.583695),(15.119679,-0.857953,-2.374645),(14.728651,-1.22802,-1.808877),(14.907832,-1.899096,-1.45181),(15.522296,-2.365849,-1.572324),
(16.109339,-2.276803,-2.079669),(16.226904,-1.699012,-2.591804),(15.786465,-1.067564,-2.72308),(15.45587,-0.254422,-1.601356),(15.01157,-0.661528,-1.104558),
(15.1979,-1.300587,-0.696108),(15.87455,-1.690374,-0.683578),(16.531988,-1.537373,-1.076403),(16.67515,-0.956795,-1.578778),(16.196232,-0.385828,-1.812404),
(15.553572,0.425409,-0.723871),(15.072643,-0.039145,-0.320333),(15.251274,-0.652797,0.128521),(15.954951,-0.953454,0.284693),(16.653793,-0.714715,0.030584),
(16.821554,-0.116355,-0.442458),(16.331911,0.391047,-0.778222),(15.399755,1.054887,0.120346),(14.910205,0.523561,0.416963),(15.071561,-0.077313,0.889044),
(15.762318,-0.295266,1.181103),(16.46232,0.033825,1.073213),(16.644455,0.662149,0.646617),(16.171568,1.116564,0.222552),(14.956639,1.654913,0.99988),
(14.496289,1.048361,1.173428),(14.641133,0.448363,1.651935),(15.2821,0.30673,2.075077),(15.936528,0.730115,2.124218),(16.111622,1.399699,1.762354),
(15.675529,1.811273,1.261976),(14.30788,2.108016,1.774396),(13.913507,1.435898,1.826102),(14.050363,0.82578,2.294047),(14.615392,0.737092,2.825858),
(15.183116,1.236619,3.021071),(15.326028,1.948207,2.732686),(14.936511,2.336015,2.177864),(13.39556,2.410151,2.498658),(13.110408,1.686368,2.429564),
(13.257725,1.060571,2.872986),(13.72658,1.003998,3.495016),(14.163913,1.559248,3.827254),(14.240406,2.308208,3.619518),(13.898457,2.686895,3.028237),
(12.373257,2.500098,3.073818),(12.221461,1.753604,2.901623),(12.398879,1.113375,3.312204),(12.77191,1.061517,3.996386),(13.059655,1.63708,4.438965),
(13.045436,2.406653,4.306672),(12.739961,2.790732,3.699124),(11.19944,2.350967,3.532799),(11.203134,1.61372,3.275118),(11.43436,0.968306,3.649179),
(11.719,0.900735,4.373307),(11.842714,1.461889,4.902218),(11.712343,2.229208,4.837632),(11.42606,2.624885,4.228183),(10.008658,1.978675,3.863212),
(10.1524,1.280202,3.544747),(10.449954,0.642513,3.883511),(10.677256,0.545801,4.624407),(10.663142,1.062892,5.209526),(10.418242,1.804406,5.198261),
(10.126968,2.211968,4.599095),(8.818933,1.385561,4.101535),(9.081499,0.74556,3.739037),(9.454478,0.131233,4.044711),(9.657009,0.005181,4.788376),
(9.536582,0.462324,5.410039),(9.183881,1.158423,5.441574),(8.864497,1.569302,4.859235),(7.6682,0.665795,4.316259),(7.985345,0.070188,3.923045),
(8.413142,-0.52234,4.198449),(8.62945,-0.665603,4.935086),(8.471385,-0.251721,5.578252),(8.057973,0.407645,5.643632),(7.700522,0.815978,5.081992),
(6.560173,-0.096936,4.581272),(6.878049,-0.676512,4.165347),(7.341025,-1.255343,4.411425),(7.600471,-1.397558,5.134203),(7.461018,-0.996066,5.789416),
(7.027678,-0.353199,5.883674),(6.626764,0.046951,5.345999),(5.511982,-0.762856,4.895175),(5.781828,-1.359501,4.469563),(6.233039,-1.955026,4.696951),
(6.525844,-2.100989,5.40611),(6.439755,-1.687477,6.06303),(6.039598,-1.025873,6.173036),(5.626701,-0.614378,5.653292),(4.43721,-1.262361,5.282115),
(4.605109,-1.903576,4.869078),(4.990873,-2.542971,5.097785),(5.304012,-2.699069,5.796013),(5.308727,-2.254324,6.437984),(5.001468,-1.543639,6.54028),
(4.613606,-1.102174,6.025869),(3.394315,-1.549437,5.697064),(3.445709,-2.224195,5.307183),(3.738722,-2.90604,5.550447),(4.05271,-3.08153,6.243673),
(4.151232,-2.618516,6.864848),(3.960101,-1.865658,6.946214),(3.623241,-1.389873,6.426502),(2.312983,-1.622897,6.142041),(2.23453,-2.31249,5.783917),
(2.405723,-3.024463,6.055458),(2.697649,-3.222685,6.752189),(2.890482,-2.757891,7.349456),(2.839015,-1.980081,7.397507),(2.582004,-1.474961,6.860156),
(1.220234,-1.512221,6.595923),(1.033338,-2.192476,6.260858),(1.092763,-2.91316,6.555866),(1.353762,-3.131582,7.258801),(1.619796,-2.683267,7.840339),
(1.690537,-1.905805,7.862568),(1.512716,-1.38464,7.308752),(0.113778,-1.244826,7.046737),(-0.156613,-1.902437,6.723653),(-0.194303,-2.617932,7.034448),
(0.029089,-2.852528,7.745087),(0.345345,-2.42957,8.320443),(0.516317,-1.667554,8.327263),(0.41326,-1.140294,7.76041),(-0.995499,-0.851758,7.46949),
(-1.322775,-1.482923,7.146274),(-1.442997,-2.186001,7.464353),(-1.265634,-2.431561,8.184206),(-0.924246,-2.034692,8.76377),(-0.675903,-1.294243,8.766622),
(-0.707614,-0.767788,8.190613),(-2.105348,-0.360556,7.841173),(-2.466496,-0.967483,7.507768),(-2.657319,-1.654992,7.82536),(-2.534122,-1.905374,8.554797),
(-2.189677,-1.530088,9.146797),(-1.883356,-0.811731,9.155572),(-1.845826,-0.29124,8.574515),(-3.153557,0.17842,8.102253),(-3.524442,-0.411383,7.749373),
(-3.782806,-1.079658,8.060184),(-3.734096,-1.323181,8.800635),(-3.414991,-0.958575,9.413156),(-3.065785,-0.260394,9.436503),(-2.949436,0.245616,8.853097),
(-4.207026,0.776425,8.220727),(-4.560949,0.192274,7.841976),(-4.885822,-0.453532,8.137507),(-4.937009,-0.674688,8.884781),(-4.675965,-0.304658,9.521083),
(-4.299262,0.377917,9.567266),(-4.090565,0.859044,8.988554),(-5.171455,1.332667,8.162021),(-5.470701,0.734451,7.758863),(-5.84296,0.103122,8.028666),
(-6.007915,-0.085915,8.768262),(-5.841351,0.309688,9.420719),(-5.468694,0.992034,9.494725),(-5.170563,1.447303,8.934552),(-6.175705,1.86586,7.871449),
(-6.374576,1.231325,7.461862),(-6.77073,0.602037,7.700621),(-7.065855,0.451864,8.407937),(-7.037716,0.893889,9.051186),(-6.707503,1.595258,9.145988),
(-6.323872,2.027826,8.620955),(-7.087328,2.267646,7.39628),(-7.163976,1.592002,7.012122),(-7.553267,0.950389,7.228295),(-7.962058,0.825953,7.882017),
(-8.082521,1.312399,8.481022),(-7.823945,2.043421,8.574246),(-7.381042,2.468546,8.091491),(-8.008444,2.529054,6.674912),(-7.942747,1.817591,6.359554),
(-8.294711,1.154757,6.5757),(-8.7993,1.039681,7.160588),(-9.076549,1.559016,7.673785),(-8.917682,2.321693,7.728844),(-8.44233,2.753401,7.284304),
(-8.811421,2.593357,5.828442),(-8.613717,1.870342,5.609103),(-8.91352,1.189905,5.847996),(-9.485072,1.064429,6.365229),(-9.897983,1.588399,6.771316),
(-9.841322,2.367256,6.760464),(-9.357757,2.814504,6.340846),(-9.545012,2.437004,4.82653),(-9.228112,1.730451,4.72502),(-9.465967,1.04426,5.012273),
(-10.079466,0.895147,5.471981),(-10.606631,1.395397,5.757974),(-10.650498,2.168311,5.654895),(-10.178033,2.63187,5.240364),(-10.159352,2.076622,3.779556),
(-9.750612,1.411192,3.788518),(-9.930372,0.733916,4.133381),(-10.563269,0.554798,4.554457),(-11.172718,1.008716,4.734667),(-11.299792,1.753862,4.538309),
(-10.848803,2.229125,4.113245),(-10.675928,1.523248,2.710388),(-10.19826,0.914173,2.814347),(-10.325229,0.259632,3.221042),(-10.961225,0.052506,3.624223),
(-11.62733,0.448767,3.720287),(-11.821953,1.150021,3.436895),(-11.39854,1.62821,2.987448),(-11.119709,0.852122,1.651106),(-10.5988,0.29153,1.807106),
(-10.686229,-0.344233,2.2522),(-11.316161,-0.576424,2.651223),(-12.014245,-0.230199,2.703702),(-12.254808,0.433728,2.37012),(-11.856703,0.915406,1.90167),
(-11.521913,0.141255,0.623905),(-10.974241,-0.388489,0.795291),(-11.031147,-1.015846,1.256953),(-11.649779,-1.268402,1.66125),(-12.364294,-0.955978,1.703739),
(-12.636649,-0.313835,1.352425),(-12.261754,0.17448,0.871853),(-11.849326,-0.511254,-0.370295),(-11.282343,-1.021414,-0.202328),(-11.321237,-1.664965,0.23844),
(-11.936721,-1.957299,0.620102),(-12.665323,-1.678284,0.655259),(-12.958391,-1.038023,0.317437),(-12.595239,-0.518646,-0.138977),(-12.089201,-1.05683,-1.398422),
(-11.507937,-1.556587,-1.249015),(-11.537937,-2.239532,-0.871347),(-12.156609,-2.591393,-0.54981),(-12.89808,-2.347212,-0.526527),(-13.204008,-1.690861,-0.819032),
(-12.844023,-1.116588,-1.207061),(-12.200212,-1.462425,-2.392632),(-11.600748,-1.940378,-2.243805),(-11.615217,-2.659294,-1.939015),(-12.232725,-3.077814,-1.707775),
(-12.988275,-2.880784,-1.724214),(-13.312922,-2.216572,-1.975953),(-12.962202,-1.585343,-2.273427),(-12.150368,-1.758065,-3.449571),(-11.53268,-2.203298,-3.27586),
(-11.519024,-2.952138,-3.054505),(-12.119683,-3.440694,-2.952192),(-12.882349,-3.301073,-3.045964),(-13.232718,-2.638412,-3.265209),(-12.906957,-1.951709,-3.444831),
(-11.952128,-1.921248,-4.441044),(-11.323851,-2.332567,-4.226495),(-11.26987,-3.097512,-4.078538),(-11.830833,-3.640064,-4.108586),(-12.584326,-3.551671,-4.294014),
(-12.962951,-2.898894,-4.495189),(-12.681596,-2.173287,-4.560624),(-11.579796,-1.970777,-5.445765),(-10.953308,-2.349676,-5.173926),(-10.849253,-3.11878,-5.086769),
(-11.345984,-3.69894,-5.249923),(-12.069453,-3.653282,-5.540532),(-12.474874,-3.016189,-5.73976),(-12.256956,-2.267403,-5.697585),(0.0,0.0,0.0)  --  450
);

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,311,310),(304,305,312,311),(305,306,313,312),
(306,307,314,313),(307,308,315,314),(308,309,316,315),(309,303,310,316),(310,311,318,317),(311,312,319,318),(312,313,320,319),(313,314,321,320),
(314,315,322,321),(315,316,323,322),(316,310,317,323),(317,318,325,324),(318,319,326,325),(319,320,327,326),(320,321,328,327),(321,322,329,328),
(322,323,330,329),(323,317,324,330),(324,325,332,331),(325,326,333,332),(326,327,334,333),(327,328,335,334),(328,329,336,335),(329,330,337,336),
(330,324,331,337),(331,332,339,338),(332,333,340,339),(333,334,341,340),(334,335,342,341),(335,336,343,342),(336,337,344,343),(337,331,338,344),
(338,339,346,345),(339,340,347,346),(340,341,348,347),(341,342,349,348),(342,343,350,349),(343,344,351,350),(344,338,345,351),(345,346,353,352),
(346,347,354,353),(347,348,355,354),(348,349,356,355),(349,350,357,356),(350,351,358,357),(351,345,352,358),(352,353,360,359),(353,354,361,360),
(354,355,362,361),(355,356,363,362),(356,357,364,363),(357,358,365,364),(358,352,359,365),(359,360,367,366),(360,361,368,367),(361,362,369,368),
(362,363,370,369),(363,364,371,370),(364,365,372,371),(365,359,366,372),(366,367,374,373),(367,368,375,374),(368,369,376,375),(369,370,377,376),
(370,371,378,377),(371,372,379,378),(372,366,373,379),(373,374,381,380),(374,375,382,381),(375,376,383,382),(376,377,384,383),(377,378,385,384),
(378,379,386,385),(379,373,380,386),(380,381,388,387),(381,382,389,388),(382,383,390,389),(383,384,391,390),(384,385,392,391),(385,386,393,392),
(386,380,387,393),(387,388,395,394),(388,389,396,395),(389,390,397,396),(390,391,398,397),(391,392,399,398),(392,393,400,399),(393,387,394,400),
(394,395,402,401),(395,396,403,402),(396,397,404,403),(397,398,405,404),(398,399,406,405),(399,400,407,406),(400,394,401,407),(401,402,409,408),
(402,403,410,409),(403,404,411,410),(404,405,412,411),(405,406,413,412),(406,407,414,413),(407,401,408,414),(408,409,416,415),(409,410,417,416),
(410,411,418,417),(411,412,419,418),(412,413,420,419),(413,414,421,420),(414,408,415,421),(415,416,423,422),(416,417,424,423),(417,418,425,424),
(418,419,426,425),(419,420,427,426),(420,421,428,427),(421,415,422,428),(422,423,430,429),(423,424,431,430),(424,425,432,431),(425,426,433,432),
(426,427,434,433),(427,428,435,434),(428,422,429,435),(429,430,437,436),(430,431,438,437),(431,432,439,438),(432,433,440,439),(433,434,441,440),
(434,435,442,441),(435,429,436,442),(436,437,444,443),(437,438,445,444),(438,439,446,445),(439,440,447,446),(440,441,448,447),(441,442,449,448),
(442,436,443,449),(443,444,3,2),(444,445,4,3),(445,446,5,4),(446,447,6,5),(447,448,7,6),(448,449,8,7),(449,443,2,8),
(449,443,2,8)--  449
);
-- last index now: 450
-- end Separator # 3
-- last index now: 450
-- 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.9,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),(-12.625299,3.437845,-3.993847),(-12.180159,3.123313,-3.434502),(-12.032435,2.368966,-3.296355),(-12.293367,1.742842,-3.683434),
(-12.766468,1.716426,-4.30426),(-13.095482,2.309609,-4.691338),(-13.032657,3.075712,-4.553192),(-11.47416,3.360709,-4.675451),(-11.139939,3.078268,-4.028559),
(-11.067476,2.334064,-3.803044),(-11.311338,1.688498,-4.168725),(-11.687892,1.627694,-4.850235),(-11.913585,2.197438,-5.334384),(-11.818465,2.968702,-5.256598),
(-10.254331,3.144355,-5.167155),(-10.037432,2.908807,-4.454822),(-10.054944,2.188352,-4.153851),(-10.29368,1.525506,-4.490878),(-10.573867,1.419407,-5.212116),
(-10.684519,1.949949,-5.774457),(-10.542312,2.717623,-5.754448),(-8.951643,2.776411,-5.464114),(-8.855909,2.602431,-4.708791),(-8.976971,1.921007,-4.346918),
(-9.223665,1.245266,-4.650992),(-9.410228,1.084053,-5.392039),(-9.396173,1.558766,-6.012036),(-9.192083,2.311936,-6.044113),(-7.650796,2.275264,-5.583641),
(-7.646942,2.164754,-4.810518),(-7.863908,1.531598,-4.408044),(-8.138314,0.852574,-4.67929),(-8.263528,0.639002,-5.420002),(-8.145261,1.051705,-6.07241),
(-7.87257,1.77991,-6.145236),(-6.381259,1.648832,-5.566834),(-6.439421,1.598008,-4.789672),(-6.740137,1.01877,-4.360719),(-7.056961,0.347297,-4.602985),
(-7.151318,0.089221,-5.334039),(-6.952156,0.438878,-6.003383),(-6.609447,1.13297,-6.106987),(-5.176418,0.967215,-5.516524),(-5.238159,0.949065,-4.738189),
(-5.571101,0.40403,-4.288708),(-5.924531,-0.257468,-4.50655),(-6.03231,-0.537306,-5.227674),(-5.813277,-0.224762,-5.90906),(-5.43237,0.444813,-6.037611),
(-4.027765,0.28222,-5.53685),(-4.041719,0.267835,-4.756116),(-4.358154,-0.268301,-4.284551),(-4.738787,-0.922466,-4.477251),(-4.896994,-1.20206,-5.18911),
(-4.713642,-0.896544,-5.884084),(-4.326799,-0.235977,-6.038843),(-2.942141,-0.3191,-5.682028),(-2.876461,-0.345046,-4.904237),(-3.12514,-0.898725,-4.412765),
(-3.500919,-1.563204,-4.5777),(-3.720828,-1.838118,-5.274843),(-3.619271,-1.516451,-5.979231),(-3.272723,-0.840424,-6.160446),(-1.863189,-0.791476,-6.006105),
(-1.685628,-0.83504,-5.246816),(-1.809458,-1.425513,-4.750879),(-2.141434,-2.118258,-4.891746),(-2.43157,-2.391623,-5.56334),(-2.461388,-2.039759,-6.259938),
(-2.208435,-1.327626,-6.456987),(-0.806633,-1.11827,-6.470378),(-0.531336,-1.162673,-5.740867),(-0.525139,-1.777511,-5.259326),(-0.79271,-2.4998,-5.388366),
(-1.132561,-2.785641,-6.030816),(-1.288778,-2.41979,-6.702899),(-1.143727,-1.677741,-6.898523),(0.254641,-1.289879,-7.068881),(0.610839,-1.319588,-6.374485),
(0.748405,-1.942583,-5.924041),(0.563748,-2.689737,-6.056744),(0.195919,-2.998426,-6.672665),(-0.0781,-2.636203,-7.308003),(-0.051966,-1.875828,-7.484336),
(1.292251,-1.296119,-7.712352),(1.685148,-1.299114,-7.037394),(1.928539,-1.91158,-6.618355),(1.839145,-2.672318,-6.770782),(1.484282,-3.008476,-7.379894),
(1.131169,-2.666921,-7.987016),(1.045707,-1.90485,-8.134974),(2.356227,-1.118559,-8.363541),(2.745788,-1.094858,-7.687059),(3.0746,-1.683944,-7.293604),
(3.095061,-2.442223,-7.479455),(2.791763,-2.798696,-8.104662),(2.393097,-2.484931,-8.698432),(2.199265,-1.7372,-8.813644),(3.376971,-0.793912,-8.894376),
(3.7148,-0.758678,-8.191113),(4.08968,-1.322717,-7.802178),(4.21932,-2.061296,-8.020445),(4.006097,-2.418251,-8.681555),(3.610574,-2.124786,-9.287678),
(3.330586,-1.401888,-9.382393),(4.494588,-0.288092,-9.263469),(4.723115,-0.27459,-8.516783),(5.102006,-0.825703,-8.113468),(5.345949,-1.52643,-8.357229),
(5.271249,-1.849111,-9.064507),(4.934157,-1.55076,-9.702709),(4.58851,-0.856041,-9.791256),(5.549845,0.273363,-9.391155),(5.64423,0.242495,-8.616503),
(5.987854,-0.313958,-8.189619),(6.32196,-0.976975,-8.431955),(6.39496,-1.247292,-9.161028),(6.151884,-0.921354,-9.827829),(5.775772,-0.244599,-9.930246),
(6.693075,0.912148,-9.233226),(6.621972,0.813853,-8.461715),(6.883545,0.225556,-8.019637),(7.280826,-0.409743,-8.239887),(7.514653,-0.613651,-8.956611),
(7.408949,-0.232622,-9.630101),(7.043313,0.446423,-9.753206),(7.733748,1.477118,-8.821392),(7.505469,1.318204,-8.091611),(7.665802,0.689214,-7.657316),
(8.094012,0.063791,-7.84554),(8.467649,-0.087109,-8.514547),(8.505357,0.350144,-9.160562),(8.178741,1.046291,-9.29712),(8.770812,1.969729,-8.116167),
(8.393999,1.763887,-7.463797),(8.433433,1.090229,-7.070634),(8.859419,0.456034,-7.232739),(9.351181,0.338863,-7.828043),(9.538413,0.826948,-8.40827),
(9.280125,1.552752,-8.536497),(9.665026,2.29683,-7.231826),(9.163734,2.068223,-6.678298),(9.084803,1.361944,-6.354436),(9.487667,0.709837,-6.504113),
(10.068962,0.602951,-7.014621),(10.390961,1.121774,-7.501535),(10.211192,1.875621,-7.598201),(10.46928,2.450298,-6.135442),(9.866426,2.223499,-5.69377),
(9.673382,1.501531,-5.466959),(10.035516,0.828052,-5.625801),(10.680133,0.710204,-6.050686),(11.121823,1.23673,-6.421667),(11.027985,2.011145,-6.459387),
(11.106834,2.40296,-4.953667),(10.427681,2.201028,-4.625154),(10.135509,1.485766,-4.511214),(10.450328,0.795782,-4.697646),(11.135075,0.650647,-5.044062),
(11.67412,1.159652,-5.289605),(11.661552,1.939504,-5.249375),(11.597011,2.142521,-3.670494),(10.864453,1.985231,-3.450116),(10.489333,1.300302,-3.460253),
(10.754123,0.603498,-3.693273),(11.45943,0.419529,-3.973707),(12.074144,0.886925,-4.090382),(12.135373,1.653729,-3.95544),(11.933586,1.684631,-2.385422),
(11.171595,1.582841,-2.247747),(10.73477,0.947634,-2.372817),(10.952049,0.257334,-2.666452),(11.659817,0.031751,-2.90754),(12.325109,0.440753,-2.914535),
(12.446949,1.176354,-2.682171),(12.14364,1.040059,-1.128532),(11.368279,0.995924,-1.045974),(10.886412,0.423951,-1.27091),(11.060891,-0.245152,-1.63396),
(11.760332,-0.507537,-1.861738),(12.45804,-0.165622,-1.782724),(12.628629,0.523123,-1.456417),(12.277404,0.31361,0.061922),(11.499166,0.311352,0.12739),
(10.989247,-0.214564,-0.143428),(11.131629,-0.868114,-0.546599),(11.819094,-1.157161,-0.778527),(12.533967,-0.864046,-0.664567),(12.737934,-0.209492,-0.290532),
(12.397467,-0.406691,1.189472),(11.620631,-0.384257,1.266733),(11.089566,-0.888708,0.995724),(11.204174,-1.540181,0.580521),(11.878154,-1.848105,0.33378),
(12.603984,-1.580606,0.441302),(12.8351,-0.939117,0.82212),(12.471772,-1.018121,2.275544),(11.69594,-0.958334,2.342299),(11.14621,-1.454822,2.094828),
(11.236539,-2.133719,1.719481),(11.898908,-2.483802,1.498902),(12.634541,-2.241451,1.599192),(12.889488,-1.589162,1.94483),(12.467423,-1.461678,3.423016),
(11.694524,-1.351784,3.445291),(11.126099,-1.848363,3.244672),(11.190184,-2.577482,2.972229),(11.838521,-2.990099,2.833118),(12.5829,-2.775506,2.932091),
(12.862788,-2.095294,3.19462),(12.352695,-1.698162,4.522278),(11.590694,-1.538222,4.461262),(11.003446,-2.023707,4.289828),(11.033157,-2.789036,4.137069),
(11.657456,-3.257901,4.118016),(12.406233,-3.077237,4.247016),(12.715643,-2.383088,4.42693),(12.0589,-1.720626,5.691496),(11.327633,-1.524857,5.49948),
(10.725228,-1.993876,5.334929),(10.70531,-2.774501,5.321751),(11.282875,-3.278907,5.469871),(12.023006,-3.127265,5.667751),(12.36837,-2.433765,5.766384),
(11.621448,-1.544311,6.721513),(10.946087,-1.341,6.386103),(10.33795,-1.794961,6.201617),(10.254975,-2.564351,6.306975),(10.759645,-3.069804,6.622841),
(11.471933,-2.930705,6.911362),(11.855471,-2.251796,6.955275),(10.957516,-1.148498,7.687411),(10.373084,-0.973569,7.199778),(9.777694,-1.424599,6.971679),
(9.619687,-2.161953,7.174876),(10.018045,-2.630389,7.656359),(10.672797,-2.477165,8.05356),(11.0909,-1.817661,8.067379),(10.172201,-0.631285,8.407927),
(9.706137,-0.512418,7.792621),(9.145796,-0.976831,7.509276),(8.913125,-1.674812,7.771257),(9.183332,-2.080767,8.381286),(9.752944,-1.889003,8.879999),
(10.193032,-1.243923,8.891856),(9.172366,0.029774,8.904894),(8.857975,0.064722,8.190832),(8.363928,-0.435842,7.851274),(8.062252,-1.094983,8.141912),
(8.180116,-1.416355,8.843891),(8.628765,-1.157959,9.428606),(9.070358,-0.514371,9.455755),(8.109386,0.686674,9.098424),(7.957672,0.635096,8.334049),
(7.555477,0.084294,7.953519),(7.205662,-0.550967,8.243381),(7.171646,-0.792322,8.985362),(7.479042,-0.458027,9.620736),(7.896376,0.200188,9.671054),
(6.903634,1.33269,8.979961),(6.926239,1.197474,8.211097),(6.646096,0.584812,7.815987),(6.27416,-0.043949,8.092156),(6.090506,-0.215339,8.831645),
(6.233429,0.199702,9.477602),(6.595305,0.88864,9.543609),(5.688231,1.84202,8.599706),(5.862302,1.65512,7.861658),(5.714151,0.990128,7.479843),
(5.35534,0.347795,7.741776),(5.056059,0.211811,8.450215),(5.041675,0.684575,9.071692),(5.323018,1.410086,9.138222),(4.424256,2.177562,7.990325),
(4.724543,1.970629,7.299708),(4.716862,1.269478,6.955797),(4.406996,0.60209,7.217566),(4.028281,0.471022,7.887896),(3.865897,0.97497,8.462015),
(4.042122,1.734452,8.507601),(3.168817,2.310758,7.280949),(3.541708,2.117232,6.622582),(3.650949,1.407533,6.315435),(3.41428,0.716077,6.590796),
(3.009916,0.563546,7.241312),(2.742352,1.064798,7.777132),(2.81307,1.842381,7.794772),(1.902252,2.248902,6.569272),(2.297347,2.083691,5.916163),
(2.499754,1.38447,5.633199),(2.357056,0.677767,5.933458),(1.976708,0.495745,6.590839),(1.645119,0.975469,7.11032),(1.611983,1.755697,7.100722),
(0.644627,2.033375,5.948752),(1.018372,1.894992,5.277104),(1.280203,1.214702,4.996754),(1.232957,0.504777,5.318812),(0.91221,0.299805,6.000761),
(0.559492,0.754135,6.52908),(0.440406,1.525646,6.505934),(-0.644542,1.696062,5.479178),(-0.337337,1.572403,4.771873),(-0.050401,0.909601,4.474708),
(0.0002,0.206758,4.811455),(-0.22364,-0.006869,5.528537),(-0.553363,0.429583,6.085975),(-0.740682,1.187459,6.064009),(-1.905106,1.264299,5.203188),
(-1.684568,1.144218,4.463668),(-1.387593,0.49693,4.14309),(-1.237809,-0.190144,4.482855),(-1.348007,-0.399624,5.227114),(-1.635205,0.026234,5.815424),
(-1.883137,0.766749,5.804776),(-3.184296,0.726823,5.137835),(-3.073042,0.595701,4.376011),(-2.783033,-0.040887,4.028739),(-2.532652,-0.703577,4.357522),
(-2.510442,-0.893349,5.11478),(-2.733126,-0.467303,5.730282),(-3.033019,0.253742,5.740542),(-4.406053,0.153157,5.254363),(-4.393116,0.008476,4.486999),
(-4.126541,-0.624525,4.115254),(-3.807066,-1.269184,4.41906),(-3.675261,-1.440059,5.169643),(-3.830379,-1.008478,5.801801),(-4.155612,-0.29943,5.839504),
(-5.596862,-0.428151,5.512635),(-5.66771,-0.583141,4.750463),(-5.437304,-1.218642,4.359314),(-5.079143,-1.856109,4.633731),(-4.862932,-2.015516,5.367072),
(-4.95148,-1.576826,6.007116),(-5.27811,-0.870382,6.071898),(-6.748751,-0.943136,5.815424),(-6.863358,-1.089128,5.056808),(-6.677885,-1.730001,4.650819),
(-6.331996,-2.383166,4.903174),(-6.086153,-2.556775,5.623846),(-6.12548,-2.120098,6.270153),(-6.420364,-1.401961,6.355413),(-7.932901,-1.353919,6.087315),
(-8.048635,-1.470044,5.323727),(-7.915089,-2.11464,4.903478),(-7.632825,-2.80231,5.143024),(-7.414395,-3.015227,5.861983),(-7.42428,-2.593059,6.518963),
(-7.655037,-1.853707,6.619245),(-9.08248,-1.623022,6.26787),(-9.165982,-1.698951,5.495077),(-9.078229,-2.339105,5.056386),(-8.885302,-3.061434,5.282141),
(-8.732477,-3.322011,6.002343),(-8.734837,-2.924616,6.674665),(-8.890603,-2.168494,6.792836),(-10.303565,-1.747853,6.315417),(-10.311304,-1.778716,5.535075),
(-10.258607,-2.405394,5.071994),(-10.185154,-3.155985,5.274883),(-10.146258,-3.465279,5.990963),(-10.171208,-3.100372,6.681011),(-10.241217,-2.336045,6.825407),
(-11.444291,-1.71499,6.215058),(-11.35469,-1.70983,5.439241),(-11.322112,-2.316734,4.94878),(-11.37109,-3.078691,5.113001),(-11.464741,-3.421932,5.808244),
(-11.532545,-3.087989,6.510975),(-11.523444,-2.328329,6.692024),(-12.597589,-1.511394,5.933065),(-12.387495,-1.48509,5.181324),(-12.357185,-2.068927,4.66348),
(-12.529483,-2.823264,4.769481),(-12.774645,-3.180069,5.419505),(-12.908059,-2.870662,6.124072),(-12.829262,-2.128032,6.352627),(-13.60292,-1.174847,5.5011),
(-13.265955,-1.147552,4.797071),(-13.216146,-1.711308,4.258885),(-13.490999,-2.441594,4.291805),(-13.883546,-2.788491,4.871043),(-14.098189,-2.490777,5.560421),
(-13.973299,-1.772638,5.840822),(-14.519393,-0.679513,4.863712),(-14.05242,-0.674625,4.237726),(-13.963421,-1.226467,3.692294),(-14.319413,-1.919491,3.638138),
(-14.852328,-2.231836,4.116039),(-15.160869,-1.9283,4.766127),(-15.012698,-1.237451,5.098873),(-15.215153,-0.11265,4.105749),(-14.636213,-0.149052,3.582824),
(-14.495667,-0.702183,3.049683),(-14.899349,-1.355524,2.907793),(-15.543278,-1.617096,3.263999),(-15.942561,-1.28993,3.850071),(-15.796533,-0.620388,4.224685),
(-15.715336,0.549911,3.15982),(-15.046008,0.454321,2.768911),(-14.848752,-0.116125,2.273302),(-15.272106,-0.731869,2.046196),(-15.997275,-0.929244,2.258609),
(-16.478193,-0.559622,2.750589),(-16.352718,0.098664,3.151665),(-15.955383,1.195608,2.157389),(-15.231543,1.037321,1.910516),(-14.986084,0.438021,1.474012),
(-15.403843,-0.151007,1.176574),(-16.170238,-0.286214,1.242178),(-16.708158,0.134216,1.621423),(-16.612539,0.793688,2.028731),(-15.93934,1.839069,1.035999),
(-15.195893,1.617554,0.945637),(-14.917516,0.979382,0.591816),(-15.31383,0.40511,0.24097),(-16.086405,0.327176,0.157294),(-16.653475,0.804266,0.403796),
(-16.588024,1.477121,0.794857),(-15.683636,2.386403,-0.060988),(-14.954137,2.114168,-0.000433),(-14.66359,1.43778,-0.261255),(-15.030784,0.866571,-0.647049),
(-15.779212,0.830675,-0.867304),(-16.345295,1.357121,-0.756164),(-16.302759,2.049484,-0.39732),(-15.182621,2.847742,-1.181229),(-14.495765,2.537982,-0.975745),
(-14.215641,1.826364,-1.134102),(-14.55319,1.24875,-1.537054),(-15.25423,1.240096,-1.881169),(-15.790862,1.806919,-1.907323),(-15.758993,2.522388,-1.595821),
(-14.500463,3.174645,-2.207826),(-13.877792,2.844521,-1.871306),(-13.626765,2.107225,-1.928986),(-13.93641,1.517956,-2.337434),(-14.573558,1.520446,-2.789078),
(-15.058424,2.11282,-2.943822),(-15.025893,2.849007,-2.685141),(-13.620881,3.376082,-3.17034),(-13.080347,3.041492,-2.716667),(-12.876413,2.288662,-2.676609),
(-13.162646,1.684489,-3.080331),(-13.723507,1.683926,-3.623822),(-14.136655,2.287399,-3.897822),(-14.090982,3.040479,-3.696003),(0.0,0.0,0.0)  --  450
);

idx_5: constant Idx_4_array_array:=
( (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,453,452),(894,895,454,453),(895,896,455,454),(896,897,456,455),(897,898,457,456),(898,899,458,457),(899,893,452,458),
(899,893,452,458)--  449
);
-- last index now: 900
-- end Separator # 5
-- last index now: 900
-- 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.9,0.9,0.0,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 25.6
);
-- begin Separator # 7
coord_7: constant Point_3D_array:=
( (0.0,0.0,0.0),(-6.376352,5.328168,-1.540074),(-6.070719,5.679021,-0.912829),(-5.320843,5.832754,-0.757912),(-4.691397,5.673601,-1.19198),
(-4.656366,5.321408,-1.888169),(-5.242129,5.041384,-2.322236),(-6.007595,5.044392,-2.167319),(-6.485922,6.514995,-2.107356),(-6.199347,6.836305,-1.455757),
(-5.454991,6.98752,-1.274057),(-4.813369,6.854772,-1.699081),(-4.757635,6.538023,-2.410776),(-5.329758,6.275791,-2.873222),(-6.098918,6.265543,-2.738187),
(-6.535105,7.722686,-2.589358),(-6.268133,7.988441,-1.905218),(-5.52835,8.102168,-1.682208),(-4.872828,7.97823,-2.088258),(-4.795188,7.709954,-2.817604),
(-5.353895,7.499358,-3.321035),(-6.128231,7.505023,-3.219456),(-6.463151,9.032092,-2.97866),(-6.222556,9.212966,-2.258004),(-5.492541,9.247053,-1.982572),
(-4.822823,9.108685,-2.359769),(-4.717712,8.902056,-3.105559),(-5.25636,8.782762,-3.658347),(-6.033154,8.840633,-3.601871),(-6.259377,10.305442,-3.221026),
(-6.055926,10.393342,-2.472141),(-5.347245,10.332218,-2.14968),(-4.666985,10.168099,-2.496461),(-4.527396,10.02457,-3.251352),(-5.03359,10.009709,-3.845904),
(-5.804395,10.134709,-3.832408),(-5.893178,11.614667,-3.312196),(-5.740847,11.602067,-2.546309),(-5.069869,11.428972,-2.186068),(-4.385504,11.225726,-2.502742),
(-4.203094,11.145378,-3.257869),(-4.659995,11.24843,-3.882823),(-5.412154,11.457284,-3.907001),(-5.393398,12.825252,-3.238433),(-5.305136,12.715962,-2.47018),
(-4.689328,12.42611,-2.087148),(-4.009691,12.173961,-2.377769),(-3.778005,12.149386,-3.123197),(-4.168734,12.370893,-3.762112),(-4.887652,12.671681,-3.813396),
(-4.725266,13.98811,-2.982755),(-4.7151,13.787712,-2.22798),(-4.175105,13.377839,-1.840223),(-3.511907,13.067133,-2.111473),(-3.224908,13.089561,-2.837472),
(-3.530224,13.428236,-3.471529),(-4.197946,13.828127,-3.536186),(-3.946026,14.972869,-2.574493),(-4.023039,14.697922,-1.847569),(-3.579166,14.173958,-1.475567),
(-2.948652,13.795533,-1.738614),(-2.606287,13.847609,-2.438629),(-2.809879,14.290971,-3.048487),(-3.406119,14.791759,-3.108952),(-3.000165,15.804769,-1.984946),
(-3.174042,15.473422,-1.299437),(-2.851197,14.845018,-0.96653),(-2.27474,14.392759,-1.23691),(-1.878754,14.457206,-1.906976),(-1.961424,14.989826,-2.472154),
(-2.460499,15.589549,-2.506854),(-1.994632,16.364449,-1.302622),(-2.263081,16.004566,-0.663587),(-2.077889,15.297279,-0.389002),(-1.57851,14.775191,-0.685635),
(-1.140987,14.831444,-1.330116),(-1.094783,15.423678,-1.837137),(-1.474691,16.10593,-1.824901),(-0.8574,16.647884,-0.496073),(-1.217893,16.285639,0.094494),
(-1.191661,15.530261,0.291119),(-0.798457,14.950563,-0.054262),(-0.334371,14.983071,-0.681569),(-0.148869,15.603306,-1.118427),(-0.381639,16.344217,-1.035874),
(0.246087,16.605656,0.285541),(-0.188529,16.265408,0.838068),(-0.321727,15.50449,0.953003),(-0.053205,14.89589,0.543798),(0.414834,14.897896,-0.081407),
(0.729947,15.508996,-0.451821),(0.654848,16.26902,-0.288514),(1.392319,16.206373,1.065255),(0.90092,15.904804,1.592066),(0.604053,15.183139,1.623926),
(0.725266,14.584804,1.136843),(1.173282,14.560359,0.497601),(1.610737,15.128211,0.187562),(1.708217,15.860756,0.440192),(2.397065,15.528724,1.681942),
(1.875278,15.268491,2.201522),(1.435879,14.623641,2.16921),(1.409746,14.079759,1.609339),(1.816557,14.046399,0.943502),(2.349975,14.548682,0.673089),
(2.608326,15.208378,1.001725),(3.328698,14.523492,2.139395),(2.799103,14.296432,2.666577),(2.234166,13.762575,2.590494),(2.059295,13.323926,1.968438),
(2.406171,13.310796,1.268831),(3.01359,13.733072,1.01849),(3.424153,14.272773,1.405928),(4.051902,13.382608,2.340013),(3.53471,13.167389,2.8842),
(2.878488,12.753302,2.795596),(2.577384,12.452164,2.140921),(2.858135,12.490738,1.41316),(3.509331,12.839977,1.16033),(4.040607,13.236897,1.572819),
(4.61855,12.068539,2.268444),(4.126699,11.83738,2.829331),(3.406654,11.544171,2.755096),(3.000625,11.409704,2.10164),(3.214359,11.535235,1.361028),
(3.88691,11.826238,1.090956),(4.511834,12.06358,1.494794),(5.000434,10.782109,1.937102),(4.538838,10.508777,2.504697),(3.78608,10.304657,2.464232),
(3.309003,10.323457,1.846179),(3.466856,10.55102,1.115943),(4.140771,10.815987,0.823408),(4.823278,10.918831,1.188858),(5.255222,9.53734,1.36048),
(4.823884,9.200309,1.917529),(4.057453,9.050215,1.915946),(3.533068,9.200081,1.356923),(3.645602,9.537055,0.661415),(4.310313,9.807389,0.353155),
(5.026661,9.807516,0.664268),(5.464918,8.40544,0.65387),(5.061988,8.008794,1.192634),(4.296101,7.857492,1.21432),(3.743984,8.065469,0.702599),
(3.821392,8.476112,0.042807),(4.470036,8.780201,-0.26822),(5.201474,8.748749,0.003729),(5.719446,7.382324,-0.090405),(5.347095,6.932343,0.42807),
(4.591602,6.735425,0.448084),(4.02187,6.939853,-0.045434),(4.066918,7.391689,-0.680856),(4.692824,7.750691,-0.979696),(5.428269,7.746523,-0.716921),
(6.040448,6.405621,-0.762237),(5.690423,5.948326,-0.234687),(4.949716,5.701204,-0.219481),(4.376095,5.850345,-0.728069),(4.401508,6.283442,-1.377475),
(5.006818,6.674363,-1.678683),(5.736215,6.728738,-1.404876),(6.471271,5.374767,-1.279312),(6.123612,4.961517,-0.715127),(5.402517,4.661743,-0.704991),
(4.850983,4.70118,-1.256536),(4.884327,5.050132,-1.954437),(5.477441,5.445831,-2.273162),(6.183697,5.590308,-1.972703),(6.946704,4.327074,-1.587743),
(6.58069,3.99519,-0.982901),(5.870433,3.671097,-0.961788),(5.350772,3.598844,-1.540301),(5.413021,3.832839,-2.282809),(6.010306,4.196878,-2.630188),
(6.69286,4.416833,-2.320854),(7.462284,3.163642,-1.658446),(7.055802,2.954459,-1.025231),(6.342512,2.638722,-0.98684),(5.859536,2.454185,-1.572184),
(5.970565,2.53981,-2.340486),(6.591991,2.831119,-2.713198),(7.255868,3.10875,-2.409662),(7.950475,1.955216,-1.524324),(7.511827,1.861652,-0.884965),
(6.786293,1.57799,-0.82944),(6.320215,1.317834,-1.399561),(6.46456,1.277086,-2.166014),(7.110633,1.48643,-2.551645),(7.771927,1.788226,-2.266067),
(8.375302,0.691308,-1.226986),(7.917281,0.70117,-0.594479),(7.173873,0.47124,-0.527972),(6.70488,0.17466,-1.077547),(6.863463,0.034761,-1.829362),
(7.530206,0.156889,-2.217285),(8.203038,0.44908,-1.949203),(8.722711,-0.580095,-0.820617),(8.260751,-0.491363,-0.197186),(7.504071,-0.669699,-0.122496),
(7.022467,-0.980814,-0.65279),(7.178596,-1.190431,-1.388746),(7.85489,-1.140704,-1.776174),(8.542086,-0.869079,-1.523332),(8.995065,-1.858744,-0.350318),
(8.539858,-1.712598,0.267237),(7.773834,-1.841059,0.348801),(7.273826,-2.147393,-0.167046),(7.416349,-2.400924,-0.891859),(8.09408,-2.410739,-1.279841),
(8.796675,-2.169446,-1.038833),(9.152303,-3.104751,0.151347),(8.707985,-2.898499,0.759613),(7.933368,-2.958267,0.839259),(7.411756,-3.239049,0.330311),
(7.535932,-3.529411,-0.383983),(8.21239,-3.610704,-0.765746),(8.931743,-3.421712,-0.527502),(9.157942,-4.392444,0.701499),(8.731201,-4.121468,1.296822),
(7.953744,-4.088749,1.363436),(7.411013,-4.318926,0.851178),(7.511695,-4.63867,0.145789),(8.179975,-4.807208,-0.221558),(8.912623,-4.697628,0.025756),
(8.97551,-5.606335,1.199587),(8.576022,-5.283522,1.787931),(7.810059,-5.138366,1.834578),(7.254405,-5.280172,1.304402),(7.327479,-5.602158,0.596637),
(7.974256,-5.861862,0.244244),(8.707698,-5.86372,0.512582),(8.531916,-6.86863,1.63966),(8.167513,-6.51177,2.231105),(7.438706,-6.232221,2.256392),
(6.894301,-6.24049,1.69648),(6.944248,-6.530351,0.972993),(7.550933,-6.883531,0.630733),(8.257512,-7.03408,0.927428),(7.896312,-7.991667,1.911246),
(7.561279,-7.63167,2.517959),(6.890792,-7.231637,2.53716),(6.389743,-7.092802,1.95439),(6.435431,-7.31971,1.208487),(6.993453,-7.741494,0.86113),
(7.643606,-8.040544,1.173887),(7.028785,-9.060321,1.989018),(6.704863,-8.728894,2.617649),(6.108276,-8.225921,2.65002),(5.688266,-7.930149,2.061754),
(5.761109,-8.064302,1.295827),(6.271953,-8.527359,0.928999),(6.836122,-8.97063,1.237497),(6.071282,-9.949444,1.849459),(5.735626,-9.66543,2.494918),
(5.208643,-9.092488,2.557954),(4.887163,-8.662056,1.991099),(5.013266,-8.698256,1.221207),(5.491994,-9.173831,0.828022),(5.962856,-9.730661,1.10762),
(5.025937,-10.7065,1.483442),(4.65406,-10.481957,2.132468),(4.183034,-9.867659,2.236001),(3.967553,-9.326183,1.716079),(4.169878,-9.265273,0.964214),
(4.637654,-9.730795,0.546575),(5.018636,-10.372201,0.777653),(3.982296,-11.322053,0.939975),(3.566761,-11.152485,1.579134),(3.127962,-10.522338,1.721675),
(2.996325,-9.906127,1.260262),(3.270973,-9.767871,0.542348),(3.745092,-10.211679,0.108538),(4.061661,-10.903356,0.285498),(2.977326,-11.83114,0.262107),
(2.516725,-11.710907,0.88125),(2.087253,-11.081844,1.053822),(2.012311,-10.417649,0.649872),(2.348332,-10.218473,-0.026416),(2.842285,-10.634301,-0.465784),
(3.122214,-11.352005,-0.337379),(1.974232,-12.286137,-0.479692),(1.499453,-12.197506,0.134047),(1.073857,-11.574076,0.334418),(1.017926,-10.885301,-0.029462),
(1.373779,-10.649844,-0.683584),(1.87345,-11.045009,-1.135381),(2.140676,-11.773228,-1.044641),(0.965157,-12.72024,-1.200429),(0.505785,-12.649345,-0.572816),
(0.083475,-12.032922,-0.345611),(0.016234,-11.335148,-0.689904),(0.354697,-11.081463,-1.346435),(0.843994,-11.462895,-1.820823),(1.115674,-12.19222,-1.755845),
(-0.099039,-13.102483,-1.853501),(-0.509514,-13.035973,-1.192416),(-0.894705,-12.414072,-0.918894),(-0.964555,-11.705086,-1.238902),(-0.666466,-11.442894,-1.911468),
(-0.224905,-11.824933,-2.430136),(0.027624,-12.563519,-2.404338),(-1.327458,-13.407648,-2.404708),(-1.645781,-13.334502,-1.695295),(-1.946713,-12.696547,-1.360035),
(-2.003646,-11.974175,-1.651386),(-1.773708,-11.711349,-2.349954),(-1.430047,-12.105981,-2.929703),(-1.231447,-12.860905,-2.954071),(-2.577322,-13.56487,-2.784798),
(-2.794306,-13.493999,-2.03791),(-2.985262,-12.846204,-1.64568),(-3.006397,-12.109287,-1.903466),(-2.841796,-11.838162,-2.61715),(-2.615406,-12.236992,-3.249312),
(-2.497704,-13.005448,-3.323923),(-3.948953,-13.543943,-3.008089),(-4.054769,-13.488137,-2.236315),(-4.104733,-12.844385,-1.79696),(-4.061221,-12.097445,-2.020866),
(-3.956998,-11.809779,-2.739429),(-3.870546,-12.198005,-3.411555),(-3.866966,-12.96978,-3.53112),(-5.253666,-13.340799,-3.048497),(-5.254034,-13.315456,-2.267918),
(-5.15965,-12.696744,-1.800764),(-5.041587,-11.950563,-1.998813),(-4.98875,-11.638805,-2.712929),(-5.040925,-11.99623,-3.405368),(-5.158824,-12.753688,-3.55471),
(-6.558746,-12.93921,-2.90739),(-6.46089,-12.958494,-2.132794),(-6.220472,-12.386923,-1.657977),(-6.018532,-11.6549,-1.840486),(-6.007134,-11.313654,-2.542888),
(-6.194862,-11.620151,-3.236259),(-6.440352,-12.343591,-3.398479),(-7.717383,-12.37799,-2.608333),(-7.536288,-12.453403,-1.85238),(-7.158103,-11.950521,-1.389743),
(-6.867611,-11.248026,-1.568795),(-6.883557,-10.874908,-2.254708),(-7.193933,-11.112136,-2.930974),(-7.565021,-11.78107,-3.088352),(-8.770395,-11.622105,-2.136609),
(-8.521362,-11.763575,-1.410032),(-8.01556,-11.352341,-0.979918),(-7.633868,-10.698071,-1.170153),(-7.663709,-10.293444,-1.837486),(-8.082611,-10.443151,-2.479401),
(-8.575133,-11.034461,-2.612523),(-9.593864,-10.739676,-1.559771),(-9.301628,-10.95,-0.866728),(-8.689534,-10.650465,-0.485196),(-8.218502,-10.066629,-0.702476),
(-8.243229,-9.638132,-1.354952),(-8.745094,-9.68764,-1.951296),(-9.346184,-10.177875,-2.042449),(-10.198182,-9.675139,-0.863186),(-9.885588,-9.95432,-0.20418),
(-9.191717,-9.788917,0.113833),(-8.63907,-9.303482,-0.148618),(-8.6438,-8.863558,-0.793902),(-9.202347,-8.800416,-1.336106),(-9.894112,-9.161604,-1.36694),
(-10.501635,-8.540831,-0.164947),(-10.195196,-8.873974,0.471494),(-9.456936,-8.851561,0.725298),(-8.842779,-8.490469,0.405344),(-8.815198,-8.062608,-0.247435),
(-9.394961,-7.890165,-0.741484),(-10.145496,-8.102995,-0.704773),(-10.493711,-7.27808,0.526403),(-10.210925,-7.645071,1.155129),(-9.465575,-7.773936,1.349536),
(-8.818925,-7.567636,0.963231),(-8.757916,-7.181521,0.287111),(-9.328488,-6.906342,-0.169694),(-10.10099,-6.949315,-0.063198),(-10.197537,-6.026495,1.077371),
(-9.942662,-6.389395,1.720246),(-9.222725,-6.645339,1.881892),(-8.579854,-6.601597,1.440588),(-8.498144,-6.291106,0.728643),(-9.039124,-5.947673,0.282167),
(-9.795425,-5.82991,0.437365),(-9.639708,-4.75543,1.449819),(-9.400739,-5.075296,2.121031),(-8.72278,-5.430201,2.277111),(-8.116347,-5.552893,1.800526),
(-8.038097,-5.350983,1.050156),(-8.546954,-4.976513,0.591043),(-9.259738,-4.711467,0.76891),(-8.948577,-3.541733,1.612208),(-8.703886,-3.79193,2.310402),
(-8.055804,-4.191315,2.484839),(-7.492351,-4.439143,2.004165),(-7.437817,-4.348795,1.230337),(-7.933268,-3.988304,0.746063),(-8.605619,-3.629128,0.916012),
(-8.220074,-2.371421,1.571926),(-7.950355,-2.532222,2.287007),(-7.308639,-2.9297,2.487401),(-6.77815,-3.264546,2.022207),(-6.758357,-3.284615,1.241725),
(-7.264165,-2.974793,0.733674),(-7.91469,-2.568384,0.880627),(-7.538239,-1.236287,1.380175),(-7.241639,-1.31093,2.098788),(-6.585566,-1.6725,2.319652),
(-6.064055,-2.048728,1.876453),(-6.069816,-2.156306,1.102928),(-6.598509,-1.914226,0.581558),(-7.252018,-1.504779,0.704944),(-6.963426,-0.102399,1.073206),
(-6.642166,-0.090759,1.784967),(-5.955186,-0.383263,2.013978),(-5.419796,-0.759651,1.587789),(-5.439156,-0.936493,0.82733),(-5.998686,-0.780625,0.305241),
(-6.677051,-0.409419,0.414666),(-6.547968,0.981253,0.679964),(-6.207279,1.08353,1.375246),(-5.487116,0.880632,1.599177),(-4.929778,0.525347,1.183133),
(-4.954951,0.28521,0.440404),(-5.543679,0.341051,-0.069721),(-6.252639,0.650819,0.036893),(-6.303838,2.078869,0.189829),(-5.951466,2.278896,0.857489),
(-5.2017,2.191056,1.057695),(-4.61913,1.881492,0.639688),(-4.642443,1.583315,-0.081763),(-5.254083,1.521056,-0.563393),(-5.993473,1.741598,-0.442522),
(-6.217151,3.143603,-0.352788),(-5.870914,3.422815,0.289168),(-5.10985,3.439988,0.463622),(-4.507058,3.18219,0.039208),(-4.51645,2.84355,-0.664483),
(-5.130956,2.679069,-1.117557),(-5.887839,2.812605,-0.978839),(-6.264464,4.220974,-0.943413),(-5.936115,4.558118,-0.320142),(-5.177762,4.666312,-0.168019),
(-4.560461,4.464084,-0.601597),(-4.549052,4.103715,-1.294382),(-5.152126,3.856572,-1.724693),(-5.915556,3.908757,-1.568497),(0.0,0.0,0.0)  --  450
);

idx_7: constant Idx_4_array_array:=
( (902,903,910,909),(903,904,911,910),(904,905,912,911),(905,906,913,912),(906,907,914,913),(907,908,915,914),(908,902,909,915),(909,910,917,916),
(910,911,918,917),(911,912,919,918),(912,913,920,919),(913,914,921,920),(914,915,922,921),(915,909,916,922),(916,917,924,923),(917,918,925,924),
(918,919,926,925),(919,920,927,926),(920,921,928,927),(921,922,929,928),(922,916,923,929),(923,924,931,930),(924,925,932,931),(925,926,933,932),
(926,927,934,933),(927,928,935,934),(928,929,936,935),(929,923,930,936),(930,931,938,937),(931,932,939,938),(932,933,940,939),(933,934,941,940),
(934,935,942,941),(935,936,943,942),(936,930,937,943),(937,938,945,944),(938,939,946,945),(939,940,947,946),(940,941,948,947),(941,942,949,948),
(942,943,950,949),(943,937,944,950),(944,945,952,951),(945,946,953,952),(946,947,954,953),(947,948,955,954),(948,949,956,955),(949,950,957,956),
(950,944,951,957),(951,952,959,958),(952,953,960,959),(953,954,961,960),(954,955,962,961),(955,956,963,962),(956,957,964,963),(957,951,958,964),
(958,959,966,965),(959,960,967,966),(960,961,968,967),(961,962,969,968),(962,963,970,969),(963,964,971,970),(964,958,965,971),(965,966,973,972),
(966,967,974,973),(967,968,975,974),(968,969,976,975),(969,970,977,976),(970,971,978,977),(971,965,972,978),(972,973,980,979),(973,974,981,980),
(974,975,982,981),(975,976,983,982),(976,977,984,983),(977,978,985,984),(978,972,979,985),(979,980,987,986),(980,981,988,987),(981,982,989,988),
(982,983,990,989),(983,984,991,990),(984,985,992,991),(985,979,986,992),(986,987,994,993),(987,988,995,994),(988,989,996,995),(989,990,997,996),
(990,991,998,997),(991,992,999,998),(992,986,993,999),(993,994,1001,1000),(994,995,1002,1001),(995,996,1003,1002),(996,997,1004,1003),(997,998,1005,1004),
(998,999,1006,1005),(999,993,1000,1006),(1000,1001,1008,1007),(1001,1002,1009,1008),(1002,1003,1010,1009),(1003,1004,1011,1010),(1004,1005,1012,1011),(1005,1006,1013,1012),
(1006,1000,1007,1013),(1007,1008,1015,1014),(1008,1009,1016,1015),(1009,1010,1017,1016),(1010,1011,1018,1017),(1011,1012,1019,1018),(1012,1013,1020,1019),(1013,1007,1014,1020),
(1014,1015,1022,1021),(1015,1016,1023,1022),(1016,1017,1024,1023),(1017,1018,1025,1024),(1018,1019,1026,1025),(1019,1020,1027,1026),(1020,1014,1021,1027),(1021,1022,1029,1028),
(1022,1023,1030,1029),(1023,1024,1031,1030),(1024,1025,1032,1031),(1025,1026,1033,1032),(1026,1027,1034,1033),(1027,1021,1028,1034),(1028,1029,1036,1035),(1029,1030,1037,1036),
(1030,1031,1038,1037),(1031,1032,1039,1038),(1032,1033,1040,1039),(1033,1034,1041,1040),(1034,1028,1035,1041),(1035,1036,1043,1042),(1036,1037,1044,1043),(1037,1038,1045,1044),
(1038,1039,1046,1045),(1039,1040,1047,1046),(1040,1041,1048,1047),(1041,1035,1042,1048),(1042,1043,1050,1049),(1043,1044,1051,1050),(1044,1045,1052,1051),(1045,1046,1053,1052),
(1046,1047,1054,1053),(1047,1048,1055,1054),(1048,1042,1049,1055),(1049,1050,1057,1056),(1050,1051,1058,1057),(1051,1052,1059,1058),(1052,1053,1060,1059),(1053,1054,1061,1060),
(1054,1055,1062,1061),(1055,1049,1056,1062),(1056,1057,1064,1063),(1057,1058,1065,1064),(1058,1059,1066,1065),(1059,1060,1067,1066),(1060,1061,1068,1067),(1061,1062,1069,1068),
(1062,1056,1063,1069),(1063,1064,1071,1070),(1064,1065,1072,1071),(1065,1066,1073,1072),(1066,1067,1074,1073),(1067,1068,1075,1074),(1068,1069,1076,1075),(1069,1063,1070,1076),
(1070,1071,1078,1077),(1071,1072,1079,1078),(1072,1073,1080,1079),(1073,1074,1081,1080),(1074,1075,1082,1081),(1075,1076,1083,1082),(1076,1070,1077,1083),(1077,1078,1085,1084),
(1078,1079,1086,1085),(1079,1080,1087,1086),(1080,1081,1088,1087),(1081,1082,1089,1088),(1082,1083,1090,1089),(1083,1077,1084,1090),(1084,1085,1092,1091),(1085,1086,1093,1092),
(1086,1087,1094,1093),(1087,1088,1095,1094),(1088,1089,1096,1095),(1089,1090,1097,1096),(1090,1084,1091,1097),(1091,1092,1099,1098),(1092,1093,1100,1099),(1093,1094,1101,1100),
(1094,1095,1102,1101),(1095,1096,1103,1102),(1096,1097,1104,1103),(1097,1091,1098,1104),(1098,1099,1106,1105),(1099,1100,1107,1106),(1100,1101,1108,1107),(1101,1102,1109,1108),
(1102,1103,1110,1109),(1103,1104,1111,1110),(1104,1098,1105,1111),(1105,1106,1113,1112),(1106,1107,1114,1113),(1107,1108,1115,1114),(1108,1109,1116,1115),(1109,1110,1117,1116),
(1110,1111,1118,1117),(1111,1105,1112,1118),(1112,1113,1120,1119),(1113,1114,1121,1120),(1114,1115,1122,1121),(1115,1116,1123,1122),(1116,1117,1124,1123),(1117,1118,1125,1124),
(1118,1112,1119,1125),(1119,1120,1127,1126),(1120,1121,1128,1127),(1121,1122,1129,1128),(1122,1123,1130,1129),(1123,1124,1131,1130),(1124,1125,1132,1131),(1125,1119,1126,1132),
(1126,1127,1134,1133),(1127,1128,1135,1134),(1128,1129,1136,1135),(1129,1130,1137,1136),(1130,1131,1138,1137),(1131,1132,1139,1138),(1132,1126,1133,1139),(1133,1134,1141,1140),
(1134,1135,1142,1141),(1135,1136,1143,1142),(1136,1137,1144,1143),(1137,1138,1145,1144),(1138,1139,1146,1145),(1139,1133,1140,1146),(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,903,902),(1344,1345,904,903),(1345,1346,905,904),(1346,1347,906,905),(1347,1348,907,906),(1348,1349,908,907),(1349,1343,902,908),
(1349,1343,902,908)--  449
);
-- last index now: 1350
-- end Separator # 7
-- last index now: 1350
-- end Separator # 7
-- begin Separator # 8

matos_8: 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.9,0.0,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 25.6
);
-- begin Separator # 9
coord_9: constant Point_3D_array:=
( (0.0,0.0,0.0),(-10.097847,5.862073,0.75568),(-9.793834,5.537755,1.397818),(-9.045409,5.380734,1.556412),(-8.416153,5.509249,1.112039),
(-8.379909,5.826526,0.399321),(-8.963966,6.093648,-0.045052),(-9.728521,6.109468,0.113542),(-9.738715,7.093447,1.25332),(-9.463959,6.736835,1.891507),
(-8.745147,6.461824,2.024267),(-8.123559,6.475505,1.551628),(-8.067264,6.767574,0.829497),(-8.618652,7.118099,0.401654),(-9.362517,7.263126,0.590273),
(-9.190042,8.208823,1.650563),(-8.94243,7.839865,2.292828),(-8.271248,7.456978,2.406228),(-7.681911,7.348485,1.905371),(-7.618201,7.596083,1.167413),
(-8.128094,8.013326,0.74805),(-8.827628,8.28602,0.963072),(-8.423861,9.274057,1.943861),(-8.194197,8.912247,2.596774),(-7.58561,8.433806,2.700035),
(-7.056378,8.199011,2.175887),(-7.005023,8.384665,1.419024),(-7.470218,8.850969,0.99938),(-8.10166,9.246786,1.232954),(-7.519545,10.191601,2.091545),
(-7.298486,9.848241,2.757265),(-6.762674,9.289892,2.862617),(-6.315587,8.937003,2.328269),(-6.293889,9.055305,1.556595),(-6.71392,9.555717,1.128682),
(-7.259388,10.061416,1.366757),(-6.449979,10.992997,2.086845),(-6.224748,10.677027,2.764621),(-5.768559,10.054439,2.883876),(-5.42493,9.594055,2.354809),
(-5.452621,9.642553,1.575817),(-5.830781,10.163413,1.133498),(-6.274647,10.764418,1.360927),(-5.308854,11.614418,1.919948),(-5.06687,11.330508,2.606086),
(-4.69076,10.661539,2.75089),(-4.463743,10.111258,2.24532),(-4.556768,10.094038,1.470081),(-4.899785,10.622846,1.008942),(-5.234494,11.299479,1.209152),
(-4.082581,12.06479,1.578376),(-3.810351,11.814299,2.266192),(-3.511676,11.115541,2.446406),(-3.411464,10.494696,1.983313),(-3.585177,10.419272,1.225631),
(-3.902005,10.946066,0.743911),(-4.123371,11.678391,0.900897),(-2.869651,12.342893,1.077191),(-2.551164,12.126169,1.75656),(-2.304786,11.417954,1.97491),
(-2.316046,10.751549,1.567818),(-2.576464,10.62877,0.841833),(-2.889941,11.142072,0.343636),(-3.020421,11.904928,0.44838),(-1.702936,12.481631,0.424852),
(-1.326007,12.296021,1.083198),(-1.105917,11.5906,1.335958),(-1.2084,10.896564,0.9928),(-1.556284,10.736537,0.312128),(-1.887605,11.231022,-0.193498),
(-1.952871,12.007662,-0.143331),(-0.577473,12.550056,-0.308321),(-0.165785,12.392189,0.3363),(0.053592,11.696713,0.615825),(-0.084538,10.987337,0.319765),
(-0.476159,10.798234,-0.32894),(-0.826374,11.271804,-0.841803),(-0.871463,12.051437,-0.832627),(0.505633,12.614637,-1.042899),(0.929354,12.483526,-0.40008),
(1.165845,11.800793,-0.103611),(1.037023,11.080549,-0.37674),(0.639894,10.865152,-1.013796),(0.273504,11.316802,-1.535061),(0.213753,12.095395,-1.548014),
(1.627517,12.648656,-1.708578),(2.009519,12.54198,-1.035791),(2.224055,11.870917,-0.698751),(2.109576,11.140793,-0.951255),(1.752287,10.901403,-1.603163),
(1.421234,11.333016,-2.163575),(1.365706,12.110616,-2.210489),(2.908121,12.616819,-2.233983),(3.182209,12.537638,-1.506967),(3.321626,11.880898,-1.107965),
(3.221387,11.14114,-1.337432),(2.956974,10.875415,-2.022577),(2.727496,11.28382,-2.64747),(2.705754,12.058818,-2.741554),(4.181437,12.471519,-2.529258),
(4.327625,12.432017,-1.763088),(4.350239,11.800915,-1.303582),(4.23225,11.053447,-1.496757),(4.062507,10.752471,-2.197148),(3.968829,11.124629,-2.877346),
(4.021758,11.889677,-3.025149),(5.580498,12.12401,-2.569473),(5.577111,12.147882,-1.788855),(5.430387,11.569794,-1.28464),(5.250811,10.825057,-1.436514),
(5.173608,10.474473,-2.130111),(5.256914,10.78204,-2.843139),(5.437997,11.516152,-3.038674),(6.815144,11.606536,-2.355372),(6.689632,11.709874,-1.591491),
(6.371004,11.214179,-1.078939),(6.099193,10.492719,-1.20368),(6.078877,10.088768,-1.87178),(6.325356,10.30651,-2.580147),(6.653026,10.98198,-2.795365),
(7.961503,10.827765,-1.865872),(7.745047,11.025683,-1.142047),(7.256783,10.651996,-0.660484),(6.864384,9.988098,-0.78381),(6.863334,9.533918,-1.419157),
(7.254424,9.631463,-2.088096),(7.743155,10.207279,-2.286903),(8.786205,9.917525,-1.232335),(8.527778,10.203506,-0.553087),(7.912197,9.974005,-0.130789),
(7.403008,9.401842,-0.283438),(7.383639,8.917868,-0.896088),(7.868677,8.886523,-1.5074),(8.492877,9.331412,-1.657044),(9.318972,8.7815,-0.440013),
(9.058047,9.142494,0.201507),(8.358606,9.082281,0.54371),(7.747342,8.646203,0.32891),(7.68455,8.162635,-0.281143),(8.217513,7.995714,-0.827068),
(8.944899,8.271134,-0.897772),(9.474045,7.615185,0.313538),(9.238023,8.016794,0.940395),(8.511683,8.11715,1.20929),(7.841973,7.840684,0.91774),
(7.733199,7.395579,0.285287),(8.26727,7.117009,-0.211818),(9.042019,7.214743,-0.199245),(9.26494,6.338123,1.016081),(9.060083,6.742183,1.652254),
(8.350883,6.992679,1.862568),(7.671379,6.900982,1.488651),(7.533254,6.536142,0.812072),(8.040517,6.172891,0.342307),(8.81119,6.084764,0.4331),
(8.783431,5.124067,1.516913),(8.593347,5.488838,2.180808),(7.922884,5.843596,2.366749),(7.276917,5.921203,1.934719),(7.141871,5.663218,1.210044),
(7.619438,5.26391,0.738421),(8.350001,5.023965,0.87499),(8.089699,3.920912,1.792489),(7.885691,4.209823,2.488807),(7.25188,4.625652,2.676732),
(6.665538,4.855272,2.214753),(6.568193,4.725775,1.45075),(7.033147,4.334674,0.960033),(7.710281,3.976477,1.112121),(7.34238,2.78809,1.832402),
(7.104194,2.984201,2.549865),(6.48112,3.406799,2.757557),(5.942345,3.737658,2.299081),(5.893578,3.727635,1.519679),(6.371542,3.384278,1.006256),
(7.016319,2.966141,1.145431),(6.634656,1.681865,1.66117),(6.350167,1.76936,2.38322),(5.707267,2.150132,2.610463),(5.190075,2.537451,2.171781),
(5.188046,2.639658,1.39751),(5.702708,2.37979,0.870692),(6.34651,1.953531,0.988031),(6.048004,0.609981,1.341199),(5.728858,0.593968,2.053825),
(5.051218,0.901445,2.29091),(4.525362,1.300876,1.873925),(4.54727,1.491481,1.116867),(5.100444,1.329731,0.589817),(5.768333,0.937426,0.689654),
(5.627065,-0.479897,0.909822),(5.288805,-0.597822,1.60381),(4.569517,-0.399845,1.834845),(4.010841,-0.035046,1.428951),(4.03347,0.221873,0.691776),
(4.620365,0.177447,0.178427),(5.329582,-0.13487,0.275467),(5.398688,-1.528885,0.415896),(5.059231,-1.742276,1.086105),(4.311727,-1.666168,1.299158),
(3.719062,-1.357872,0.894623),(3.727525,-1.049541,0.177123),(4.330744,-0.973354,-0.313051),(5.074481,-1.186682,-0.206787),(5.368361,-2.592529,-0.145309),
(5.045503,-2.893777,0.498865),(4.288644,-2.953104,0.682147),(3.667716,-2.725836,0.266523),(3.650288,-2.383111,-0.435034),(4.249485,-2.183007,-0.894237),
(5.0141,-2.276207,-0.765297),(5.494626,-3.652566,-0.727434),(5.200482,-4.007888,-0.097218),(4.454646,-4.173621,0.064669),(3.818747,-4.024965,-0.363678),
(3.771631,-3.673861,-1.059704),(4.348776,-3.384697,-1.499288),(5.115581,-3.37522,-1.351414),(5.74475,-4.741052,-1.312791),(5.480344,-5.118561,-0.682296),
(4.753672,-5.359749,-0.528277),(4.111932,-5.282998,-0.966712),(4.038368,-4.946103,-1.667451),(4.588374,-4.602752,-2.102824),(5.347785,-4.511496,-1.944986),
(6.049062,-5.871634,-1.855627),(5.804892,-6.230129,-1.206158),(5.091121,-6.498131,-1.036887),(4.445234,-6.473829,-1.475277),(4.353596,-6.175523,-2.191212),
(4.885213,-5.827844,-2.645578),(5.639767,-5.6926,-2.496229),(6.345868,-7.109542,-2.325343),(6.110185,-7.407681,-1.643058),(5.396975,-7.65156,-1.438607),
(4.743298,-7.657531,-1.865945),(4.641387,-7.421099,-2.603279),(5.167984,-7.120301,-3.09538),(5.926549,-6.981646,-2.971687),(6.564277,-8.366298,-2.659373),
(6.334022,-8.578523,-1.943908),(5.615991,-8.762824,-1.698122),(4.950876,-8.780418,-2.107095),(4.839523,-8.618057,-2.862864),(5.365782,-8.398002,-3.396318),
(6.13337,-8.285958,-3.305756),(6.660823,-9.745828,-2.841556),(6.438642,-9.84129,-2.098946),(5.716226,-9.921831,-1.813332),(5.03757,-9.926805,-2.199787),
(4.913715,-9.852464,-2.967302),(5.437926,-9.754789,-3.537923),(6.215462,-9.707332,-3.481961),(6.597024,-11.07308,-2.840295),(6.395685,-11.04276,-2.086313),
(5.680983,-10.998518,-1.774559),(4.991103,-10.97367,-2.139792),(4.845539,-10.986927,-2.906983),(5.353904,-11.028306,-3.498422),(6.133388,-11.066648,-3.468743),
(6.33434,-12.438509,-2.633284),(6.171213,-12.273175,-1.88763),(5.483789,-12.081147,-1.570581),(4.789713,-12.007027,-1.920881),(4.611637,-12.106627,-2.674748),
(5.083658,-12.304949,-3.264504),(5.850332,-12.45265,-3.246051),(5.89149,-13.646211,-2.261103),(5.78522,-13.361165,-1.541796),(5.149414,-13.020986,-1.241838),
(4.462846,-12.881835,-1.587104),(4.242516,-13.048496,-2.3176),(4.654337,-13.39547,-2.88325),(5.388199,-13.661478,-2.858106),(5.211637,-14.758967,-1.697928),
(5.181454,-14.369987,-1.02137),(4.627917,-13.88282,-0.764053),(3.967853,-13.664311,-1.119743),(3.698302,-13.879004,-1.820597),(4.022242,-14.365229,-2.338858),
(4.695739,-14.756849,-2.284265),(4.385509,-15.610497,-1.051702),(4.441234,-15.150679,-0.422887),(3.99476,-14.541552,-0.223962),(3.38229,-14.241801,-0.60472),
(3.065028,-14.477146,-1.278445),(3.281878,-15.070366,-1.737806),(3.869548,-15.574754,-1.636896),(3.345547,-16.237293,-0.299752),(3.494023,-15.736075,0.280491),
(3.182849,-15.030905,0.406392),(2.646345,-14.652789,-0.016855),(2.288509,-14.886457,-0.670536),(2.3788,-15.555952,-1.062416),(2.849226,-16.157131,-0.897402),
(2.242366,-16.558426,0.420963),(2.476178,-16.047514,0.963407),(2.310981,-15.286194,1.018625),(1.871173,-14.847757,0.545035),(1.487937,-15.062354,-0.10074),
(1.449858,-15.76839,-0.432417),(1.78561,-16.434204,-0.200238),(1.01186,-16.592037,1.126024),(1.3199,-16.09479,1.64352),(1.311347,-15.313913,1.633163),
(0.992643,-14.837427,1.102752),(0.603778,-15.024134,0.451699),(0.437575,-15.733439,0.170258),(0.619189,-16.431223,0.470361),(-0.185917,-16.354958,1.705743),
(0.177309,-15.886135,2.213895),(0.317906,-15.120157,2.155093),(0.13,-14.633821,1.573617),(-0.244911,-14.793347,0.907328),(-0.524511,-15.47861,0.657958),
(-0.498257,-16.173592,1.013285),(-1.40531,-15.850576,2.170059),(-1.007088,-15.416282,2.682653),(-0.725562,-14.693297,2.593298),(-0.772727,-14.226048,1.96928),
(-1.113068,-14.366379,1.280497),(-1.4903,-15.00862,1.045617),(-1.62036,-15.66915,1.441509),(-2.517248,-15.151875,2.463845),(-2.101908,-14.751294,2.990129),
(-1.696885,-14.091006,2.890515),(-1.607168,-13.668222,2.240015),(-1.900317,-13.801307,1.528468),(-2.355584,-14.390044,1.291684),(-2.630144,-14.991103,1.707966),
(-3.559661,-14.247475,2.592059),(-3.143705,-13.874872,3.138039),(-2.632291,-13.291685,3.04696),(-2.410524,-12.937065,2.387407),(-2.6454,-13.078049,1.656035),
(-3.160052,-13.608471,1.403584),(-3.566936,-14.128915,1.820154),(-4.44404,-13.224867,2.541191),(-4.039745,-12.872315,3.108817),(-3.441717,-12.374275,3.043511),
(-3.100283,-12.105782,2.39445),(-3.272549,-12.269016,1.65039),(-3.828796,-12.741059,1.371624),(-4.350159,-13.166452,1.768067),(-5.186313,-12.067741,2.306579),
(-4.803788,-11.72506,2.894958),(-4.138479,-11.316729,2.870944),(-3.691377,-11.150231,2.25262),(-3.79916,-11.350943,1.505596),(-4.380663,-11.767723,1.192397),
(-4.998005,-12.086729,1.548868),(-5.7452,-10.874193,1.89946),(-5.394409,-10.524511,2.503294),(-4.686872,-10.195035,2.531257),(-4.155377,-10.133866,1.962294),
(-4.200152,-10.387068,1.224846),(-4.787481,-10.763971,0.874225),(-5.475092,-10.980762,1.174456),(-6.135139,-9.659462,1.318032),(-5.821266,-9.286347,1.928127),
(-5.091781,-9.020925,2.013846),(-4.495999,-9.063062,1.510641),(-4.482558,-9.381029,0.797435),(-5.061578,-9.735392,0.411287),(-5.797046,-9.859305,0.642975),
(-6.412769,-8.49897,0.627739),(-6.134416,-8.091622,1.233159),(-5.403738,-7.847223,1.360927),(-4.770949,-7.949811,0.914832),(-4.712554,-8.322134,0.230791),
(-5.272524,-8.683826,-0.176098),(-6.029191,-8.762526,0.00056),(-6.653877,-7.422901,-0.120667),(-6.409467,-6.976554,0.471772),(-5.688059,-6.716928,0.620467),
(-5.032887,-6.839525,0.213446),(-4.937309,-7.252028,-0.442795),(-5.473298,-7.643815,-0.854094),(-6.237243,-7.71986,-0.710733),(-6.925419,-6.387079,-0.824949),
(-6.705792,-5.941025,-0.222665),(-5.997769,-5.652658,-0.062994),(-5.334506,-5.739125,-0.466171),(-5.215453,-6.135314,-1.128597),(-5.73026,-6.542887,-1.55145),
(-6.491266,-6.654933,-1.416314),(-7.298127,-5.325275,-1.407457),(-7.092782,-4.924428,-0.769411),(-6.404068,-4.597093,-0.600677),(-5.750601,-4.589758,-1.028315),
(-5.624455,-4.907948,-1.730304),(-6.12062,-5.312058,-2.178033),(-6.865474,-5.497787,-2.034352),(-7.738034,-4.23398,-1.807655),(-7.529971,-3.920687,-1.123181),
(-6.853556,-3.582626,-0.927928),(-6.218143,-3.474363,-1.368924),(-6.102212,-3.677424,-2.11409),(-6.593061,-4.038898,-2.602302),(-7.32107,-4.286589,-2.465925),
(-8.250221,-3.024416,-1.977338),(-8.018459,-2.845852,-1.253219),(-7.341524,-2.532426,-1.021985),(-6.729162,-2.320153,-1.457759),(-6.642493,-2.36888,-2.232395),
(-7.146782,-2.641914,-2.762576),(-7.862288,-2.933655,-2.649065),(-8.765836,-1.763478,-1.926617),(-8.511526,-1.708877,-1.190213),(-7.824275,-1.443676,-0.930789),
(-7.221596,-1.167578,-1.343698),(-7.157319,-1.088489,-2.118011),(-7.679845,-1.265966,-2.670654),(-8.395702,-1.566364,-2.585476),(-9.24089,-0.4506,-1.688029),
(-8.971469,-0.504457,-0.956962),(-8.268304,-0.305719,-0.681266),(-7.660891,-0.004039,-1.068546),(-7.606626,0.173412,-1.827172),(-8.14637,0.09301,-2.385883),
(-8.873686,-0.184702,-2.323958),(-9.642422,0.850359,-1.326262),(-9.371886,0.715793,-0.60609),(-8.657564,0.851509,-0.321007),(-8.037355,1.155312,-0.685687),
(-7.97829,1.39843,-1.425519),(-8.524844,1.397792,-1.983394),(-9.265452,1.153877,-1.93922),(-9.965885,2.161822,-0.88517),(-9.704923,1.970067,-0.174484),
(-8.98383,2.044811,0.11601),(-8.345607,2.32977,-0.232437),(-8.270846,2.610364,-0.957436),(-8.815845,2.675301,-1.513049),(-9.570209,2.475681,-1.480888),
(-10.165665,3.414989,-0.407269),(-9.918351,3.17001,0.29185),(-9.191999,3.169912,0.578832),(-8.533566,3.414769,0.237574),(-8.438866,3.720199,-0.474951),
(-8.97921,3.856207,-1.022196),(-9.747707,3.720376,-0.992074),(-10.216358,4.705774,0.132147),(-9.987242,4.411009,0.818125),(-9.261038,4.318246,1.090098),
(-8.584592,4.497339,0.743265),(-8.467281,4.813426,0.038798),(-8.997444,5.028488,-0.492824),(-9.775856,4.980579,-0.45128),(0.0,0.0,0.0)  --  450
);

idx_9: constant Idx_4_array_array:=
( (1352,1353,1360,1359),(1353,1354,1361,1360),(1354,1355,1362,1361),(1355,1356,1363,1362),(1356,1357,1364,1363),(1357,1358,1365,1364),(1358,1352,1359,1365),(1359,1360,1367,1366),
(1360,1361,1368,1367),(1361,1362,1369,1368),(1362,1363,1370,1369),(1363,1364,1371,1370),(1364,1365,1372,1371),(1365,1359,1366,1372),(1366,1367,1374,1373),(1367,1368,1375,1374),
(1368,1369,1376,1375),(1369,1370,1377,1376),(1370,1371,1378,1377),(1371,1372,1379,1378),(1372,1366,1373,1379),(1373,1374,1381,1380),(1374,1375,1382,1381),(1375,1376,1383,1382),
(1376,1377,1384,1383),(1377,1378,1385,1384),(1378,1379,1386,1385),(1379,1373,1380,1386),(1380,1381,1388,1387),(1381,1382,1389,1388),(1382,1383,1390,1389),(1383,1384,1391,1390),
(1384,1385,1392,1391),(1385,1386,1393,1392),(1386,1380,1387,1393),(1387,1388,1395,1394),(1388,1389,1396,1395),(1389,1390,1397,1396),(1390,1391,1398,1397),(1391,1392,1399,1398),
(1392,1393,1400,1399),(1393,1387,1394,1400),(1394,1395,1402,1401),(1395,1396,1403,1402),(1396,1397,1404,1403),(1397,1398,1405,1404),(1398,1399,1406,1405),(1399,1400,1407,1406),
(1400,1394,1401,1407),(1401,1402,1409,1408),(1402,1403,1410,1409),(1403,1404,1411,1410),(1404,1405,1412,1411),(1405,1406,1413,1412),(1406,1407,1414,1413),(1407,1401,1408,1414),
(1408,1409,1416,1415),(1409,1410,1417,1416),(1410,1411,1418,1417),(1411,1412,1419,1418),(1412,1413,1420,1419),(1413,1414,1421,1420),(1414,1408,1415,1421),(1415,1416,1423,1422),
(1416,1417,1424,1423),(1417,1418,1425,1424),(1418,1419,1426,1425),(1419,1420,1427,1426),(1420,1421,1428,1427),(1421,1415,1422,1428),(1422,1423,1430,1429),(1423,1424,1431,1430),
(1424,1425,1432,1431),(1425,1426,1433,1432),(1426,1427,1434,1433),(1427,1428,1435,1434),(1428,1422,1429,1435),(1429,1430,1437,1436),(1430,1431,1438,1437),(1431,1432,1439,1438),
(1432,1433,1440,1439),(1433,1434,1441,1440),(1434,1435,1442,1441),(1435,1429,1436,1442),(1436,1437,1444,1443),(1437,1438,1445,1444),(1438,1439,1446,1445),(1439,1440,1447,1446),
(1440,1441,1448,1447),(1441,1442,1449,1448),(1442,1436,1443,1449),(1443,1444,1451,1450),(1444,1445,1452,1451),(1445,1446,1453,1452),(1446,1447,1454,1453),(1447,1448,1455,1454),
(1448,1449,1456,1455),(1449,1443,1450,1456),(1450,1451,1458,1457),(1451,1452,1459,1458),(1452,1453,1460,1459),(1453,1454,1461,1460),(1454,1455,1462,1461),(1455,1456,1463,1462),
(1456,1450,1457,1463),(1457,1458,1465,1464),(1458,1459,1466,1465),(1459,1460,1467,1466),(1460,1461,1468,1467),(1461,1462,1469,1468),(1462,1463,1470,1469),(1463,1457,1464,1470),
(1464,1465,1472,1471),(1465,1466,1473,1472),(1466,1467,1474,1473),(1467,1468,1475,1474),(1468,1469,1476,1475),(1469,1470,1477,1476),(1470,1464,1471,1477),(1471,1472,1479,1478),
(1472,1473,1480,1479),(1473,1474,1481,1480),(1474,1475,1482,1481),(1475,1476,1483,1482),(1476,1477,1484,1483),(1477,1471,1478,1484),(1478,1479,1486,1485),(1479,1480,1487,1486),
(1480,1481,1488,1487),(1481,1482,1489,1488),(1482,1483,1490,1489),(1483,1484,1491,1490),(1484,1478,1485,1491),(1485,1486,1493,1492),(1486,1487,1494,1493),(1487,1488,1495,1494),
(1488,1489,1496,1495),(1489,1490,1497,1496),(1490,1491,1498,1497),(1491,1485,1492,1498),(1492,1493,1500,1499),(1493,1494,1501,1500),(1494,1495,1502,1501),(1495,1496,1503,1502),
(1496,1497,1504,1503),(1497,1498,1505,1504),(1498,1492,1499,1505),(1499,1500,1507,1506),(1500,1501,1508,1507),(1501,1502,1509,1508),(1502,1503,1510,1509),(1503,1504,1511,1510),
(1504,1505,1512,1511),(1505,1499,1506,1512),(1506,1507,1514,1513),(1507,1508,1515,1514),(1508,1509,1516,1515),(1509,1510,1517,1516),(1510,1511,1518,1517),(1511,1512,1519,1518),
(1512,1506,1513,1519),(1513,1514,1521,1520),(1514,1515,1522,1521),(1515,1516,1523,1522),(1516,1517,1524,1523),(1517,1518,1525,1524),(1518,1519,1526,1525),(1519,1513,1520,1526),
(1520,1521,1528,1527),(1521,1522,1529,1528),(1522,1523,1530,1529),(1523,1524,1531,1530),(1524,1525,1532,1531),(1525,1526,1533,1532),(1526,1520,1527,1533),(1527,1528,1535,1534),
(1528,1529,1536,1535),(1529,1530,1537,1536),(1530,1531,1538,1537),(1531,1532,1539,1538),(1532,1533,1540,1539),(1533,1527,1534,1540),(1534,1535,1542,1541),(1535,1536,1543,1542),
(1536,1537,1544,1543),(1537,1538,1545,1544),(1538,1539,1546,1545),(1539,1540,1547,1546),(1540,1534,1541,1547),(1541,1542,1549,1548),(1542,1543,1550,1549),(1543,1544,1551,1550),
(1544,1545,1552,1551),(1545,1546,1553,1552),(1546,1547,1554,1553),(1547,1541,1548,1554),(1548,1549,1556,1555),(1549,1550,1557,1556),(1550,1551,1558,1557),(1551,1552,1559,1558),
(1552,1553,1560,1559),(1553,1554,1561,1560),(1554,1548,1555,1561),(1555,1556,1563,1562),(1556,1557,1564,1563),(1557,1558,1565,1564),(1558,1559,1566,1565),(1559,1560,1567,1566),
(1560,1561,1568,1567),(1561,1555,1562,1568),(1562,1563,1570,1569),(1563,1564,1571,1570),(1564,1565,1572,1571),(1565,1566,1573,1572),(1566,1567,1574,1573),(1567,1568,1575,1574),
(1568,1562,1569,1575),(1569,1570,1577,1576),(1570,1571,1578,1577),(1571,1572,1579,1578),(1572,1573,1580,1579),(1573,1574,1581,1580),(1574,1575,1582,1581),(1575,1569,1576,1582),
(1576,1577,1584,1583),(1577,1578,1585,1584),(1578,1579,1586,1585),(1579,1580,1587,1586),(1580,1581,1588,1587),(1581,1582,1589,1588),(1582,1576,1583,1589),(1583,1584,1591,1590),
(1584,1585,1592,1591),(1585,1586,1593,1592),(1586,1587,1594,1593),(1587,1588,1595,1594),(1588,1589,1596,1595),(1589,1583,1590,1596),(1590,1591,1598,1597),(1591,1592,1599,1598),
(1592,1593,1600,1599),(1593,1594,1601,1600),(1594,1595,1602,1601),(1595,1596,1603,1602),(1596,1590,1597,1603),(1597,1598,1605,1604),(1598,1599,1606,1605),(1599,1600,1607,1606),
(1600,1601,1608,1607),(1601,1602,1609,1608),(1602,1603,1610,1609),(1603,1597,1604,1610),(1604,1605,1612,1611),(1605,1606,1613,1612),(1606,1607,1614,1613),(1607,1608,1615,1614),
(1608,1609,1616,1615),(1609,1610,1617,1616),(1610,1604,1611,1617),(1611,1612,1619,1618),(1612,1613,1620,1619),(1613,1614,1621,1620),(1614,1615,1622,1621),(1615,1616,1623,1622),
(1616,1617,1624,1623),(1617,1611,1618,1624),(1618,1619,1626,1625),(1619,1620,1627,1626),(1620,1621,1628,1627),(1621,1622,1629,1628),(1622,1623,1630,1629),(1623,1624,1631,1630),
(1624,1618,1625,1631),(1625,1626,1633,1632),(1626,1627,1634,1633),(1627,1628,1635,1634),(1628,1629,1636,1635),(1629,1630,1637,1636),(1630,1631,1638,1637),(1631,1625,1632,1638),
(1632,1633,1640,1639),(1633,1634,1641,1640),(1634,1635,1642,1641),(1635,1636,1643,1642),(1636,1637,1644,1643),(1637,1638,1645,1644),(1638,1632,1639,1645),(1639,1640,1647,1646),
(1640,1641,1648,1647),(1641,1642,1649,1648),(1642,1643,1650,1649),(1643,1644,1651,1650),(1644,1645,1652,1651),(1645,1639,1646,1652),(1646,1647,1654,1653),(1647,1648,1655,1654),
(1648,1649,1656,1655),(1649,1650,1657,1656),(1650,1651,1658,1657),(1651,1652,1659,1658),(1652,1646,1653,1659),(1653,1654,1661,1660),(1654,1655,1662,1661),(1655,1656,1663,1662),
(1656,1657,1664,1663),(1657,1658,1665,1664),(1658,1659,1666,1665),(1659,1653,1660,1666),(1660,1661,1668,1667),(1661,1662,1669,1668),(1662,1663,1670,1669),(1663,1664,1671,1670),
(1664,1665,1672,1671),(1665,1666,1673,1672),(1666,1660,1667,1673),(1667,1668,1675,1674),(1668,1669,1676,1675),(1669,1670,1677,1676),(1670,1671,1678,1677),(1671,1672,1679,1678),
(1672,1673,1680,1679),(1673,1667,1674,1680),(1674,1675,1682,1681),(1675,1676,1683,1682),(1676,1677,1684,1683),(1677,1678,1685,1684),(1678,1679,1686,1685),(1679,1680,1687,1686),
(1680,1674,1681,1687),(1681,1682,1689,1688),(1682,1683,1690,1689),(1683,1684,1691,1690),(1684,1685,1692,1691),(1685,1686,1693,1692),(1686,1687,1694,1693),(1687,1681,1688,1694),
(1688,1689,1696,1695),(1689,1690,1697,1696),(1690,1691,1698,1697),(1691,1692,1699,1698),(1692,1693,1700,1699),(1693,1694,1701,1700),(1694,1688,1695,1701),(1695,1696,1703,1702),
(1696,1697,1704,1703),(1697,1698,1705,1704),(1698,1699,1706,1705),(1699,1700,1707,1706),(1700,1701,1708,1707),(1701,1695,1702,1708),(1702,1703,1710,1709),(1703,1704,1711,1710),
(1704,1705,1712,1711),(1705,1706,1713,1712),(1706,1707,1714,1713),(1707,1708,1715,1714),(1708,1702,1709,1715),(1709,1710,1717,1716),(1710,1711,1718,1717),(1711,1712,1719,1718),
(1712,1713,1720,1719),(1713,1714,1721,1720),(1714,1715,1722,1721),(1715,1709,1716,1722),(1716,1717,1724,1723),(1717,1718,1725,1724),(1718,1719,1726,1725),(1719,1720,1727,1726),
(1720,1721,1728,1727),(1721,1722,1729,1728),(1722,1716,1723,1729),(1723,1724,1731,1730),(1724,1725,1732,1731),(1725,1726,1733,1732),(1726,1727,1734,1733),(1727,1728,1735,1734),
(1728,1729,1736,1735),(1729,1723,1730,1736),(1730,1731,1738,1737),(1731,1732,1739,1738),(1732,1733,1740,1739),(1733,1734,1741,1740),(1734,1735,1742,1741),(1735,1736,1743,1742),
(1736,1730,1737,1743),(1737,1738,1745,1744),(1738,1739,1746,1745),(1739,1740,1747,1746),(1740,1741,1748,1747),(1741,1742,1749,1748),(1742,1743,1750,1749),(1743,1737,1744,1750),
(1744,1745,1752,1751),(1745,1746,1753,1752),(1746,1747,1754,1753),(1747,1748,1755,1754),(1748,1749,1756,1755),(1749,1750,1757,1756),(1750,1744,1751,1757),(1751,1752,1759,1758),
(1752,1753,1760,1759),(1753,1754,1761,1760),(1754,1755,1762,1761),(1755,1756,1763,1762),(1756,1757,1764,1763),(1757,1751,1758,1764),(1758,1759,1766,1765),(1759,1760,1767,1766),
(1760,1761,1768,1767),(1761,1762,1769,1768),(1762,1763,1770,1769),(1763,1764,1771,1770),(1764,1758,1765,1771),(1765,1766,1773,1772),(1766,1767,1774,1773),(1767,1768,1775,1774),
(1768,1769,1776,1775),(1769,1770,1777,1776),(1770,1771,1778,1777),(1771,1765,1772,1778),(1772,1773,1780,1779),(1773,1774,1781,1780),(1774,1775,1782,1781),(1775,1776,1783,1782),
(1776,1777,1784,1783),(1777,1778,1785,1784),(1778,1772,1779,1785),(1779,1780,1787,1786),(1780,1781,1788,1787),(1781,1782,1789,1788),(1782,1783,1790,1789),(1783,1784,1791,1790),
(1784,1785,1792,1791),(1785,1779,1786,1792),(1786,1787,1794,1793),(1787,1788,1795,1794),(1788,1789,1796,1795),(1789,1790,1797,1796),(1790,1791,1798,1797),(1791,1792,1799,1798),
(1792,1786,1793,1799),(1793,1794,1353,1352),(1794,1795,1354,1353),(1795,1796,1355,1354),(1796,1797,1356,1355),(1797,1798,1357,1356),(1798,1799,1358,1357),(1799,1793,1352,1358),
(1799,1793,1352,1358)--  449
);
-- last index now: 1800
-- end Separator # 9
-- last index now: 1800
-- end Separator # 9
-- begin Separator # 10

matos_10: 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.9,0.5,1.0),
emission =>  (0.0,0.0,0.0,1.0),
shininess => 25.6
);
-- begin Separator # 11
coord_11: constant Point_3D_array:=
( (0.0,0.0,0.0),(-2.414502,-6.336566,5.180179),(-1.767515,-6.0564,5.516127),(-1.607722,-5.321816,5.727786),(-2.055451,-4.685971,5.655772),
(-2.773553,-4.627669,5.354313),(-3.221282,-5.190812,5.050414),(-3.061489,-5.951343,4.972917),(-2.897114,-6.530335,6.412446),(-2.220802,-6.266505,6.700443),
(-2.02383,-5.534306,6.887615),(-2.454522,-4.885099,6.833018),(-3.188559,-4.80775,6.577765),(-3.673195,-5.360504,6.314066),(-3.54349,-6.127126,6.240492),
(-3.287322,-6.635901,7.666243),(-2.579681,-6.390149,7.887142),(-2.336775,-5.659463,8.017689),(-2.741518,-4.994066,7.959578),(-3.489129,-4.895015,7.756569),
(-4.016643,-5.436897,7.561532),(-3.92683,-6.211664,7.521333),(-3.581161,-6.599875,9.016959),(-2.843703,-6.379868,9.149994),(-2.550103,-5.657047,9.185717),
(-2.921449,-4.975711,9.097227),(-3.678109,-4.84892,8.951159),(-4.250303,-5.37215,8.857506),(-4.207158,-6.151398,8.886789),(-3.740065,-6.412715,10.32348),
(-2.982057,-6.229613,10.366431),(-2.645858,-5.528131,10.296853),(-2.984633,-4.836501,10.167139),(-3.743276,-4.675533,10.074966),(-4.350515,-5.16644,10.089743),
(-4.349086,-5.939558,10.200341),(-3.759952,-6.052853,11.649034),(-2.991978,-5.9194,11.600518),(-2.623766,-5.256126,11.414952),(-2.932587,-4.56249,11.232071),
(-3.685892,-4.360815,11.189588),(-4.316427,-4.802964,11.319492),(-4.349387,-5.555992,11.523965),(-3.634927,-5.552614,12.869448),(-2.868956,-5.480482,12.735165),
(-2.482557,-4.872308,12.433891),(-2.766695,-4.186058,12.192492),(-3.50741,-3.938493,12.192747),(-4.146927,-4.316035,12.434463),(-4.203678,-5.034386,12.735622),
(-3.348169,-4.888796,14.031025),(-2.596883,-4.889854,13.817683),(-2.207945,-4.355084,13.402118),(-2.474233,-3.687179,13.097258),(-3.195227,-3.389084,13.132669),
(-3.828003,-3.685272,13.481687),(-3.896069,-4.352706,13.881493),(-2.924199,-4.112103,15.022236),(-2.199505,-4.195355,14.743249),(-1.825703,-3.753158,14.21915),
(-2.084274,-3.118495,13.844596),(-2.780509,-2.76928,13.901634),(-3.390128,-2.968481,14.347314),(-3.454077,-3.566093,14.846028),(-2.333136,-3.176425,15.865433),
(-1.646944,-3.351308,15.536035),(-1.308739,-3.02448,14.912539),(-1.573196,-2.442049,14.46445),(-2.241174,-2.042598,14.529189),(-2.809671,-2.126921,15.058005),
(-2.850598,-2.631521,15.65269),(-1.651382,-2.173842,16.44944),(-1.008675,-2.439685,16.094191),(-0.724455,-2.24606,15.392996),(-1.012745,-1.738772,14.873868),
(-1.656457,-1.299819,14.927722),(-2.170863,-1.25974,15.514004),(-2.168605,-1.648717,16.191233),(-0.845857,-1.036055,16.766333),(-0.249214,-1.391838,16.409428),
(-0.038543,-1.353987,15.65834),(-0.372486,-0.951005,15.078655),(-0.999575,-0.486346,15.106887),(-1.4476,-0.309907,15.721776),(-1.379189,-0.55455,16.460299),
(-0.060242,0.078742,16.758659),(0.500367,-0.349849,16.424036),(0.632552,-0.47076,15.663869),(0.236775,-0.192942,15.050579),(-0.388936,0.274403,15.045987),
(-0.773408,0.579354,15.65355),(-0.627125,0.492277,16.41576),(0.728606,1.247659,16.39064),(1.265367,0.76341,16.095112),(1.316394,0.476951,15.370346),
(0.843262,0.603992,14.762108),(0.20225,1.048868,14.728413),(-0.123947,1.476578,15.294633),(0.110303,1.565049,16.034393),(1.353681,2.279492,15.734652),
(1.885736,1.767372,15.480494),(1.874418,1.336121,14.829462),(1.328249,1.310479,14.271799),(0.658505,1.709756,14.227435),(0.369518,2.233287,14.729777),
(0.6789,2.486844,15.400552),(1.817114,3.245542,14.738948),(2.359794,2.729766,14.51664),(2.306669,2.170294,13.974316),(1.697744,1.988419,13.520357),
(0.991552,2.321097,13.496603),(0.719869,2.917814,13.920942),(1.087278,3.329231,14.473838),(2.016142,3.999502,13.60177),(2.578411,3.501406,13.387993),
(2.515513,2.849517,12.962517),(1.874812,2.53472,12.645733),(1.138769,2.794065,12.676187),(0.861639,3.432258,13.030946),(1.252107,3.968729,13.442869),
(1.934568,4.597007,12.28525),(2.514792,4.130309,12.049709),(2.469042,3.414446,11.74085),(1.831768,2.988478,11.591249),(1.082851,3.173168,11.713559),
(0.786241,3.82944,12.015678),(1.16529,4.463108,12.270104),(1.588658,5.00437,10.997274),(2.175132,4.573166,10.71433),(2.165202,3.825348,10.48935),
(1.566346,3.324038,10.49175),(0.829514,3.446733,10.719722),(0.509556,4.10104,11.001598),(0.847407,4.794254,11.125121),(0.995597,5.281,9.751608),
(1.569928,4.884719,9.400822),(1.59959,4.124593,9.223971),(1.062247,3.573013,9.354231),(0.362528,3.645329,9.693511),(0.027337,4.287086,9.986326),
(0.309079,5.015028,10.012182),(0.27568,5.506025,8.612988),(0.832654,5.141243,8.20475),(0.887202,4.383181,8.024989),(0.398248,3.802677,8.209069),
(-0.266015,3.836862,8.618376),(-0.605385,4.459993,8.944691),(-0.364308,5.202841,8.942294),(-0.47379,5.76754,7.574432),(0.067856,5.43469,7.120807),
(0.124589,4.688361,6.897826),(-0.346313,4.090554,7.073398),(-0.990251,4.091431,7.515313),(-1.322326,4.690331,7.890801),(-1.09248,5.43627,7.917111),
(-1.148863,6.083636,6.566633),(-0.591473,5.772423,6.116733),(-0.531159,5.039808,5.852947),(-1.013337,4.437464,5.97391),(-1.674919,4.418969,6.388535),
(-2.017719,4.99825,6.784601),(-1.783602,5.739097,6.863862),(-1.666658,6.492042,5.485108),(-1.065752,6.180802,5.095253),(-0.998571,5.462096,4.797101),
(-1.515705,4.877123,4.815166),(-2.227741,4.866381,5.135846),(-2.598501,5.437958,5.517662),(-2.348796,6.161445,5.673098),(-1.973359,6.935661,4.383243),
(-1.329962,6.607716,4.085857),(-1.244164,5.894681,3.778992),(-1.780574,5.333485,3.693723),(-2.535263,5.346721,3.89426),(-2.939936,5.924421,4.229595),
(-2.689865,6.631566,4.447212),(-2.045498,7.411753,3.17269),(-1.374266,7.050628,3.002449),(-1.26694,6.331852,2.716461),(-1.804339,5.796678,2.530082),
(-2.581791,5.848103,2.583659),(-3.013859,6.447402,2.836847),(-2.775186,7.143292,3.09899),(-1.912622,7.86554,1.930542),(-1.235585,7.480018,1.876327),
(-1.109107,6.75073,1.627151),(-1.628431,6.226844,1.370649),(-2.402494,6.302857,1.299972),(-2.848411,6.921531,1.468341),(-2.630398,7.61699,1.748971),
(-1.614203,8.271711,0.654159),(-0.943931,7.873496,0.700045),(-0.803832,7.131383,0.501079),(-1.299405,6.604199,0.207087),(-2.057472,6.688924,0.03945),
(-2.507194,7.321758,0.124404),(-2.309921,8.026165,0.397975),(-1.20176,8.61125,-0.625477),(-0.541421,8.213114,-0.501434),(-0.391613,7.460753,-0.647916),
(-0.865144,6.92071,-0.95462),(-1.605437,6.999648,-1.190591),(-2.055035,7.638124,-1.178138),(-1.875382,8.355355,-0.926639),(-0.716673,8.87518,-1.914965),
(-0.064316,8.486827,-1.731778),(0.092078,7.727141,-1.823244),(-0.36526,7.168183,-2.120488),(-1.091945,7.230859,-2.399679),(-1.540768,7.867972,-2.45058),
(-1.373756,8.599764,-2.234862),(-0.202351,9.024338,-3.167671),(0.440998,8.651211,-2.92929),(0.596152,7.886076,-2.950326),(0.146276,7.305095,-3.214937),
(-0.569863,7.345758,-3.523867),(-1.012999,7.977446,-3.644484),(-0.849441,8.724483,-3.485962),(0.350573,9.026345,-4.459897),(0.984876,8.675076,-4.169696),
(1.129721,7.91071,-4.101049),(0.676037,7.308832,-4.305647),(-0.034542,7.322668,-4.629424),(-0.466937,7.941798,-4.828569),(-0.295545,8.700006,-4.753122),
(0.851537,8.853968,-5.679625),(1.483498,8.531479,-5.353169),(1.614288,7.78049,-5.183297),(1.14542,7.166512,-5.297925),(0.429962,7.151881,-5.610737),
(0.006667,7.747616,-5.886178),(0.194285,8.505116,-5.916836),(1.300032,8.456387,-6.932463),(1.939071,8.166039,-6.590009),(2.05645,7.44729,-6.30793),
(1.563781,6.841372,-6.298637),(0.832053,6.804553,-6.569129),(0.412273,7.364559,-6.915718),(0.620543,8.099694,-7.077417),(1.613456,7.879975,-8.07121),
(2.267577,7.616951,-7.735219),(2.382228,6.94651,-7.351407),(1.871074,6.373509,-7.208793),(1.119025,6.32943,-7.414768),(0.692389,6.847464,-7.814229),
(0.912431,7.537521,-8.106373),(1.783564,7.093649,-9.163599),(2.457611,6.845282,-8.857133),(2.582688,6.235421,-8.385571),(2.064611,5.723303,-8.104009),
(1.293501,5.694563,-8.224468),(0.850021,6.170844,-8.656241),(1.068119,6.793496,-9.074194),(1.781511,6.184982,-10.103876),(2.473556,5.936837,-9.840352),
(2.622304,5.392338,-9.300591),(2.115746,4.961503,-8.891047),(1.33533,4.96876,-8.920113),(0.868725,5.408644,-9.365902),(1.067294,5.949914,-9.892727),
(1.597651,5.133821,-10.923002),(2.301402,4.868461,-10.712612),(2.485081,4.389132,-10.12401),(2.010373,4.056781,-9.600425),(1.234744,4.121674,-9.536127),
(0.742257,4.534945,-9.979534),(0.903766,4.985393,-10.596752),(1.240651,4.033477,-11.567079),(1.945547,3.734499,-11.413195),(2.170682,3.310314,-10.797298),
(1.746524,3.080343,-10.183172),(0.992474,3.217759,-10.033266),(0.476346,3.619084,-10.460463),(0.586795,3.982113,-11.143073),(0.706652,2.892004,-12.049578),
(1.399297,2.544844,-11.951243),(1.667863,2.162493,-11.325443),(1.310113,2.032868,-10.643416),(0.595442,2.25358,-10.418745),(0.06201,2.658429,-10.82061),
(0.111504,2.942554,-11.546398),(0.043577,1.773508,-12.40103),(0.714785,1.377632,-12.348988),(1.016497,1.009977,-11.729515),(0.721518,0.947396,-11.009087),
(0.051973,1.237012,-10.7302),(-0.487957,1.66074,-11.102862),(-0.491694,1.899503,-11.846451),(-0.70671,0.714905,-12.669079),(-0.062006,0.274284,-12.656597),
(0.259434,-0.101358,-12.052018),(0.015558,-0.129154,-11.310601),(-0.60999,0.211826,-10.990649),(-1.146159,0.664818,-11.333093),(-1.189204,0.888709,-12.080064),
(-1.473646,-0.350815,-12.897011),(-0.829083,-0.791589,-12.91128),(-0.480381,-1.163607,-12.31971),(-0.690119,-1.186733,-11.567764),(-1.300361,-0.843552,-11.221675),
(-1.851581,-0.392486,-11.542053),(-1.9287,-0.173198,-12.287647),(-2.17749,-1.475825,-13.11892),(-1.50492,-1.87165,-13.149244),(-1.119568,-2.222219,-12.567391),
(-1.311612,-2.263546,-11.81151),(-1.936438,-1.964511,-11.450792),(-2.52354,-1.550295,-11.756867),(-2.630818,-1.332809,-12.499254),(-2.737033,-2.650939,-13.283552),
(-2.023499,-2.965965,-13.32324),(-1.583499,-3.249571,-12.74366),(-1.748362,-3.288196,-11.981246),(-2.393942,-3.052755,-11.610112),(-3.034105,-2.720539,-11.90973),
(-3.186795,-2.541714,-12.654481),(-3.110095,-4.022423,-13.347653),(-2.352826,-4.207728,-13.394057),(-1.852467,-4.360441,-12.814173),(-1.985798,-4.365565,-12.044664),
(-2.652418,-4.219243,-11.664988),(-3.350348,-4.031657,-11.961047),(-3.554033,-3.944064,-12.709904),(-3.224794,-5.355627,-13.255402),(-2.44834,-5.406786,-13.322101),
(-1.909576,-5.400516,-12.756734),(-2.014202,-5.341538,-11.985033),(-2.683432,-5.274264,-11.588106),(-3.413323,-5.249352,-11.864845),(-3.654252,-5.285562,-12.606862),
(-3.05918,-6.768643,-12.94005),(-2.290277,-6.680979,-13.045168),(-1.746567,-6.482863,-12.52069),(-1.837476,-6.323482,-11.761559),(-2.494546,-6.322853,-11.339416),
(-3.222991,-6.481449,-11.572144),(-3.474277,-6.679844,-12.284492),(-2.668733,-7.976344,-12.432124),(-1.929965,-7.780655,-12.592977),(-1.41665,-7.403626,-12.140977),
(-1.515326,-7.129168,-11.41649),(-2.151687,-7.163953,-10.965068),(-2.846541,-7.481787,-11.126643),(-3.076648,-7.843335,-11.779545),(-2.028678,-9.050808,-11.648659),
(-1.334597,-8.776667,-11.878973),(-0.88777,-8.234359,-11.5381),(-1.024667,-7.832253,-10.882725),(-1.642201,-7.873144,-10.406358),(-2.275357,-8.32624,-10.467713),
(-2.447356,-8.850349,-11.020589),(-1.304725,-9.781885,-10.723455),(-0.652311,-9.473187,-11.021797),(-0.287442,-8.813911,-10.816438),(-0.484872,-8.300507,-10.262016),
(-1.095932,-8.319576,-9.776024),(-1.660481,-8.856761,-9.724422),(-1.753403,-9.50755,-10.14607),(-0.479387,-10.20009,-9.563593),(0.142839,-9.890922,-9.920238),
(0.41594,-9.160521,-9.876912),(0.134265,-8.558894,-9.46624),(-0.490078,-8.53908,-8.997465),(-0.986947,-9.115997,-8.823586),(-0.982189,-9.855217,-9.075538),
(0.24455,-10.249504,-8.372355),(0.861075,-9.964862,-8.75813),(1.062963,-9.218887,-8.870865),(0.69819,-8.573314,-8.625669),(0.041436,-8.514272,-8.207177),
(-0.41275,-9.086221,-7.930525),(-0.322355,-9.858472,-8.004035),(0.855471,-9.947658,-7.073361),(1.490015,-9.69354,-7.451151),(1.646955,-8.973561,-7.709893),
(1.208113,-8.329882,-7.654749),(0.503946,-8.247204,-7.327244),(0.064706,-8.787787,-6.973995),(0.221149,-9.54456,-6.861007),(1.231436,-9.404554,-5.843214),
(1.898429,-9.166113,-6.172171),(2.04992,-8.488668,-6.530034),(1.571832,-7.88235,-6.647326),(0.824177,-7.803729,-6.435722),(0.369953,-8.312007,-6.054565),
(0.5512,-9.024441,-5.790874),(1.361423,-8.68739,-4.640189),(2.060675,-8.438913,-4.883607),(2.233748,-7.797143,-5.293635),(1.750316,-7.245345,-5.561512),
(0.974412,-7.199035,-5.485523),(0.490307,-7.693085,-5.122889),(0.662543,-8.355465,-4.746679),(1.27737,-7.935801,-3.507183),(1.992776,-7.660622,-3.656907),
(2.195014,-7.027819,-4.067524),(1.731794,-6.513906,-4.429833),(0.951931,-6.505869,-4.471006),(0.442677,-7.009761,-4.16004),(0.587511,-7.646141,-3.731098),
(1.022999,-7.237267,-2.410409),(1.738273,-6.928031,-2.462398),(1.96159,-6.276767,-2.831085),(1.524789,-5.77389,-3.238842),(0.756789,-5.798076,-3.378619),
(0.23591,-6.331113,-3.145162),(0.354384,-6.971614,-2.714267),(0.657687,-6.649902,-1.339776),(1.362476,-6.31532,-1.304085),(1.593587,-5.633279,-1.606333),
(1.176988,-5.117369,-2.018922),(0.426388,-5.156082,-2.231163),(-0.092997,-5.720265,-2.083235),(0.009941,-6.385077,-1.68653),(0.217325,-6.211609,-0.248919),
(0.905855,-5.861952,-0.13225),(1.128301,-5.142866,-0.340527),(0.717156,-4.595837,-0.716913),(-0.01798,-4.632791,-0.977981),(-0.523534,-5.225899,-0.927142),
(-0.418813,-5.928539,-0.602679),(-0.262069,-5.95135,0.805254),(0.406288,-5.597555,1.00038),(0.609772,-4.850535,0.897902),(0.195155,-4.27281,0.574988),
(-0.525348,-4.29942,0.274798),(-1.009183,-4.910327,0.223381),(-0.892013,-5.645504,0.459457),(-0.791301,-5.871688,1.880146),(-0.146099,-5.524957,2.151142),
(0.027079,-4.763595,2.168015),(-0.402173,-4.160925,1.918059),(-1.110619,-4.170769,1.589497),(-1.564786,-4.785714,1.429742),(-1.422676,-5.542695,1.559093),
(-1.335642,-5.936872,2.947308),(-0.703496,-5.610318,3.269332),(-0.551361,-4.852845,3.383509),(-0.993799,-4.234847,3.20386),(-1.697644,-4.221688,2.865665),
(-2.132886,-4.823278,2.623592),(-1.971781,-5.586607,2.659927),(-1.886942,-6.1155,4.042011),(-1.255947,-5.813885,4.389603),(-1.111919,-5.069298,4.576133),
(-1.563314,-4.442429,4.461141),(-2.270223,-4.405322,4.131217),(-2.700328,-4.98592,3.834801),(-2.529752,-5.747021,3.795101),(0.0,0.0,0.0)  --  450
);

idx_11: constant Idx_4_array_array:=
( (1802,1803,1810,1809),(1803,1804,1811,1810),(1804,1805,1812,1811),(1805,1806,1813,1812),(1806,1807,1814,1813),(1807,1808,1815,1814),(1808,1802,1809,1815),(1809,1810,1817,1816),
(1810,1811,1818,1817),(1811,1812,1819,1818),(1812,1813,1820,1819),(1813,1814,1821,1820),(1814,1815,1822,1821),(1815,1809,1816,1822),(1816,1817,1824,1823),(1817,1818,1825,1824),
(1818,1819,1826,1825),(1819,1820,1827,1826),(1820,1821,1828,1827),(1821,1822,1829,1828),(1822,1816,1823,1829),(1823,1824,1831,1830),(1824,1825,1832,1831),(1825,1826,1833,1832),
(1826,1827,1834,1833),(1827,1828,1835,1834),(1828,1829,1836,1835),(1829,1823,1830,1836),(1830,1831,1838,1837),(1831,1832,1839,1838),(1832,1833,1840,1839),(1833,1834,1841,1840),
(1834,1835,1842,1841),(1835,1836,1843,1842),(1836,1830,1837,1843),(1837,1838,1845,1844),(1838,1839,1846,1845),(1839,1840,1847,1846),(1840,1841,1848,1847),(1841,1842,1849,1848),
(1842,1843,1850,1849),(1843,1837,1844,1850),(1844,1845,1852,1851),(1845,1846,1853,1852),(1846,1847,1854,1853),(1847,1848,1855,1854),(1848,1849,1856,1855),(1849,1850,1857,1856),
(1850,1844,1851,1857),(1851,1852,1859,1858),(1852,1853,1860,1859),(1853,1854,1861,1860),(1854,1855,1862,1861),(1855,1856,1863,1862),(1856,1857,1864,1863),(1857,1851,1858,1864),
(1858,1859,1866,1865),(1859,1860,1867,1866),(1860,1861,1868,1867),(1861,1862,1869,1868),(1862,1863,1870,1869),(1863,1864,1871,1870),(1864,1858,1865,1871),(1865,1866,1873,1872),
(1866,1867,1874,1873),(1867,1868,1875,1874),(1868,1869,1876,1875),(1869,1870,1877,1876),(1870,1871,1878,1877),(1871,1865,1872,1878),(1872,1873,1880,1879),(1873,1874,1881,1880),
(1874,1875,1882,1881),(1875,1876,1883,1882),(1876,1877,1884,1883),(1877,1878,1885,1884),(1878,1872,1879,1885),(1879,1880,1887,1886),(1880,1881,1888,1887),(1881,1882,1889,1888),
(1882,1883,1890,1889),(1883,1884,1891,1890),(1884,1885,1892,1891),(1885,1879,1886,1892),(1886,1887,1894,1893),(1887,1888,1895,1894),(1888,1889,1896,1895),(1889,1890,1897,1896),
(1890,1891,1898,1897),(1891,1892,1899,1898),(1892,1886,1893,1899),(1893,1894,1901,1900),(1894,1895,1902,1901),(1895,1896,1903,1902),(1896,1897,1904,1903),(1897,1898,1905,1904),
(1898,1899,1906,1905),(1899,1893,1900,1906),(1900,1901,1908,1907),(1901,1902,1909,1908),(1902,1903,1910,1909),(1903,1904,1911,1910),(1904,1905,1912,1911),(1905,1906,1913,1912),
(1906,1900,1907,1913),(1907,1908,1915,1914),(1908,1909,1916,1915),(1909,1910,1917,1916),(1910,1911,1918,1917),(1911,1912,1919,1918),(1912,1913,1920,1919),(1913,1907,1914,1920),
(1914,1915,1922,1921),(1915,1916,1923,1922),(1916,1917,1924,1923),(1917,1918,1925,1924),(1918,1919,1926,1925),(1919,1920,1927,1926),(1920,1914,1921,1927),(1921,1922,1929,1928),
(1922,1923,1930,1929),(1923,1924,1931,1930),(1924,1925,1932,1931),(1925,1926,1933,1932),(1926,1927,1934,1933),(1927,1921,1928,1934),(1928,1929,1936,1935),(1929,1930,1937,1936),
(1930,1931,1938,1937),(1931,1932,1939,1938),(1932,1933,1940,1939),(1933,1934,1941,1940),(1934,1928,1935,1941),(1935,1936,1943,1942),(1936,1937,1944,1943),(1937,1938,1945,1944),
(1938,1939,1946,1945),(1939,1940,1947,1946),(1940,1941,1948,1947),(1941,1935,1942,1948),(1942,1943,1950,1949),(1943,1944,1951,1950),(1944,1945,1952,1951),(1945,1946,1953,1952),
(1946,1947,1954,1953),(1947,1948,1955,1954),(1948,1942,1949,1955),(1949,1950,1957,1956),(1950,1951,1958,1957),(1951,1952,1959,1958),(1952,1953,1960,1959),(1953,1954,1961,1960),
(1954,1955,1962,1961),(1955,1949,1956,1962),(1956,1957,1964,1963),(1957,1958,1965,1964),(1958,1959,1966,1965),(1959,1960,1967,1966),(1960,1961,1968,1967),(1961,1962,1969,1968),
(1962,1956,1963,1969),(1963,1964,1971,1970),(1964,1965,1972,1971),(1965,1966,1973,1972),(1966,1967,1974,1973),(1967,1968,1975,1974),(1968,1969,1976,1975),(1969,1963,1970,1976),
(1970,1971,1978,1977),(1971,1972,1979,1978),(1972,1973,1980,1979),(1973,1974,1981,1980),(1974,1975,1982,1981),(1975,1976,1983,1982),(1976,1970,1977,1983),(1977,1978,1985,1984),
(1978,1979,1986,1985),(1979,1980,1987,1986),(1980,1981,1988,1987),(1981,1982,1989,1988),(1982,1983,1990,1989),(1983,1977,1984,1990),(1984,1985,1992,1991),(1985,1986,1993,1992),
(1986,1987,1994,1993),(1987,1988,1995,1994),(1988,1989,1996,1995),(1989,1990,1997,1996),(1990,1984,1991,1997),(1991,1992,1999,1998),(1992,1993,2000,1999),(1993,1994,2001,2000),
(1994,1995,2002,2001),(1995,1996,2003,2002),(1996,1997,2004,2003),(1997,1991,1998,2004),(1998,1999,2006,2005),(1999,2000,2007,2006),(2000,2001,2008,2007),(2001,2002,2009,2008),
(2002,2003,2010,2009),(2003,2004,2011,2010),(2004,1998,2005,2011),(2005,2006,2013,2012),(2006,2007,2014,2013),(2007,2008,2015,2014),(2008,2009,2016,2015),(2009,2010,2017,2016),
(2010,2011,2018,2017),(2011,2005,2012,2018),(2012,2013,2020,2019),(2013,2014,2021,2020),(2014,2015,2022,2021),(2015,2016,2023,2022),(2016,2017,2024,2023),(2017,2018,2025,2024),
(2018,2012,2019,2025),(2019,2020,2027,2026),(2020,2021,2028,2027),(2021,2022,2029,2028),(2022,2023,2030,2029),(2023,2024,2031,2030),(2024,2025,2032,2031),(2025,2019,2026,2032),
(2026,2027,2034,2033),(2027,2028,2035,2034),(2028,2029,2036,2035),(2029,2030,2037,2036),(2030,2031,2038,2037),(2031,2032,2039,2038),(2032,2026,2033,2039),(2033,2034,2041,2040),
(2034,2035,2042,2041),(2035,2036,2043,2042),(2036,2037,2044,2043),(2037,2038,2045,2044),(2038,2039,2046,2045),(2039,2033,2040,2046),(2040,2041,2048,2047),(2041,2042,2049,2048),
(2042,2043,2050,2049),(2043,2044,2051,2050),(2044,2045,2052,2051),(2045,2046,2053,2052),(2046,2040,2047,2053),(2047,2048,2055,2054),(2048,2049,2056,2055),(2049,2050,2057,2056),
(2050,2051,2058,2057),(2051,2052,2059,2058),(2052,2053,2060,2059),(2053,2047,2054,2060),(2054,2055,2062,2061),(2055,2056,2063,2062),(2056,2057,2064,2063),(2057,2058,2065,2064),
(2058,2059,2066,2065),(2059,2060,2067,2066),(2060,2054,2061,2067),(2061,2062,2069,2068),(2062,2063,2070,2069),(2063,2064,2071,2070),(2064,2065,2072,2071),(2065,2066,2073,2072),
(2066,2067,2074,2073),(2067,2061,2068,2074),(2068,2069,2076,2075),(2069,2070,2077,2076),(2070,2071,2078,2077),(2071,2072,2079,2078),(2072,2073,2080,2079),(2073,2074,2081,2080),
(2074,2068,2075,2081),(2075,2076,2083,2082),(2076,2077,2084,2083),(2077,2078,2085,2084),(2078,2079,2086,2085),(2079,2080,2087,2086),(2080,2081,2088,2087),(2081,2075,2082,2088),
(2082,2083,2090,2089),(2083,2084,2091,2090),(2084,2085,2092,2091),(2085,2086,2093,2092),(2086,2087,2094,2093),(2087,2088,2095,2094),(2088,2082,2089,2095),(2089,2090,2097,2096),
(2090,2091,2098,2097),(2091,2092,2099,2098),(2092,2093,2100,2099),(2093,2094,2101,2100),(2094,2095,2102,2101),(2095,2089,2096,2102),(2096,2097,2104,2103),(2097,2098,2105,2104),
(2098,2099,2106,2105),(2099,2100,2107,2106),(2100,2101,2108,2107),(2101,2102,2109,2108),(2102,2096,2103,2109),(2103,2104,2111,2110),(2104,2105,2112,2111),(2105,2106,2113,2112),
(2106,2107,2114,2113),(2107,2108,2115,2114),(2108,2109,2116,2115),(2109,2103,2110,2116),(2110,2111,2118,2117),(2111,2112,2119,2118),(2112,2113,2120,2119),(2113,2114,2121,2120),
(2114,2115,2122,2121),(2115,2116,2123,2122),(2116,2110,2117,2123),(2117,2118,2125,2124),(2118,2119,2126,2125),(2119,2120,2127,2126),(2120,2121,2128,2127),(2121,2122,2129,2128),
(2122,2123,2130,2129),(2123,2117,2124,2130),(2124,2125,2132,2131),(2125,2126,2133,2132),(2126,2127,2134,2133),(2127,2128,2135,2134),(2128,2129,2136,2135),(2129,2130,2137,2136),
(2130,2124,2131,2137),(2131,2132,2139,2138),(2132,2133,2140,2139),(2133,2134,2141,2140),(2134,2135,2142,2141),(2135,2136,2143,2142),(2136,2137,2144,2143),(2137,2131,2138,2144),
(2138,2139,2146,2145),(2139,2140,2147,2146),(2140,2141,2148,2147),(2141,2142,2149,2148),(2142,2143,2150,2149),(2143,2144,2151,2150),(2144,2138,2145,2151),(2145,2146,2153,2152),
(2146,2147,2154,2153),(2147,2148,2155,2154),(2148,2149,2156,2155),(2149,2150,2157,2156),(2150,2151,2158,2157),(2151,2145,2152,2158),(2152,2153,2160,2159),(2153,2154,2161,2160),
(2154,2155,2162,2161),(2155,2156,2163,2162),(2156,2157,2164,2163),(2157,2158,2165,2164),(2158,2152,2159,2165),(2159,2160,2167,2166),(2160,2161,2168,2167),(2161,2162,2169,2168),
(2162,2163,2170,2169),(2163,2164,2171,2170),(2164,2165,2172,2171),(2165,2159,2166,2172),(2166,2167,2174,2173),(2167,2168,2175,2174),(2168,2169,2176,2175),(2169,2170,2177,2176),
(2170,2171,2178,2177),(2171,2172,2179,2178),(2172,2166,2173,2179),(2173,2174,2181,2180),(2174,2175,2182,2181),(2175,2176,2183,2182),(2176,2177,2184,2183),(2177,2178,2185,2184),
(2178,2179,2186,2185),(2179,2173,2180,2186),(2180,2181,2188,2187),(2181,2182,2189,2188),(2182,2183,2190,2189),(2183,2184,2191,2190),(2184,2185,2192,2191),(2185,2186,2193,2192),
(2186,2180,2187,2193),(2187,2188,2195,2194),(2188,2189,2196,2195),(2189,2190,2197,2196),(2190,2191,2198,2197),(2191,2192,2199,2198),(2192,2193,2200,2199),(2193,2187,2194,2200),
(2194,2195,2202,2201),(2195,2196,2203,2202),(2196,2197,2204,2203),(2197,2198,2205,2204),(2198,2199,2206,2205),(2199,2200,2207,2206),(2200,2194,2201,2207),(2201,2202,2209,2208),
(2202,2203,2210,2209),(2203,2204,2211,2210),(2204,2205,2212,2211),(2205,2206,2213,2212),(2206,2207,2214,2213),(2207,2201,2208,2214),(2208,2209,2216,2215),(2209,2210,2217,2216),
(2210,2211,2218,2217),(2211,2212,2219,2218),(2212,2213,2220,2219),(2213,2214,2221,2220),(2214,2208,2215,2221),(2215,2216,2223,2222),(2216,2217,2224,2223),(2217,2218,2225,2224),
(2218,2219,2226,2225),(2219,2220,2227,2226),(2220,2221,2228,2227),(2221,2215,2222,2228),(2222,2223,2230,2229),(2223,2224,2231,2230),(2224,2225,2232,2231),(2225,2226,2233,2232),
(2226,2227,2234,2233),(2227,2228,2235,2234),(2228,2222,2229,2235),(2229,2230,2237,2236),(2230,2231,2238,2237),(2231,2232,2239,2238),(2232,2233,2240,2239),(2233,2234,2241,2240),
(2234,2235,2242,2241),(2235,2229,2236,2242),(2236,2237,2244,2243),(2237,2238,2245,2244),(2238,2239,2246,2245),(2239,2240,2247,2246),(2240,2241,2248,2247),(2241,2242,2249,2248),
(2242,2236,2243,2249),(2243,2244,1803,1802),(2244,2245,1804,1803),(2245,2246,1805,1804),(2246,2247,1806,1805),(2247,2248,1807,1806),(2248,2249,1808,1807),(2249,2243,1802,1808),
(2249,2243,1802,1808)--  449
);
-- last index now: 2250
-- end Separator # 11
-- last index now: 2250
-- end Separator # 11
-- begin Separator # 12

matos_12: 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 => 25.6
);
-- begin Separator # 13
coord_13: constant Point_3D_array:=
( (0.0,0.0,0.0),(0.695193,-9.762609,5.705659),(1.349188,-9.459958,5.404594),(1.510711,-8.71312,5.243072),(1.058133,-8.084478,5.342721),
(0.332254,-8.047415,5.628505),(-0.120324,-8.629837,5.885222),(0.041199,-9.39317,5.919559),(1.11985,-9.426557,6.93591),(1.775986,-9.146495,6.618112),
(1.922763,-8.423595,6.361557),(1.449655,-7.802218,6.359436),(0.71292,-7.750272,6.613347),(0.267337,-8.306873,6.932089),(0.448437,-9.05289,7.075644),
(1.452212,-8.926107,8.076766),(2.114759,-8.666342,7.755052),(2.250467,-7.98116,7.405687),(1.757145,-7.386518,7.291749),(1.006275,-7.330194,7.499037),
(0.563277,-7.8546,7.871459),(0.761738,-8.564848,8.128572),(1.688755,-8.228121,9.182477),(2.360909,-7.982328,8.86984),(2.491474,-7.348761,8.432242),
(1.982133,-6.804508,8.199204),(1.216429,-6.759403,8.346209),(0.770954,-7.24741,8.762558),(0.981158,-7.901052,9.134732),(1.797868,-7.385474,10.157307),
(2.480143,-7.147756,9.860764),(2.61418,-6.578804,9.342812),(2.099047,-6.10705,8.99348),(1.32265,-6.087735,9.075822),(0.869631,-6.535403,9.527832),
(1.081123,-7.112951,10.009138),(1.77098,-6.362693,11.023428),(2.462306,-6.124859,10.748745),(2.609342,-5.633308,10.159928),(2.101367,-5.258188,9.70037),
(1.320898,-5.281972,9.716126),(0.855643,-5.68675,10.195333),(1.055948,-6.167716,10.777137),(1.596069,-5.249706,11.702879),(2.29349,-5.000056,11.455442),
(2.464129,-4.590402,10.812782),(1.979492,-4.329221,10.258835),(1.204519,-4.413188,10.210734),(0.722782,-4.779075,10.7047),(0.897038,-5.151361,11.368768),
(1.254844,-4.027484,12.200641),(1.952591,-3.752774,11.982397),(2.156784,-3.427199,11.302506),(1.713662,-3.295923,10.672938),(0.956904,-3.457799,10.567772),
(0.456365,-3.790932,11.066198),(0.58896,-4.044466,11.792893),(0.759117,-2.81012,12.509159),(1.447211,-2.491668,12.321911),(1.68738,-2.224063,11.628619),
(1.298772,-2.208818,10.951347),(0.574017,-2.457412,10.800094),(0.05887,-2.782649,11.288756),(0.141247,-2.939619,12.049362),(0.111589,-1.634217,12.665912),
(0.776859,-1.257059,12.507436),(1.048842,-1.019457,11.814964),(0.722729,-1.10033,11.109941),(0.044091,-1.438779,10.923265),(-0.476045,-1.779945,11.395505),
(-0.446006,-1.866923,12.171056),(-0.615309,-0.498582,12.748611),(0.035199,-0.08758,12.614961),(0.330978,0.147275,11.931364),(0.0493,0.029132,11.212583),
(-0.597726,-0.353045,10.999874),(-1.122876,-0.711469,11.453412),(-1.130701,-0.776239,12.231673),(-1.339874,0.593143,12.832039),(-0.691629,1.014548,12.721847),
(-0.382821,1.266311,12.050133),(-0.645989,1.15885,11.322712),(-1.282962,0.773085,11.087346),(-1.814087,0.399505,11.521272),(-1.839415,0.319423,12.297732),
(-1.993578,1.725674,12.884971),(-1.315862,2.103257,12.795089),(-0.968578,2.329542,12.133171),(-1.213238,2.234132,11.397655),(-1.865607,1.888872,11.142398),
(-2.434439,1.553751,11.559614),(-2.491392,1.481121,12.335133),(-2.504853,3.024206,12.86659),(-1.773654,3.290463,12.80024),(-1.364905,3.434338,12.150493),
(-1.586401,3.34749,11.406622),(-2.271352,3.095317,11.128778),(-2.903975,2.867711,11.526181),(-3.007893,2.836064,12.299581),(-2.781256,4.306585,12.726521),
(-2.012906,4.443305,12.69665),(-1.545888,4.463591,12.071007),(-1.731877,4.352166,11.320714),(-2.430818,4.192936,11.010757),(-3.116395,4.105804,11.37454),
(-3.272355,4.156383,12.138127),(-2.799778,5.712226,12.372647),(-2.019516,5.699676,12.403954),(-1.51165,5.544159,11.831387),(-1.658613,5.362783,11.086101),
(-2.34974,5.292128,10.729311),(-3.064597,5.385398,11.029688),(-3.264883,5.572359,11.761042),(-2.566511,6.939818,11.843227),(-1.804574,6.806976,11.951626),
(-1.293446,6.476533,11.462236),(-1.418017,6.197321,10.743579),(-2.084483,6.179591,10.336817),(-2.790981,6.436695,10.548251),(-3.005504,6.775028,11.218667),
(-2.061966,8.068364,11.046749),(-1.340207,7.846947,11.246709),(-0.865171,7.346944,10.88026),(-0.994572,6.944868,10.223345),(-1.630966,6.94349,9.770635),
(-2.295137,7.343848,9.863029),(-2.48695,7.844464,10.430954),(-1.422431,8.867552,10.121088),(-0.744167,8.604927,10.405576),(-0.332299,7.979726,10.183236),
(-0.496971,7.462739,9.621495),(-1.114182,7.443265,9.143355),(-1.719159,7.935971,9.108866),(-1.856343,8.569839,9.543998),(-0.634377,9.368686,8.972836),
(0.007577,9.101948,9.328775),(0.336801,8.39584,9.274279),(0.105384,7.782077,8.850384),(-0.512414,7.722834,8.376291),(-1.051377,8.262723,8.209003),
(-1.105656,8.995195,8.474491),(0.1085,9.494711,7.799538),(0.735789,9.248727,8.194439),(0.98972,8.517559,8.298646),(0.679078,7.851792,8.033689),
(0.037782,7.752762,7.599087),(-0.451259,8.29504,7.322104),(-0.419786,9.07028,7.411313),(0.79432,9.259757,6.522935),(1.428806,9.039481,6.921499),
(1.62182,8.326138,7.174153),(1.228019,7.65689,7.090643),(0.543943,7.535694,6.733855),(0.084715,8.053813,6.372456),(0.196143,8.821094,6.278588),
(1.280967,8.758378,5.311467),(1.939412,8.548488,5.675257),(2.104672,7.873813,6.032258),(1.652302,7.242398,6.113643),(0.922947,7.129711,5.858126),
(0.465825,7.620607,5.458117),(0.625159,8.345432,5.214831),(1.546614,8.051281,4.11618),(2.233347,7.825251,4.411568),(2.396437,7.187519,4.831861),
(1.913073,6.618311,5.060571),(1.147238,6.546253,4.925475),(0.675622,7.025604,4.528302),(0.853361,7.695405,4.168132),(1.585384,7.290493,2.988558),
(2.290815,7.030154,3.199595),(2.46983,6.404577,3.631513),(1.987626,5.884834,3.959069),(1.207313,5.862302,3.935608),(0.716483,6.353949,3.578795),
(0.88474,6.989553,3.157318),(1.423587,6.568151,1.888279),(2.133467,6.262152,1.999555),(2.329684,5.619013,2.396817),(1.864482,5.12303,2.78092),
(1.088169,5.147688,2.862625),(0.585323,5.67442,2.580408),(0.734599,6.306585,2.146783),(1.11641,5.958814,0.818452),(1.817908,5.615777,0.831585),
(2.023109,4.939521,1.164027),(1.577494,4.439282,1.565442),(0.816618,4.491749,1.733556),(0.313438,5.057414,1.541777),(0.446857,5.710319,1.134517),
(0.696146,5.504579,-0.268702),(1.3795,5.136679,-0.356016),(1.579077,4.418425,-0.123152),(1.144593,3.890676,0.25454),(0.403221,3.950839,0.492649),
(-0.086768,4.553609,0.411875),(0.043595,5.245088,0.073042),(0.206434,5.237972,-1.314958),(0.864439,4.86079,-1.501263),(1.045805,4.110438,-1.382839),
(0.613958,3.551945,-1.048862),(-0.105911,3.605869,-0.750823),(-0.571727,4.231603,-0.713152),(-0.43272,4.957957,-0.964215),(-0.361148,5.165087,-2.373986),
(0.266001,4.795873,-2.657379),(0.415382,4.029408,-2.670158),(-0.025491,3.442856,-2.402699),(-0.724633,3.477903,-2.056406),(-1.155575,4.108158,-1.892043),
(-0.993808,4.859025,-2.033379),(-0.9537,5.253711,-3.419598),(-0.346799,4.907496,-3.768529),(-0.224788,4.145786,-3.89042),(-0.679544,3.542164,-3.693483),
(-1.368625,3.551169,-3.326017),(-1.773141,4.166021,-3.06473),(-1.588482,4.923724,-3.106377),(-1.553507,5.478001,-4.486487),(-0.952774,5.158919,-4.870223),
(-0.847904,4.41312,-5.076942),(-1.317865,3.802206,-4.95098),(-2.008768,3.786207,-4.587189),(-2.400348,4.377171,-4.259511),(-2.197738,5.13009,-4.214694),
(-2.114755,5.761021,-5.596658),(-1.497524,5.459985,-5.96861),(-1.384094,4.725379,-6.208265),(-1.859882,4.110376,-6.135158),(-2.566608,4.078087,-5.804339),
(-2.972095,4.652825,-5.464922),(-2.771001,5.401801,-5.372496),(-2.606528,6.03388,-6.819182),(-1.954874,5.738488,-7.132292),(-1.809747,5.002879,-7.350842),
(-2.28043,4.380981,-7.310258),(-3.01249,4.341096,-7.041102),(-3.454669,4.913259,-6.746054),(-3.273999,5.666618,-6.64729),(-2.974233,6.222381,-8.062202),
(-2.287372,5.931376,-8.293469),(-2.10228,5.190119,-8.455416),(-2.558334,4.556793,-8.426091),(-3.312116,4.508306,-8.227579),(-3.796014,5.081168,-8.009363),
(-3.645642,5.844003,-7.935763),(-3.217504,6.274152,-9.425256),(-2.499158,5.992925,-9.547062),(-2.271675,5.248328,-9.608494),(-2.706354,4.601059,-9.563293),
(-3.475873,4.538524,-9.445496),(-4.000769,5.107813,-9.343806),(-3.885783,5.88024,-9.334799),(-3.302928,6.16571,-10.738116),(-2.56586,5.907621,-10.746301),
(-2.306628,5.172781,-10.693803),(-2.720441,4.51454,-10.620154),(-3.495687,4.428566,-10.580814),(-4.048592,4.9796,-10.605407),(-3.962806,5.752702,-10.675412),
(-3.227726,5.872761,-12.07853),(-2.486091,5.653397,-11.969893),(-2.208992,4.945759,-11.78986),(-2.60509,4.282714,-11.674002),(-3.376117,4.163548,-11.709561),
(-3.941472,4.677995,-11.869761),(-3.875432,5.438666,-12.033968),(-3.002151,5.421695,-13.295804),(-2.270659,5.25651,-13.077677),(-1.991995,4.595192,-12.769533),
(-2.375998,3.935729,-12.603413),(-3.133506,3.774708,-12.704408),(-3.694101,4.233382,-12.996466),(-3.635642,4.96636,-13.259663),(-2.608227,4.779553,-14.443237),
(-1.901808,4.684473,-14.124055),(-1.639982,4.091235,-13.688783),(-2.019911,3.446559,-13.465189),(-2.7555,3.2359,-13.621644),(-3.292835,3.617888,-14.040336),
(-3.227293,4.304879,-14.405978),(-2.09823,4.00583,-15.388659),(-1.428264,3.993045,-14.987498),(-1.200885,3.489747,-14.435288),(-1.587314,2.87493,-14.147853),
(-2.296561,2.611563,-14.341637),(-2.79455,2.897967,-14.870717),(-2.706285,3.518474,-15.336685),(-1.445948,3.043495,-16.158392),(-0.822781,3.12564,-15.69486),
(-0.64936,2.738698,-15.039003),(-1.056275,2.174046,-14.684695),(-1.73711,1.856878,-14.898736),(-2.179183,2.026027,-15.519949),(-2.049604,2.554121,-16.080549),
(-0.754853,2.004198,-16.646593),(-0.17887,2.182773,-16.150305),(-0.070659,1.930933,-15.418995),(-0.511705,1.43832,-15.003355),(-1.169891,1.07588,-15.21637),
(-1.54959,1.116539,-15.897635),(-1.36488,1.529679,-16.534143),(-0.003259,0.81574,-16.852318),(0.527881,1.091341,-16.350441),(0.560424,0.997783,-15.575757),
(0.069864,0.605516,-15.11162),(-0.574397,0.209926,-15.307532),(-0.887218,0.108899,-16.01597),(-0.633038,0.378512,-16.703465),(0.671174,-0.35603,-16.746557),
(1.171158,0.001674,-16.264883),(1.133891,0.070562,-15.487829),(0.587435,-0.20124,-15.000534),(-0.056717,-0.609059,-15.169941),(-0.313505,-0.845799,-15.868482),
(0.010436,-0.733191,-16.570143),(1.276301,-1.585402,-16.304623),(1.760261,-1.161888,-15.861492),(1.662481,-0.923667,-15.124175),(1.05659,-1.050127,-14.647885),
(0.398838,-1.446039,-14.791279),(0.184524,-1.813274,-15.446378),(0.575032,-1.875297,-16.119879),(1.691642,-2.689005,-15.609578),(2.178171,-2.22688,-15.209982),
(2.044696,-1.837167,-14.546465),(1.391727,-1.813327,-14.11867),(0.710962,-2.173312,-14.248734),(0.515032,-2.646046,-14.838717),(0.951475,-2.875551,-15.444349),
(1.905791,-3.727717,-14.627108),(2.409723,-3.253117,-14.265509),(2.267766,-2.728206,-13.704918),(1.586816,-2.548253,-13.36747),(0.879643,-2.848766,-13.507271),
(0.678762,-3.403453,-14.019048),(1.135441,-3.794623,-14.517422),(1.871201,-4.565878,-13.523548),(2.399394,-4.103891,-13.180725),(2.278992,-3.478499,-12.72869),
(1.600662,-3.160636,-12.507835),(0.875199,-3.389657,-12.684467),(0.648892,-3.993107,-13.12558),(1.092154,-4.516574,-13.499006),(1.569553,-5.243093,-12.286742),
(2.119604,-4.812547,-11.937428),(2.045878,-4.117044,-11.589884),(1.403892,-3.680314,-11.505816),(0.677075,-3.831222,-11.74853),(0.412735,-4.456132,-12.135257),
(0.809924,-5.084474,-12.374784),(1.046689,-5.738664,-11.072918),(1.60465,-5.347769,-10.691045),(1.584491,-4.61854,-10.41218),(1.001393,-4.100102,-10.446313),
(0.294439,-4.18285,-10.767741),(-0.004018,-4.804472,-11.134423),(0.330764,-5.496874,-11.270239),(0.33494,-6.108157,-9.920854),(0.882604,-5.758458,-9.487585),
(0.908966,-5.017931,-9.240864),(0.394175,-4.444208,-9.366476),(-0.274121,-4.469314,-9.769834),(-0.592681,-5.074343,-10.1472),(-0.321623,-5.803697,-10.214409),
(-0.429101,-6.436444,-8.846565),(0.110973,-6.116264,-8.382074),(0.159258,-5.379585,-8.127284),(-0.320606,-4.78114,-8.274055),(-0.96727,-4.771572,-8.711867),
(-1.293785,-5.358085,-9.111039),(-1.054277,-6.099022,-9.170985),(-1.145068,-6.812751,-7.829697),(-0.600325,-6.516037,-7.355184),(-0.552289,-5.794568,-7.060022),
(-1.037132,-5.191624,-7.166474),(-1.689758,-5.161234,-7.594379),(-2.018725,-5.726284,-8.021517),(-1.776315,-6.461277,-8.126243),(-1.731989,-7.229396,-6.817997),
(-1.152722,-6.939778,-6.381513),(-1.092932,-6.230436,-6.060258),(-1.597641,-5.635518,-6.096143),(-2.286794,-5.603011,-6.462145),(-2.641444,-6.157392,-6.882658),
(-2.394533,-6.881202,-7.041027),(-2.126172,-7.713817,-5.690323),(-1.49213,-7.406311,-5.353608),(-1.407558,-6.702203,-5.026459),(-1.936142,-6.131701,-4.955226),
(-2.679846,-6.124405,-5.193549),(-3.078646,-6.685809,-5.561965),(-2.832238,-7.393164,-5.783051),(-2.288487,-8.193846,-4.52297),(-1.617015,-7.8579,-4.307996),
(-1.503344,-7.147389,-4.004353),(-2.033069,-6.597341,-3.840691),(-2.807297,-6.621953,-3.94025),(-3.243018,-7.202693,-4.228061),(-3.012126,-7.902251,-4.487395),
(-2.213175,-8.651731,-3.254627),(-1.52887,-8.283258,-3.177808),(-1.392792,-7.556044,-2.927631),(-1.907411,-7.017695,-2.692483),(-2.685208,-7.073599,-2.649436),
(-3.140486,-7.68166,-2.830905),(-2.930411,-8.383994,-3.10024),(-1.95868,-9.049224,-1.948485),(-1.279311,-8.665202,-1.978996),(-1.130376,-7.923094,-1.786536),
(-1.624026,-7.381722,-1.516033),(-2.388534,-7.44875,-1.37118),(-2.848208,-8.073706,-1.461055),(-2.656905,-8.785983,-1.71798),(-1.595424,-9.36832,-0.622593),
(-0.923998,-8.983751,-0.728611),(-0.767957,-8.230343,-0.594548),(-1.244802,-7.675427,-0.321356),(-1.995459,-7.736867,-0.114754),(-2.454669,-8.368398,-0.130318),
(-2.276637,-9.094462,-0.356327),(-1.171461,-9.616718,0.682715),(-0.505558,-9.241093,0.523263),(-0.341601,-8.482459,0.610098),(-0.803054,-7.912085,0.87783),
(-1.542433,-7.959472,1.124853),(-2.00297,-8.588939,1.165153),(-1.837872,-9.326483,0.968383),(-0.714865,-9.812209,1.980473),(-0.049978,-9.451424,1.786295),
(0.124065,-8.691658,1.835404),(-0.323794,-8.105032,2.09082),(-1.056308,-8.133286,2.36021),(-1.52188,-8.755144,2.440718),(-1.369923,-9.502336,2.271719),
(-0.252303,-9.920656,3.224172),(0.40919,-9.57589,2.992853),(0.58612,-8.815216,2.988518),(0.145254,-8.211439,3.214432),(-0.581427,-8.219214,3.500476),
(-1.046717,-8.832687,3.631254),(-0.900243,-9.589901,3.508287),(0.241363,-9.913086,4.498651),(0.897031,-9.586649,4.227569),(1.067929,-8.828434,4.151084),
(0.625367,-8.209393,4.326791),(-0.097395,-8.195675,4.622379),(-0.556104,-8.797611,4.815265),(-0.405343,-9.561932,4.760201),(0.0,0.0,0.0)  --  450
);

idx_13: constant Idx_4_array_array:=
( (2252,2253,2260,2259),(2253,2254,2261,2260),(2254,2255,2262,2261),(2255,2256,2263,2262),(2256,2257,2264,2263),(2257,2258,2265,2264),(2258,2252,2259,2265),(2259,2260,2267,2266),
(2260,2261,2268,2267),(2261,2262,2269,2268),(2262,2263,2270,2269),(2263,2264,2271,2270),(2264,2265,2272,2271),(2265,2259,2266,2272),(2266,2267,2274,2273),(2267,2268,2275,2274),
(2268,2269,2276,2275),(2269,2270,2277,2276),(2270,2271,2278,2277),(2271,2272,2279,2278),(2272,2266,2273,2279),(2273,2274,2281,2280),(2274,2275,2282,2281),(2275,2276,2283,2282),
(2276,2277,2284,2283),(2277,2278,2285,2284),(2278,2279,2286,2285),(2279,2273,2280,2286),(2280,2281,2288,2287),(2281,2282,2289,2288),(2282,2283,2290,2289),(2283,2284,2291,2290),
(2284,2285,2292,2291),(2285,2286,2293,2292),(2286,2280,2287,2293),(2287,2288,2295,2294),(2288,2289,2296,2295),(2289,2290,2297,2296),(2290,2291,2298,2297),(2291,2292,2299,2298),
(2292,2293,2300,2299),(2293,2287,2294,2300),(2294,2295,2302,2301),(2295,2296,2303,2302),(2296,2297,2304,2303),(2297,2298,2305,2304),(2298,2299,2306,2305),(2299,2300,2307,2306),
(2300,2294,2301,2307),(2301,2302,2309,2308),(2302,2303,2310,2309),(2303,2304,2311,2310),(2304,2305,2312,2311),(2305,2306,2313,2312),(2306,2307,2314,2313),(2307,2301,2308,2314),
(2308,2309,2316,2315),(2309,2310,2317,2316),(2310,2311,2318,2317),(2311,2312,2319,2318),(2312,2313,2320,2319),(2313,2314,2321,2320),(2314,2308,2315,2321),(2315,2316,2323,2322),
(2316,2317,2324,2323),(2317,2318,2325,2324),(2318,2319,2326,2325),(2319,2320,2327,2326),(2320,2321,2328,2327),(2321,2315,2322,2328),(2322,2323,2330,2329),(2323,2324,2331,2330),
(2324,2325,2332,2331),(2325,2326,2333,2332),(2326,2327,2334,2333),(2327,2328,2335,2334),(2328,2322,2329,2335),(2329,2330,2337,2336),(2330,2331,2338,2337),(2331,2332,2339,2338),
(2332,2333,2340,2339),(2333,2334,2341,2340),(2334,2335,2342,2341),(2335,2329,2336,2342),(2336,2337,2344,2343),(2337,2338,2345,2344),(2338,2339,2346,2345),(2339,2340,2347,2346),
(2340,2341,2348,2347),(2341,2342,2349,2348),(2342,2336,2343,2349),(2343,2344,2351,2350),(2344,2345,2352,2351),(2345,2346,2353,2352),(2346,2347,2354,2353),(2347,2348,2355,2354),
(2348,2349,2356,2355),(2349,2343,2350,2356),(2350,2351,2358,2357),(2351,2352,2359,2358),(2352,2353,2360,2359),(2353,2354,2361,2360),(2354,2355,2362,2361),(2355,2356,2363,2362),
(2356,2350,2357,2363),(2357,2358,2365,2364),(2358,2359,2366,2365),(2359,2360,2367,2366),(2360,2361,2368,2367),(2361,2362,2369,2368),(2362,2363,2370,2369),(2363,2357,2364,2370),
(2364,2365,2372,2371),(2365,2366,2373,2372),(2366,2367,2374,2373),(2367,2368,2375,2374),(2368,2369,2376,2375),(2369,2370,2377,2376),(2370,2364,2371,2377),(2371,2372,2379,2378),
(2372,2373,2380,2379),(2373,2374,2381,2380),(2374,2375,2382,2381),(2375,2376,2383,2382),(2376,2377,2384,2383),(2377,2371,2378,2384),(2378,2379,2386,2385),(2379,2380,2387,2386),
(2380,2381,2388,2387),(2381,2382,2389,2388),(2382,2383,2390,2389),(2383,2384,2391,2390),(2384,2378,2385,2391),(2385,2386,2393,2392),(2386,2387,2394,2393),(2387,2388,2395,2394),
(2388,2389,2396,2395),(2389,2390,2397,2396),(2390,2391,2398,2397),(2391,2385,2392,2398),(2392,2393,2400,2399),(2393,2394,2401,2400),(2394,2395,2402,2401),(2395,2396,2403,2402),
(2396,2397,2404,2403),(2397,2398,2405,2404),(2398,2392,2399,2405),(2399,2400,2407,2406),(2400,2401,2408,2407),(2401,2402,2409,2408),(2402,2403,2410,2409),(2403,2404,2411,2410),
(2404,2405,2412,2411),(2405,2399,2406,2412),(2406,2407,2414,2413),(2407,2408,2415,2414),(2408,2409,2416,2415),(2409,2410,2417,2416),(2410,2411,2418,2417),(2411,2412,2419,2418),
(2412,2406,2413,2419),(2413,2414,2421,2420),(2414,2415,2422,2421),(2415,2416,2423,2422),(2416,2417,2424,2423),(2417,2418,2425,2424),(2418,2419,2426,2425),(2419,2413,2420,2426),
(2420,2421,2428,2427),(2421,2422,2429,2428),(2422,2423,2430,2429),(2423,2424,2431,2430),(2424,2425,2432,2431),(2425,2426,2433,2432),(2426,2420,2427,2433),(2427,2428,2435,2434),
(2428,2429,2436,2435),(2429,2430,2437,2436),(2430,2431,2438,2437),(2431,2432,2439,2438),(2432,2433,2440,2439),(2433,2427,2434,2440),(2434,2435,2442,2441),(2435,2436,2443,2442),
(2436,2437,2444,2443),(2437,2438,2445,2444),(2438,2439,2446,2445),(2439,2440,2447,2446),(2440,2434,2441,2447),(2441,2442,2449,2448),(2442,2443,2450,2449),(2443,2444,2451,2450),
(2444,2445,2452,2451),(2445,2446,2453,2452),(2446,2447,2454,2453),(2447,2441,2448,2454),(2448,2449,2456,2455),(2449,2450,2457,2456),(2450,2451,2458,2457),(2451,2452,2459,2458),
(2452,2453,2460,2459),(2453,2454,2461,2460),(2454,2448,2455,2461),(2455,2456,2463,2462),(2456,2457,2464,2463),(2457,2458,2465,2464),(2458,2459,2466,2465),(2459,2460,2467,2466),
(2460,2461,2468,2467),(2461,2455,2462,2468),(2462,2463,2470,2469),(2463,2464,2471,2470),(2464,2465,2472,2471),(2465,2466,2473,2472),(2466,2467,2474,2473),(2467,2468,2475,2474),
(2468,2462,2469,2475),(2469,2470,2477,2476),(2470,2471,2478,2477),(2471,2472,2479,2478),(2472,2473,2480,2479),(2473,2474,2481,2480),(2474,2475,2482,2481),(2475,2469,2476,2482),
(2476,2477,2484,2483),(2477,2478,2485,2484),(2478,2479,2486,2485),(2479,2480,2487,2486),(2480,2481,2488,2487),(2481,2482,2489,2488),(2482,2476,2483,2489),(2483,2484,2491,2490),
(2484,2485,2492,2491),(2485,2486,2493,2492),(2486,2487,2494,2493),(2487,2488,2495,2494),(2488,2489,2496,2495),(2489,2483,2490,2496),(2490,2491,2498,2497),(2491,2492,2499,2498),
(2492,2493,2500,2499),(2493,2494,2501,2500),(2494,2495,2502,2501),(2495,2496,2503,2502),(2496,2490,2497,2503),(2497,2498,2505,2504),(2498,2499,2506,2505),(2499,2500,2507,2506),
(2500,2501,2508,2507),(2501,2502,2509,2508),(2502,2503,2510,2509),(2503,2497,2504,2510),(2504,2505,2512,2511),(2505,2506,2513,2512),(2506,2507,2514,2513),(2507,2508,2515,2514),
(2508,2509,2516,2515),(2509,2510,2517,2516),(2510,2504,2511,2517),(2511,2512,2519,2518),(2512,2513,2520,2519),(2513,2514,2521,2520),(2514,2515,2522,2521),(2515,2516,2523,2522),
(2516,2517,2524,2523),(2517,2511,2518,2524),(2518,2519,2526,2525),(2519,2520,2527,2526),(2520,2521,2528,2527),(2521,2522,2529,2528),(2522,2523,2530,2529),(2523,2524,2531,2530),
(2524,2518,2525,2531),(2525,2526,2533,2532),(2526,2527,2534,2533),(2527,2528,2535,2534),(2528,2529,2536,2535),(2529,2530,2537,2536),(2530,2531,2538,2537),(2531,2525,2532,2538),
(2532,2533,2540,2539),(2533,2534,2541,2540),(2534,2535,2542,2541),(2535,2536,2543,2542),(2536,2537,2544,2543),(2537,2538,2545,2544),(2538,2532,2539,2545),(2539,2540,2547,2546),
(2540,2541,2548,2547),(2541,2542,2549,2548),(2542,2543,2550,2549),(2543,2544,2551,2550),(2544,2545,2552,2551),(2545,2539,2546,2552),(2546,2547,2554,2553),(2547,2548,2555,2554),
(2548,2549,2556,2555),(2549,2550,2557,2556),(2550,2551,2558,2557),(2551,2552,2559,2558),(2552,2546,2553,2559),(2553,2554,2561,2560),(2554,2555,2562,2561),(2555,2556,2563,2562),
(2556,2557,2564,2563),(2557,2558,2565,2564),(2558,2559,2566,2565),(2559,2553,2560,2566),(2560,2561,2568,2567),(2561,2562,2569,2568),(2562,2563,2570,2569),(2563,2564,2571,2570),
(2564,2565,2572,2571),(2565,2566,2573,2572),(2566,2560,2567,2573),(2567,2568,2575,2574),(2568,2569,2576,2575),(2569,2570,2577,2576),(2570,2571,2578,2577),(2571,2572,2579,2578),
(2572,2573,2580,2579),(2573,2567,2574,2580),(2574,2575,2582,2581),(2575,2576,2583,2582),(2576,2577,2584,2583),(2577,2578,2585,2584),(2578,2579,2586,2585),(2579,2580,2587,2586),
(2580,2574,2581,2587),(2581,2582,2589,2588),(2582,2583,2590,2589),(2583,2584,2591,2590),(2584,2585,2592,2591),(2585,2586,2593,2592),(2586,2587,2594,2593),(2587,2581,2588,2594),
(2588,2589,2596,2595),(2589,2590,2597,2596),(2590,2591,2598,2597),(2591,2592,2599,2598),(2592,2593,2600,2599),(2593,2594,2601,2600),(2594,2588,2595,2601),(2595,2596,2603,2602),
(2596,2597,2604,2603),(2597,2598,2605,2604),(2598,2599,2606,2605),(2599,2600,2607,2606),(2600,2601,2608,2607),(2601,2595,2602,2608),(2602,2603,2610,2609),(2603,2604,2611,2610),
(2604,2605,2612,2611),(2605,2606,2613,2612),(2606,2607,2614,2613),(2607,2608,2615,2614),(2608,2602,2609,2615),(2609,2610,2617,2616),(2610,2611,2618,2617),(2611,2612,2619,2618),
(2612,2613,2620,2619),(2613,2614,2621,2620),(2614,2615,2622,2621),(2615,2609,2616,2622),(2616,2617,2624,2623),(2617,2618,2625,2624),(2618,2619,2626,2625),(2619,2620,2627,2626),
(2620,2621,2628,2627),(2621,2622,2629,2628),(2622,2616,2623,2629),(2623,2624,2631,2630),(2624,2625,2632,2631),(2625,2626,2633,2632),(2626,2627,2634,2633),(2627,2628,2635,2634),
(2628,2629,2636,2635),(2629,2623,2630,2636),(2630,2631,2638,2637),(2631,2632,2639,2638),(2632,2633,2640,2639),(2633,2634,2641,2640),(2634,2635,2642,2641),(2635,2636,2643,2642),
(2636,2630,2637,2643),(2637,2638,2645,2644),(2638,2639,2646,2645),(2639,2640,2647,2646),(2640,2641,2648,2647),(2641,2642,2649,2648),(2642,2643,2650,2649),(2643,2637,2644,2650),
(2644,2645,2652,2651),(2645,2646,2653,2652),(2646,2647,2654,2653),(2647,2648,2655,2654),(2648,2649,2656,2655),(2649,2650,2657,2656),(2650,2644,2651,2657),(2651,2652,2659,2658),
(2652,2653,2660,2659),(2653,2654,2661,2660),(2654,2655,2662,2661),(2655,2656,2663,2662),(2656,2657,2664,2663),(2657,2651,2658,2664),(2658,2659,2666,2665),(2659,2660,2667,2666),
(2660,2661,2668,2667),(2661,2662,2669,2668),(2662,2663,2670,2669),(2663,2664,2671,2670),(2664,2658,2665,2671),(2665,2666,2673,2672),(2666,2667,2674,2673),(2667,2668,2675,2674),
(2668,2669,2676,2675),(2669,2670,2677,2676),(2670,2671,2678,2677),(2671,2665,2672,2678),(2672,2673,2680,2679),(2673,2674,2681,2680),(2674,2675,2682,2681),(2675,2676,2683,2682),
(2676,2677,2684,2683),(2677,2678,2685,2684),(2678,2672,2679,2685),(2679,2680,2687,2686),(2680,2681,2688,2687),(2681,2682,2689,2688),(2682,2683,2690,2689),(2683,2684,2691,2690),
(2684,2685,2692,2691),(2685,2679,2686,2692),(2686,2687,2694,2693),(2687,2688,2695,2694),(2688,2689,2696,2695),(2689,2690,2697,2696),(2690,2691,2698,2697),(2691,2692,2699,2698),
(2692,2686,2693,2699),(2693,2694,2253,2252),(2694,2695,2254,2253),(2695,2696,2255,2254),(2696,2697,2256,2255),(2697,2698,2257,2256),(2698,2699,2258,2257),(2699,2693,2252,2258),
(2699,2693,2252,2258)--  449
);
-- last index now: 2700
-- end Separator # 13
-- last index now: 2700
-- end Separator # 13
-- last index now: 2700
-- end Separator # 13

  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 => 2700, Max_faces => 2694 );
    object.centre:= centre;
    Set_name(object.all, "Knot_link");
    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.. 450):= coord_3;
    else
      for p in 1 .. 450 loop
        object.point( 0 + p ):= scale * coord_3(p);
      end loop;
    end if;
    for f in 1 .. 449 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( 451.. 900):= coord_5;
    else
      for p in 1 .. 450 loop
        object.point( 450 + p ):= scale * coord_5(p);
      end loop;
    end if;
    for f in 1 .. 449 loop
      face_0.P:= idx_5(f);
      object.face( 449 + 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( 901.. 1350):= coord_7;
    else
      for p in 1 .. 450 loop
        object.point( 900 + p ):= scale * coord_7(p);
      end loop;
    end if;
    for f in 1 .. 449 loop
      face_0.P:= idx_7(f);
      object.face( 898 + f ):= face_0;
    end loop;
    -- Creating separator # 8
    face_0.material:= matos_8;
    -- Creating separator # 9
    if Almost_zero(scale - 1.0) then
      object.point( 1351.. 1800):= coord_9;
    else
      for p in 1 .. 450 loop
        object.point( 1350 + p ):= scale * coord_9(p);
      end loop;
    end if;
    for f in 1 .. 449 loop
      face_0.P:= idx_9(f);
      object.face( 1347 + f ):= face_0;
    end loop;
    -- Creating separator # 10
    face_0.material:= matos_10;
    -- Creating separator # 11
    if Almost_zero(scale - 1.0) then
      object.point( 1801.. 2250):= coord_11;
    else
      for p in 1 .. 450 loop
        object.point( 1800 + p ):= scale * coord_11(p);
      end loop;
    end if;
    for f in 1 .. 449 loop
      face_0.P:= idx_11(f);
      object.face( 1796 + f ):= face_0;
    end loop;
    -- Creating separator # 12
    face_0.material:= matos_12;
    -- Creating separator # 13
    if Almost_zero(scale - 1.0) then
      object.point( 2251.. 2700):= coord_13;
    else
      for p in 1 .. 450 loop
        object.point( 2250 + p ):= scale * coord_13(p);
      end loop;
    end if;
    for f in 1 .. 449 loop
      face_0.P:= idx_13(f);
      object.face( 2245 + f ):= face_0;
    end loop;
    end Create;
end Knot_link;
-- Converted by Wrl2Ada