diff --git a/VirtualEarth/VEMap_roads.en.zmp/18.bmp b/Bing/Bing_Sat.zmp/18.bmp similarity index 100% rename from VirtualEarth/VEMap_roads.en.zmp/18.bmp rename to Bing/Bing_Sat.zmp/18.bmp diff --git a/VirtualEarth/VEMap_roads.en.zmp/24.bmp b/Bing/Bing_Sat.zmp/24.bmp similarity index 100% rename from VirtualEarth/VEMap_roads.en.zmp/24.bmp rename to Bing/Bing_Sat.zmp/24.bmp diff --git a/VirtualEarth/VESat-N.zmp/EmptyTiles/NA.png b/Bing/Bing_Sat.zmp/EmptyTiles/NA.png similarity index 100% rename from VirtualEarth/VESat-N.zmp/EmptyTiles/NA.png rename to Bing/Bing_Sat.zmp/EmptyTiles/NA.png diff --git a/VirtualEarth/VESat.zmp/GetUrlScript.txt b/Bing/Bing_Sat.zmp/GetUrlScript.txt similarity index 96% rename from VirtualEarth/VESat.zmp/GetUrlScript.txt rename to Bing/Bing_Sat.zmp/GetUrlScript.txt index 8c4b590d..156158cb 100644 --- a/VirtualEarth/VESat.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