SASGIS

Веб-картография и навигация

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

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

Модератор: Tolik

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

Сообщение Rudeboy1988 » 19 янв 2016, 00:40

Ребята, ну выручайте кто нибудь, пожалуйста!
Я в этой теме нашел старый 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
Ну плиз, кто шарит?
Rudeboy1988
Новичок
 
Сообщения: 3
Зарегистрирован: 15 янв 2016, 21:49
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.

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

Сообщение zed » 19 янв 2016, 01:44

На каждом зуме (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.

За это сообщение автора zed поблагодарил:
Rudeboy1988 (19 янв 2016, 02:32)
Рейтинг: 5.26%
 
zed
Гуру
 
Сообщения: 2888
Зарегистрирован: 16 авг 2008, 20:21
Благодарил (а): 89 раз.
Поблагодарили: 568 раз.

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

Сообщение mva » 31 янв 2016, 08:23

Есть такой ресурс, как карта покрытий радиостанций.
Может ктонить сделать zmp для этих слоев
http://fmscan.org/net.php?r=f&m=m&itu=R ... dio+Rossii
mva
Новичок
 
Сообщения: 20
Зарегистрирован: 18 май 2010, 11:06
Благодарил (а): 1 раз.
Поблагодарили: 3 раз.

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

Сообщение lecha » 14 фев 2016, 22:37

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

Lecha
lecha
Новичок
 
Сообщения: 5
Зарегистрирован: 14 фев 2016, 22:34
Благодарил (а): 0 раз.
Поблагодарили: 1 раз.

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

Сообщение filaa1 » 23 фев 2016, 18:50

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

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

Сообщение Ivan30 » 23 фев 2016, 21:53

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

думаю, возможность есть, с привязкой потыкаться придётся. зумы такие - [3466743,1733372,866686,433343,216671,108336,54168,27084],

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

Изображение
Изображение
Ivan30
Советчик
 
Сообщения: 429
Зарегистрирован: 14 мар 2011, 19:14
Откуда: дельта Волги
Благодарил (а): 60 раз.
Поблагодарили: 139 раз.

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

Сообщение filaa1 » 24 фев 2016, 10:55

Да, слой именно этот, а зум желательно по 14, как на вложении.
Вложения
.png
filaa1
Новичок
 
Сообщения: 3
Зарегистрирован: 22 авг 2010, 14:28
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

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

Сообщение BlackSea » 25 фев 2016, 17:16

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

пытаюсь перенести один 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 раз.
BlackSea
Новичок
 
Сообщения: 25
Зарегистрирован: 25 фев 2016, 15:40
Благодарил (а): 6 раз.
Поблагодарили: 3 раз.

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

Сообщение Tolik » 25 фев 2016, 17:21

Для начала замените GetZ на GetZ-1

За это сообщение автора Tolik поблагодарил:
BlackSea (25 фев 2016, 18:18)
Рейтинг: 5.26%
 
Tolik
Гуру
 
Сообщения: 2604
Зарегистрирован: 28 янв 2011, 10:38
Благодарил (а): 280 раз.
Поблагодарили: 587 раз.

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

Сообщение BlackSea » 25 фев 2016, 17:49

Огромное спасибо. Кажется заработало.
BlackSea
Новичок
 
Сообщения: 25
Зарегистрирован: 25 фев 2016, 15:40
Благодарил (а): 6 раз.
Поблагодарили: 3 раз.

Пред.След.

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

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14