TerrainPack.dpr 874 B

123456789101112131415161718192021222324252627
  1. {: Utility to pack one or many DEM sources into a single HTF.
  2. Note: this is a *basic* tool, error messages are unfriendly and there are
  3. memory leaks if you do any, I know. So, don't do errors ;)
  4. DTED data is organized in columns, instead of rows, like most other DEM's.
  5. This means that an inported DTED file will have to be rotated by 270 degrees,
  6. if you want north at the top. DTED level 2 maps will have a size of 1801x3601
  7. 10/04/2007 -LIN- Added support for DTED DEM files.
  8. Added Flip/Rotate. (Use Rotate 270 for DTED files.)
  9. }
  10. program TerrainPack;
  11. uses
  12. Forms,
  13. FMainForm in 'FMainForm.pas' {MainForm},
  14. FNavForm in 'FNavForm.pas' {NavForm};
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.CreateForm(TMainForm, MainForm);
  19. Application.CreateForm(TNavForm, NavForm);
  20. Application.Run;
  21. end.