sasbot 4 роки тому
джерело
коміт
9ba0339ec6
6 змінених файлів з 83 додано та 1 видалено
  1. BIN
      geogarage_com_route.zmp/18.bmp
  2. BIN
      geogarage_com_route.zmp/24.bmp
  3. +56
    -0
      geogarage_com_route.zmp/GetUrlScript.txt
  4. +25
    -0
      geogarage_com_route.zmp/params.txt
  5. +1
    -1
      osm_cloudmade.com.zmp/params.txt
  6. +1
    -0
      teleatlas.com.zmp/params.txt

BIN
geogarage_com_route.zmp/18.bmp Переглянути файл

Перед Після

BIN
geogarage_com_route.zmp/24.bmp Переглянути файл

Перед Після

+ 56
- 0
geogarage_com_route.zmp/GetUrlScript.txt Переглянути файл

@@ -0,0 +1,56 @@
var res:string;
i:byte;
osX,osY,prX,prY:integer;
begin
res:='t';
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<osX
then begin
osX:=osX-prX;
if GetY<osY then begin
osY:=osY-prY;
res:=res+'q';
end
else begin
osY:=osY+prY;
res:=res+'t';
end;
end
else begin
osX:=osX+prX;
if Gety<osy then begin
osY:=osY-prY;
res:=res+'r';
end
else begin
osY:=osY+prY;
res:=res+'s';
end;
end;
end;
{ if GetY <7 then insert('10',GetURLBase,13) else insert('8',GetURLBase,13);}
case GetZ of
5: ResultURL:=GetURLBase+res+'/'+res+'.png';
5: ResultURL:=GetURLBase+res+'/'+res+'.png';
7: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
8: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
9: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
10: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
11: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
12: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
13: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
14: ResultURL:=GetURLBase+copy(res,1,6)+'/'+res+'.png';
else
ResultURL:=GetURLBase+res+'.png';
end
end.

+ 25
- 0
geogarage_com_route.zmp/params.txt Переглянути файл

@@ -0,0 +1,25 @@
[PARAMS]
pnum=1
GUID={3EBFF911-D074-4983-9346-2C03F68041A3}
asLayer=0
name= marine.geogarage.com/routes (geogarage.com)
name_9=marine.geogarage.com/routes (geogarage.com)
NameInCache=geogarage_com_route
DefURLBase=http://publish3.geogarage.com/noaa/
ContentType=image/png
Ext=.png
projection=1
sradiusa=3396190
sradiusb=3396190
separator=0
UseDwn=1
Usestick=1
UseGenPrevious=1
Usedel=1
Usesave=1
UseAntiBan=0
Sleep=0
DefHotKey=0
BanIfLen=0
ParentSubMenu=Äðóãèå êàðòû
ParentSubMenu_9=Other maps

+ 1
- 1
osm_cloudmade.com.zmp/params.txt Переглянути файл

@@ -21,4 +21,4 @@ UseAntiBan=0
Sleep=0
DefHotKey=0
BanIfLen=0
PARENTSUBMENU=OSM
parentsubmenu=osm

+ 1
- 0
teleatlas.com.zmp/params.txt Переглянути файл

@@ -1,6 +1,7 @@
[PARAMS]
GUID={4334AD70-75F3-476B-8D92-43BE9426C255}
asLayer=0
pnum=100
name=Êàðòà (navigation.teleatlas.com)
name_9=Map (navigation.teleatlas.com)
NameInCache=teleatlas_com


Завантаження…
Відмінити
Зберегти