TgmSimplex

type TgmSimplex = class(TPersistent)

protected

  procedure CalculateNormals;

  procedure CalculateSphere;

  function HasValidNormals;

  function HasValidSphere;

public

  constructor CreateDim();

  function Dimension;

  function EdgeCount;

  function Normals();

  function Center;

  procedure EdgeVertices();

  procedure Segments();

  class function DistanceAbove();

  property Vertices []: TgmVertex; [rw]

  property Volume: Double; [r]

end;

TgmSimplex

TObject