pragma Style_Checks (Off);
pragma Warnings (Off);
——————————————————————————
— File : X29.adb
— Description : x29 aircraft data base from Evans & Sutherland
— Copyright : (c) Evans & Sutherland — ok to distribute if copyright appears
——————————————————————————
with GL GL.Geometry.vbo GL.Buffer.vertex GL.Buffer.indices GL.Skins
GLOBE_3D.Math GL.Materials;
with ada.text_io; use ada.text_io;
package body X29_vbo is
use GL GL.Geometry Gl.Buffer.indices GLOBE_3D GLOBE_3D.Math GL.Materials;
type Piece is (silver_Metal — when 178 .. 237 => material := Polished_Silver; — 1 metal clair
black_Cockpit — when 260 .. 315 => material := Black_Rubber; — 2 (noir) fond cockpit
Black — when 740 .. 779 => material := Black_Plastic; — 2 noir
black_front_Air — when 860 .. 865 |
— 936 .. 941 => material := Bronze; — 2 noir entrees air
Copper — when 316 .. 391 => material := Polished_Copper; — 3
fire_Engine — when 780 .. 803 => material := Ruby; — 4 feu reacteur
nose_Cone — when 392 => material := Gold; — jaune (bout du nez)
Remains); — when others => material := Polished_Bronze; — 0 metal fonce
nb_points : constant := 590;
nb_faces : constant := 955;
–object_points : constant array (1 .. nb_points) of GL.geometry.Vertex :=
object_points : aliased GL.geometry.GL_vertex_Array :=
((7.05889 2.89081 0.0)
(4.34717 0.725027 0.059694)
(7.07989 2.88901 0.0)
(4.34717 0.725027 – 0.059694)
(5.06259 0.662634 0.119688)
(7.33007 2.86711 0.0419958)
(7.33007 2.86711 – 0.0419958)
(5.06259 0.662634 – 0.119688)
(5.59894 0.615838 0.119688)
(7.51785 2.85091 0.0419958)
(7.51785 2.85091 – 0.0419958)
(5.59894 0.615838 – 0.119688)
(7.17858 0.477852 0.0)
(8.14898 3.006 0.0)
(7.21578 2.9673 0.0)
(7.48905 3.0036 0.0)
(7.11439 – 0.235476 – 1.46055)
(6.50185 – 0.188381 – 1.46055)
(6.50185 – 0.188381 – 0.577742)
(7.11439 – 0.235476 – 0.548645)
(3.06719 – 0.176382 – 1.46055)
(4.28747 – 0.180582 – 0.683032)
(3.06719 – 0.389961 – 1.46055)
(6.50185 – 0.282572 – 1.46055)
(6.50185 – 0.282572 – 0.577742)
(4.28747 – 0.351865 – 0.683032)
(3.9578 – 0.518348 – 1.46055)
(3.55734 – 0.285571 – 1.46055)
(3.51475 – 0.433457 – 1.46055)
(7.11439 – 0.235476 1.46055)
(7.11439 – 0.235476 0.548645)
(6.50185 – 0.188381 0.577742)
(6.50185 – 0.188381 1.46055)
(4.28747 – 0.180582 0.683032)
(3.06719 – 0.176382 1.46055)
(3.06719 – 0.389961 1.46055)
(4.28747 – 0.351865 0.683032)
(6.50185 – 0.282572 0.577742)
(6.50185 – 0.282572 1.46055)
(7.11439 – 0.235476 0.548645)
(7.11439 – 0.235476 1.46055)
(3.9578 – 0.518348 1.46055)
(3.51475 – 0.433457 1.46055)
(3.55734 – 0.285571 1.46055)
(3.06719 – 0.176382 – 1.46055)
(1.79052 – 0.151485 – 0.80092)
(1.37116 – 0.160484 – 1.87571)
(1.0154 – 0.142786 – 0.883412)
(0.848015 – 0.235776 – 2.0038)
(0.356064 – 0.231577 – 0.953605)
(0.60294 – 0.346765 – 2.06379)
(0.0470953 – 0.363264 – 0.986601)
(0.356064 – 0.231577 – 0.953605)
(0.60294 – 0.346765 – 2.06379)
(0.565443 – 0.380362 – 2.07309)
(0.0 – 0.40286 – 0.991701)
(0.0470953 – 0.363264 – 0.986601)
(0.565443 – 0.428657 – 2.07309)
(0.0 – 0.464054 – 0.991701)
(0.60294 – 0.462854 – 2.06379)
(0.0470953 – 0.50395 – 0.986601)
(0.767923 – 0.49885 – 2.0236)
(0.255274 – 0.545645 – 0.964403)
(1.49355 – 0.49795 – 1.84572)
(1.16928 – 0.539646 – 0.867213)
(0.255274 – 0.545645 – 0.964403)
(1.49355 – 0.49795 – 1.84572)
(2.50175 – 0.392361 – 1.59914)
(1.79052 – 0.473953 – 0.80092)
(1.16928 – 0.539646 – 0.867213)
(3.06719 – 0.389961 – 1.46055)
(4.28747 – 0.351865 – 0.683032)
(3.06719 – 0.176382 1.46055)
(4.28747 – 0.180582 0.683032)
(1.79052 – 0.151485 0.80092)
(1.0154 – 0.142786 0.883412)
(1.37116 – 0.160484 1.87571)
(0.356064 – 0.231577 0.953605)
(0.848015 – 0.235776 2.0038)
(0.0470953 – 0.363264 0.986601)
(0.60294 – 0.346765 2.06379)
(0.0 – 0.40286 0.991701)
(0.565443 – 0.380362 2.07309)
(0.0 – 0.464054 0.991701)
(0.565443 – 0.428657 2.07309)
(0.0470953 – 0.50395 0.986601)
(0.60294 – 0.462854 2.06379)
(0.0470953 – 0.50395 0.986601)
(0.255274 – 0.545645 0.964403)
(0.767923 – 0.49885 2.0236)
(1.16928 – 0.539646 0.867213)
(1.49355 – 0.49795 1.84572)
(1.79052 – 0.473953 0.80092)
(2.50175 – 0.392361 1.59914)
(3.06719 – 0.389961 1.46055)
(4.28747 – 0.351865 0.683032)
(0.377062 – 0.329667 – 5.0413)
(0.164983 – 0.290971 – 5.05389)
(0.183882 – 0.223778 – 5.05299)
( – 0.0422958 – 0.271473 – 5.06619)
( – 0.311069 – 0.274773 – 5.08239)
( – 1.09309 – 0.208179 – 5.12889)
( – 0.843516 – 0.166783 – 5.11389)
( – 0.0422958 – 0.175782 – 5.06619)
( – 0.786821 – 0.337766 – 5.11059)
( – 1.13089 – 0.341966 – 5.13099)
( – 1.20618 – 0.323968 – 5.13549)
( – 1.22508 – 0.305069 – 5.13669)
( – 1.22508 – 0.285571 – 5.13669)
( – 1.20618 – 0.266673 – 5.13549)
(0.10109 – 0.175782 – 4.90001)
(0.327267 – 0.226177 – 4.90001)
(0.518348 – 0.337166 – 4.90001)
(0.565443 – 0.380362 – 2.07309)
(0.565443 – 0.428657 – 2.07309)
(0.60294 – 0.462854 – 2.06379)
(0.767923 – 0.49885 – 2.0236)
(1.49355 – 0.49795 – 1.84572)
(2.50175 – 0.392361 – 1.59914)
(0.10109 – 0.276872 – 4.90001)
(0.308369 – 0.29697 – 4.90001)
(0.377062 – 0.329667 5.0413)
(0.183882 – 0.223778 5.05299)
(0.164983 – 0.290971 5.05389)
( – 0.0422958 – 0.271473 5.06619)
( – 0.0422958 – 0.175782 5.06619)
( – 0.843516 – 0.166783 5.11389)
( – 1.09309 – 0.208179 5.12889)
( – 0.311069 – 0.274773 5.08239)
( – 1.20618 – 0.266673 5.13549)
( – 1.22508 – 0.285571 5.13669)
( – 1.22508 – 0.305069 5.13669)
( – 1.20618 – 0.323968 5.13549)
( – 1.13089 – 0.341966 5.13099)
( – 0.786821 – 0.337766 5.11059)
(0.10109 – 0.175782 4.90001)
(3.06719 – 0.176382 1.46055)
(1.37116 – 0.160484 1.87571)
(0.518348 – 0.337166 4.90001)
(0.327267 – 0.226177 4.90001)
(0.848015 – 0.235776 2.0038)
(0.60294 – 0.346765 2.06379)
(0.565443 – 0.380362 2.07309)
(0.565443 – 0.428657 2.07309)
(0.60294 – 0.462854 2.06379)
(0.10109 – 0.276872 4.90001)
(0.308369 – 0.29697 4.90001)
( – 2.77982 – 0.162584 1.15428)
( – 3.53365 – 0.19798 1.15428)
( – 2.35566 – 0.19798 2.59144)
( – 2.10879 – 0.186281 2.59144)
( – 2.12019 – 0.150885 1.15428)
( – 1.89281 – 0.182382 2.59144)
( – 1.46055 – 0.162584 1.15428)
( – 1.67653 – 0.186281 2.59144)
( – 0.80092 – 0.19798 1.15428)
( – 1.46055 – 0.19798 2.59144)
( – 2.77982 – 0.233077 1.15428)
( – 2.10879 – 0.209379 2.59144)
( – 2.12019 – 0.245075 1.15428)
( – 1.89281 – 0.213279 2.59144)
( – 1.46055 – 0.233077 1.15428)
( – 1.67653 – 0.209379 2.59144)
( – 1.46055 – 0.233077 1.15428)
( – 0.80092 – 0.19798 1.15428)
( – 1.46055 – 0.19798 2.59144)
( – 1.67653 – 0.209379 2.59144)
( – 2.35566 – 0.19798 2.59144)
( – 2.10879 – 0.209379 2.59144)
( – 1.89281 – 0.213279 2.59144)
( – 1.67653 – 0.186281 2.59144)
( – 1.89281 – 0.182382 2.59144)
( – 2.10879 – 0.186281 2.59144)
( – 3.53365 – 0.19798 – 1.15428)
( – 2.77982 – 0.162584 – 1.15428)
( – 2.10879 – 0.186281 – 2.59144)
( – 2.35566 – 0.19798 – 2.59144)
( – 2.12019 – 0.150885 – 1.15428)
( – 1.89281 – 0.182382 – 2.59144)
( – 1.46055 – 0.162584 – 1.15428)
( – 1.67653 – 0.186281 – 2.59144)
( – 1.46055 – 0.162584 – 1.15428)
( – 0.80092 – 0.19798 – 1.15428)
( – 1.46055 – 0.19798 – 2.59144)
( – 1.67653 – 0.186281 – 2.59144)
( – 2.77982 – 0.233077 – 1.15428)
( – 3.53365 – 0.19798 – 1.15428)
( – 2.35566 – 0.19798 – 2.59144)
( – 2.10879 – 0.209379 – 2.59144)
( – 2.12019 – 0.245075 – 1.15428)
( – 1.89281 – 0.213279 – 2.59144)
( – 1.46055 – 0.233077 – 1.15428)
( – 1.67653 – 0.209379 – 2.59144)
( – 2.10879 – 0.186281 – 2.59144)
( – 1.89281 – 0.182382 – 2.59144)
( – 1.46055 – 0.19798 – 2.59144)
( – 1.67653 – 0.209379 – 2.59144)
( – 1.89281 – 0.213279 – 2.59144)
( – 2.10879 – 0.209379 – 2.59144)
(3.9578 – 0.518348 1.46055)
(3.55734 – 0.285571 1.46055)
(3.51475 – 0.433457 1.46055)
(0.518348 – 0.337166 4.90001)
( – 3.39236 1.31927 0.0590941)
( – 0.80092 1.013 0.10109)
( – 0.80092 1.013 – 0.10109)
( – 3.39236 1.31927 – 0.0590941)
( – 3.40466 1.28807 0.176682)
( – 0.80092 0.981502 0.215378)
( – 0.80092 0.981502 – 0.215378)
( – 3.40466 1.28807 – 0.176682)
( – 3.43106 1.22238 0.292171)
( – 0.80092 0.914608 0.327567)
( – 0.80092 0.914608 – 0.327567)
( – 3.43106 1.22238 – 0.292171)
( – 3.46945 1.12609 0.389361)
( – 0.80092 0.817418 0.422058)
( – 0.80092 0.817418 – 0.422058)
( – 3.46945 1.12609 – 0.389361)
( – 3.50875 1.0283 0.446655)
( – 0.80092 0.730427 0.471253)
( – 0.80092 0.730427 – 0.471253)
( – 3.50875 1.0283 – 0.446655)
( – 3.54505 0.937706 0.471253)
( – 3.54505 0.937706 – 0.471253)
( – 3.62784 0.730427 0.471253)
( – 3.62784 0.730427 – 0.471253)
( – 4.85291 1.23678 – 0.0587941)
( – 4.79172 1.25237 – 0.0587941)
( – 4.79172 1.25237 0.0587941)
( – 4.85291 1.23678 0.0587941)
( – 4.85291 1.23678 – 0.0587941)
( – 4.85291 1.20528 – 0.176682)
( – 4.79172 1.22088 – 0.176682)
( – 4.79172 1.25237 – 0.0587941)
( – 4.85291 1.23678 0.0587941)
( – 4.79172 1.25237 0.0587941)
( – 4.79172 1.22088 0.176682)
( – 4.85291 1.20528 0.176682)
( – 4.85291 1.13869 – 0.292171)
( – 4.79172 1.15398 – 0.292171)
( – 4.79172 1.15398 0.292171)
( – 4.85291 1.13869 0.292171)
( – 4.85291 1.0412 – 0.389361)
( – 4.79172 1.05679 – 0.389361)
( – 4.79172 1.05679 0.389361)
( – 4.85291 1.0412 0.389361)
( – 4.85291 0.942206 – 0.446655)
( – 4.79172 0.957804 – 0.446655)
( – 4.79172 0.957804 0.446655)
( – 4.85291 0.942206 0.446655)
( – 4.85291 0.850415 – 0.471253)
( – 4.79172 0.866013 – 0.471253)
( – 4.79172 0.866013 0.471253)
( – 4.85291 0.850415 0.471253)
( – 4.85291 0.730427 – 0.471253)
( – 4.79172 0.730427 – 0.471253)
( – 4.79172 0.730427 0.471253)
( – 4.85291 0.730427 0.471253)
( – 6.12509 0.730427 0.0587941)
( – 6.0459 0.730427 0.176682)
( – 5.87851 0.730427 0.292171)
( – 5.63404 0.730427 0.389361)
( – 5.63404 0.730427 – 0.389361)
( – 5.87851 0.730427 – 0.292171)
( – 6.0459 0.730427 – 0.176682)
( – 6.12509 0.730427 – 0.0587941)
( – 5.38536 0.730427 0.446655)
( – 5.15498 0.730427 0.471253)
( – 5.15498 0.730427 – 0.471253)
( – 5.38536 0.730427 – 0.446655)
( – 4.14619 0.730427 0.471253)
( – 4.14619 0.730427 – 0.471253)
( – 3.62784 0.730427 – 0.471253)
( – 3.54505 0.937706 0.471253)
( – 3.50875 1.0283 0.446655)
( – 3.46945 1.12609 0.389361)
( – 3.43106 1.22238 0.292171)
( – 3.40466 1.28807 0.176682)
( – 3.39236 1.31927 0.0590941)
( – 3.39236 1.31927 – 0.0590941)
( – 3.40466 1.28807 – 0.176682)
( – 3.43106 1.22238 – 0.292171)
( – 3.46945 1.12609 – 0.389361)
( – 3.50875 1.0283 – 0.446655)
( – 3.54505 0.937706 – 0.471253)
( – 4.79172 1.25237 0.0578942)
( – 4.14619 1.34267 0.0587941)
( – 4.14619 1.34267 – 0.0587941)
( – 4.14619 1.31117 0.176682)
( – 4.14619 1.31117 – 0.176682)
( – 4.14619 1.24458 0.292171)
( – 4.14619 1.24458 – 0.292171)
( – 4.14619 1.14739 0.389361)
( – 4.14619 1.14739 – 0.389361)
( – 4.14619 1.0484 0.446655)
( – 4.14619 1.0484 – 0.446655)
( – 4.14619 0.956604 0.471253)
( – 4.14619 0.956604 – 0.471253)
( – 9.9884 0.0707929 0.0) — nez 300 – 303
( – 9.9884 0.0434956 – 0.0470953)
( – 9.9884 0.0 0.0)
( – 9.9884 0.0434956 0.0470953)
( – 9.37616 0.0749925 – 0.233377) — 2eme pos. 304
( – 9.37616 0.0509949 – 0.233377)
( – 8.66913 0.109489 – 0.377062)
( – 8.66913 0.0614938 – 0.377062)
( – 9.37616 0.270873 0.0)
( – 9.37616 0.251975 – 0.0941906)
( – 9.37616 0.251975 0.0941906)
( – 9.37616 0.20428 0.176682)
( – 9.37616 0.20428 – 0.176682)
( – 9.37616 0.105889 – 0.233377)
( – 9.37616 0.105889 0.233377)
( – 9.37616 0.0 – 0.233377)
( – 9.37616 0.0 0.233377)
( – 9.37616 – 0.080092 0.181782)
( – 9.37616 – 0.080092 – 0.181782)
( – 9.37616 – 0.127787 – 0.0989901)
( – 9.37616 – 0.127787 0.0989901)
( – 9.37616 – 0.141286 – 0.0488951)
( – 9.37616 – 0.141286 0.0488951)
( – 8.66913 0.435856 0.0470953)
( – 8.66913 0.435856 – 0.0470953)
( – 8.66913 0.409459 – 0.146085)
( – 8.66913 0.409459 0.146085)
( – 8.66913 0.335966 – 0.273273)
( – 8.66913 0.335966 0.273273)
( – 8.66913 0.156284 – 0.377062)
( – 8.66913 0.156284 0.377062)
( – 8.66913 0.0 – 0.377062)
( – 8.66913 0.0 0.377062)
( – 8.66913 – 0.155384 – 0.287071)
( – 8.66913 – 0.155384 0.287071)
( – 8.66913 – 0.231577 – 0.155384)
( – 8.66913 – 0.231577 0.155384)
( – 8.66913 – 0.259174 – 0.0524947)
( – 8.66913 – 0.259174 0.0524947)
( – 7.89191 0.553745 0.0707929)
( – 7.89191 0.553745 – 0.0707929)
( – 7.89191 0.512049 – 0.226177)
( – 7.89191 0.512049 0.226177)
( – 7.89191 0.435856 – 0.358164)
( – 7.89191 0.435856 0.358164)
( – 7.89191 0.239976 – 0.471253)
( – 7.89191 0.239976 0.471253)
( – 7.89191 0.0 – 0.471253)
( – 7.89191 0.0 0.471253)
( – 7.89191 – 0.207279 – 0.365063)
( – 7.89191 – 0.207279 0.365063)
( – 7.89191 – 0.287371 – 0.226177)
( – 7.89191 – 0.287371 0.226177)
( – 7.89191 – 0.329667 – 0.0683932)
( – 7.89191 – 0.329667 0.0683932)
( – 6.12509 0.730427 0.10379)
( – 6.12509 0.730427 – 0.10379)
( – 6.12509 0.682432 – 0.282572)
( – 6.12509 0.682432 0.282572)
( – 6.12509 0.580442 – 0.459254)
( – 6.12509 0.580442 0.459254)
( – 6.12509 0.39656 – 0.565443)
( – 6.12509 0.39656 0.565443)
( – 6.12509 – 0.164983 – 0.565443)
( – 6.12509 – 0.164983 0.565443)
( – 6.12509 – 0.29697 – 0.489251)
( – 6.12509 – 0.29697 0.489251)
( – 6.12509 – 0.377962 – 0.348565)
( – 6.12509 – 0.377962 0.348565)
( – 6.12509 – 0.424158 – 0.176682)
( – 6.12509 – 0.424158 0.176682)
( – 4.85291 0.566943 0.565443)
( – 4.85291 0.566943 – 0.565443)
( – 4.85291 – 0.188381 – 0.565443)
( – 4.85291 – 0.188381 0.565443)
( – 4.85291 – 0.329667 – 0.483852)
( – 4.85291 – 0.329667 0.483852)
( – 4.85291 – 0.410659 – 0.344066)
( – 4.85291 – 0.410659 0.344066)
( – 4.85291 – 0.447555 – 0.205779)
( – 4.85291 – 0.447555 0.205779)
( – 3.9578 0.730427 – 0.471253)
( – 3.9578 0.566943 – 0.565443)
( – 3.9578 0.566943 0.565443)
( – 3.9578 0.730427 0.471253)
( – 3.9578 – 0.212079 – 0.565443)
( – 3.9578 – 0.212079 0.565443)
( – 3.9578 – 0.348565 – 0.486551)
( – 3.9578 – 0.348565 0.486551)
( – 3.9578 – 0.431057 – 0.344066)
( – 3.9578 – 0.431057 0.344066)
( – 3.9578 – 0.471253 – 0.194081)
( – 3.9578 – 0.471253 0.194081)
( – 0.80092 0.730427 – 0.471253)
( – 0.80092 0.730427 0.471253)
( – 0.80092 – 0.706729 – 0.471253)
( – 0.80092 – 0.706729 0.471253)
(0.0 0.753525 – 0.422058)
(0.0 0.753525 – 0.755624)
( – 0.80092 0.730427 – 0.753825)
( – 0.80092 1.013 0.10109)
(0.0 0.949105 0.10109)
(0.0 0.949105 – 0.10109)
( – 0.80092 1.013 – 0.10109)
( – 0.80092 0.981502 0.215378)
(0.0 0.917308 0.215378)
(0.0 0.917308 – 0.215378)
( – 0.80092 0.981502 – 0.215378)
( – 0.80092 0.914608 0.327567)
(0.0 0.850415 0.327567)
(0.0 0.850415 – 0.327567)
( – 0.80092 0.914608 – 0.327567)
( – 0.80092 0.817418 0.422058)
(0.0 0.753525 0.422058)
( – 0.80092 0.817418 – 0.422058)
( – 0.80092 0.730427 0.753825)
(0.0 0.753525 0.755624)
( – 0.80092 0.730427 – 1.013)
( – 0.80092 0.730427 1.013)
(0.0 0.658134 – 0.920608)
( – 0.80092 0.669233 – 1.11889)
( – 0.80092 0.669233 1.11889)
(0.0 0.658134 0.920608)
(0.0 0.535446 – 0.991701)
( – 0.80092 0.607739 – 1.15428)
( – 0.80092 0.607739 1.15428)
(0.0 0.535446 0.991701)
(0.0 – 0.568443 – 0.991701)
( – 0.80092 – 0.541746 – 1.15428)
( – 0.80092 – 0.541746 1.15428)
(0.0 – 0.568443 0.991701)
(0.0 – 0.662934 – 0.966203)
(0.0 – 0.662934 0.966203)
( – 0.80092 – 0.659634 – 1.08619)
( – 0.80092 – 0.659634 1.08619)
(0.0 – 0.710029 – 0.919108)
(0.0 – 0.710029 0.919108)
(0.0 – 0.753825 – 0.755624)
(0.0 – 0.753825 0.755624)
( – 0.80092 – 0.706729 – 1.0046)
( – 0.80092 – 0.706729 1.0046)
( – 0.80092 – 0.706729 – 0.753825)
( – 0.80092 – 0.706729 0.753825)
(1.79052 0.824618 – 0.188381)
(1.79052 0.824618 – 0.282572)
(1.79052 0.824618 0.188381)
(1.79052 0.824618 0.282572)
(1.79052 0.767623 – 0.494651)
(1.79052 0.767623 0.494651)
(1.79052 0.645235 – 0.706729)
(1.79052 0.645235 0.706729)
(1.79052 0.482052 – 0.80092)
(1.79052 0.482052 0.80092)
(1.79052 – 0.518348 – 0.80092)
(1.79052 – 0.518348 0.80092)
(1.79052 – 0.588841 – 0.782022)
(1.79052 – 0.588841 0.782022)
(1.79052 – 0.69953 – 0.671333)
(1.79052 – 0.69953 0.671333)
(1.79052 – 0.777522 – 0.380962)
(1.79052 – 0.777522 0.380962)
(4.28747 0.730427 0.105889)
(4.28747 0.730427 – 0.105889)
(4.28747 0.660834 – 0.365063)
(4.28747 0.660834 0.365063)
(4.28747 0.538446 – 0.577142)
(4.28747 0.538446 0.577142)
(4.28747 0.354864 – 0.683032)
(4.28747 0.354864 0.683032)
(4.28747 – 0.424158 – 0.683032)
(4.28747 – 0.424158 0.683032)
(4.28747 – 0.518348 – 0.657834)
(4.28747 – 0.518348 0.657834)
(4.28747 – 0.610739 – 0.565443)
(4.28747 – 0.610739 0.565443)
(4.28747 – 0.730427 – 0.119388)
(4.28747 – 0.730427 0.119388)
(7.25567 0.471253 0.0941906)
(7.25567 0.471253 – 0.0941906)
(7.25567 0.436456 – 0.223778)
(7.25567 0.436456 0.223778)
(7.25567 0.320968 – 0.424158)
(7.25567 0.320968 0.424158)
(7.25567 0.116688 – 0.541746)
(7.25567 0.116688 0.541746)
(7.25567 – 0.282572 – 0.541746)
(7.25567 – 0.282572 0.541746)
(7.25567 – 0.370763 – 0.518348)
(7.25567 – 0.370763 0.518348)
(7.25567 – 0.512049 – 0.376762)
(7.25567 – 0.512049 0.376762)
(7.25567 – 0.565443 – 0.178182)
(7.25567 – 0.565443 0.178182)
(8.0098 0.292171 0.0452955)
(8.0098 0.292171 – 0.0452955)
(8.0098 0.267873 – 0.135586)
(8.0098 0.267873 0.135586)
(8.0098 0.223478 – 0.212679)
(8.0098 0.223478 0.212679)
(8.0098 0.158384 – 0.277472)
(8.0098 0.158384 0.277472)
(8.0098 0.0863914 – 0.319168)
(8.0098 0.0863914 0.319168)
(8.0098 0.0 – 0.342266)
(8.0098 0.0 0.342266)
(8.0098 – 0.089991 – 0.342266)
(8.0098 – 0.089991 0.342266)
(8.0098 – 0.176082 – 0.319168)
(8.0098 – 0.176082 0.319168)
(8.0098 – 0.252875 – 0.274773)
(8.0098 – 0.252875 0.274773)
(8.0098 – 0.320968 – 0.206979)
(8.0098 – 0.320968 0.206979)
(8.0098 – 0.362064 – 0.135586)
(8.0098 – 0.362064 0.135586)
(8.0098 – 0.386361 – 0.0446955)
(8.0098 – 0.386361 0.0446955)
(7.5 0.0 0.0) — << centre reacteur orig : x=4.28747
( - 3.39236 0.0 - 0.753825)
( - 3.39236 0.0 - 0.543846)
( - 1.74343 0.683032 - 1.10119)
( - 1.74343 0.683032 - 0.806619)
( - 1.74343 0.663834 - 1.13509)
( - 1.74343 0.630237 - 1.15428)
( - 1.74343 - 0.536046 - 1.15428)
( - 2.82692 - 0.30027 - 1.15428)
( - 1.74343 - 0.569643 - 1.13479)
( - 1.74343 - 0.588841 - 1.10149)
( - 1.74343 - 0.588841 - 0.806919)
( - 1.74343 - 0.569643 - 0.773023)
( - 1.74343 - 0.536046 - 0.753825)
( - 2.82692 - 0.30057 - 0.753825)
( - 1.74343 0.630237 - 0.753825)
( - 1.74343 0.663834 - 0.773323)
( - 2.82692 - 0.334167 - 1.13479)
( - 2.82692 - 0.353365 - 1.10149)
( - 2.82692 - 0.353365 - 0.806919)
( - 2.82692 - 0.333867 - 0.773023)
( - 3.81622 0.541746 - 1.10719)
( - 3.81622 0.541746 - 0.80092)
( - 3.80722 0.494651 - 1.15428)
( - 3.67493 - 0.188381 - 1.15428)
( - 3.66593 - 0.235476 - 1.10719)
( - 3.66593 - 0.235476 - 0.80092)
( - 3.67493 - 0.188381 - 0.753825)
( - 3.80722 0.494651 - 0.753825)
( - 3.67043 - 0.212079 - 0.777522)
( - 3.72473 - 0.20038 - 0.777522)
( - 3.83092 - 0.169483 - 0.777522)
( - 3.87801 - 0.133487 - 0.777522)
( - 3.9812 0.40046 - 0.777522)
( - 3.9578 0.471253 - 0.777522)
( - 3.89871 0.508749 - 0.777522)
( - 3.81172 0.518348 - 0.777522)
( - 3.39236 0.0 0.543846)
( - 3.39236 0.0 0.753825)
( - 1.74343 0.683032 1.10119)
( - 1.74343 0.683032 0.806619)
( - 1.74343 0.663834 1.13509)
( - 1.74343 0.630237 1.15428)
( - 2.82692 - 0.30027 1.15428)
( - 1.74343 - 0.536046 1.15428)
( - 1.74343 - 0.569643 1.13479)
( - 1.74343 - 0.588841 1.10149)
( - 1.74343 - 0.588841 0.806919)
( - 1.74343 - 0.569643 0.773023)
( - 1.74343 - 0.536046 0.753825)
( - 2.82692 - 0.30057 0.753825)
( - 1.74343 0.630237 0.753825)
( - 1.74343 0.663834 0.773323)
( - 2.82692 - 0.334167 1.13479)
( - 2.82692 - 0.353365 1.10149)
( - 2.82692 - 0.353365 0.806919)
( - 2.82692 - 0.333867 0.773023)
( - 3.81622 0.541746 1.10719)
( - 3.81622 0.541746 0.80092)
( - 3.80722 0.494651 1.15428)
( - 3.67493 - 0.188381 1.15428)
( - 3.66593 - 0.235476 1.10719)
( - 3.66593 - 0.235476 0.80092)
( - 3.67493 - 0.188381 0.753825)
( - 3.80722 0.494651 0.753825)
( - 3.81172 0.518348 0.777522)
( - 3.89871 0.508749 0.777522)
( - 3.9578 0.471253 0.777522)
( - 3.9812 0.40046 0.777522)
( - 3.87801 - 0.133487 0.777522)
( - 3.83092 - 0.169483 0.777522)
( - 3.72473 - 0.20038 0.777522)
( - 3.67043 - 0.212079 0.777522) -- ind. 589
(4.28747 0.730427 0.0)); -- ind. 0
object_faces : constant array (1 .. nb_faces 1 .. 4) of Natural :=
((
3 590 2 0) (3 4 590 0) (
3 590 1 0) (6 3 2 0) (
6 2 5 0) (7 8 4 0) (
7 4 3 0) (10 6 5 0) (
10 5 9 0) (11 12 8 0) (
11 8 7 0) (14 10 9 0) (
14 9 13 0) (14 13 12 0) (
14 12 11 0) (3 15 1 0) (
15 3 1 0) (6 15 3 0) (
15 7 3 0) (6 16 15 0) (
16 7 15 0) (6 10 16 0) (
11 7 16 0) (10 14 16 0) (
14 11 16 0) (19 20 17 0) (
19 17 18 0) (22 19 18 0) (
22 18 21 0) (25 26 23 0) (
25 23 24 0) (20 25 24 0) (
20 24 17 0) (21 18 17 0) (
21 17 24 0) (21 24 23 0) (
28 29 27 0) (23 29 28 0) (
32 33 30 0) (32 30 31 0) (
34 35 33 0) (34 33 32 0) (
38 39 36 0) (38 36 37 0) (
40 41 39 0) (40 39 38 0) (
36 39 41 0) (36 41 33 0) (
36 33 35 0) (43 44 42 0) (
43 36 44 0) (46 22 45 0) (
48 46 21 0) (48 21 47 0) (
50 48 47 0) (50 47 49 0) (
52 53 49 0) (52 49 51 0) (
56 57 54 0) (56 54 55 0) (
59 56 55 0) (59 55 58 0) (
61 59 58 0) (61 58 60 0) (
63 61 60 0) (63 60 62 0) (
65 66 62 0) (65 62 64 0) (
69 70 67 0) (69 67 68 0) (
71 69 68 0) (72 69 71 0) (
74 75 73 0) (76 77 73 0) (
76 73 75 0) (78 79 77 0) (
78 77 76 0) (80 81 79 0) (
80 79 78 0) (82 83 81 0) (
82 81 80 0) (84 85 83 0) (
84 83 82 0) (86 87 85 0) (
86 85 84 0) (89 90 87 0) (
89 87 88 0) (91 92 90 0) (
91 90 89 0) (93 94 92 0) (
93 92 91 0) (93 95 94 0) (
93 96 95 0) (98 99 97 0) (
98 100 99 0) (103 104 99 0) (
103 99 100 0) (103 100 101 0) (
103 101 102 0) (109 110 102 0) (
109 102 101 0) (109 101 105 0) (
109 105 106 0) (109 106 107 0) (
109 107 108 0) (47 21 111 0) (
47 111 103 0) (112 113 97 0) (
112 97 99 0) (111 112 99 0) (
111 99 104 0) (103 111 104 0) (
49 47 103 0) (49 103 102 0) (
51 49 102 0) (51 102 110 0) (
114 51 110 0) (114 110 109 0) (
115 114 109 0) (115 109 108 0) (
116 115 108 0) (116 108 107 0) (
117 116 107 0) (117 107 106 0) (
118 117 106 0) (118 106 105 0) (
119 118 105 0) (119 105 101 0) (
23 119 101 0) (23 101 120 0) (
121 120 100 0) (121 100 98 0) (
113 121 98 0) (113 98 97 0) (
100 120 101 0) (123 124 122 0) (
125 124 123 0) (129 125 123 0) (
129 123 126 0) (129 126 127 0) (
129 127 128 0) (135 129 128 0) (
135 128 130 0) (135 130 131 0) (
135 131 132 0) (135 132 133 0) (
135 133 134 0) (138 127 136 0) (
138 136 137 0) (140 123 122 0) (
140 122 139 0) (136 126 123 0) (
136 123 140 0) (136 127 126 0) (
141 128 127 0) (141 127 138 0) (
142 130 128 0) (142 128 141 0) (
143 131 130 0) (143 130 142 0) (
144 132 131 0) (144 131 143 0) (
145 133 132 0) (145 132 144 0) (
90 134 133 0) (90 133 145 0) (
92 135 134 0) (92 134 90 0) (
94 129 135 0) (94 135 92 0) (
95 146 129 0) (95 129 94 0) (
147 124 125 0) (147 125 146 0) (
139 122 124 0) (139 124 147 0) (
146 125 129 0) (150 151 148 0) (
150 148 149 0) (151 153 152 0) (
151 152 148 0) (153 155 154 0) (
153 154 152 0) (155 157 156 0) (
155 156 154 0) (159 150 149 0) (
159 149 158 0) (161 159 158 0) (
161 158 160 0) (163 161 160 0) (
163 160 162 0) (166 167 164 0) (
166 164 165 0) (172 173 168 0) (
172 168 169 0) (172 169 170 0) (
172 170 167 0) (172 167 166 0) (
172 166 171 0) (176 177 174 0) (
176 174 175 0) (179 176 175 0) (
179 175 178 0) (181 179 178 0) (
181 178 180 0) (184 185 182 0) (
184 182 183 0) (188 189 186 0) (
188 186 187 0) (189 191 190 0) (
189 190 186 0) (191 193 192 0) (
191 192 190 0) (193 184 183 0) (
193 183 192 0) (198 199 188 0) (
198 188 194 0) (198 194 195 0) (
198 195 185 0) (198 185 196 0) (
198 196 197 0) (28 27 113 0) (
28 113 112 0) (21 28 112 0) (
21 112 111 0) (29 23 120 0) (
29 120 121 0) (27 29 121 0) (
27 121 113 0) (201 140 139 0) (
201 139 200 0) (137 136 140 0) (
137 140 201 0) (202 147 146 0) (
202 146 95 0) (200 203 147 0) (
200 147 202 0) (206 207 204 0) (
206 204 205 0) (209 205 204 0) (
209 204 208 0) (210 211 207 0) (
210 207 206 0) (213 209 208 0) (
213 208 212 0) (214 215 211 0) (
214 211 210 0) (217 213 212 0) (
217 212 216 0) (218 219 215 0) (
218 215 214 0) (221 217 216 0) (
221 216 220 0) (222 223 219 0) (
222 219 218 0) (224 221 220 0) (
222 225 223 0) (226 221 224 0) (
222 227 225 0) (230 231 228 0) (
230 228 229 0) (234 235 232 0) (
234 232 233 0) (238 239 236 0) (
238 236 237 0) (241 234 233 0) (
241 233 240 0) (242 243 239 0) (
242 239 238 0) (245 241 240 0) (
245 240 244 0) (246 247 243 0) (
246 243 242 0) (249 245 244 0) (
249 244 248 0) (250 251 247 0) (
250 247 246 0) (253 249 248 0) (
253 248 252 0) (254 255 251 0) (
254 251 250 0) (257 253 252 0) (
257 252 256 0) (258 259 255 0) (
258 255 254 0) (266 267 260 0) (
266 260 261 0) (266 261 262 0) (
266 262 263 0) (266 263 264 0) (
266 264 265 0) (271 264 263 0) (
271 263 268 0) (271 268 269 0) (
271 269 259 0) (271 259 256 0) (
271 256 270 0) (257 256 259 0) (
257 259 258 0) (273 257 258 0) (
273 258 272 0) (274 273 272 0) (
274 272 226 0) (280 281 226 0) (
280 226 275 0) (280 275 276 0) (
280 276 277 0) (280 277 278 0) (
280 278 279 0) (274 226 281 0) (
274 281 282 0) (274 282 283 0) (
274 283 284 0) (274 284 285 0) (
274 285 286 0) (289 235 287 0) (
289 287 288 0) (290 288 237 0) (
290 237 238 0) (291 234 235 0) (
291 235 289 0) (292 290 238 0) (
292 238 242 0) (293 241 234 0) (
293 234 291 0) (294 292 242 0) (
294 242 246 0) (295 245 241 0) (
295 241 293 0) (296 294 246 0) (
296 246 250 0) (297 249 245 0) (
297 245 295 0) (298 296 250 0) (
298 250 254 0) (299 253 249 0) (
299 249 297 0) (272 298 254 0) (
272 254 258 0) (273 257 253 0) (
273 253 299 0) (281 289 288 0) (
281 288 280 0) (279 280 288 0) (
279 288 290 0) (282 291 289 0) (
282 289 281 0) (278 279 290 0) (
278 290 292 0) (283 293 291 0) (
283 291 282 0) (277 278 292 0) (
277 292 294 0) (284 295 293 0) (
284 293 283 0) (276 277 294 0) (
276 294 296 0) (285 297 295 0) (
285 295 284 0) (275 276 296 0) (
275 296 298 0) (286 299 297 0) (
286 297 285 0) (226 275 298 0) (
226 298 272 0) (274 273 299 0) (
274 299 286 0) (232 267 260 0) (
232 260 236 0) (239 236 260 0) (
239 260 261 0) (233 266 267 0) (
233 267 232 0) (243 239 261 0) (
243 261 262 0) (240 265 266 0) (
240 266 233 0) (247 243 262 0) (
247 262 263 0) (244 264 265 0) (
244 265 240 0) (251 247 263 0) (
251 263 268 0) (248 271 264 0) (
248 264 244 0) (255 251 268 0) (
255 268 269 0) (252 270 271 0) (
252 271 248 0) (259 255 269 0) (
252 256 270 0) (302 303 300 301) -- 392 nez 2 tri. fusionnes
(304 305 301 0) (318 301 315 0) -- 394 tri. ajoute (manque dans vrml!)
(307 305 304 0) (307 304 306 0) (
308 309 300 0) (310 308 300 0) (
311 310 300 0) (311 300 303 0) (
312 301 300 0) (312 300 309 0) (
312 313 301 0) (314 311 303 0) (
313 315 301 0) (316 314 303 0) (
317 316 303 0) (319 302 301 0) (
319 301 318 0) (320 317 303 0) (
320 303 302 0) (319 321 302 0) (
322 320 302 0) (321 322 302 0) (
324 308 323 0) (325 309 308 0) (
325 308 324 0) (326 323 308 0) (
326 308 310 0) (327 312 309 0) (
327 309 325 0) (328 326 310 0) (
328 310 311 0) (329 313 312 0) (
329 312 327 0) (330 328 311 0) (
330 311 314 0) (331 315 313 0) (
331 313 329 0) (332 330 314 0) (
332 314 316 0) (333 318 315 0) (
333 315 331 0) (334 332 316 0) (
334 316 317 0) (335 319 318 0) (
335 318 333 0) (336 334 317 0) (
336 317 320 0) (337 321 319 0) (
337 319 335 0) (338 336 320 0) (
338 320 322 0) (338 322 321 0) (
338 321 337 0) (340 324 323 0) (
340 323 339 0) (341 325 324 0) (
341 324 340 0) (342 339 323 0) (
342 323 326 0) (343 327 325 0) (
343 325 341 0) (344 342 326 0) (
344 326 328 0) (345 329 327 0) (
345 327 343 0) (346 344 328 0) (
346 328 330 0) (347 331 329 0) (
347 329 345 0) (348 346 330 0) (
348 330 332 0) (349 333 331 0) (
349 331 347 0) (350 348 332 0) (
350 332 334 0) (351 335 333 0) (
351 333 349 0) (352 350 334 0) (
352 334 336 0) (353 337 335 0) (
353 335 351 0) (354 352 336 0) (
354 336 338 0) (354 338 337 0) (
354 337 353 0) (355 356 340 0) (
355 340 339 0) (357 341 340 0) (
357 340 356 0) (358 355 339 0) (
358 339 342 0) (359 343 341 0) (
359 341 357 0) (360 358 342 0) (
360 342 344 0) (361 345 343 0) (
361 343 359 0) (362 360 344 0) (
362 344 346 0) (363 347 345 0) (
363 345 361 0) (364 362 346 0) (
364 346 348 0) (365 349 347 0) (
365 347 363 0) (366 364 348 0) (
366 348 350 0) (367 351 349 0) (
367 349 365 0) (368 366 350 0) (
368 350 352 0) (369 353 351 0) (
369 351 367 0) (370 368 352 0) (
370 352 354 0) (370 354 353 0) (
370 353 369 0) (371 259 269 0) (
256 372 270 0) (270 372 361 0) (
371 269 362 0) (373 363 361 0) (
373 361 372 0) (374 371 362 0) (
374 362 364 0) (375 365 363 0) (
375 363 373 0) (376 374 364 0) (
376 364 366 0) (377 367 365 0) (
377 365 375 0) (378 376 366 0) (
378 366 368 0) (379 369 367 0) (
379 367 377 0) (380 378 368 0) (
380 368 370 0) (380 370 369 0) (
380 369 379 0) (261 260 355 0) (
267 266 356 0) (358 261 355 0) (
266 357 356 0) (262 261 358 0) (
266 265 357 0) (360 262 358 0) (
265 359 357 0) (263 262 360 0) (
265 264 359 0) (268 263 360 0) (
264 271 359 0) (362 268 360 0) (
271 361 359 0) (269 268 362 0) (
271 270 361 0) (382 372 256 0) (
382 256 381 0) (383 384 259 0) (
383 259 371 0) (385 373 372 0) (
385 372 382 0) (386 383 371 0) (
386 371 374 0) (387 375 373 0) (
387 373 385 0) (388 386 374 0) (
388 374 376 0) (389 377 375 0) (
389 375 387 0) (390 388 376 0) (
390 376 378 0) (391 379 377 0) (
391 377 389 0) (392 390 378 0) (
392 378 380 0) (391 392 380 0) (
391 380 379 0) (393 382 381 0) (
383 394 384 0) (395 385 382 0) (
395 382 393 0) (396 394 383 0) (
396 383 386 0) (395 387 385 0) (
388 396 386 0) (395 389 387 0) (
390 396 388 0) (395 391 389 0) (
392 396 390 0) (396 392 391 0) (
396 391 395 0) (398 399 393 0) (
398 393 397 0) (402 403 400 0) (
402 400 401 0) (405 401 400 0) (
405 400 404 0) (406 407 403 0) (
406 403 402 0) (409 405 404 0) (
409 404 408 0) (410 411 407 0) (
410 407 406 0) (413 409 408 0) (
413 408 412 0) (397 414 411 0) (
397 411 410 0) (394 413 412 0) (
397 393 414 0) (416 413 394 0) (
416 394 415 0) (398 417 399 0) (
418 416 415 0) (419 420 417 0) (
419 417 398 0) (422 416 418 0) (
422 418 421 0) (423 424 420 0) (
423 420 419 0) (426 422 421 0) (
426 421 425 0) (427 428 424 0) (
427 424 423 0) (430 426 425 0) (
430 425 429 0) (427 431 428 0) (
432 430 429 0) (431 433 428 0) (
434 432 429 0) (431 435 433 0) (
436 432 434 0) (435 437 433 0) (
438 436 434 0) (437 439 433 0) (
440 438 434 0) (437 441 439 0) (
442 438 440 0) (437 395 441 0) (
396 438 442 0) (438 396 395 0) (
438 395 437 0) (444 398 397 0) (
444 397 443 0) (443 402 401 0) (
443 401 445 0) (405 445 401 0) (
443 406 402 0) (409 445 405 0) (
443 410 406 0) (413 445 409 0) (
443 397 410 0) (446 445 413 0) (
446 413 416 0) (444 447 398 0) (
448 446 416 0) (449 419 398 0) (
449 398 447 0) (450 448 416 0) (
450 416 422 0) (451 423 419 0) (
451 419 449 0) (452 450 422 0) (
452 422 426 0) (453 427 423 0) (
453 423 451 0) (454 452 426 0) (
454 426 430 0) (455 431 427 0) (
455 427 453 0) (456 454 430 0) (
456 430 432 0) (457 435 431 0) (
457 431 455 0) (458 456 432 0) (
458 432 436 0) (459 437 435 0) (
459 435 457 0) (460 458 436 0) (
460 436 438 0) (460 438 437 0) (
460 437 459 0) (461 462 443 0) (
461 443 445 0) (461 445 446 0) (
443 462 444 0) (463 447 444 0) (
463 444 462 0) (464 461 446 0) (
464 446 448 0) (465 449 447 0) (
465 447 463 0) (466 464 448 0) (
466 448 450 0) (467 451 449 0) (
467 449 465 0) (468 466 450 0) (
468 450 452 0) (469 453 451 0) (
469 451 467 0) (470 468 452 0) (
470 452 454 0) (471 455 453 0) (
471 453 469 0) (472 470 454 0) (
472 454 456 0) (473 457 455 0) (
473 455 471 0) (474 472 456 0) (
474 456 458 0) (475 459 457 0) (
475 457 473 0) (476 474 458 0) (
476 458 460 0) (476 460 459 0) (
476 459 475 0) (478 462 461 0) (
478 461 477 0) (479 463 462 0) (
479 462 478 0) (480 477 461 0) (
480 461 464 0) (481 465 463 0) (
481 463 479 0) (482 480 464 0) (
482 464 466 0) (483 467 465 0) (
483 465 481 0) (484 482 466 0) (
484 466 468 0) (485 469 467 0) (
485 467 483 0) (486 484 468 0) (
486 468 470 0) (487 471 469 0) (
487 469 485 0) (488 486 470 0) (
488 470 472 0) (489 473 471 0) (
489 471 487 0) (490 488 472 0) (
490 472 474 0) (491 475 473 0) (
491 473 489 0) (492 490 474 0) (
492 474 476 0) (492 476 475 0) (
492 475 491 0) (494 478 477 0) (
494 477 493 0) (495 479 478 0) (
495 478 494 0) (496 493 477 0) (
496 477 480 0) (497 481 479 0) (
497 479 495 0) (498 496 480 0) (
498 480 482 0) (497 499 481 0) (
500 498 482 0) (501 483 481 0) (
501 481 499 0) (502 500 482 0) (
502 482 484 0) (501 503 483 0) (
504 502 484 0) (505 485 483 0) (
505 483 503 0) (506 504 484 0) (
506 484 486 0) (507 487 485 0) (
507 485 505 0) (508 506 486 0) (
508 486 488 0) (507 509 487 0) (
510 508 488 0) (511 489 487 0) (
511 487 509 0) (512 510 488 0) (
512 488 490 0) (511 513 489 0) (
514 512 490 0) (515 491 489 0) (
515 489 513 0) (516 514 490 0) (
516 490 492 0) (516 492 491 0) (
516 491 515 0) (493 517 494 0) (
494 517 495 0) (496 517 493 0) (
495 517 497 0) (498 517 496 0) (
497 517 499 0) (500 517 498 0) (
499 517 501 0) (502 517 500 0) (
501 517 503 0) (504 517 502 0) (
503 517 505 0) (506 517 504 0) (
505 517 507 0) (508 517 506 0) (
507 517 509 0) (510 517 508 0) (
509 517 511 0) (512 517 510 0) (
511 517 513 0) (514 517 512 0) (
513 517 515 0) (516 517 514 0) (
515 517 516 0) (518 519 393 0) (
518 393 399 0) (518 441 395 0) (
518 395 519 0) (399 417 520 0) (
399 520 521 0) (420 522 520 0) (
420 520 417 0) (424 523 522 0) (
424 522 420 0) (524 525 523 0) (
524 523 424 0) (524 424 428 0) (
433 526 524 0) (433 524 428 0) (
439 527 526 0) (439 526 433 0) (
441 528 527 0) (441 527 439 0) (
441 529 528 0) (441 530 529 0) (
399 532 531 0) (399 531 530 0) (
399 530 441 0) (399 533 532 0) (
399 521 533 0) (526 534 525 0) (
526 525 524 0) (527 535 534 0) (
527 534 526 0) (528 536 535 0) (
528 535 527 0) (529 537 536 0) (
529 536 528 0) (530 531 537 0) (
530 537 529 0) (521 520 538 0) (
521 538 539 0) (520 522 538 0) (
522 540 538 0) (522 523 540 0) (
525 541 540 0) (525 540 523 0) (
525 534 541 0) (534 542 541 0) (
534 535 542 0) (536 543 542 0) (
536 542 535 0) (536 537 543 0) (
537 544 543 0) (537 531 544 0) (
532 545 544 0) (532 544 531 0) (
532 533 545 0) (533 539 545 0) (
533 521 539 0) (545 539 538 0) (
545 538 540 0) (545 540 541 0) (
545 541 542 0) (545 542 543 0) (
545 543 544 0) (552 553 546 0) (
552 546 547 0) (552 547 548 0) (
552 548 549 0) (552 549 550 0) (
552 550 551 0) (549 544 545 0) (
549 545 550 0) (552 545 553 0) (
551 545 552 0) (550 545 551 0) (
548 544 549 0) (547 544 548 0) (
546 544 547 0) (555 415 394 0) (
555 394 554 0) (555 554 396 0) (
555 396 442 0) (415 557 556 0) (
415 556 418 0) (421 418 556 0) (
421 556 558 0) (425 421 558 0) (
425 558 559 0) (429 425 559 0) (
429 559 560 0) (429 560 561 0) (
434 429 561 0) (434 561 562 0) (
440 434 562 0) (440 562 563 0) (
442 440 563 0) (442 563 564 0) (
565 442 564 0) (566 442 565 0) (
442 566 567 0) (442 567 568 0) (
442 568 415 0) (569 415 568 0) (
557 415 569 0) (562 561 560 0) (
562 560 570 0) (563 562 570 0) (
563 570 571 0) (564 563 571 0) (
564 571 572 0) (565 564 572 0) (
565 572 573 0) (566 565 573 0) (
566 573 567 0) (557 575 574 0) (
557 574 556 0) (558 556 574 0) (
576 558 574 0) (559 558 576 0) (
560 559 576 0) (560 576 577 0) (
570 560 577 0) (578 570 577 0) (
571 570 578 0) (572 571 578 0) (
572 578 579 0) (573 572 579 0) (
580 573 579 0) (567 573 580 0) (
568 567 580 0) (568 580 581 0) (
569 568 581 0) (575 569 581 0) (
557 569 575 0) (576 574 575 0) (
576 575 581 0) (576 581 580 0) (
576 580 579 0) (576 579 578 0) (
576 578 577 0) (588 589 582 0) (
588 582 583 0) (588 583 584 0) (
588 584 585 0) (588 585 586 0) (
588 586 587 0) (586 585 581 0) (
586 581 580 0) (581 583 582 0) (
581 584 583 0) (581 585 584 0) (
580 587 586 0) (580 588 587 0) (
580 589 588 0));
the_Geometrys : array (Piece) of aliased GL.geometry.vbo.vbo_Geometry;
-- the_vertex_Arrays : array (Piece'Range) of GL.geometry.vertex_Array (1 .. nb_points);
-- vertex_Array_Last : array (Piece'Range) of GL.geometry.vertex_Id;
-- tbd : free these
the_Indices : array (Piece'Range) of aliased p_vertex_Id_Array := (others => new GL.geometry.vertex_Id_array (1 .. nb_faces * 3));
indices_Count : array (Piece’Range) of GL.uInt := (others => 0);
the_vertex_Buffer : GL.Buffer.vertex.General_Object;
— the_indices_Buffers : array (Piece) of GL.Buffer.indices.Object;
total_Bounds : GL.geometry.Bounds_record := null_Bounds;
is_Initialised : Boolean := False;
procedure initialise
is
begin
the_vertex_Buffer := GL.Buffer.vertex.to_Buffer (object_points’Access usage => GL.STATIC_DRAW);
declare
piece_Id : Piece;
begin
for i in reverse 1 .. nb_faces loop
case i is
when 178 .. 237 => piece_Id := silver_Metal;
when 260 .. 315 => piece_Id := black_Cockpit;
when 740 .. 779 => piece_Id := Black;
when 860 .. 865 |
936 .. 941 => piece_Id := black_front_Air;
when 316 .. 391 => piece_Id := Copper;
when 780 .. 803 => piece_Id := fire_Engine;
when 392 => piece_Id := nose_Cone;
when others => piece_Id := Remains;
end case;
indices_Count (piece_Id) := indices_Count (piece_Id) + 1;
the_Indices (piece_Id) (positive_uInt (indices_Count (piece_Id))) := vertex_Id (object_faces (i 1));
indices_Count (piece_Id) := indices_Count (piece_Id) + 1;
the_Indices (piece_Id) (positive_uInt (indices_Count (piece_Id))) := vertex_Id (object_faces (i 2));
indices_Count (piece_Id) := indices_Count (piece_Id) + 1;
the_Indices (piece_Id) (positive_uInt (indices_Count (piece_Id))) := vertex_Id (object_faces (i 3));
end loop;
end;
for Each in Piece loop
the_Geometrys (Each).primitive_Id := GL.TRIANGLES;
— tbd : make sure the culler culls individual Geometrys (based on geometrys bounding box) and not only on whole Visuals !
—
the_Geometrys (Each).Bounds := Bounds (object_points the_Indices (Each) (1 .. positive_uInt (indices_Count (Each))));
total_Bounds := max (total_Bounds the_Geometrys (Each).Bounds);
— vertices
—
the_Geometrys (Each).Vertices := the_vertex_Buffer;
the_Geometrys (Each).vertex_Count := GL.SizeI (object_points’Length);
— indices
—
decrement (the_Indices (Each) (1 .. positive_uInt (indices_Count (Each))));
declare — tbd : free pad
Pad : p_vertex_Id_array := new vertex_Id_array’ (the_Indices (Each) (1 .. positive_uInt (indices_Count (Each))));
begin
the_Geometrys (Each).Indices := to_Buffer (Pad usage => GL.STATIC_DRAW);
the_Geometrys (Each).indices_Count := GL.SizeI (Pad.all’Length);
end;
end loop;
end initialise;
the_Skins : array (Piece) of aliased GL.skins.Skin_opaque_lit_mono_color
:= (silver_Metal => (material => Polished_Silver)
black_Cockpit => (material => Black_Rubber)
Black => (material => Black_Plastic)
black_front_Air => (material => Bronze)
Copper => (material => Polished_Copper)
fire_Engine => (material => Ruby)
nose_Cone => (material => Gold)
Remains => (material => Polished_Bronze));
procedure Create (object : in out GLOBE_3D.sprite.p_Sprite;
scale : GLOBE_3D.Real;
centre : GLOBE_3D.Point_3D)
is
begin
if not is_Initialised then
initialise;
is_Initialised := True;
end if;
object := new sprite.Sprite (max_geometrys => Piece’Pos (Piece’Last) + 1);
— for i in reverse 1 .. nb_points loop
— object.point (i) := scale * object_points (i);
— end loop;
— face_0.skin := material_only;
— for i in reverse 1 .. nb_faces loop
— case i is
— when 178 .. 237 => face_0.material := Polished_Silver; — 1 metal clair
— when 260 .. 315 => face_0.material := Black_Rubber; — 2 (noir) fond cockpit
— when 740 .. 779 => face_0.material := Black_Plastic; — 2 noir
— when 860 .. 865 |
— 936 .. 941 => face_0.material := Bronze; — 2 noir entrees air
— when 316 .. 391 => face_0.material := Polished_Copper; — 3
— when 780 .. 803 => face_0.material := Ruby; — 4 feu reacteur
— when 392 => face_0.material := Gold; — jaune (bout du nez)
— when others => face_0.material := Polished_Bronze; — 0 metal fonce
— end case;
—
— face_0.P :=
— (object_faces (i 1)
— object_faces (i 2)
— object_faces (i 3)
— object_faces (i 4)
–);
—
— — object.face (i) := face_0;
— end loop;
for Each in Piece loop
object.add (the_Geometrys (Each)’Access the_Skins (Each)’Access);
–object.add (the_Geometrys (Each)’Access GL.Skins.lit_green_Skin);
end loop;
object.Bounds := total_Bounds;
object.centre := centre; — e3d : 7.5*scale
Set_name (object.all “X29 prototype”);
end Create;
end X29_vbo;