Карты, не вошедшие в основной список

программа для загрузки и просмотра спутниковых снимков Земли, Луны, Марса предоставленных сервисами Google Maps и Космоснимки. Возможность работы с GPS приёмником.

Модератор: Tolik

Rudeboy1988
Новичок
Сообщения: 3
Зарегистрирован: 15 янв 2016, 21:49
Благодарил (а): 1 раз

Re: Карты, не вошедшие в основной список

Сообщение Rudeboy1988 »

Ребята, ну выручайте кто нибудь, пожалуйста!
Я в этой теме нашел старый zmp от 2011 года, исправил в param.txt сервер на новый и подменил скрипт. Заработало до z16. Но на сайте доступно еще z17, 18 и 19.

Код: Выделить всё

function addzero2(i:integer):string;
var rs:string;
begin
rs:=inttostr(i);
while length(rs)<2 do rs:='0'+rs;
result:=rs;
end;
begin

if GetZ=7 then 
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-11,8))+'/C'+ansilowercase(inttohex(GetX-22,8))+'.png';

if GetZ=8 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-21,8))+'/C'+ansilowercase(inttohex(GetX-44,8))+'.png';

if GetZ=9 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-52,8))+'/C'+ansilowercase(inttohex(GetX-103,8))+'.png';

if GetZ=10 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-104,8))+'/C'+ansilowercase(inttohex(GetX-207,8))+'.png';

if GetZ=11 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-209,8))+'/C'+ansilowercase(inttohex(GetX-415,8))+'.png';

if GetZ=12 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-360,8))+'/C'+ansilowercase(inttohex(GetX-746,8))+'.png';

if GetZ=13 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-720,8))+'/C'+ansilowercase(inttohex(GetX-1493,8))+'.png';

if GetZ=14 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-1441,8))+'/C'+ansilowercase(inttohex(GetX-2986,8))+'.png';

if GetZ=15 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-2881,8))+'/C'+ansilowercase(inttohex(GetX-5973,8))+'.png';

if GetZ=16 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-4600,8))+'/C'+ansilowercase(inttohex(GetX-10263,8))+'.png';

