Browse Source

update zmp

undefined
sasgis 54 years ago
parent
commit
dd3fea2691
3 changed files with 74 additions and 4 deletions
  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 View File

@@ -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.

+ 36
- 1
space_mars_infrared.zmp/GetUrlScript.txt View File

@@ -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.

+ 2
- 2
space_moon_terrain.zmp/GetUrlScript.txt View File

@@ -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.

||||||
x
 
000:0
Loading…
Cancel
Save