SAS.Wiki

Веб-картография и навигация

Инструменты пользователя

Инструменты сайта


пример_порезки_на_тайлы

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

пример_порезки_на_тайлы [13/09/2012 20:13]
garl
пример_порезки_на_тайлы [04/03/2014 05:15] (текущий)
Строка 9: Строка 9:
  
 устанавливаем параметры:​ устанавливаем параметры:​
-  *    ​CutCountX=4 +<code delphi>​ 
-  ​* ​   ​CutCountY=4 +      ​CutCountX=4 ​(тайлов по горизонтали) 
-  ​* ​   ​CutSizeX=256 +      CutCountY=4 ​(тайлов по горизонтали) 
-  ​* ​   ​CutSizeY=256 +      CutSizeX=256 ​(размер в пикселях) 
-  ​* ​   ​CutTileX=0 +      CutSizeY=256 
-  ​* ​   ​CutTileY=0 +      CutTileX=0 ​(координата Х тайла от которого ведется отсчёт) 
 +      CutTileY=0 ​(координата Y тайла от которого ведется отсчёт) 
 +</​code>​
  
 так как нам не нужно пропускать тайлы с копирайтами - то параметр CutToSkip оставляем пустым так как нам не нужно пропускать тайлы с копирайтами - то параметр CutToSkip оставляем пустым
Строка 21: Строка 22:
 для этого примера ​ для этого примера ​
  
-GetUrlScript.txt выглядит так: +[[описание_паскаль_скриптов|GetUrlScript.txt]] выглядит так: 
 +<code delphi>
 VAR VAR
- 
  ​TL,​BR:​TPoint;​  ​TL,​BR:​TPoint;​
- 
  ​topLeftM,​bottomrightM:​TDoublePoint;​  ​topLeftM,​bottomrightM:​TDoublePoint;​
- 
  Ver : string;  Ver : string;
- 
 begin begin
- 
  ​tl.x:​=GetX;​  ​tl.x:​=GetX;​
- 
  ​tl.y:​=GetY;​  ​tl.y:​=GetY;​
- 
  ​br.x:​=GetX+4;​  ​br.x:​=GetX+4;​
- 
  ​br.y:​=GetY+4;​  ​br.y:​=GetY+4;​
- 
  ​topLeftM ​    := Converter.Pos2LonLat(tl,​GetZ-1);​  ​topLeftM ​    := Converter.Pos2LonLat(tl,​GetZ-1);​
- 
  ​bottomrightM := Converter.Pos2LonLat(br,​GetZ-1);​  ​bottomrightM := Converter.Pos2LonLat(br,​GetZ-1);​
- 
  ​ResultURL:​=GetURLBase+'&​BBOX='​+RoundEx(topLeftM.x,​10)+','​+RoundEx(bottomrightM.y,​10)+','​+RoundEx(bottomrightM.x,​10)+','​+RoundEx(topLeftM.y,​10); ​  ​ResultURL:​=GetURLBase+'&​BBOX='​+RoundEx(topLeftM.x,​10)+','​+RoundEx(bottomrightM.y,​10)+','​+RoundEx(bottomrightM.x,​10)+','​+RoundEx(topLeftM.y,​10); ​
- 
 end. end.
 +</​code>​