From 8086fe8231f8cee116302a9b5008eb59bacbaa22 Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- Bing/Bing_Sat.zmp/GetUrlScript.txt | 74 ++++++++++++------------ Bing/Bing_Sat.zmp/params.txt | 44 +++++++------- Bing/Bing_Sat_BE_N.zmp/GetUrlScript.txt | 76 ++++++++++++------------- Bing/Bing_Sat_BE_N.zmp/params.txt | 50 ++++++++-------- Bing/Bing_roads.en.zmp/GetUrlScript.txt | 74 ++++++++++++------------ Bing/Bing_roads.en.zmp/params.txt | 40 ++++++------- Bing/Bing_roads.ru.zmp/GetUrlScript.txt | 74 ++++++++++++------------ Bing/Bing_roads.ru.zmp/params.txt | 42 +++++++------- 8 files changed, 237 insertions(+), 237 deletions(-) diff --git a/Bing/Bing_Sat.zmp/GetUrlScript.txt b/Bing/Bing_Sat.zmp/GetUrlScript.txt index 156158cbd..37252df7c 100644 --- a/Bing/Bing_Sat.zmp/GetUrlScript.txt +++ b/Bing/Bing_Sat.zmp/GetUrlScript.txt @@ -1,38 +1,38 @@ -var res:string; - i:byte; - osX,osY,prX,prY:integer; -begin - res:=''; - 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