TWorldHeightMap

type TWorldHeightMap = class(TGLXCollectionItem)

protected

  FHeightMap: THeightMap;

  FEngine: TXPhysicsEngine;

  FEngineName: string;

  FInitialized: Boolean;

  FElasticity: Single;

  fFrictionStatic: Single;

  fFrictionDynamic: Single;

  procedure SetEngine();

  procedure Initialize; virtual;

  procedure Finalize; virtual;

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure Loaded; override;

  procedure SetElasticity();

  procedure SetFrictionStatic();

  procedure SetFrictionDynamic();

public

  constructor Create(); override;

  destructor Destroy; override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  class function UniqueItem; override;

  property Initialized: Boolean; [r]

  property HeightMap: THeightMap; [r]

published

  property Engine: TXPhysicsEngine; [rw]

  property Elasticity: Single; [rw]

  property FrictionStatic: Single; [rw]

  property FrictionDynamic: Single; [rw]

end;

TWorldHeightMap

TObject