TgmTriangle2D

type TgmTriangle2D = class(TPersistent)

protected

  FSquaredRadius: Double;

  FCircleCenter: TgmPoint2D;

  FValidMetrics: Boolean;

  FQuality: Double;

  FMesh: TgmTriMesh2D;

  procedure CalculateMetrics; virtual;

  procedure InvalidateBoundaries;

public

  constructor Create; virtual;

  procedure Invalidate;

  procedure HookupVertices();

  procedure HookupNeighbours();

  procedure ReplaceNeighbour();

  function NeighbourIndex();

  function VertexIndex();

  function BoundaryIndex();

  function HitTest();

  function EdgeFromCenterTowardsPoint();

  function Area;

  function AngleCosine();

  function SmallestAngleCosine;

  function SquaredLongestEdgeLength;

  property Vertices []: TgmVertex2D; [rw]

  property Neighbours []: TgmTriangle2D; [rw]

  property Boundaries []: TgmBoundary2D; [rw]

  property Center: TgmPoint2D; [r]

  property RegionIndex: Integer; [rw]

  function VertexInCircle();

  function IsDelaunay;

  property CircleCenter: TgmPoint2D; [r]

  property SquaredRadius: Double; [r]

  function HasEncroachedBoundary;

  function EncroachedBoundaryFromPoint();

  property OffCenter: TgmPoint2D; [r]

  property Quality: Double; [r]

end;

TgmTriangle2D

TObject