sasgis
/
maps
2
0
Fork 4
Code Issues 0 Pull Requests 0 Releases 0 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
493 Commits
1 Branch
15 MiB
 
Tree: 536bc18522
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '536bc18522'
${ noResults }
maps/_Ukraine/odessa.ua.zmp/GetUrlScript.txt

18 lines
514 B
Raw Blame History 

  1. var

  2. sh_x:array[0..24] of integer;

  3. sh_y:array[0..24] of integer;

  4. 

  5. begin

  6. sh_x[3]:=301; sh_y[3]:=589;

  7. sh_x[4]:=603; sh_y[4]:=1178;

  8. sh_x[5]:=1177; sh_y[5]:=2302;

  9. sh_x[6]:=2355; sh_y[6]:=4604;

  10. sh_x[7]:=4711; sh_y[7]:=9209;

  11. sh_x[8]:=10773; sh_y[8]:=21055;

  12. sh_x[9]:=18845; sh_y[9]:=36839;

  13. sh_x[10]:=37690; sh_y[10]:=73679;

  14. sh_x[11]:=75381; sh_y[11]:=147359;

  15. sh_x[12]:=150762; sh_y[12]:=294719;

  16. 

  17.  ResultURL:=GetUrlBase+'/'+inttostr(Getz-3)+'/'+inttostr(GetY+sh_y[getz])+'/'+inttostr(GetX+sh_x[getz]);

  18. end.