sasbot před 4 roky
rodič
revize
528591d90c
3 změnil soubory, kde provedl 74 přidání a 4 odebrání
  1. +36
    -1
      Space_mars_elevation.zmp/GetUrlScript.txt
  2. +36
    -1
      space_mars_infrared.zmp/GetUrlScript.txt
  3. +2
    -2
      space_moon_terrain.zmp/GetUrlScript.txt

+ 36
- 1
Space_mars_elevation.zmp/GetUrlScript.txt Zobrazit soubor

@@ -1,3 +1,38 @@
var res:string;
i:byte;
osX,osY,prX,prY:integer;
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.

+ 36
- 1
space_mars_infrared.zmp/GetUrlScript.txt Zobrazit soubor

@@ -1,3 +1,38 @@
var res:string;
i:byte;
osX,osY,prX,prY:integer;
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.

+ 2
- 2
space_moon_terrain.zmp/GetUrlScript.txt Zobrazit soubor

@@ -1,3 +1,3 @@
begin
ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1);
begin
ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(round(intpower(2,GetZ-1))-1-GetY)+'.jpg';
end.

Načítá se…
Zrušit
Uložit