1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with GLOBE_3D; 
  6. with Graphics_Configuration; use Graphics_Configuration; 
  7. with Graphics_Structures;   use Graphics_Structures; 
  8. with Models;                use Models; 
  9. with Rotations;             use Rotations; 
  10. with Vectors_3D;            use Vectors_3D; 
  11.  
  12. package Graphics_Data is 
  13.  
  14.    Default_Model : Model_Name := Spaceship; 
  15.  
  16.    Camera_Mode : Camera_Mode_T := Scene; 
  17.  
  18.    Cam : Camera := (Position      => Zero_Vector_3D, 
  19.                     Scene_Offset  => Zero_Vector_3D, 
  20.                     Object_Offset => Zero_Vector_3D, 
  21.                     Rotation      => Zero_Rotation); 
  22.  
  23.    Eye         : GLOBE_3D.Camera; 
  24.  
  25.    Viewer_Size : Size_2D := Initial_Viewer_Size; 
  26.  
  27.    Full_Screen_State     : Boolean := False; 
  28.    Show_Text_Overlay     : Boolean := True; 
  29.    Show_Connecting_Lines : Boolean := False; 
  30.    Show_Axis             : Boolean := False; 
  31.  
  32.    Current_Model : Model_Name := Default_Model; 
  33.  
  34.    Sphere_Angles : Vector_3D := Zero_Vector_3D; 
  35.  
  36. end Graphics_Data;