forked from sasgis/maps
38 lines
1.0 KiB
Plaintext
38 lines
1.0 KiB
Plaintext
var res:string;
|
|
i:byte;
|
|
osX,osY,prX,prY:integer;
|
|
begin
|
|
res:='t';
|
|
osX:=round(intpower(2,GetZ-1)) div 2;
|
|
osY:=round(intpower(2,GetZ-1)) div 2;
|
|
prX:=osX; prY:=osY;
|
|
for i:=2 to GetZ do
|
|
begin
|
|
prX:=prX div 2;
|
|
prY:=prY div 2;
|
|
if GetX<osX
|
|
then begin
|
|
osX:=osX-prX;
|
|
if GetY<osY then begin
|
|
osY:=osY-prY;
|
|
res:=res+'q';
|
|
end
|
|
else begin
|
|
osY:=osY+prY;
|
|
res:=res+'t';
|
|
end;
|
|
end
|
|
else begin
|
|
osX:=osX+prX;
|
|
if Gety<osy then begin
|
|
osY:=osY-prY;
|
|
res:=res+'r';
|
|
end
|
|
else begin
|
|
osY:=osY+prY;
|
|
res:=res+'s';
|
|
end;
|
|
end;
|
|
end;
|
|
ResultURL:=GetURLBase+res+'.jpg';
|
|
end. |