Therion wiki - fr:mmj
https://therion.speleo.sk/wiki/
2026-04-29T17:15:40+00:00Therion wiki
https://therion.speleo.sk/wiki/
https://therion.speleo.sk/wiki/_media/wiki:logo.pngtext/html2008-05-26T13:50:33+00:00Anonymous (anonymous@undisclosed.example.com)1
https://therion.speleo.sk/wiki/fr:mmj:1?rev=1211809833&do=diff
Introduction
Pour comprendre ce guide, vous devez connaître le fonctionnement de base de thérion.
Vous trouverez ces informations et documentations sur thérion dans la documentation du wiki.
La densité des symboles signifie la distance entres des lignes particulières, des points et des symboles. Si vous dessinez une salle detext/html2008-05-26T14:00:01+00:00Anonymous (anonymous@undisclosed.example.com)3
https://therion.speleo.sk/wiki/fr:mmj:3?rev=1211810401&do=diff
Préparation du thconfig
Le Fichier thconfig est le fichier des paramètres d’entrée pour le compilateur de Thérion. Grace a l’aide de Thérion sur ce fichier, nous pouvons définir plusieurs paramètres de sortie pour Thérion, dont la résolution des topos, ce qui doit être mis dans les légendes, la couleur de fond, et il est possible de définir la forme, couleur et tailles, etc. des symboles, des points et des lignes utilises pour générer les topos.text/html2008-05-26T14:34:42+00:00Anonymous (anonymous@undisclosed.example.com)4
https://therion.speleo.sk/wiki/fr:mmj:4?rev=1211812482&do=diff
Modification des symboles – comment faire
Où pouvons nous trouver la définition originale des symboles?
Sur la page web
therion.speleo.sk/download.php il est possible de télécharger le code source du programme Therion.
Apres le téléchargement et la décompression, recherchez le répertoiretext/html2008-05-26T13:30:55+00:00Anonymous (anonymous@undisclosed.example.com)100
https://therion.speleo.sk/wiki/fr:mmj:100?rev=1211808655&do=diff
Modification du symbole vecteur - débris
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/html2008-05-26T13:35:56+00:00Anonymous (anonymous@undisclosed.example.com)101
https://therion.speleo.sk/wiki/fr:mmj:101?rev=1211808956&do=diff
Modification du symbole vecteur - sables
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/html2008-05-26T13:37:18+00:00Anonymous (anonymous@undisclosed.example.com)102
https://therion.speleo.sk/wiki/fr:mmj:102?rev=1211809038&do=diff
Modification du symbol blocs
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:36:48+00:00Anonymous (anonymous@undisclosed.example.com)103
https://therion.speleo.sk/wiki/fr:mmj:103?rev=1238150208&do=diff
Modification des symboles surface - galets
Ce code est différent du programme par défaut dans Thérion (plus de galets sur la topo).
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))
% ra…text/html2009-03-27T10:38:24+00:00Anonymous (anonymous@undisclosed.example.com)104
https://therion.speleo.sk/wiki/fr:mmj:104?rev=1238150304&do=diff
Modification du symbole surface - argile
Ce code est différent du programme par défaut de Thérion (plus de symboles argile dans la topo, et des symboles plus petits).
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)) rand…text/html2008-05-26T13:39:25+00:00Anonymous (anonymous@undisclosed.example.com)200
https://therion.speleo.sk/wiki/fr:mmj:200?rev=1211809165&do=diff
Modification du symbol "ligne de pente"
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;
e…text/html2008-05-26T13:40:32+00:00Anonymous (anonymous@undisclosed.example.com)201
https://therion.speleo.sk/wiki/fr:mmj:201?rev=1211809232&do=diff
Modification du symbol ligne de surplomb
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 roundin…