GetUrlScript.txt 1.2 KiB

4 vuotta sitten
1234567891011121314151617181920212223242526272829303132333435363738394041
  1. var res,r1:string;
  2. i:byte;
  3. osX,osY,prX,prY:integer;
  4. begin
  5. res:='';
  6. osX:=round(intpower(2,GetZ-1)) div 2;
  7. osY:=round(intpower(2,GetZ-1)) div 2;
  8. prX:=osX; prY:=osY;
  9. for i:=2 to GetZ do
  10. begin
  11. if (i>2)and(((i-2) mod 6) = 0) then res:=res+'/';
  12. prX:=prX div 2;
  13. prY:=prY div 2;
  14. if GetX<osX
  15. then begin
  16. osX:=osX-prX;
  17. if GetY<osY then begin
  18. osY:=osY-prY;
  19. res:=res+'0';
  20. end
  21. else begin
  22. osY:=osY+prY;
  23. res:=res+'2';
  24. end;
  25. end
  26. else begin
  27. osX:=osX+prX;
  28. if Gety<osy then begin
  29. osY:=osY-prY;
  30. res:=res+'1';
  31. end
  32. else begin
  33. osY:=osY+prY;
  34. res:=res+'3';
  35. end;
  36. end;
  37. end;
  38. if GetZ>6 then r1:='mi917'
  39. else r1:='mi915';
  40. ResultURL:=GetURLBase+r1+'/'+inttostr(GetZ)+'/'+res+'.png';
  41. end.