19 lines
595 B
Ada
19 lines
595 B
Ada
|
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;
|