TgmTriMesh2D

type TgmTriMesh2D = class(TPersistent)

protected

  FPrecisionSqr: Double;

  FSwapCount: Integer;

  FCircleCalcCount: Integer;

  FDelaunayPrecision: Double;

  FSquaredBeta: Double;

  procedure SetPrecision(); virtual;

  function NewVertex;

  class function GetVertexClass; virtual;

  function NewTriangle;

  class function GetTriangleClass; virtual;

  function NewBoundary;

  class function GetBoundaryClass; virtual;

  procedure InitializeInfo; virtual;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Clear; virtual;

  procedure ConvexHull;

  procedure OptimizeForFEM();

  procedure RemoveNonBoundaries;

  function BoundingBox();

  function AbsoluteArea;

  function SignedArea;

  function LocateClosestVertex(); virtual;

  property Vertices: TgmVertex2DList; [r]

  property Triangles: TgmTriangle2DList; [r]

  property Boundaries: TgmBoundary2DList; [r]

  property Precision: Double; [rw]

  property SearchSteps: Integer; [r]

end;

TgmTriMesh2D

TObject