TKraftMeshSimplification

type TKraftMeshSimplification = class

public

type

  TTriangle = record

  v: array [0..2] of TKraftInt32;

  Error: array [0..3] of TKraftDouble;

  Deleted: Boolean;

  Dirty: Boolean;

  Attr: TKraftInt32;

  n: TKraftMeshSimplificationVector3;

  Normals: array [0..2] of TKraftMeshSimplificationVector3;

  TexCoords: array [0..2] of TKraftMeshSimplificationVector3;

end;

  PTriangle = ^TTriangle;

  TTriangles = array of TTriangle;

  TVertex = record

  p: TKraftMeshSimplificationVector3;

  tstart: TKraftInt32;

  tcount: TKraftInt32;

  q: TKraftMeshSimplificationSymetricMatrix;

  Border: Boolean;

end;

  PVertex = ^TVertex;

  TVertices = array of TVertex;

  TReference = record

  tid: TKraftInt32;

  tvertex: TKraftInt32;

end;

  PReference = ^TReference;

  TReferences = array of TReference;

  TBoolArray = array of Boolean;

  TIntArray = array of TKraftInt32;

public

  constructor Create;

  destructor Destroy; override;

  function AddVertex();

  function AddTriangle();

  procedure Finish;

  procedure SimplifyMesh();

  procedure SaveToOBJ();

  property Vertices: TVertices; [r]

  property Triangles: TTriangles; [r]

  property CountVertices: TKraftInt32; [r]

  property CountTriangles: TKraftInt32; [r]

end;

TKraftMeshSimplification

TObject