@@ -1,3 +1,38 @@ | |||||
var res:string; | |||||
i:byte; | |||||
osX,osY,prX,prY:integer; | |||||
begin | begin | ||||
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1); | 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. | end. |
@@ -1,3 +1,38 @@ | |||||
var res:string; | |||||
i:byte; | |||||
osX,osY,prX,prY:integer; | |||||
begin | begin | ||||
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1); | 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. | end. |
@@ -1,3 +1,3 @@ | |||||
begin | begin | ||||
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1); | ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(round(intpower(2,GetZ-1))-1-GetY)+'.jpg'; | ||||
end. | end. |