1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with GL;                    use GL; 
  6. with GLOBE_3D; 
  7. with GLUT_2D; 
  8. with Graphics_FrameRates;   use Graphics_FrameRates; 
  9. with Graphics_Structures;   use Graphics_Structures; 
  10. with Rotations;             use Rotations; 
  11. with Vectors_2D_N;          use Vectors_2D_N; 
  12. with Vectors_3D;            use Vectors_3D; 
  13.  
  14. package Graphics_Configuration is 
  15.  
  16.    Intented_Framerate : constant Hz := 30.0; 
  17.  
  18.    Initial_Cams : constant array (Camera_Mode_T) of Camera := 
  19.      (Scene => (Position      => Zero_Vector_3D, 
  20.                 Scene_Offset  => (0.0, 0.00, 0.8), 
  21.                 Object_Offset => Zero_Vector_3D, 
  22.                 Rotation      => Zero_Rotation), 
  23.       Chase => (Position      => Zero_Vector_3D, 
  24.                 Scene_Offset  => Zero_Vector_3D, 
  25.                 Object_Offset => (0.0, 0.05, 0.1), 
  26.                 Rotation      => Zero_Rotation)); 
  27.  
  28.    -- Stars -- 
  29.    Number_Of_Stars   : constant Natural       := 20_000; 
  30.    Distance_of_Stars : constant GLOBE_3D.Real := 3.0; 
  31.  
  32.    Initial_Viewer_Size : constant Size_2D := (x => 1280, y => 720); 
  33.  
  34.       -- Camera Properties -- 
  35.    Camera_Field_of_View        : constant GLOBE_3D.Real     := 70.0; 
  36.    Camera_Close_Clipping_Plane : constant GLOBE_3D.Real     := 0.01; 
  37.    Camera_Far_Clipping_Plane   : constant GLOBE_3D.Real     := 1000.0; 
  38.    Camera_Initial_Position     : constant GLOBE_3D.Point_3D := (0.0, 0.0, 0.0); 
  39.  
  40.    Viewer_Title : constant String := "Swarm Viewer"; 
  41.  
  42.    Lighting_Strength : GL.Float := 0.9; 
  43.  
  44.    Initial_Lights : constant Lights_T := (1 => (position => (-1.0, 1.0, 1.0, Lighting_Strength), 
  45.                                                 ambient  => (0.1, 0.1, 0.1, Lighting_Strength), 
  46.                                                 diffuse  => (0.9, 0.9, 0.9, Lighting_Strength), 
  47.                                                 specular => (0.05, 0.05, 0.01, Lighting_Strength)), 
  48.  
  49.                                           2 => (position => (1.0, 1.0, 1.0, Lighting_Strength), 
  50.                                                 ambient  => (0.0, 0.0, 0.0, Lighting_Strength), 
  51.                                                 diffuse  => (0.1, 0.1, 0.1, Lighting_Strength), 
  52.                                                 specular => (1.0, 0.8, 0.8, Lighting_Strength)) 
  53.                                          ); 
  54.  
  55.    Screen_Font : constant GLUT_2D.Font_type := GLUT_2D.Helvetica_10; 
  56.  
  57. end Graphics_Configuration;