with Ada.Containers.Vectors; use Ada.Containers;

package Dtm.Surface is

   type Point is tagged record
      X, Y, Z : Dtm_Value;
   end record;
   
   type Triangle is array (0 .. 2) of Point;
   
   package Surface_Vector_Pkg is new Ada.Containers.Vectors(Index_Type   => Positive,
                                                            Element_Type => Triangle);
   subtype Surface_Vector is Surface_Vector_Pkg.Vector;
   
   function Triangle_Count(Info : Dtm_Info) return Natural;
   procedure Surface_From_Grid(Triangles : in out Surface_Vector; Grid : Dtm_Data);

end Dtm.Surface;