{"id":798,"date":"2014-01-14T22:28:41","date_gmt":"2014-01-14T22:28:41","guid":{"rendered":"http:\/\/zlatykun.com\/?page_id=798"},"modified":"2014-05-15T15:04:27","modified_gmt":"2014-05-15T15:04:27","slug":"mapovani-malych-jeskyni-v-programu-therion","status":"publish","type":"page","link":"https:\/\/zlatykun.com\/?page_id=798","title":{"rendered":"Mapov\u00e1n\u00ed mal\u00fdch jeskyn\u00ed v programu therion"},"content":{"rendered":"<p>Aktualni informace naleznete na:<br \/>\n<a href=\"http:\/\/therion.speleo.sk\/wiki\/doku.php?id=czsk:mmj\">http:\/\/therion.speleo.sk\/wiki\/doku.php?id=czsk:mmj<\/a><\/p>\n<p>&nbsp;<\/p>\n<p><strong>N\u011bco m\u00e1lo na \u00favod<\/strong><\/p>\n<p>Po \u0161kolen\u00ed therion na Slovensku v N\u00edzk\u00fdch Tatr\u00e1ch na chat\u011b Kosod\u0159evina jsem se za\u010dal aktivn\u011b zaj\u00edmat o tvorbu mapov\u00e9 dokumentace v tomto programu.<\/p>\n<p>Program THERION byl vytvo\u0159en p\u016fvodn\u011b pro mapov\u00e1n\u00ed jeskyn\u011b Mrtv\u00fdch Netop\u00edr\u016f, tato jeskyn\u011b dosahuje celkov\u00e9 d\u00e9lky 25 Km, vzhledem k t\u011bmto &#8222;proporc\u00edm&#8220; je p\u0159i vkl\u00e1d\u00e1n\u00ed n\u011bkter\u00fdch zna\u010dek (bod\u016f), pol\u00ed (sand, debris, rock),atd. pro mal\u00e9 jeskyn\u011b probl\u00e9m z hustotou, rozlo\u017een\u00edm t\u011bchto zna\u010dek.<\/p>\n<p>Hustotou rozum\u00edme vzd\u00e1lenost jednotliv\u00fdch \u010dar, bodu, zna\u010dek.. od sebe. Jednodu\u0161e \u0159e\u010deno pokud m\u00e1m d\u00f3m o velikosti 40*40 metr\u016f a vypln\u00edte ho cel\u00fd typem debris (\u0161t\u011brk) bude v t\u00e9to velikosti snadno \u010diteln\u00e9 na map\u011b o jakou v\u00fdpl\u0148 se jedn\u00e1, pokud ov\u0161em pou\u017eijeme stejnou v\u00fdpl\u0148 na d\u00f3m 4*4 metry bude rozlo\u017een\u00ed zna\u010dek stejn\u011b daleko od sebe jako v p\u0159edchoz\u00edm p\u0159\u00edklad\u011b a tud\u00ed\u017e na v\u00fdsledn\u00e9 map\u011b bude h\u016f\u0159e \u010diteln\u00e9 (jeliko\u017e je d\u00f3m pom\u011brn\u011b mal\u00fd). Dal\u0161\u00ed p\u0159\u00edklad uvedu na typu zna\u010dky svah, jestli\u017ee m\u00e1te chodbu kter\u00e1 je u\u017e\u0161\u00ed ne\u017e jeden metr tak p\u0159i pou\u017eit\u00ed zna\u010dky svah v standardn\u00edm nastaven\u00ed dojde k vygenerov\u00e1n\u00ed zna\u010dky kter\u00e1 bude interpretov\u00e1na jednou kr\u00e1tkou a jednou dlouhou \u00fase\u010dkou, co\u017e na v\u00fdsledn\u00e9 map\u011b nevypad\u00e1 optim\u00e1ln\u011b.<\/p>\n<p><strong>Tak tedy jak na to<\/strong><\/p>\n<p>Pro pochopen\u00ed tohoto n\u00e1vodu mus\u00edte m\u00edt zvl\u00e1dnut\u00e9 alespo\u0148 z\u00e1kladn\u00ed znalosti o funkcionalit\u011b programu therion.<\/p>\n<p>Therion na\u0161t\u011bst\u00ed disponuje funkcionalitou kter\u00e1 n\u00e1m umo\u017en\u00ed zm\u011bnu t\u011bchto zna\u010dek dle na\u0161ich po\u017eadavk\u016f.<\/p>\n<p>Zm\u011bnu n\u00e1m umo\u017e\u0148uje nastaven\u00ed v sekci\u00a0<strong>layout<\/strong>\u00a0v souboru\u00a0<strong>thconfig<\/strong>\u00a0(vstupn\u00ed soubor therion compileru).<\/p>\n<p><strong>thconfig &#8211; p\u0159\u00edklad<\/strong><\/p>\n<p>layout homolak<\/p>\n<p>#rozli\u0161en\u00ed<br \/>\nscale 1 100<\/p>\n<p>#barva pozad\u00ed mapy<br \/>\ncolor map-bg 85 # dle barvy [100 100 100]<\/p>\n<p># barva mapy dle v\u00fd\u0161ky<br \/>\n#color map-fg altitude<\/p>\n<p>transparency on<br \/>\nopacity 90<\/p>\n<p># dop\u00ed\u0161e k osobam kte\u0159\u00ed m\u011b\u0159ili d\u00e9lku zm\u011b\u0159en\u00fdch poligon\u00fa<br \/>\nstatistics topo-length on<\/p>\n<p># V jak\u00e9m jazyku bude mapa<br \/>\nlanguage cz<\/p>\n<p>#Zobrazovat legendu<br \/>\nlegend on<br \/>\nmap-header 8 100 e<\/p>\n<p># nastavuje typ pou\u017eit\u00fdch symbolu SKBB\/UIS\/ASF\/CCNP<br \/>\n#symbol-set SKBB<\/p>\n<p>#zobrazovat jmena m\u011b\u0159i\u010dsk\u00fdch bodu<br \/>\ndebug station-names<\/p>\n<p># nastaveni m\u0159i\u017eky<br \/>\ngrid bottom<br \/>\ngrid-size 10 10 10 m<\/p>\n<p>#rotace mapy<br \/>\n#rotate 30<\/p>\n<p>#symbol-assign point station UIS<br \/>\n#symbol-hide point station<\/p>\n<p>#Zru\u0161it generov\u00e1n\u00ed bodu (v\u0161eho)<br \/>\n#symbol-hide group all<br \/>\n#symbol-hide point section<br \/>\n#symbol-show line wall<br \/>\n#symbol-show line survey<br \/>\n#symbol-hide line flowstone<\/p>\n<p>endlayout<\/p>\n<p>export map -output output\/homolak.pdf -layout homolak<\/p>\n<p>Toto nastaven\u00ed je p\u0159\u00edklad kter\u00fd se samoz\u0159ejm\u011b nemus\u00ed shodovat z Va\u0161im nastaven\u00edm, budeme jej ov\u0161em pou\u017e\u00edvat v v\u0161ech dal\u0161\u00edch p\u0159\u00edkladech<\/p>\n<p><strong>Zm\u011bna zna\u010dek &#8211; p\u0159\u00edprava<\/strong><\/p>\n<p>Pro zm\u011bnu jak\u00e9koliv zna\u010dky je nutn\u00e9 p\u0159idat do sekce layout n\u00e1sleduj\u00edc\u00ed k\u00f3d kter\u00fd n\u00e1m zp\u0159\u00edstupn\u00ed mo\u017enost zm\u011bnu rozlo\u017een\u00ed.<\/p>\n<p>code metapost<\/p>\n<p>endcode<\/p>\n<p>Do t\u00e9to sekce budeme n\u00e1sledn\u011b vkl\u00e1dat k\u00f3d pro zm\u011bnu.<\/p>\n<p><strong>Zm\u011bna v\u00fdpln\u011b (array) typu debris<\/strong><\/p>\n<p>Do sekce code metapost kterou jsme vytvo\u0159ily v p\u0159edchoz\u00edm kroku vlo\u017e\u00edme n\u00e1sleduj\u00edc\u00ed k\u00f3d.<\/p>\n<p>def a_debris (expr p) =<br \/>\nT:=identity;<br \/>\n% thclean p;<br \/>\npickup PenC;<br \/>\npath q; q = bbox p;<br \/>\npicture tmp_pic;<br \/>\ntmp_pic := image(<br \/>\nfor i = xpart llcorner q step 1u until xpart urcorner q:<br \/>\nfor j = ypart llcorner q step 1u until ypart urcorner q:<br \/>\ndraw ((-.2u,0)&#8211;(.2u,0))<br \/>\nrotated uniformdeviate(360)<br \/>\nshifted ((i,j) randomized 0.6u) withpen PenC;<br \/>\nendfor;<br \/>\nendfor;<br \/>\n);<br \/>\nclip tmp_pic to p;<br \/>\ndraw tmp_pic;<br \/>\nenddef;<\/p>\n<p>Pokud nyn\u00ed provedeme kompilaci mapy bude mapa stejn\u00e1 jako p\u0159i origin\u00e1ln\u00edm nastaven\u00ed jeliko\u017e jsme neprovedli zm\u011bnu nastaven\u00ed.<\/p>\n<p>Zm\u011bnu provedeme v n\u00e1sleduj\u00edc\u00edch \u0159\u00e1dc\u00edch<\/p>\n<p>for i = xpart llcorner q step\u00a00.8u\u00a0until xpart urcorner q:<br \/>\nfor j = ypart llcorner q step\u00a00.8u\u00a0until ypart urcorner q:<\/p>\n<p>a<\/p>\n<p>shifted ((i,j) randomized\u00a00.4u) withpen PenC;<\/p>\n<p>Pokud nyn\u00ed vygenerujeme mapu bude ji\u017e z\u0159eteln\u011b viditeln\u00e9 zhu\u0161t\u011bn\u00ed v\u0161ech bodu.<\/p>\n<p>Co jsme vlastn\u011b ud\u011blali, zm\u011bnou hodnot 1u na 0.8u jsme \u0159ekli compileru aby zna\u010dku debris (dle def a_debris) vykresloval v rozmez\u00ed 0.8u a d\u00e1le zm\u011bnu hodnoty randomized 0.6u na 0.4u aby zna\u010dky ot\u00e1\u010del v v\u00edce n\u00e1hodn\u011bj\u0161\u00edm po\u0159ad\u00ed<\/p>\n<p>Takto m\u016f\u017ee vypadat rozd\u00edl p\u0159i standardn\u00edm a upraven\u00e9m layoutu<\/p>\n<p><center><strong>bez nastaven\u00ed<\/strong>\u00a0<img decoding=\"async\" alt=\"\" src=\"http:\/\/web.archive.org\/web\/20071114012351im_\/http:\/\/www.zlatykun.com\/img\/bez_layout.jpg\" border=\"0\" \/><\/center>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p><center><strong>a takto z nastaven\u00edm<\/strong>\u00a0<img decoding=\"async\" alt=\"\" src=\"http:\/\/web.archive.org\/web\/20071114012351im_\/http:\/\/www.zlatykun.com\/img\/layout.jpg\" border=\"0\" \/><\/center>&nbsp;<\/p>\n<p>Pokud nen\u00ed n\u011bkomu jasn\u00e9 jak vlo\u017eit code metapost do layout zde je cel\u00fd p\u0159\u00edklad<\/p>\n<p>layout homolak<\/p>\n<p>#rozli\u0161en\u00ed<br \/>\nscale 1 100<\/p>\n<p>#barva pozad\u00ed mapy<br \/>\ncolor map-bg 85 # dle barvy [100 100 100]<\/p>\n<p># barva mapy dle v\u00fd\u0161ky<br \/>\n#color map-fg altitude<\/p>\n<p>transparency on<br \/>\nopacity 90<\/p>\n<p># dop\u00ed\u0161e k osobam kte\u0159\u00ed m\u011b\u0159ili d\u00e9lku zm\u011b\u0159en\u00fdch poligon\u00fa<br \/>\nstatistics topo-length on<\/p>\n<p># V jak\u00e9m jazyku bude mapa<br \/>\nlanguage cz<\/p>\n<p>#Zobrazovat legendu<br \/>\nlegend on<br \/>\nmap-header 8 100 e<\/p>\n<p># nastavuje typ pou\u017eit\u00fdch symbolu SKBB\/UIS\/ASF\/CCNP<br \/>\n#symbol-set SKBB<\/p>\n<p>#zobrazovat jmena m\u011b\u0159i\u010dsk\u00fdch bodu<br \/>\ndebug station-names<\/p>\n<p># nastaveni m\u0159i\u017eky<br \/>\ngrid bottom<br \/>\ngrid-size 10 10 10 m<\/p>\n<p>#rotace mapy<br \/>\n#rotate 30<\/p>\n<p>#symbol-assign point station UIS<br \/>\n#symbol-hide point station<\/p>\n<p>#Zru\u0161it generov\u00e1n\u00ed bodu (v\u0161eho)<br \/>\n#symbol-hide group all<br \/>\n#symbol-hide point section<br \/>\n#symbol-show line wall<br \/>\n#symbol-show line survey<br \/>\n#symbol-hide line flowstone<\/p>\n<p>code metapost<br \/>\ndef a_debris (expr p) =<br \/>\nT:=identity;<br \/>\n% thclean p;<br \/>\npickup PenC;<br \/>\npath q; q = bbox p;<br \/>\npicture tmp_pic;<br \/>\ntmp_pic := image(<br \/>\nfor i = xpart llcorner q step\u00a00.8u\u00a0until xpart urcorner q:<br \/>\nfor j = ypart llcorner q step\u00a00.8u\u00a0until ypart urcorner q:<br \/>\ndraw ((-.2u,0)&#8211;(.2u,0))<br \/>\nrotated uniformdeviate(360)<br \/>\nshifted ((i,j) randomized\u00a00.4u) withpen PenC;<br \/>\nendfor;<br \/>\nendfor;<br \/>\n);<br \/>\nclip tmp_pic to p;<br \/>\ndraw tmp_pic;<br \/>\nenddef;<br \/>\nendcode<br \/>\nendlayout<\/p>\n<p>export map -output output\/homolak.pdf -layout homolak<\/p>\n<p><strong>Zm\u011bna v\u00fdpln\u011b (array) typu blocks<\/strong><\/p>\n<p>Do sekce code metapost kterou jsme vytvo\u0159ily v p\u0159edchoz\u00edm kroku vlo\u017e\u00edme n\u00e1sleduj\u00edc\u00ed k\u00f3d.<\/p>\n<p>def a_blocks (expr p) =<br \/>\nT:=identity;<br \/>\npickup PenC;<br \/>\npath q, qq; q = bbox p;<br \/>\npicture tmp_pic;<br \/>\nuu := max(u, (xpart urcorner q &#8211; xpart llcorner q)\/100, (ypart urcorner q &#8211; ypart llcorner q)\/100);<br \/>\ntmp_pic := image(<br \/>\nfor i = xpart llcorner q step 2.0uu until xpart urcorner q:<br \/>\nfor j = ypart llcorner q step 2.0uu until ypart urcorner q:<br \/>\nqq := punked (((-.5uu,-.5uu)&#8211;(.5uu,-.5uu)&#8211;(.5uu,.5uu)&#8211;(-.5uu,.5uu)&#8211;cycle)<br \/>\nrandomized (uu\/2))<br \/>\nrotated uniformdeviate(360)<br \/>\nshifted ((i,j) randomized 1.6uu);<br \/>\nif xpart (p intersectiontimes qq) &lt; 0:<br \/>\nthclean qq;<br \/>\nthdraw qq;<br \/>\nfi;<br \/>\nendfor;<br \/>\nendfor;<br \/>\n);<br \/>\nclip tmp_pic to p;<br \/>\ndraw tmp_pic;<br \/>\nenddef;<\/p>\n<p>Zm\u011bnu provedeme v n\u00e1sleduj\u00edc\u00edch \u0159\u00e1dc\u00edch<\/p>\n<p>for i = xpart llcorner q step\u00a01.0uu\u00a0until xpart urcorner q:<br \/>\nfor j = ypart llcorner q step\u00a01.0uu\u00a0until ypart urcorner q:<\/p>\n<p>a<\/p>\n<p>shifted ((i,j) randomized\u00a01.0uu);<\/p>\n<p>Pokud nyn\u00ed vygenerujeme mapu bude ji\u017e z\u0159eteln\u011b viditeln\u00e9 zhu\u0161t\u011bn\u00ed v\u0161ech bodu.<\/p>\n<p>Co jsme vlastn\u011b ud\u011blali, zm\u011bnou hodnot 2.0uu na 1.0uu jsme \u0159ekli compileru aby zna\u010dku blocks (dle def a_blocks) vykresloval v rozmez\u00ed 1.0uu a d\u00e1le zm\u011bnu hodnoty randomized 2.0uu na 1.6uu aby zna\u010dky ot\u00e1\u010del v v\u00edce n\u00e1hodn\u011bj\u0161\u00edm po\u0159ad\u00ed. Jak vid\u00edte tak zm\u011bna je velice podobn\u00e1 p\u0159edchoz\u00edmu p\u0159\u00edkladu.<\/p>\n<p>Ostatn\u00ed definice pol\u00ed nebudu uv\u00e1d\u011bt jeliko\u017e je mo\u017eno je zjistit v zdrojov\u00e9m souboru programu therion kter\u00fd je mo\u017eno stahnout na\u00a0<a href=\"http:\/\/web.archive.org\/web\/20071114012351\/http:\/\/therion.spelo.sk\/\" target=\"_new\">therion.speleo.sk<\/a>. Po sta\u017een\u00ed zdrojov\u00fdch souboru najdete definice v adres\u00e1\u0159i\u00a0therion mpost thArea.mp. Pokud tento soubor otev\u0159ete naleznete zde seznam v\u0161ech pol\u00ed kter\u00e1 jsou v programu THERION.<\/p>\n<p>Nap\u0159\u00edklad pole debris (kter\u00e9 jsme pou\u017eili v p\u0159\u00edkladu naleznete jako def a_debris_UIS &#8230;.. enddef; sta\u010d\u00ed tedy odstranit posledn\u00ed \u010d\u00e1st _UIS na def a_debris a vlo\u017eit do thconfig a p\u0159epsat dle ji\u017e zmi\u0148ovan\u00e9ho p\u0159\u00edkladu hodnoty. Hodnoty je mo\u017en\u00e9 samoz\u0159ejm\u011b je\u0161t\u011b zmen\u0161it pro generov\u00e1n\u00ed je\u0161t\u011b hust\u0161\u00edho zna\u010den\u00ed. Pokud ov\u0161em zmen\u0161\u00edte hodnotu na p\u0159\u00edli\u0161 malou dojde v therion k chyb\u011b v pr\u016fb\u011bhu generov\u00e1n\u00ed, co\u017e V\u00e1m bude ozn\u00e1meno v okn\u011b compileru. Sta\u010d\u00ed tedy op\u011bt zv\u011bt\u0161it hodnotu a ji\u017e se bude mapa generovat v po\u0159\u00e1dku.<\/p>\n<p><strong>Zm\u011bna zna\u010dky svah (slope)<\/strong><\/p>\n<p>Do sekce code metapost kterou jsme vytvo\u0159ily v p\u0159edchoz\u00edm kroku vlo\u017e\u00edme n\u00e1sleduj\u00edc\u00ed k\u00f3d.<\/p>\n<p>def l_slope (expr P,S)(text Q) =<br \/>\n%show Q;<br \/>\nT:=identity;<br \/>\nnumeric dirs[];<br \/>\nnumeric lengths[];<br \/>\nfor i=Q:<br \/>\ndirs[redpart i]:=greenpart i;<br \/>\nlengths[redpart i]:=bluepart i;<br \/>\nendfor;<\/p>\n<p>li:=length(P); % last<\/p>\n<p>alw_perpendicular:=true;<\/p>\n<p>for i=0 upto li:<br \/>\nif unknown dirs[i]: dirs[i]:=-1;<br \/>\nelse:<br \/>\nif dirs[i]&gt;-1:<br \/>\ndirs[i]:=((90-dirs[i]) &#8211; angle(thdir(P,i))) mod 360;<br \/>\nalw_perpendicular:=false;<br \/>\nfi;<br \/>\nfi;<br \/>\nif unknown lengths[i]: lengths[i]:=-1; fi;<br \/>\nendfor;<\/p>\n<p>%for i=0 upto li: show dirs[i]; endfor;<\/p>\n<p>ni:=0; % next<br \/>\npi:=0; % previous<\/p>\n<p>for i=0 upto li:<br \/>\nd:=dirs[i];<br \/>\nif d=-1:<br \/>\nif (i=0) or (i=li):<br \/>\ndirs[i] := angle(thdir(P,i) rotated 90) mod 360;<br \/>\npi:=i;<br \/>\nelse:<br \/>\nif ni&lt;=i:<br \/>\nfor j=i upto li:<br \/>\nni:=j;<br \/>\nexitif dirs[j]&gt;-1;<br \/>\nendfor;<br \/>\nfi;<br \/>\nw:=arclength(subpath(pi,i) of P) \/<br \/>\narclength(subpath(pi,ni) of P);<br \/>\ndirs[i]:=w[dirs[pi],dirs[ni]];<br \/>\n% if (dirs[i]-angle(thdir(P,i))) mod 360&gt;180:<br \/>\n% dirs[i]:=w[dirs[ni],dirs[pi]];<br \/>\n% message(&#8222;*******&#8220;);<br \/>\n% fi;<br \/>\nfi;<br \/>\nelse:<br \/>\npi:=i;<br \/>\nfi;<br \/>\nendfor;<\/p>\n<p>%for i=0 upto li: show dirs[i]; endfor;<\/p>\n<p>ni:=0; % next<br \/>\npi:=0; % previous<\/p>\n<p>for i=0 upto li:<br \/>\nl:=lengths[i];<br \/>\nif l=-1:<br \/>\nif (i=0) or (i=li):<br \/>\nlengths[i] := 1cm; % should never happen!<br \/>\nthwarning(&#8222;slope width at the end point not specified&#8220;);<br \/>\npi:=i;<br \/>\nelse:<br \/>\nif ni&lt;=i:<br \/>\nfor j=i+1 upto li:<br \/>\nni:=j;<br \/>\nexitif lengths[j]&gt;-1;<br \/>\nendfor;<br \/>\nfi;<br \/>\nw:=arclength(subpath(pi,i) of P) \/<br \/>\narclength(subpath(pi,ni) of P);<br \/>\nlengths[i]:=w[lengths[pi],lengths[ni]];<br \/>\npi:=i;<br \/>\nfi;<br \/>\nelse:<br \/>\npi:=i;<br \/>\nfi;<br \/>\nendfor;<\/p>\n<p>% for i=0 upto li: show lengths[i]; endfor;<\/p>\n<p>T:=identity;<br \/>\nboolean par;<br \/>\ncas := 0.3u;<br \/>\nkrok := 0.7u;<br \/>\ndlzka := (arclength P);<br \/>\nif dlzka&gt;3u: dlzka:=dlzka-0.6u fi;<br \/>\nmojkrok:=adjust_step(dlzka,1.4u) \/ 2;<br \/>\npickup PenD;<br \/>\npar := false;<br \/>\nforever:<br \/>\nt := arctime cas of P;<br \/>\nif t mod 1&gt;0: % not a key point<br \/>\nw := (arclength(subpath(floor t,t) of P) \/<br \/>\narclength(subpath(floor t,ceiling t) of P));<br \/>\nif alw_perpendicular:<br \/>\na := 90;<br \/>\nelse:<br \/>\na := w[dirs[floor t],dirs[ceiling t]];<br \/>\nfi;<br \/>\nl := w[lengths[floor t],lengths[ceiling t]];<br \/>\nelse:<br \/>\nif alw_perpendicular:<br \/>\na := 90;<br \/>\nelse:<br \/>\na:= dirs[t];<br \/>\nfi;<br \/>\nl:=lengths[t];<br \/>\nfi;<\/p>\n<p>a := a + angle(thdir(P,t));<\/p>\n<p>thdraw (point t of P) &#8212;<br \/>\n((point t of P) + if par: 0.333 * fi l * unitvector(dir(a)));<br \/>\ncas := cas + mojkrok;<br \/>\npar := not par;<br \/>\nexitif cas &gt; dlzka + .3u + (krok \/ 3); % for rounding errors<br \/>\nendfor;<br \/>\nif S = 1: pickup PenC; draw P fi;<br \/>\n%pickup pencircle scaled 3pt;<br \/>\n%for i=0 upto li: draw point i of P; endfor;<br \/>\nenddef;<\/p>\n<p>Tento p\u0159\u00edklad vypad\u00e1 na prvn\u00ed pohled v\u00edce slo\u017eit\u011b, ale je to pouze zd\u00e1n\u00ed op\u011bt jsme nalezli definici v zdrojov\u00e9m souboru THERION pod\u00a0therion mpost thLine.mp\u00a0z n\u00e1zvem def a_line_SKBB cel\u00fd tento zdroj jsme p\u0159ekop\u00edrovaly do thconfig a odstranily _SKBB. Zm\u011bnu provedeme pouze na jednom m\u00edst\u011b.<\/p>\n<p>mojkrok:=adjust_step(dlzka,1.4u) \/ 5;<\/p>\n<p>Pokud nyn\u00ed vygenerujeme mapu bude na prvn\u00ed pohled z\u0159ejm\u00e1 zm\u011bna hustoty t\u00e9to zna\u010dky.<\/p>\n<p><strong>Zm\u011bna zna\u010dky p\u0159evis (overhang)<\/strong><\/p>\n<p>Do sekce code metapost kterou jsme vytvo\u0159ily v p\u0159edchoz\u00edm kroku vlo\u017e\u00edme n\u00e1sleduj\u00edc\u00ed k\u00f3d.<\/p>\n<p>def l_overhang (expr P) =<br \/>\nT:=identity;<br \/>\ncas := 0;<br \/>\ndlzka := arclength P;<br \/>\nmojkrok:=adjust_step(dlzka, 0.3u);<br \/>\npickup PenC;<br \/>\nt1:=0;<br \/>\nforever:<br \/>\nt := arctime (cas + mojkrok\/2) of P;<br \/>\nt2 := arctime (cas + mojkrok) of P;<br \/>\nthfill (subpath (t1,t2) of P) &#8212;<br \/>\n((point t of P) + .3u * unitvector(thdir(P,t) rotated 90)) &#8212;<br \/>\ncycle;<br \/>\ncas := cas + mojkrok;<br \/>\nexitif cas &gt; dlzka &#8211; (2*mojkrok\/3); % for rounding errors<br \/>\nt1:=t2;<br \/>\nendfor;<br \/>\nthdraw P;<br \/>\nenddef;<\/p>\n<p>Zm\u011bnu provedeme v<\/p>\n<p>t := arctime (cas + mojkrok\/5) of P;<\/p>\n<p>Pokud nyn\u00ed vygenerujeme mapu bude na prvn\u00ed pohled z\u0159ejm\u00e1 zm\u011bna hustoty t\u00e9to zna\u010dky.<\/p>\n<p><strong>Na z\u00e1v\u011br<\/strong><\/p>\n<p>Jednoduchost zm\u011bn zna\u010dek n\u00e1m umo\u017e\u0148uje plnohodnotn\u00e9 vyu\u017eit\u00ed programu THERION p\u0159i mapov\u00e1n\u00ed mal\u00fdch jeskyn\u00ed.<\/p>\n<p>Zde popsan\u00e9 zm\u011bny jsou pouze vybran\u00e9 a ostatn\u00ed m\u016f\u017eete ud\u011blat sami dle posan\u00e9ho n\u00e1vodu. Ve\u0161ker\u00e9 podklady naleznete v adres\u00e1\u0159i\u00a0therion mpost \u00a0kde dle m\u00e9ho n\u00e1zoru jsou jasn\u011b a z\u0159eteln\u011b pojmenov\u00e1ny n\u00e1zvy souboru (thArea &#8211; pole, thLine &#8211; \u010d\u00e1ry, thPoint &#8211; body).<\/p>\n<p>D\u011bkuji mnohokr\u00e1t za rady kter\u00e9 m\u011b poskytl\u00a0<strong>Stacho Mudr\u00e1k<\/strong>\u00a0a\u00a0<strong>Martin Budaj<\/strong>.<\/p>\n<p>V sou\u010dasn\u00e9 dob\u011b umo\u017e\u0148uje therion pouze glob\u00e1ln\u00ed zm\u011bnu v\u0161ech zna\u010dek dle informac\u00ed kter\u00e9 m\u00e1m bude v brzk\u00e9 dob\u011b mo\u017eno definovat zna\u010dky dle pot\u0159eby pro jednotlivou &#8222;\u010d\u00e1st&#8220; mapy. A\u017e bude i toto mo\u017en\u00e9 budu V\u00e1s u\u017eivatele THERIONu informovat.<\/p>\n<p>&nbsp;<\/p>\n<p>Pro p\u0159\u00edpadn\u00e9 informace se obracejte do therion fora.<\/p>\n<p><strong>Odkazy<\/strong><\/p>\n<p><a href=\"http:\/\/therion.speleo.sk\/\">therion.speleo.sk<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Aktualni informace naleznete na: http:\/\/therion.speleo.sk\/wiki\/doku.php?id=czsk:mmj &nbsp; N\u011bco m\u00e1lo na \u00favod Po \u0161kolen\u00ed therion na Slovensku v N\u00edzk\u00fdch Tatr\u00e1ch na chat\u011b Kosod\u0159evina jsem se za\u010dal aktivn\u011b zaj\u00edmat o tvorbu mapov\u00e9 dokumentace v tomto programu. Program THERION byl vytvo\u0159en p\u016fvodn\u011b pro mapov\u00e1n\u00ed jeskyn\u011b Mrtv\u00fdch Netop\u00edr\u016f, tato jeskyn\u011b dosahuje celkov\u00e9 d\u00e9lky 25 Km, vzhledem k t\u011bmto &#8222;proporc\u00edm&#8220; je [&hellip;]<\/p>\n","protected":false},"author":3,"featured_media":0,"parent":796,"menu_order":0,"comment_status":"open","ping_status":"open","template":"","meta":{"footnotes":""},"class_list":["post-798","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/pages\/798","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/zlatykun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=798"}],"version-history":[{"count":4,"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/pages\/798\/revisions"}],"predecessor-version":[{"id":940,"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/pages\/798\/revisions\/940"}],"up":[{"embeddable":true,"href":"https:\/\/zlatykun.com\/index.php?rest_route=\/wp\/v2\/pages\/796"}],"wp:attachment":[{"href":"https:\/\/zlatykun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=798"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}