https://therion.speleo.sk/wiki/ 2026-04-21T10:56:07+00:00 https://therion.speleo.sk/wiki/ https://therion.speleo.sk/wiki/_media/wiki:logo.png text/html 2006-10-18T13:35:12+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:1?rev=1161178512&do=diff Úvod Pro pochopení tohoto návodu musíte mít zvládnuté alespoň základní znalosti o funkcionalitě programu therion. Základní seznámení z Therionem je možno najít na stránkách wiki. Jemný úvod do Therionu (CZ, Ladislav Blažek) Program THERION byl vytvořen původně pro mapování jeskyně Mrtvých Netopýrů, tato jeskyně dosahuje celkové délky 25 Km, vzhledem k těmto text/html 2006-10-29T08:11:26+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:3?rev=1162109486&do=diff Příprava thconfig Soubor thconfig je vstupní soubor pro compiler map, pomocí tohoto souboru definujeme rozlišení mapy, legendu, barvu pozadí a je zde i možné nadefinovat tvar, barvu, velikost, atd. použíté značky, pole, čáry na generované mapě. text/html 2006-11-24T09:23:05+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:4?rev=1164360185&do=diff Změny značek - jak na to Příklad 1 - změna výplně (array) typu debris Do sekce code metapost kterou jsme vytvořily v předchozím kroku vložíme následující kód. def a_debris (expr p) = T:=identity; % thclean p; pickup PenC; path q; q = bbox p; picture tmp_pic; tmp_pic := image( for i = xpart llcorner q step 1u until xpart urcorner q: for j = ypart llcorner q step 1u until ypart urcorner q: draw ((-.2u,0)--(.2u,0)) rotated uniformdeviate(360) shifted… text/html 2006-10-18T10:46:43+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:100?rev=1161168403&do=diff Změna značky debris (štěrk) def a_debris (expr p) = T:=identity; % thclean p; pickup PenC; path q; q = bbox p; picture tmp_pic; tmp_pic := image( for i = xpart llcorner q step 0.7u until xpart urcorner q: for j = ypart llcorner q step 0.7u until ypart urcorner q: draw ((-.2u,0)--(.2u,0)) rotated uniformdeviate(360) shifted ((i,j) randomized 0.4u) withpen PenC; endfor; endfor; ); clip tmp_pic to p; draw tmp_pic; enddef; text/html 2006-10-29T08:55:50+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:101?rev=1162112150&do=diff Změna značky sands (písek) def a_sands (expr p) = T:=identity; pickup PenC; path q; q = bbox p; picture tmp_pic; tmp_pic := image( for i = xpart llcorner q step 0.4u until xpart urcorner q: for j = ypart llcorner q step 0.4u until ypart urcorner q: draw origin shifted ((i,j) randomized 0.3u) withpen PenC; endfor; endfor; ); #clip tmp_pic to p; draw tmp_pic; enddef; endcode text/html 2006-11-26T13:28:58+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:102?rev=1164547738&do=diff * Unordered List Item Změna značky blocks (kamené bloky) def a_blocks (expr p) = T:=identity; pickup PenC; path q, qq; q = bbox p; picture tmp_pic; uu := max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q - ypart llcorner q)/100); tmp_pic := image( for i = xpart llcorner q step 1.0uu until xpart urcorner q: for j = ypart llcorner q step 1.0uu until ypart urcorner q: qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-… text/html 2006-10-18T10:44:25+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:200?rev=1161168265&do=diff Změna značky slope (svah) def l_slope (expr P,S)(text Q) = %show Q; T:=identity; numeric dirs[]; numeric lengths[]; for i=Q: dirs[redpart i]:=greenpart i; lengths[redpart i]:=bluepart i; endfor; li:=length(P); % last alw_perpendicular:=true; for i=0 upto li: if unknown dirs[i]: dirs[i]:=-1; else: if dirs[i]>-1: dirs[i]:=((90-dirs[i]) - angle(thdir(P,i))) mod 360; alw_perpendicular:=false; fi; fi; if unknown lengths[i]: lengths[i]:=-1; fi; endfor; %for … text/html 2006-10-18T13:43:44+00:00 Anonymous (anonymous@undisclosed.example.com) https://therion.speleo.sk/wiki/czsk:mmj:201?rev=1161179024&do=diff Změna značky overhang (převis) def l_overhang (expr P) = T:=identity; cas := 0; dlzka := arclength P; mojkrok:=adjust_step(dlzka, 0.3u); pickup PenC; t1:=0; forever: t := arctime (cas + mojkrok/5) of P; t2 := arctime (cas + mojkrok) of P; thfill (subpath (t1,t2) of P) -- ((point t of P) + .3u * unitvector(thdir(P,t) rotated 90)) -- cycle; cas := cas + mojkrok; exitif cas > dlzka - (2*mojkrok/3); % for rounding errors …