Therion wiki - mmj
https://therion.speleo.sk/wiki/
2026-04-21T13:12:47+00:00Therion wiki
https://therion.speleo.sk/wiki/
https://therion.speleo.sk/wiki/_media/wiki:logo.pngtext/html2006-10-29T09:13:08+00:00Anonymous (anonymous@undisclosed.example.com)1
https://therion.speleo.sk/wiki/mmj:1?rev=1162113188&do=diff
Introduction
For understanding of this guide you need basic knowledge of therion functionality.
The basic informations and guides to therion you may find on this wiki.
The density of symbols means distance of particular lines, points and point symbols. If you draw a roomtext/html2008-05-26T14:00:50+00:00Anonymous (anonymous@undisclosed.example.com)3
https://therion.speleo.sk/wiki/mmj:3?rev=1211810450&do=diff
Preparation of thconfig
File thconfig is inpout parametric file for compiler of therion. By the help of this file we may define many parameters of outputs from therion, including resolution of map, what will be in legend, color of background, and there is possible to define shape, color, size, etc. of used symbols, point or line symbols on generated map here.text/html2011-06-29T00:26:19+00:00Anonymous (anonymous@undisclosed.example.com)4
https://therion.speleo.sk/wiki/mmj:4?rev=1309307179&do=diff
Modification of symbols - how to
Where we may find the original definitions of symbols?
On web pages
therion.speleo.sk/download.php is possible to download the source code of program Therion
(the *.tar.gz file. Windows users might need to use something like 7-zip to extract these).text/html2010-05-28T19:45:19+00:00Anonymous (anonymous@undisclosed.example.com)100
https://therion.speleo.sk/wiki/mmj:100?rev=1275075919&do=diff
Modification of symbol array - debris
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/html2006-10-29T09:15:37+00:00Anonymous (anonymous@undisclosed.example.com)101
https://therion.speleo.sk/wiki/mmj:101?rev=1162113337&do=diff
Modification of symbol array - sands
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;
endcodetext/html2006-10-29T09:16:17+00:00Anonymous (anonymous@undisclosed.example.com)102
https://therion.speleo.sk/wiki/mmj:102?rev=1162113377&do=diff
Modification of symbol blocks
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)--(-.5uu,.5uu)--cycle)
…text/html2009-03-27T10:31:08+00:00Anonymous (anonymous@undisclosed.example.com)103
https://therion.speleo.sk/wiki/mmj:103?rev=1238149868&do=diff
Modification of symbol area pebbles
This source code is different form the default code in therion (more pebbles in the survey).
def a_pebbles (expr p) =
T:=identity;
pickup PenC;
path q, qq; q = bbox p;
picture tmp_pic;
tmp_pic := image(
for i = xpart llcorner q step 0.45u until xpart urcorner q:
for j = ypart llcorner q step 0.45u until ypart urcorner q:
qq := (superellipse((.2u,0),(0,.1u),(-.2u,0),(0,.-.1u),.75))
% rando…text/html2009-03-27T10:28:31+00:00Anonymous (anonymous@undisclosed.example.com)104
https://therion.speleo.sk/wiki/mmj:104?rev=1238149711&do=diff
Modification of symbol clay area
This source code is different form the default code in therion (more clay symbols in the survey, and smaller symbols).
def a_clay (expr p) =
T:=identity;
pickup PenC;
path q, qq; 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:
qq := ((-.20u,0){up}..origin{down}..{up}(0.20u,0)) randomized (u/15)
…text/html2009-03-27T13:55:35+00:00Anonymous (anonymous@undisclosed.example.com)105
https://therion.speleo.sk/wiki/mmj:105?rev=1238162135&do=diff
Modification of symbol area ice
The default code for symbol area ice is this one :
def a_ice (expr p) =
T:=identity;
pickup PenC;
path q; q = bbox p;
picture tmp_pic, tmp_ice;
pair z;
tmp_ice := image (
draw (-.2u,0)--(.2u,0);
draw (0,-.2u)--(0,.2u);
);
tmp_pic := image(
for i = xpart llcorner q step 1.5u until xpart urcorner q:
for j = ypart llcorner q step 1.5u until ypart urcorner q:
z := ((i,j) randomized 1.3u);
if x…text/html2009-03-27T13:56:18+00:00Anonymous (anonymous@undisclosed.example.com)106
https://therion.speleo.sk/wiki/mmj:106?rev=1238162178&do=diff
Modification of symbol area snow
The default code for symbol area snow is this one :
def a_snow (expr P) =
T:=identity;
pickup PenC;
path q; q = bbox P;
picture tmp_pic, tmp_sn;
pair z;
tmp_sn := image(
pickup PenC;
p := origin--(0,.2*u);
draw p; draw p rotated (60); draw p rotated (120);
draw p rotated (180); draw p rotated (240); draw p rotated (300);
p := ((0,.3u)--(0,0.2u)--(0.1u,0.2u)) rotatedaround ((0,0.2u),45);
draw p; dra…text/html2006-10-29T09:16:42+00:00Anonymous (anonymous@undisclosed.example.com)200
https://therion.speleo.sk/wiki/mmj:200?rev=1162113402&do=diff
Modification of symbol slope
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;
%f…text/html2006-10-29T09:17:13+00:00Anonymous (anonymous@undisclosed.example.com)201
https://therion.speleo.sk/wiki/mmj:201?rev=1162113433&do=diff
Modification of symbol overhang
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
…text/html2009-04-14T07:17:13+00:00Anonymous (anonymous@undisclosed.example.com)202
https://therion.speleo.sk/wiki/mmj:202?rev=1239693433&do=diff
Modification of symbol wall subtype blocks
Tip: The syntax for the symbol-assign with subtypes is using a colon:
symbol-assign line wall:blocks MY_SYMBOL
Exemple of code (for small cave) :
def l_wall_blocks_XXX (expr P) =
% pickup PenD;
% draw P withcolor red;
T:=identity;
cas := 0;
dlzka := arclength P;
if dlzka > 0:
mojkrok:=adjust_step(dlzka, 0.75u);
pickup PenA;
forever:
t1 := arctime (cas + mojkrok*1/10) of P;
…