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.
20 Commits
1 Branch
15 MiB
 
Tree: ec4f9d31fc
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ec4f9d31fc'
${ noResults }
maps/progorod_wms.zmp/GetUrlScript.BAK

37 lines
785 B
Raw Blame History 

  1. var

  2. sx,sy,sz:string;

  3. lx,ty:extended;

  4. rx,by:extended;

  5. res:array[0..24] of extended;

  6. 

  7. begin

  8. res[0]:=0;

  9. res[1]:=50000;

  10. res[2]:=49500;

  11. res[3]:=25500;

  12. res[4]:=9783;

  13. res[5]:=4891.96980999999959749402;

  14. res[6]:=2445;

  15. res[7]:=1222;

  16. res[8]:=611;

  17. res[9]:=305;

  18. res[10]:=152;

  19. res[11]:=76;

  20. res[12]:=38;

  21. res[13]:=19;

  22. res[14]:=9.5;

  23. res[15]:=4.79999999999999982236;

  24. res[16]:=2.39999999999999991118;

  25. res[17]:=0;

  26. res[18]:=0;

  27. res[19]:=0;

  28. 

  29. lx:=-20037508+(getx*res[getz]*256);

  30. rx:=-20037508+((getx+1)*res[getz]*256);

  31. 

  32. ty:=-15496570+((round(intpower(2,getz-1))-gety+1)*res[getz]*256);

  33. by:=-15496570+((round(intpower(2,getz-1))-gety+0)*res[getz]*256);

  34. 

  35. 

  36. ResultURL:=GetUrlBase+inttostr(getz)+'&BBOX='+RoundEX(lx,2)+','+RoundEX(by,2)+','+RoundEX(rx,2)+','+RoundEX(ty,2);

  37. end.