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.

GetUrlScript.txt 826 B

54 years ago
1234567891011121314151617181920212223242526272829303132333435363738394041
  1. // Source: http://maps.2gis.ru/moscow/
  2. var xx,yy,zz:string;
  3. var dx,dy:array[1..50] of longint;
  4. begin
  5. // map:z1, Sasplanet:z10
  6. dx[1]:=309;
  7. dy[1]:=159;
  8. // map:z2, Sasplanet:z11
  9. dx[2]:=618;
  10. dy[2]:=318;
  11. // map:z3, Sasplanet:z12
  12. dx[3]:=1236;
  13. dy[3]:=636;
  14. // map:z4, Sasplanet:z13
  15. dx[4]:=2472;
  16. dy[4]:=1272;
  17. // map:z5, Sasplanet:z14
  18. dx[5]:=4944;
  19. dy[5]:=2544;
  20. // map:z6, Sasplanet:z15
  21. dx[6]:=9888;
  22. dy[6]:=5088;
  23. // map:z7, Sasplanet:z16
  24. dx[7]:=19776;
  25. dy[7]:=10176;
  26. // map:z8, Sasplanet:z17
  27. dx[8]:=39552;
  28. dy[8]:=20352;
  29. // map:z9, Sasplanet:z18
  30. dx[9]:=79104;
  31. dy[9]:=40704;
  32. xx:=inttostr(GetX-dx[GetZ-9]);
  33. yy:=inttostr(GetY-dy[GetZ-9]);
  34. ResultURL:=GetURLBase+'/'+inttostr(getz-9)+'/'+xx+'/'+yy+'.png';
  35. end.