TGLHeightTileFile

type TGLHeightTileFile = class(TObject)

protected

  function GetTiles();

  function QuadTableX();

  function QuadTableY();

  procedure PackTile();

  procedure UnPackTile();

  property TileIndexOffset: Int64; [rw]

public

  constructor CreateNew();

  constructor Create();

  destructor Destroy; override;

  function GetTileIndex();

  function GetTile();

  procedure CompressTile();

  procedure ExtractRow();

  function XYTileInfo();

  function XYHeight();

  procedure TilesInRect();

  function TileCount;

  property Tiles []: PHeightTileInfo; [r]

  function IndexOfTile();

  function TileCompressedSize();

  property SizeX: Integer; [r]

  property SizeY: Integer; [r]

  property TileSize: Integer; [r]

  property DefaultZ: SmallInt; [rw]

end;

TGLHeightTileFile

TObject