TGLMarchingCube

type TGLMarchingCube = class(TObject)

protected

  FOriginalMC: Boolean;

  FSizeX: Integer;

  FSizeY: Integer;

  FSizeZ: Integer;

  FxMin: Single;

  FxMax: Single;

  FyMin: Single;

  FyMax: Single;

  FzMin: Single;

  FzMax: Single;

  FStepX: Single;

  FStepY: Single;

  FStepZ: Single;

  VoxelData: PxVoxelData;

  procedure Process_cube;

  procedure Compute_Intersection_Points;

  procedure Add_Triangle();

  function Add_x_vertex;

  function Add_y_vertex;

  function Add_z_vertex;

  function Add_c_vertex;

  function Get_x_grad();

  function Get_y_grad();

  function Get_z_grad();

  function Get_x_vert();

  function Get_y_vert();

  function Get_z_vert();

  procedure Set_x_vert();

  procedure Set_y_vert();

  procedure Set_z_vert();

  function GetVoxelValue();

  procedure SetVoxelValue();

  function GetVoxelData();

  function Voxel();

  function Calc_u(); virtual;

public

  ScalarField: TxScalarField;

  constructor Create();

  procedure ReDim(); virtual;

  destructor Destroy; override;

  procedure Run();

  function Internal(); virtual;

  procedure FillVoxelData();

  procedure CalcVertices();

  procedure CalcMeshObject();

  property IsoValue: TxScalarValue; [rw]

end;

TGLMarchingCube

TObject