if GetZ=17 then
ResultURL:=GetUrlBase+'L'+addzero2(GetZ-7)+'/R'+ansilowercase(inttohex(GetY-[color=#FF0000]???[/color],8))+'/C'+ansilowercase(inttohex(GetX-[color=#FF0000]???[/color],8))+'.png';

и так до 19го
end.
Это HEX числа, как я понял берутся из имени тайла, но как узнать какое с следующий зум значение вставить?
Нужны Ортофото 2012-2014 не 2015.
http://www.maps.lt/map/default.aspx?lang=en
Ну плиз, кто шарит?
zed
Гуру
Сообщения: 2888
Зарегистрирован: 16 авг 2008, 20:21
Благодарил (а): 89 раз
Поблагодарили: 568 раз

Re: Карты, не вошедшие в основной список

Сообщение zed »

На каждом зуме (17/18/19/..) вам надо найти по одному тайлу, для которого известен его url и приблизительные X, Y в SAS, а затем, простыми математическими вычислениями можно найти константы, которые и использовать при генерации url.

Например, вот этому тайлу:

Код: Выделить всё

http://dc5.maps.lt/cache/mapslt_ortofoto/map/_alllayers/L11/R00006e1e/C00009cd6.jpg
соответствует:

Код: Выделить всё

http://khms2.google.com/kh/v=193&src=app&x=73213&y=40989&z=17&s=Galileo
но из-за проблем с проекцией они точно не ложатся друг на друга, т.е. есть смещение.

А зная, что C00009cd6 это 40150 (если отбросить С и перевести из шестнадцатеричной в десятеричную систему в калькуляторе), то смещение по X = 73213 - 40150 = 33063 - вот ваше первое заветное число.

Проделываете аналогичную операцию для Y и для остальных зумов и получаете рабочий zmp.
mva
Новичок
Сообщения: 20
Зарегистрирован: 18 май 2010, 11:06
Благодарил (а): 1 раз
Поблагодарили: 3 раза

Re: Карты, не вошедшие в основной список

Сообщение mva »

Есть такой ресурс, как карта покрытий радиостанций.
Может ктонить сделать zmp для этих слоев
http://fmscan.org/net.php?r=f&m=m&itu=R ... dio+Rossii
lecha
Новичок
Сообщения: 5
Зарегистрирован: 14 фев 2016, 22:34
Поблагодарили: 1 раз

Re: Карты, не вошедшие в основной список

Сообщение lecha »

Уважаемые форумчане, есть ли возможность SaSPlanet (или другой прогой) скачать карты с http://www.retkikartta.fi/, лучше в растровом формате с нужным масштабом, чтобы распечатывать, треки накладывать и всякие другие операции делать? Или, может, другой ресурс для этого есть?

Lecha
filaa1
Новичок
Сообщения: 3
Зарегистрирован: 22 авг 2010, 14:28

Re: Карты, не вошедшие в основной список

Сообщение filaa1 »

Добрый день. Есть ли возможность добавить лесные участки из специальных слоев портала http://isogd42.ru/#ix=7280250&iy=9675800&is=7 но без подложки, т.е. только один слой и может быть сдвинуть его на место, т.к. на портале он прикручен со сдвигом на северо-запад на более чем 3 км. Но буду благодарен, если будет возможность добавить хотя бы и без сдвига. Данный слой дает возможность видеть лесные кварталы на всю Кемеровскую область.
Ivan30
Советчик
Сообщения: 429
Зарегистрирован: 14 мар 2011, 19:14
Откуда: дельта Волги
Благодарил (а): 60 раз
Поблагодарили: 139 раз

Re: Карты, не вошедшие в основной список

Сообщение Ivan30 »

filaa1 писал(а):Добрый день. Есть ли возможность добавить лесные участки из специальных слоев портала http://isogd42.ru/#ix=7280250&iy=9675800&is=7 но без подложки, т.е. только один слой и может быть сдвинуть его на место, т.к. на портале он прикручен со сдвигом на северо-запад на более чем 3 км. Но буду благодарен, если будет возможность добавить хотя бы и без сдвига. Данный слой дает возможность видеть лесные кварталы на всю Кемеровскую область.
думаю, возможность есть, с привязкой потыкаться придётся. зумы такие - [3466743,1733372,866686,433343,216671,108336,54168,27084],

этот слой интересен?

Изображение
Изображение
filaa1
Новичок
Сообщения: 3
Зарегистрирован: 22 авг 2010, 14:28

Re: Карты, не вошедшие в основной список

Сообщение filaa1 »

Да, слой именно этот, а зум желательно по 14, как на вложении.
Вложения
участки.png
BlackSea
Новичок
Сообщения: 27
Зарегистрирован: 25 фев 2016, 15:40
Благодарил (а): 7 раз
Поблагодарили: 3 раза

Перенос МОБАКовского mapsource в SAS

Сообщение BlackSea »

Доброго времени суток,

пытаюсь перенести один mapsource из MOBAC в САС
Выглядит так
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<exCustomMapSource>
<name>NVPedia</name>
<minZoom>6</minZoom>
<maxZoom>16</maxZoom>
<backgroundColor>#FF000000</backgroundColor>
<invertYCoordinate>false</invertYCoordinate>
<numLowerLevels>4</numLowerLevels>
<mergeLevels>true</mergeLevels>
<ignoreErrors>true</ignoreErrors>
<url>http://***.**-****.**/navipack.php?tiles=2014,296,{$z},{$y},{$x}</url>
</exCustomMapSource>
Создаю в САС соотв. zmp
params.txt
[PARAMS]
pnum=7777
GUID={972b8449-9086-46f3-ad93-56141930716e}
asLayer=0
name=NVPedia
name_en=NVPedia
ParentSubMenu=Marine maps
DefURLBase=http://***.**-****.**/navipack.php?tiles=2014,296,
projection=1
sradiusa=6378137
sradiusb=6378137
NameInCache=NVPedia
ContentType=image/png
GetUrlScript.txt
begin
ResultURL := GetUrlBase + inttostr(GetZ) + ',' +inttostr(GetY) + ',' + inttostr(GetX);
end.
И получаю на выходе только северные широты западного полушария. Скрин в аттаче.
Как можно это исправить? Заранее благодарен за подсказки

С ув.
BlackSea
Вложения
SAS.PNG
Последний раз редактировалось BlackSea 25 фев 2016, 18:17, всего редактировалось 1 раз.
Tolik
Гуру
Сообщения: 2604
Зарегистрирован: 28 янв 2011, 10:38
Благодарил (а): 283 раза
Поблагодарили: 587 раз

Re: Перенос МОБАКовского mapsource в SAS

Сообщение Tolik »

Для начала замените GetZ на GetZ-1
BlackSea
Новичок
Сообщения: 27
Зарегистрирован: 25 фев 2016, 15:40
Благодарил (а): 7 раз
Поблагодарили: 3 раза

Re: Перенос МОБАКовского mapsource в SAS

Сообщение BlackSea »

Огромное спасибо. Кажется заработало.
Ответить

Вернуться в «SAS.Планета»