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

---
 gp_RoscosmGeo.zmp/GetUrlScript.txt | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/gp_RoscosmGeo.zmp/GetUrlScript.txt b/gp_RoscosmGeo.zmp/GetUrlScript.txt
index b174bb031..1f85e46ad 100644
--- a/gp_RoscosmGeo.zmp/GetUrlScript.txt
+++ b/gp_RoscosmGeo.zmp/GetUrlScript.txt
@@ -10,7 +10,7 @@ begin
 end;
 
 var binX,binY:string;
-    i,posSRC,posDATE,posTYPE,posFirstAND:integer;
+    i,posSRC,posDATE,posTYPE,posFirstAND,lenbinXY:integer;
 begin
  posFirstAND:=pos('&',GetUrlBase)-1;
  if posFirstAND<=0 then begin
@@ -44,10 +44,17 @@ begin
    end;
  end;
 
- binX:='0'+dec2bin(GetX);
- binY:='0'+dec2bin(GetY);
- binX:=copy(binX,length(binX)-(GetZ-1)+1,GetZ-1);
- binY:=copy(binY,length(binY)-(GetZ-1)+1,GetZ-1);
+ binX:=dec2bin(GetX);
+ binY:=dec2bin(GetY);
+ lenbinXY:=length(binX);
+ for i:=1 to ((GetZ-1)-lenbinXY) do begin
+   binX:='0'+binX;
+ end;
+ lenbinXY:=length(binY);
+ for i:=1 to ((GetZ-1)-lenbinXY) do begin
+   binY:='0'+binY;
+ end;
+
  for i:=7 to GetZ-1 do begin
    ResultURL:=ResultURL+copy(binY,1,i-6)+'-'+copy(binX,1,i-6)+'/';
  end;