TGLShadowHDS

type TGLShadowHDS = class(TGLHeightDataSourceFilter)

protected

  procedure SetShadowmapLibrary();

  procedure SetScale();

  procedure SetLightVector();

  procedure SetSoftRange();

  procedure SetDiffuse();

  procedure SetAmbient();

  procedure Trim();

  function FindUnusedMaterial;

  function CalcStep;

  function CalcScale;

  function WrapDist();

  procedure LocalToWorld();

  procedure WorldToLocal();

public

  SkipGenerate: Boolean;

  constructor Create(); override;

  destructor Destroy; override;

  procedure TrimTextureCache();

  procedure Notification(); override;

  procedure BeforePreparingData(); override;

  procedure PreparingData(); override;

  procedure AfterPreparingData(); override;

  procedure GenerateShadowMap();

  function RayCastShadowHeight(); overload;

  procedure RayCastLine();

  function Shade();

published

  property ShadowmapLibrary: TGLMaterialLibrary; [rw]

  property OnThreadBmp32: TThreadBmp32; [rw]

  property OnNewTilePrepared: TNewTilePreparedEvent; [rw]

  property LightVector: TGLCoordinates; [rw]

  property scale: TGLCoordinates; [rw]

  property ScanDistance: Integer; [rw]

  property SoftRange: Cardinal; [rw]

  property Diffuse: Single; [rw]

  property Ambient: Single; [rw]

  property MaxTextures: Integer; [rw]

  property OnSourceDataFetched: TSourceDataFetchedEvent;

end;

TGLShadowHDS

TGLHeightDataSourceFilter

TGLHeightDataSource

TObject