TGLCustomRandomHDS

type TGLCustomRandomHDS = class(TGLBaseRandomHDS)

protected

  procedure SetTerrainRenderer(); override;

  procedure SetCyclic(); override;

  procedure BoundaryClamp();

  procedure CyclicClamp();

  procedure GetTerrainBounds();

  procedure SetSize();

public

  FHeight: TMapOfSingle;

  FLightMap: TMapOfSingle;

  FNormal: TMapOfVector;

  function BoundaryX;

  function BoundaryZ;

  procedure StartPreparingData(); override;

  procedure BuildHeightField; virtual; abstract; overload;

  procedure BuildLandscape;

  procedure BuildLightMap();

  procedure BuildNormals;

  procedure BuildTexture;

  procedure ClearHeightField;

  procedure ClearLightMap;

  procedure ConstrainCoordinates();

  constructor Create(); override;

  constructor CreateAsSlave();

  destructor Destroy; override;

  procedure DoCyclicBoundaries;

  procedure DoErosionByFraction;

  procedure DoErosionByLife;

  procedure DoErosionByRain;

  procedure DoErosionBySea;

  procedure DoSea;

  procedure DoSteps;

  property Height []: Single; [rw]

  function Interpolate();

  property KeepNormals: Boolean; [rw]

  property LandTileInfo: TLandTileInfo; [rw]

  function PointInMap();

  property MaxHeight: Single; [r]

  property MinHeight: Single; [r]

  function Normal();

  property RangeHeight: Single; [r]

  function Scale;

  property Size: Integer; [r]

  function StandardisedHeight();

  property Task: string; [r]

  property TaskProgress: Integer; [r]

  function XMoveBoundary;

  function ZMoveBoundary;

published

  property Cyclic: Boolean; [rw]

end;

TGLCustomRandomHDS

TGLBaseRandomHDS

TGLHeightDataSource

TObject