|
- var
- xx,yy:integer;
-
- begin
- xx:=GetX;
- yy:=GetY-2;
- ResultURL:=GetURLBase+'&s='+inttostr(8-GetZ)+'&w=256&h=256<=0&ws=0&u=umap&x='+inttostr(round((xx-intpower(2,GetZ-3))*256+10))+'&y='+inttostr(round(intpower(2,GetZ-1)-yy)*-256+round(128*intpower(2,GetZ-2)));
- end.
|