diff --git a/belgeodesy.zmp/18.bmp b/_Belarus/belgeodesy.zmp/18.bmp similarity index 100% rename from belgeodesy.zmp/18.bmp rename to _Belarus/belgeodesy.zmp/18.bmp diff --git a/belgeodesy.zmp/24.bmp b/_Belarus/belgeodesy.zmp/24.bmp similarity index 100% rename from belgeodesy.zmp/24.bmp rename to _Belarus/belgeodesy.zmp/24.bmp diff --git a/belgeodesy.zmp/GetUrlScript.txt b/_Belarus/belgeodesy.zmp/GetUrlScript.txt similarity index 100% rename from belgeodesy.zmp/GetUrlScript.txt rename to _Belarus/belgeodesy.zmp/GetUrlScript.txt diff --git a/belgeodesy.zmp/params.txt b/_Belarus/belgeodesy.zmp/params.txt similarity index 74% rename from belgeodesy.zmp/params.txt rename to _Belarus/belgeodesy.zmp/params.txt index 3c7b9be45..b704ef4b5 100644 --- a/belgeodesy.zmp/params.txt +++ b/_Belarus/belgeodesy.zmp/params.txt @@ -5,9 +5,9 @@ asLayer=0 name=Карта Белоруссии (belgeodesy.by) name_en=Map of Belarus (belgeodesy.by) name_uk=Карта Білорусії (belgeodesy.by) -ParentSubMenu=Локальные карты -ParentSubMenu_en=Local maps -ParentSubMenu_uk=Локальні карти +ParentSubMenu=Локальные карты\Беларусь +ParentSubMenu_en=Local maps\Belarus +ParentSubMenu_uk=Локальні карти\Беларусь NameInCache=belgeodesy DefURLBase=http://belgeodesy.by/map/map/ ContentType=image/png diff --git a/etokarta.zmp/18.bmp b/_Belarus/etokarta.zmp/18.bmp similarity index 100% rename from etokarta.zmp/18.bmp rename to _Belarus/etokarta.zmp/18.bmp diff --git a/etokarta.zmp/24.bmp b/_Belarus/etokarta.zmp/24.bmp similarity index 100% rename from etokarta.zmp/24.bmp rename to _Belarus/etokarta.zmp/24.bmp diff --git a/etokarta.zmp/GetUrlScript.txt b/_Belarus/etokarta.zmp/GetUrlScript.txt similarity index 100% rename from etokarta.zmp/GetUrlScript.txt rename to _Belarus/etokarta.zmp/GetUrlScript.txt diff --git a/etokarta.zmp/info.txt b/_Belarus/etokarta.zmp/info.txt similarity index 100% rename from etokarta.zmp/info.txt rename to _Belarus/etokarta.zmp/info.txt diff --git a/etokarta.zmp/params.txt b/_Belarus/etokarta.zmp/params.txt similarity index 70% rename from etokarta.zmp/params.txt rename to _Belarus/etokarta.zmp/params.txt index 195d84849..6cef6d133 100644 --- a/etokarta.zmp/params.txt +++ b/_Belarus/etokarta.zmp/params.txt @@ -4,9 +4,9 @@ GUID={53B841AD-B85D-40D0-BB36-FAA0C703CE91} asLayer=0 name=Витебск спутник z18 (etokarta.com) name_en=Vitebsk Sat z18 (etokarta.com) -ParentSubMenu=Локальные карты -ParentSubMenu_en=Local maps -ParentSubMenu_uk=Локальні карти +ParentSubMenu=Локальные карты\Беларусь +ParentSubMenu_en=Local maps\Belarus +ParentSubMenu_uk=Локальні карти\Беларусь NameInCache=etokarta DefURLBase=http://etokarta.com/t/dg/zz ContentType=image/jpeg diff --git a/_Belarus/maps.by.proj4.zmp/18.bmp b/_Belarus/maps.by.proj4.zmp/18.bmp new file mode 100644 index 000000000..a942fa46b Binary files /dev/null and b/_Belarus/maps.by.proj4.zmp/18.bmp differ diff --git a/_Belarus/maps.by.proj4.zmp/24.bmp b/_Belarus/maps.by.proj4.zmp/24.bmp new file mode 100644 index 000000000..e46b75622 Binary files /dev/null and b/_Belarus/maps.by.proj4.zmp/24.bmp differ diff --git a/_Belarus/maps.by.proj4.zmp/GetUrlScript.txt b/_Belarus/maps.by.proj4.zmp/GetUrlScript.txt new file mode 100644 index 000000000..d6e1eef2b --- /dev/null +++ b/_Belarus/maps.by.proj4.zmp/GetUrlScript.txt @@ -0,0 +1,17 @@ +var + TL, M: TDoublePoint; + BR, N: TDoublePoint; +begin + TL.X := GetLLon; + TL.Y := GetTLat; + BR.X := GetRLon; + BR.Y := GetBLat; + + if Assigned(DefProjConverter) then begin + M := DefProjConverter.LonLat2XY(TL); + N := DefProjConverter.LonLat2XY(BR); + ResultURL := GetURLBase + RoundEx(M.X, 9) + ',' + RoundEx(N.Y, 9) + ',' + RoundEx(N.X, 9) + ',' + RoundEx(M.Y, 9); + end else begin + ResultURL := 'invalid_url'; + end; +end. \ No newline at end of file diff --git a/_Belarus/maps.by.proj4.zmp/info.txt b/_Belarus/maps.by.proj4.zmp/info.txt new file mode 100644 index 000000000..229b48dd6 --- /dev/null +++ b/_Belarus/maps.by.proj4.zmp/info.txt @@ -0,0 +1 @@ +http://maps.by/map/maps \ No newline at end of file diff --git a/_Belarus/maps.by.proj4.zmp/params.txt b/_Belarus/maps.by.proj4.zmp/params.txt new file mode 100644 index 000000000..860702a26 --- /dev/null +++ b/_Belarus/maps.by.proj4.zmp/params.txt @@ -0,0 +1,21 @@ +[PARAMS] +GUID={1334AD70-75F3-476B-8D92-43BE9426C255} +asLayer=0 +pnum=173 +name=Карта Беларуси (maps.by) +name_en=Belarus Map (maps.by) +name_uk=Карта Беларуси (maps.by) +NameInCache=maps.by +DefURLBase=http://maps.by:8080/geoserver/gwc/service/wms?LAYERS=gkgc%3Amaps_by&STYLES=&FORMAT=image%2Fpng8&TILESORIGIN=-20037508.34%2C-20037508.34&TILED=true&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&SRS=EPSG%3A900913&WIDTH=256&HEIGHT=256&BBOX= +ContentType=image/png +ParentSubMenu=Локальные карты\Беларусь +ParentSubMenu_en=Local maps\Belarus +ParentSubMenu_uk=Локальні карти\Беларусь +Ext=.png +projection=1 +sradiusa=6378137 +sradiusb=6356752 +separator=0 +UseDwn=1 +Proj4Args=+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +no_defs +