TgmTriangle3D

type TgmTriangle3D = class(TPersistent)

protected

  FSquaredRadius: Double;

  FCircleCenter: TgmPoint3D;

  FValidMetrics: Boolean;

  FQuality: Double;

  FMesh: TgmTriMesh3D;

  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 []: TgmVertex3D; [rw]

  property Neighbours []: TgmTriangle3D; [rw]

  property Boundaries []: TgmBoundary3D; [rw]

  property Center: TgmPoint3D; [r]

  property RegionIndex: Integer; [rw]

  function VertexInCircle();

  function IsDelaunay;

  property CircleCenter: TgmPoint3D; [r]

  property SquaredRadius: Double; [r]

  function HasEncroachedBoundary;

  function EncroachedBoundaryFromPoint();

  property OffCenter: TgmPoint3D; [r]

  property Quality: Double; [r]

end;

TgmTriangle3D

TObject