EarthD.dpr 627 B

12345678910111213141516171819202122
  1. (*
  2. "Earth"
  3. The atmospheric effect is rendered in GLDirectOpenGL1Render, which essentially
  4. renders a disk, with color of the vertices computed via ray-tracing. Not that
  5. the tesselation of the disk has been hand-optimized so as to reduce CPU use
  6. while retaining quality.
  7. Stars support is built into the TGLSkyDome, but constellations are rendered
  8. via a TGLLines, which is filled in the LoadConstellationLines method.
  9. *)
  10. program EarthD;
  11. uses
  12. Forms,
  13. fdEarth in 'fdEarth.pas' {FormEarth};
  14. {$R *.res}
  15. begin
  16. Application.Initialize;
  17. Application.CreateForm(TFormEarth, FormEarth);
  18. Application.Run;
  19. end.