sasgis
/
maps
2
0
Fork 4
Code Issues 0 Pull Requests 0 Releases 0 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
493 Commits
1 Branch
15 MiB
 
Tree: 536bc18522
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '536bc18522'
${ noResults }
maps/rugis.ru.zmp/GetUrlScript.txt

12 lines
381 B
Raw Blame History 

  1. var dz,z:integer;

  2. begin

  3. 

  4. 

  5.  if getz>5 then dz:=Round(25600/intpower(2,getz-5)) else dz:=25600;

  6.  z:=round(intpower(2,getz-5));

  7.  if getz>=13 then dz:=256;

  8.  if getz>=13 then z:=100;

  9. 

  10.  ResultURL:=GetURLBase+Inttostr(z)+'&DX='+Inttostr(round(GetX-intpower(2,getz-1)/2)*dz)+'&DY='+Inttostr(round(gety-intpower(2,getz-1)/2)*dz)+'&trackfile=&rnd=0.9191284459141998&order=';

  11. end.