1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with GLOBE_3D; 
  6.  
  7. package Models is 
  8.  
  9.    pragma Elaborate_Body; 
  10.  
  11.    type Model_Name is (Spaceship, Sphere); 
  12.  
  13. --     type Model_Name is (Arrow, 
  14. --                         Cube, 
  15. --                         Duck, 
  16. --                         Plane, 
  17. --                         Spaceship, 
  18. --                         Spaceship_Ruby, 
  19. --                         Sphere); 
  20.  
  21.    type Gradient_Materials is (G_Turquoise, G_Ruby); 
  22.  
  23.    type Models_Field   is array (Model_Name)                                     of GLOBE_3D.p_Object_3D; 
  24.    type Gradient_Field is array (Gradient_Materials range <>, Positive range <>) of GLOBE_3D.p_Object_3D; 
  25.  
  26.    Model_Set : Models_Field; 
  27.  
  28.    Spaceship_Gradient : Gradient_Field (Gradient_Materials'Range, 1 .. 10); 
  29.  
  30. end Models;