TGLEarthSkyDome

type TGLEarthSkyDome = class(TGLSkyDome)

protected

  procedure Loaded; override;

  procedure SetSunElevation();

  procedure SetTurbidity();

  procedure SetSunZenithColor();

  procedure SetSunDawnColor();

  procedure SetHazeColor();

  procedure SetSkyColor();

  procedure SetNightColor();

  procedure SetDeepColor();

  procedure SetSlices();

  procedure SetStacks();

  procedure OnColorChanged();

  procedure PreCalculate;

  procedure RenderDome;

  function CalculateColor();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure BuildList(); override;

  procedure SetSunAtTime();

published

  property SunElevation: Single; [rw]

  property Turbidity: Single; [rw]

  property SunZenithColor: TGLColor; [rw]

  property SunDawnColor: TGLColor; [rw]

  property HazeColor: TGLColor; [rw]

  property SkyColor: TGLColor; [rw]

  property NightColor: TGLColor; [rw]

  property DeepColor: TGLColor; [rw]

  property ExtendedOptions: TEarthSkydomeOptions; [rw]

  property Slices: Integer; [rw]

  property Stacks: Integer; [rw]

end;

TGLEarthSkyDome

TGLSkyDome

TObject