GetUrlScript.txt 954 B

54 years ago
12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. // Source: http://belgeodesy.by/map/
  2. // Zmp v1 by gpsMax - http://sasgis.ru/mantis/view.php?id=693
  3. // Zmp v... by ...
  4. var xx,yy,zz:string;
  5. var dx,dy:array[1..50] of longint;
  6. begin
  7. // map:z1, Sasplanet:z7
  8. dx[1]:=36;
  9. dy[1]:=20;
  10. // map:z2, Sasplanet:z8
  11. dx[2]:=72;
  12. dy[2]:=40;
  13. // map:z3, Sasplanet:z9
  14. dx[3]:=144;
  15. dy[3]:=80;
  16. // map:z4, Sasplanet:z10
  17. dx[4]:=289;
  18. dy[4]:=160;
  19. // map:z5, Sasplanet:z11
  20. dx[5]:=579;
  21. dy[5]:=320;
  22. // map:z6, Sasplanet:z12
  23. dx[6]:=1159;
  24. dy[6]:=640;
  25. // map:z7, Sasplanet:z13
  26. dx[7]:=2318;
  27. dy[7]:=1277;
  28. // map:z8, Sasplanet:z14
  29. dx[8]:=4637;
  30. dy[8]:=2553;
  31. // map:z9, Sasplanet:z15
  32. dx[9]:=9274;
  33. dy[9]:=5106;
  34. xx:=inttostr(GetX-dx[GetZ-6]);
  35. yy:=inttostr(GetY-dy[GetZ-6]);
  36. while length(xx)<4 do xx:='0'+xx;
  37. while length(yy)<4 do yy:='0'+yy;
  38. ResultURL:=GetURLBase+IntToStr(GetZ-6)+'/'+xx+yy+'.png';
  39. end.