From dd3fea26918b3f886cdaa17cd0b18f8bd797832c Mon Sep 17 00:00:00 2001
From: sasgis <>
Date: Sat, 12 Dec 1970 12:00:00 +0000
Subject: [PATCH] update zmp

---
 Space_mars_elevation.zmp/GetUrlScript.txt | 37 ++++++++++++++++++++++-
 space_mars_infrared.zmp/GetUrlScript.txt  | 37 ++++++++++++++++++++++-
 space_moon_terrain.zmp/GetUrlScript.txt   |  4 +--
 3 files changed, 74 insertions(+), 4 deletions(-)

diff --git a/Space_mars_elevation.zmp/GetUrlScript.txt b/Space_mars_elevation.zmp/GetUrlScript.txt
index 4dd2e041..74f3da52 100644
--- a/Space_mars_elevation.zmp/GetUrlScript.txt
+++ b/Space_mars_elevation.zmp/GetUrlScript.txt
@@ -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.
\ No newline at end of file
diff --git a/space_mars_infrared.zmp/GetUrlScript.txt b/space_mars_infrared.zmp/GetUrlScript.txt
index 4dd2e041..74f3da52 100644
--- a/space_mars_infrared.zmp/GetUrlScript.txt
+++ b/space_mars_infrared.zmp/GetUrlScript.txt
@@ -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.
\ No newline at end of file
diff --git a/space_moon_terrain.zmp/GetUrlScript.txt b/space_moon_terrain.zmp/GetUrlScript.txt
index 4dd2e041..dc2441f2 100644
--- a/space_moon_terrain.zmp/GetUrlScript.txt
+++ b/space_moon_terrain.zmp/GetUrlScript.txt
@@ -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.
\ No newline at end of file