Browse Source

update zmp

pull/1/head
sasbot 3 years ago
parent
commit
32ca39aa7f
4 changed files with 71 additions and 0 deletions
  1. BIN
      belgeodesy.zmp/18.bmp
  2. BIN
      belgeodesy.zmp/24.bmp
  3. +43
    -0
      belgeodesy.zmp/GetUrlScript.txt
  4. +28
    -0
      belgeodesy.zmp/params.txt

BIN
belgeodesy.zmp/18.bmp View File

Before After

BIN
belgeodesy.zmp/24.bmp View File

Before After

+ 43
- 0
belgeodesy.zmp/GetUrlScript.txt View File

@@ -0,0 +1,43 @@
// Source: http://belgeodesy.by/map/
// Zmp v1 by gpsMax - http://sasgis.ru/mantis/view.php?id=693
// Zmp v... by ...
var xx,yy,zz:string;
var dx,dy:array[1..50] of longint;
begin
// map:z1, Sasplanet:z7
dx[1]:=36;
dy[1]:=20;
// map:z2, Sasplanet:z8
dx[2]:=72;
dy[2]:=40;
// map:z3, Sasplanet:z9
dx[3]:=144;
dy[3]:=80;
// map:z4, Sasplanet:z10
dx[4]:=289;
dy[4]:=160;
// map:z5, Sasplanet:z11
dx[5]:=579;
dy[5]:=320;
// map:z6, Sasplanet:z12
dx[6]:=1159;
dy[6]:=640;
// map:z7, Sasplanet:z13
dx[7]:=2318;
dy[7]:=1277;
// map:z8, Sasplanet:z14
dx[8]:=4637;
dy[8]:=2553;
// map:z9, Sasplanet:z15
dx[9]:=9274;
dy[9]:=5106;
xx:=inttostr(GetX-dx[GetZ-6]);
yy:=inttostr(GetY-dy[GetZ-6]);
while length(xx)<4 do xx:='0'+xx;
while length(yy)<4 do yy:='0'+yy;
ResultURL:=GetURLBase+IntToStr(GetZ-6)+'/'+xx+yy+'.png';
end.

+ 28
- 0
belgeodesy.zmp/params.txt View File

@@ -0,0 +1,28 @@
[PARAMS]
pnum=173
GUID={63862E5D-09F2-4732-9D21-635012437777}
asLayer=0
name=Êàðòà Áåëîðóññèè (belgeodesy.by)
name_en=Map of Belarus (belgeodesy.by)
name_uk=Êàðòà Á³ëîðóñ³¿ (belgeodesy.by)
ParentSubMenu=Ëîêàëüíûå êàðòû
ParentSubMenu_en=Local maps
ParentSubMenu_uk=Ëîêàëüí³ êàðòè
NameInCache=belgeodesy
DefURLBase=http://belgeodesy.by/map/map/
ContentType=image/png
Ext=.png
projection=2
sradiusa=6378137
sradiusb=6356752
separator=0
UseDwn=1
Usestick=1
UseGenPrevious=1
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=0
BanIfLen=0
MaxConnectToServerCount=6

Loading…
Cancel
Save