diff --git a/VirtualEarth/VEMap.Bing.zmp/18.bmp b/VirtualEarth/VEMap.Bing.zmp/18.bmp new file mode 100644 index 000000000..341b141d2 Binary files /dev/null and b/VirtualEarth/VEMap.Bing.zmp/18.bmp differ diff --git a/VirtualEarth/VEMap.Bing.zmp/24.bmp b/VirtualEarth/VEMap.Bing.zmp/24.bmp new file mode 100644 index 000000000..617a22867 Binary files /dev/null and b/VirtualEarth/VEMap.Bing.zmp/24.bmp differ diff --git a/VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt b/VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt new file mode 100644 index 000000000..6f42d74c5 --- /dev/null +++ b/VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt @@ -0,0 +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