TODEElementBase

type TODEElementBase = class(TGLXCollectionItem)

protected

  procedure Initialize; virtual;

  procedure Finalize; virtual;

  function CalculateMass; virtual;

  procedure ODERebuild; virtual;

  procedure NotifyChange();

  procedure CoordinateChanged();

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  function IsODEInitialized;

  procedure AlignGeomElementToMatrix(); virtual;

  procedure SetGeomElement();

  procedure RebuildMatrix;

  procedure RebuildVectors;

  procedure SetDensity();

  procedure SetMatrix();

  function GetMatrix;

  procedure SetPosition();

  procedure SetDirection();

  procedure SetUp();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Render(); virtual;

  function AbsoluteMatrix;

  function AbsolutePosition;

  property Matrix: TMatrix; [rw]

  property GeomTransform: PdxGeom; [r]

  property Geom: PdxGeom; [r]

  property Initialized: Boolean; [r]

published

  property Density: TdReal; [rw]

  property Position: TGLCoordinates; [rw]

  property Direction: TGLCoordinates; [rw]

  property Up: TGLCoordinates; [rw]

end;

TODEElementBase

TObject