TGLMesh

type TGLMesh = class(TGLSceneObject)

protected

  procedure SetMode();

  procedure SetVertices();

  procedure SetVertexMode();

  procedure VerticesChanged();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure BuildList(); override;

  procedure CalcNormals();

  property Vertices: TGLVertexList; [rw]

  function AxisAlignedDimensionsUnscaled; override;

  procedure StructureChanged; override;

  function Length;

  function Area;

  function Volume;

published

  property Mode: TGLMeshMode; [rw]

  property VertexMode: TGLVertexMode; [rw]

end;

TGLMesh

TObject