1. ------------------------------------------------------------------------- 
  2.  --  GL.Frustum 
  3.  -- 
  4.  --  Copyright (c) Gautier de Montmollin/Rod Kay 2001 .. 2007 
  5.  --  CH - 8810 Horgen 
  6.  --  SWITZERLAND 
  7.  -- 
  8.  --  Permission granted to: 
  9.  --  1/ use this library, without any warranty, for any purpose; 
  10.  --  2/ modify this library's sources (specification, body of this 
  11.  --     package and of child packages on which it depends) in any 
  12.  --     way, with an appropriate commenting of changes; 
  13.  --  3/ copy and distribute this library's sources without restriction, 
  14.  --     provided this copyright note remains attached and unmodified. 
  15.  ------------------------------------------------------------------------- 
  16.  
  17. with GL.Geometry; 
  18.  
  19. package GL.Frustums is 
  20.  
  21.    type plane_Id is (Left, Right, High, Low, Near, Far); 
  22.  
  23.    type plane_Array is array (plane_Id) of GL.Geometry.Plane; 
  24.  
  25.    procedure Normalise (the_Planes  : in out plane_Array); 
  26.  
  27.    function Current_Planes return plane_Array; 
  28.    -- 
  29.    -- returns the frustum planes calculated from the current GL projection and modelview matrices. 
  30.  
  31. end GL.Frustums;