Je to ve VB6, psal jsem to jako modul do MS Access, protože tu nemám VB, chce to tedy nějaké znalosti programování nebo si to přepsat do něčeho jinýho.
Návod:
Na mapy.cz si odečtu levý horní a pravý dolní roh budoucí velké mapy a to nejlépe pomocí nástroje GPS souřadnic, je to nejpřesnější. Kliknu do mapy, zkopíruju GPS do vyhledávání a znovu najdu bod a odečtu obě souřadnice:
http://www.mapy.cz/#x=139362304@y=134217728@z=8@mm=ZP
To samé pro druhý roh a dostanu x1,x2,y1,y2
Vložím je do skriptu tak, aby x i y rostlo, tj. x1
Nastavím si správnou cestu pro výstup txt souboru.
Spustím skript.
V Total Commanderu (není to plugin, spletl jsem se) dám Síť, FTP - stažení se seznamu a použiju vygenerovaný soubor a začnu stahovat.
Soubory jsou přečíslované (y souřadnice) aby se dobře řadily.
Pak se podívám podle názvů souborů jaký obdélník se mi vytvořil a podle toho to pospojuju v ImageMagick.
Záleží na výkonu počítače, místě na disku a RAM, ale myslím, že nemá smysl dělat větší mapy než 20x20 dílů.
A teď vlastní script:
Public Sub generate_url()
Dim x, y, ya As Long
Dim url As String
Open "C:\mapy.cz\mapy_jivova.txt" For Output As #1
For y = 134654272 To 134748416 Step 19200
For x = 139889216 To 139969680 Step 25600
ya = 999999999 - y
url = "http://mapgen.mapy.cz/?typ=ophoto&zoom=16&fmt=jpg¢er=" & LCase(Hex(x)) & "_" & LCase(Hex(y)) & "&w=1600&h=1200 -> " & ya & "_" & x & ".jpg"
Print #1, url
Next x
Next y
Close
End Sub