TGLBaseRandomHDS

type TGLBaseRandomHDS = class(TGLHeightDataSource)

protected

  FSeed: Integer;

  FSize: Integer;

  FMaterialName: string;

  FLighting: Boolean;

  FLightDirection: TVector;

  FTerrainRenderer: TGLTerrainRenderer;

  FLightColor: TColorVector;

  FShadows: Boolean;

  FSea: Boolean;

  FSeaLevel: Single;

  FAmbientLight: Single;

  FTaskProgress: Integer;

  FTextureScale: Integer;

  FErosionByFraction: TFractionErosion;

  FLightSmoothing: Boolean;

  FCyclic: Boolean;

  FSeaTransparency: Single;

  FPrimerLandscape: Boolean;

  FLandTileInfo: TLandTileInfo;

  FOnDrawTexture: TOnDrawTexture;

  function OnDrawTextureDefault();

  procedure SetSeed();

  procedure SetMaterialName();

  procedure SetLighting();

  procedure SetLightDirection();

  procedure SetTerrainRenderer(); virtual; abstract;

  procedure SetLightColor();

  procedure SetShadows();

  procedure SetSea();

  procedure SetSeaLevel();

  procedure SetAmbientLight();

  procedure SetErosionByRain();

  function GetErosionByRain;

  procedure SetErosionBySea();

  procedure SetTextureScale();

  procedure SetErosionByLife();

  procedure SetErosionByFraction();

  procedure SetLightSmoothing();

  procedure SetSeaTransparency();

  procedure SetPrimerLandscape();

  function GetSeaLevel;

  function GetSeaTransparency;

  procedure SetLandTileInfo();

  function GetLandTileInfo;

  procedure SetCyclic(); virtual; abstract;

public

  FErosionByRain: TRainErosion;

  FErosionBySea: TSeaErosion;

  FErosionByLife: TLifeErosion;

  constructor Create(); override;

  destructor Destroy; override;

  property LightColor: TColorVector; [rw]

  property LightDirection: TVector; [rw]

  property OnDrawTexture: TOnDrawTexture; [rw]

  property ErosionByFraction: TFractionErosion; [rw]

  property ErosionByLife: TLifeErosion; [rw]

  property ErosionByRain: TRainErosion; [rw]

  property ErosionBySea: TSeaErosion; [rw]

  property Steps: TSteps; [rw]

published

  property AmbientLight: Single; [rw]

  property Cyclic: Boolean; [rw]

  property LandCover: Boolean; [rw]

  property Lighting: Boolean; [rw]

  property LightSmoothing: Boolean; [rw]

  property MaterialName: string; [rw]

  property PrimerLandscape: Boolean; [rw]

  property Sea: Boolean; [rw]

  property SeaLevel: Single; [rw]

  property SeaTransparency: Single; [rw]

  property Seed: Integer; [rw]

  property Shadows: Boolean; [rw]

  property TerrainRenderer: TGLTerrainRenderer; [rw]

  property TextureScale: Integer; [rw]

end;

TGLBaseRandomHDS

TGLHeightDataSource

TObject