diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues-tot.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues-tot.th
index 0618e8f..16fa214 100644
--- a/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues-tot.th
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues-tot.th
@@ -9,7 +9,11 @@ encoding utf-8
survey Complexe_Lonne_Peyret-Bourrugues -title "Complexe Lonné Peyret-Bourrugues"
input Data/B3_Bourrugues/B3_Bourrugues-tot.th
input Data/GL102_Lonne_Peyret/GL102_Lonne_Peyret-tot.th
- input Data/AP7_Arres_Planeres/AP7_Arres_Planeres-tot.th
+ input Data/AP260/AP260-tot.th
+ input Data/GL04_Cam_Claque/GL04_Cam_Claque-tot.th
+ input Data/NL31_Squelettes/NL31_Squelettes-tot.th
+ input Data/GL80/GL80-tot.th
+
## Pour le plan
# input Data/Complexe_Lonne_Peyret-Bourrugues-plan.th2
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues.thconfig b/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues.thconfig
index d627f26..8850951 100644
--- a/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues.thconfig
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Complexe_Lonne_Peyret-Bourrugues.thconfig
@@ -59,6 +59,7 @@ layout my_layout
# Rajout des coordonnées de l'entrée
#copy Coords_Header_CDa
# Call the config settings (Layout config inside the config.thc file)
+ copy fonts_1000
copy drawingconfig
copy headerl
copy langue-fr
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-maps.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-maps.th
new file mode 100644
index 0000000..0983efa
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-maps.th
@@ -0,0 +1,21 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-20:53:23
+
+map MP-AP260-Plan-tot -title "AP260"
+ SP-AP260_Entree_01
+ break
+endmap
+
+map MC-AP260-Extended-tot -title "AP260"
+ SC-AP260_Entree_01
+ break
+endmap
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-tot.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-tot.th
new file mode 100644
index 0000000..fe70e60
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260-tot.th
@@ -0,0 +1,23 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+
+# File generated by pyCreate_th2.py (version 2024.12.30) date: 2024.12.30 20:53:23
+
+survey AP260 -title "AP260"
+ input Data/AP260.th
+
+ ## Pour le plan
+ input Data/AP260-Plan.th2
+
+ ## Pour la coupe développée
+ input Data/AP260-Extended.th2
+
+ ## Appel des maps
+ input AP260-maps.th
+
+endsurvey
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260.thconfig b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260.thconfig
new file mode 100644
index 0000000..60fc457
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/AP260.thconfig
@@ -0,0 +1,386 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+###############################################################################################
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py (version 2024.12.30) date: 2024.12.30 20:53:23
+###############################################################################################
+
+## INTRO
+
+## Le signe "#" en début de ligne signifie que la ligne est commentée. Elle ne
+## sera donc pas lue lors de la compilation.
+
+## Dans ce fichier on met les specifications generales, à savoir
+## dans quel fichier sont les donnees topo, l'aspect que l'on veut
+## donner aux topos imprimées (layout) et ce que l'on
+## veut comme résultat : map, ou atlas ou 3D ou donnees en format SQL
+
+## Alors, on peut fractionner ce fichier en trois parts:
+## - source, pour specifier les fichiers ou sont les données topo/dessin
+## - layout, pour specifier la composition du document à imprimer
+## - export: map, atlas, etc
+
+###############################################################################################
+## 1-SOURCES
+###############################################################################################
+## La ligne source spécifie le fichier ou sont les donnees topo
+## jb.th". (Au fichier "jb.th" il faudra avoir une ligne
+## "input "nomducavite.th2" pour specifier le fichier ou se trouvent
+## les donnees du dessin, comme ça, ce fichier thconfig appellera
+## "jb.th" et a leur tour, "jb.th" appellera
+## "jb-dessin.th2")
+
+source AP260-tot.th
+
+## Add config file
+input config.thc
+
+###############################################################################################
+## 2-LAYOUT
+###############################################################################################
+## Ici, on peut specifier des choses comme les symboles à utiliser (UIS, etc)
+## ou imprimer des explications des symboles
+
+## Début de la définition du Layout "xviexport"
+layout xviexport
+ #cs UTM32
+ ## echelle à laquelle on veut dessiner la topo
+ scale 1 500
+ #scale 1 1000
+ ## taille de la grille
+ grid-size 2 2 2 m
+ ## mettre la grille en arrière plan
+ grid bottom
+endlayout
+## fin de la définition du layout "xviexport"
+
+## Début de la définition du layout "Layout-Plan"
+layout layout-Plan
+ ## Call the config settings (Layout config inside the config.thc file)
+ copy drawingconfig
+ #copy layoutcontinuation # Pour afficher le label des continuations
+ copy headerl
+ copy langue-fr
+
+ ## Définition du système de projection du plan
+ cs UTM30
+
+ ## La ligne base-scale spécifie l'échelle auquel nous avons dessiné nos croquis.
+ ## Par défaut, Therion pense que c'est une échelle 1:200. Si on a utilisé une autre échelle,
+ ## il faut enlever le "#" et spécifier l'échelle vraiment employée, comme c'est le cas
+ ## après avoir dessiné la topo sur un cheminement exporté avec le layout "xviexport".
+ ## Jouer avec le ration base-scale/scale permet de jouer globalement sur les tailles
+ ## des caractères et des traits.
+ base-scale 1 500
+
+ ## Maintenant on va mettre une ligne "scale" pour specifier l'échelle pour imprimer la topo.
+ ## La combination entre scale et base-scale contrôle l'épaisseur des lignes, rotation, etc, convenable
+ ## pour faire l'ampliation-réduction entre dessin et le résultat de l'imprimante
+ ## C'est tres important s'assurer que la configuration de l'imprimante ne spécifie pas l'option "Fit in page"
+ ## ou similaire, sinon, l'échelle sera changée pendant l'impression!
+ scale 1 500
+
+ ## Echelle graphique 100 m ampleur (Généralement, le choix scale/10 est plutôt pas mal)
+ scale-bar 100 m
+
+ ## Voici une ligne pour specifier qu'il faut imprimer une grille au dessous de la topo
+ grid bottom
+
+ ## Défini la rotation de la topographie
+ #rotate -65
+
+ ## Une ligne pour specifier que la grille est 1000x1000x1000 m
+ ## (Trois dimensions, oui, ça sert pour la coupe aussi)
+ grid-size 50 50 50 m
+
+ ## la topo est transparente (on peut voir les galeries en dessous)
+ ## C'est on par défaut, donc, pas vraiment besoin de specifier
+ transparency on
+
+ ## Couleurs de la topographie
+ #colour map-bg [70 90 70]
+ #colour map-fg [100 100 80]
+ #colour map-fg altitude
+ #colour map-fg explo-date
+ #colour map-fg topo-date
+ #colour map-fg map
+ #colour map-fg scrap
+ #colour-legend off
+ colour map-fg 90
+
+ ## ça marche seulement si transparency est "on" 90% blanc= 10% noir
+ opacity 75
+ #surface bottom
+ #surface-opacity 100
+
+ ## Auteur
+ doc-author "Alexandre Pont"
+ ## Titre
+ doc-title "AP260 Plan - 1:500"
+
+ ## Maintenant on spécifie la position de la manchette, dont l'intérieur est occupé par le titre, auteurs, etc.
+ ## Nous pouvons indiquer les cordonnées du point de la topo ou l'on veut la manchette :
+ ## 0 0, c'est en bas, à gauche, 100 100, c'est en haut, à droite
+ ## La manchette a des "points cardinaux" autour : n, s, ne, sw, etc.
+ ## Il faut specifier un de ces points comme ce que sera placé sur les cordonnées.
+ ## Alors nous pouvons specifier que le sud-ouest de la manchette soit placé en bas, a gauche,
+ ## ou une autre combination...
+ map-header 2 98 nw
+
+ ## arrière plan de la manchette
+ map-header-bg on
+ ## Légende pour expliciter les symboles. "on" imprimera seulement la légende des symboles dessinés
+ ## sur la topo. Si l'on veut pour tous les symboles, utilisés ou pas, il faut indiquer "all".
+ ## "legend off" = pas de légende
+ legend on
+ ## Par défaut, la légende est de 14 cm de largeur
+ legend-width 15 cm
+ legend-columns 2
+ ## Un commentaire à ajouter au titre, on pourrait indiquer ici la mairie où est placée la cavité
+ ## dont le nom est probablement le titre de la topo.
+ map-comment "Massif de la Pierre Saint Martin - Larra"
+ #map-comment "Massif de la Pierre Saint Martin - Larra
Coordonnées : (UTM30/WGS84) xxx.xxx xxxx.xxx, Alt.: xxxx m"
+
+ ## Afficher les statistiques d'explo/topo par équipe/nom. C'est lourd
+ ## si la cavité est importante et qu'il y a beaucoup d'explorateurs/topographes.
+ statistics explo-length off
+ statistics topo-length off
+
+ ## Afficher un copyright
+ statistics copyright 2
+
+ ## Dessin ou pas du cheminement topo
+ #symbol-hide point station
+ #symbol-hide line survey
+ #symbol-hide group
+ #symbol-show line wall
+ #symbol-hide point station-name
+ #symbol-hide point u:symbol_plan
+ #symbol-hide point u:symbol_extend
+ #debug scrap-names
+ #debug station-names
+
+ layers on
+
+ overlap 2 cm
+
+ code tex-map
+ \legendwidth=15cm
+ \legendtextsize={\size[12]}
+ \legendtextheadersize={\size[28]} %%% Taille du titre
+ \legendtextsectionsize={\size[14]} %%% Taille du titre
+ %\legendtextcolor={\color[0 0 110]} %# RGB values 0--100
+ % Output map title as determined by Therion is stored in cavename, défini par la une Map.
+ % It will be empty if there are multiple maps selected for any one projection
+ % AND there are multiple source surveys identified in the thconfig file
+ % ie Therion can not infer a unique title from the input data given.
+ % This code allows you to define an output map title AP260 if it happens to be empty
+ \edef\temp{\the\cavename} % cavename from Therion
+ \edef\nostring{} % empty string
+ \ifx\temp\nostring % test if cavename is empty
+ % if empty
+ reassign cavename to describe selected maps as a group
+ \else % if not empty keep the value set by therion, or assign an override cavename here
+ \fi
+ \cavename={AP260, Plan 1:500} % Note Alex : Bug avec certains fichiers ?
+ \newtoks\club \club={ARSIP}
+ %\newtoks\thanksto \thanksto={Merçi à tout le monde}
+ \newtoks\wpage \wpage={https://www.arsip.fr/}
+ \newtoks\datat \datat={https://github.com/Alex38Lyon/Synthese-PSM\_LARRA}
+ \newtoks\synth \synth={Alexandre Pont}
+ \framethickness=0.5mm
+ endcode
+
+endlayout
+
+##debut de la definition du layout "layout-Extended"
+layout layout-Extended
+ ## Call the config settings (Layout config inside the config.thc file)
+ copy drawingconfig
+ #copy layoutcontinuation # Pour afficher le label des continuations
+ copy header_coupe
+ #copy headerl
+ #copy header_coupe_vert-auto
+ #copy header_coupe_vert-to-place
+ copy langue-fr
+
+ ## Définition du système de projection du plan
+ cs UTM30
+
+ ## La ligne base-scale spécifie l'échelle auquel nous avons dessiné nos croquis.
+ ## Par défaut, Therion pense que c'est une échelle 1:200. Si on a utilisé une autre échelle,
+ ## il faut enlever le "#" et spécifier l'échelle vraiment employée, comme c'est le cas
+ ## après avoir dessiné la topo sur un cheminement exporté avec le layout "xviexport".
+ ## Jouer avec le ration base-scale/scale permet de jouer globalement sur les tailles
+ ## des caractères et des traits.
+ base-scale 1 500
+
+ ## Maintenant on va mettre une ligne "scale" pour specifier l'échelle pour imprimer la topo.
+ ## La combination entre scale et base-scale contrôle l'épaisseur des lignes, rotation, etc, convenable
+ ## pour faire l'ampliation-réduction entre dessin et le résultat de l'imprimante
+ ## C'est tres important s'assurer que la configuration de l'imprimante ne spécifie pas l'option "Fit in page"
+ ## ou similaire, sinon, l'échelle sera changée pendant l'impression!
+ scale 1 500
+
+ ## Echelle graphique 100 m ampleur (Généralement, le choix scale/10 est plutôt pas mal)
+ scale-bar 40 m
+
+ ## Voici une ligne pour specifier qu'il faut imprimer une grille au dessous de la topo
+ #grid bottom
+ grid off
+ ## Une ligne pour specifier que la grille est 1000x1000x1000 m
+ ## (Trois dimensions, oui, ça sert pour la coupe aussi)
+ #grid-size 250 250 250 m
+
+ ## la topo est transparente (on peut voir les galeries inférieurs)
+ ## C'est on par défaut, donc, pas vraiment besoin de specifier
+ transparency on
+
+ ## Couleurs de la topographie
+ #colour map-bg [70 90 70]
+ #colour map-fg [100 100 80]
+ #colour map-fg altitude
+ #colour map-fg explo-date
+ #colour map-fg topo-date
+ #colour map-fg map
+ #colour map-fg scrap
+ #colour-legend off
+ colour map-fg 90
+
+ ## ça marche seulement si transparency est "on" 90% blanc= 10% noir
+ opacity 75
+ #surface bottom
+ #surface-opacity 100
+
+ ## Auteur
+ doc-author "Alexandre Pont"
+ ## Titre
+ doc-title "AP260 Coupe développée - 1:500"
+
+ ## Maintenant on spécifie la position de la manchette, dont l'intérieur est occupé par le titre, auteurs, etc.
+ ## Nous pouvons indiquer les cordonnées du point de la topo ou l'on veut la manchette :
+ ## 0 0, c'est en bas, à gauche, 100 100, c'est en haut, à droite
+ ## La manchette a des "points cardinaux" autour : n, s, ne, sw, etc.
+ ## Il faut specifier un de ces points comme ce que sera placé sur les cordonnées.
+ ## Alors nous pouvons specifier que le sud-ouest de la manchette soit placé en bas, a gauche,
+ ## ou une autre combination...
+ map-header 98 98 ne
+ ## arrière plan de la manchette
+ map-header-bg on
+ ## Légende pour expliciter les symboles. "on" imprimera seulement la légende des symboles dessinés
+ ## sur la topo. Si l'on veut pour tous les symboles, utilisés ou pas, il faut indiquer "all".
+ ## "legend off" = pas de légende
+ legend on
+ ## Par défaut, la légende est de 14 cm de largeur
+ legend-width 15 cm
+ legend-columns 2
+ ## Un commentaire à ajouter au titre, on pourrait indiquer ici la mairie où est placée la cavité
+ ## dont le nom est probablement le titre de la topo.
+ map-comment "Massif de la Pierre Saint Martin - Larra"
+ #map-comment "Massif de la Pierre Saint Martin - Larra
Coordonnées : (UTM30/WGS84) xxx.xxx xxxx.xxx, Alt.: xxxx m"
+
+ ## Afficher les statistiques d'explo/topo par équipe/nom. C'est lourd
+ ## si la cavité est importante et qu'il y a beaucoup d'explorateurs/topographes.
+ statistics explo-length off
+ statistics topo-length off
+
+ ## Afficher un copyright
+ statistics copyright 2
+
+ ## Dessin ou pas du cheminement topo
+ #symbol-hide point station
+ #symbol-hide line survey
+ #symbol-hide group
+ #symbol-show line wall
+ #symbol-hide point u:symbol_plan
+ #symbol-hide point u:symbol_extend
+ #debug scrap-names
+ #debug station-names
+
+ layers on
+
+ overlap 2 cm
+
+ ## Modification du Titre de la topo
+ code tex-map
+ \legendwidth=15cm
+ \legendtextsize={\size[12]}
+ \legendtextheadersize={\size[28]} %%% Taille du titre
+ \legendtextsectionsize={\size[14]} %%% Taille du titre
+ %\legendtextcolor={\color[0 0 110]} %# RGB values 0--100
+ % Output map title as determined by Therion is stored in cavename, défini par la une Map.
+ % It will be empty if there are multiple maps selected for any one projection
+ % AND there are multiple source surveys identified in the thconfig file
+ % ie Therion can not infer a unique title from the input data given.
+ % This code allows you to define an output map title AP260 if it happens to be empty
+ \edef\temp{\the\cavename} % cavename from Therion
+ \edef\nostring{} % empty string
+ \ifx\temp\nostring % test if cavename is empty
+ % if empty
+ reassign cavename to describe selected maps as a group
+ \else % if not empty keep the value set by therion, or assign an override cavename here
+ \fi
+ \cavename={AP260, Coupe développée 1:500} % Note Alex : Bug avec certains fichiers ?
+ \newtoks\club \club={ARSIP}
+ %\newtoks\thanksto \thanksto={Merçi à tout le monde}
+ \newtoks\wpage \wpage={https://www.arsip.fr/}
+ \newtoks\datat \datat={https://github.com/Alex38Lyon/Synthese-PSM\_LARRA}
+ \newtoks\synth \synth={Alexandre Pont}
+ \framethickness=0.5mm
+ endcode
+
+endlayout
+## Fin de la definition du Layout "normal"
+
+layout layout-kml
+ ## Définition du système de projection du plan
+ cs EPSG:2154
+ ## Couleur de la topographie
+ ## Rouge-Orange = 255,69,0 -->
+ ## Orange = 255,165,0 -->
+ ## Orange Sombre = 255,140,0 -->
+ ## Bleu --> 0, 0 255
+ color map-fg [0 0 100]
+endlayout
+
+###############################################################################################
+# 3-EXPORT
+###############################################################################################
+
+## Export des xvi pour le dessin si besoin
+export map -proj plan -layout xviexport -fmt xvi -o Data/AP260-Plan.xvi
+export map -proj extended -layout xviexport -fmt xvi -o Data/AP260-Extended.xvi
+
+## Selection des Maps à exporter
+select MP-AP260-Plan-tot@AP260
+select MC-AP260-Extended-tot@AP260
+
+## Export des fichiers pdf, plan et coupe.
+## ATTENTION, la topo étant énorme, il faut mettre l'option ne traçant pas la centerline !
+
+export map -projection plan -fmt pdf -layout layout-Plan -o Outputs/AP260-Plan.pdf
+export map -projection extended -fmt pdf -layout layout-Extended -o Outputs/AP260-Extended.pdf
+
+## Export du fichier 3d pour Loch
+export model -enable all -o Outputs/AP260.lox
+export model -enable all -o Outputs/AP260.kml
+
+## Export des fichiers ESRI
+#export map -proj plan -fmt esri -o Outputs/AP260
+
+## Export des fichiers kml
+#export map -proj plan -fmt kml -o Outputs/AP260.kml -layout layout-kml
+#export model -fmt kml -o Outputs/AP260-model.kml -enable all
+#export model -enable all -o Outputs/AP260-3D.kml
+export cave-list -location on -o Outputs/AP260-Cave-list.html
+export survey-list -location on -o Outputs/AP260-Surveys.html
+
+
+###############################################################################################
+## END
+###############################################################################################
\ No newline at end of file
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.th2 b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.th2
new file mode 100644
index 0000000..594c032
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.th2
@@ -0,0 +1,23 @@
+encoding utf-8
+##XTHERION## xth_me_area_adjust 0.0 0.0 0.0 0.0
+##XTHERION## xth_me_area_zoom_to 100
+##XTHERION## xth_me_image_insert {0.001 1.0} {0.00 AP_260} AP260-Extended.xvi 0 {}
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-20:53:23
+
+# x_min: 0.0, x_max: 0.0 ecart : 0.0
+# y_min: 0.0, y_max: 0.0 ecart : 0.0
+
+scrap SC-AP260_Entree_01 -station-names "" "@AP260_Entree" -projection extended -author 2024 "Alexandre Pont" -copyright 2024 "Licence CC by-nc-nd : http://creativecommons.org/licenses/by-nc-nd/4.0/"
+
+ point 0.00 0.00 station -name AP_260
+
+
+
+
+
+endscrap
\ No newline at end of file
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.xvi b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.xvi
new file mode 100644
index 0000000..48e5f18
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Extended.xvi
@@ -0,0 +1,8 @@
+set XVIgrids {2.0 m}
+set XVIstations {
+ { 0.00 0.00 AP_260}
+}
+set XVIshots {
+ { 0.00 0.00 0.00 0.00}
+}
+set XVIgrid {0 0 15.748 0.0 0.0 15.748 1 1}
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.th2 b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.th2
new file mode 100644
index 0000000..fe67829
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.th2
@@ -0,0 +1,28 @@
+encoding utf-8
+##XTHERION## xth_me_area_adjust -135.87302 -135.87402 153.5 383.0
+##XTHERION## xth_me_area_zoom_to 200
+##XTHERION## xth_me_image_insert {0.001000000000000334 1.0 1.0} {0.0 AP_260} AP260-Plan.xvi 0 {}
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-20:53:23
+
+# x_min: 0.0, x_max: 0.0 ecart : 0.0
+# y_min: 0.0, y_max: 0.0 ecart : 0.0
+
+
+
+
+scrap SP-AP260_Entree_01 -projection plan -station-names "" "@AP260_Entree" -author 2024 "Alexandre Pont" -copyright 2024 "Licence CC by-nc-nd : http://creativecommons.org/licenses/by-nc-nd/4.0/" -scale [0.0 0.0 256.0 0.0 0.0 0.0 6.5024 0.0 m]
+
+point 10.25 362.25 label -text AP260 -scale xl
+
+point 23.0 20.75 entrance -orientation 233.8
+
+point 0.00 0.00 station -name AP_260
+
+endscrap
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.xvi b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.xvi
new file mode 100644
index 0000000..c9da21b
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260-Plan.xvi
@@ -0,0 +1,8 @@
+set XVIgrids {2.0 m}
+set XVIstations {
+ { 0.00 0.00 AP_260}
+}
+set XVIshots {
+ { 0.00 0.00 0.00 0.00}
+}
+set XVIgrid {-7.87402 -7.87402 15.748 0.0 0.0 15.748 1 1}
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.lox b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.lox
new file mode 100644
index 0000000..755a8b2
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.lox differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.th
new file mode 100644
index 0000000..dfcce59
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Data/AP260.th
@@ -0,0 +1,34 @@
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+encoding utf-8
+
+survey AP260_Entree -title "Gouffre AP260" -entrance "AP_260"
+
+ centerline
+ date 2024.06.30
+
+ team "Michel Douat"
+
+ #explo-date YYYY.MM.DD
+ explo-team "ARSIP"
+
+ cs UTM30
+ fix AP_260 685335 4760539 1720 # Coordonnées MD 30 06 2024 Karsteau
+ station AP_260 "AP260 Gouffre" entrance
+
+
+ units length meters
+ units compass degrees
+ units clino degrees
+
+ data topofil from to length compass clino left right up down
+
+ AP_260 - 0.00 0.00 0.00 0 0 0 0 #
+
+ endcenterline
+
+endsurvey
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Cave-list.html b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Cave-list.html
new file mode 100644
index 0000000..093c5b6
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Cave-list.html
@@ -0,0 +1,43 @@
+
+
+AP260-Cave-list.html
+
+
+
+
+
+
+| Title | Length | Depth | Explored | X | Y | Altitude |
+| AP260 | 0 | | | | | |
+| Gouffre AP260 | 0 | | | 685335.000 | 4760539.000 | 1720.000 |
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Extended.pdf b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Extended.pdf
new file mode 100644
index 0000000..3b0cd68
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Extended.pdf differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Plan.pdf b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Plan.pdf
new file mode 100644
index 0000000..3286b4c
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Plan.pdf differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Surveys.html b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Surveys.html
new file mode 100644
index 0000000..a8b9f32
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260-Surveys.html
@@ -0,0 +1,43 @@
+
+
+AP260-Surveys.html
+
+
+
+
+
+
+| Title | Length | Depth | Explored | Approx. | Duplicate | Surface | Shots | Stations |
+| AP260 | 0 | 0.0 | 0 | 0 | 0 | 0 | 1 | 2 |
+| Gouffre AP260 | 0 | 0.0 | 0 | 0 | 0 | 0 | 1 | 2 |
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.kml b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.kml
new file mode 100644
index 0000000..f156c94
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.kml
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+ https://therion.speleo.sk/downloads/KmlIconModel.png
+
+Depth 0 m]]>
+
+#ThEntranceIcon
+ -0.72715034186979,42.97494479896826,1720.00000000000000
+
+
+
+
+AP_260
+#ThSurveyLine
+
+
+ -0.72715034186979,42.97494479896826,1720.00000000000000 -0.72715034186979,42.97494479896826,1720.00000000000000
+
+
+
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.lox b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.lox
new file mode 100644
index 0000000..bb94678
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/AP260.lox differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/outputs.txt b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/outputs.txt
new file mode 100644
index 0000000..4a3b6e4
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/Outputs/outputs.txt
@@ -0,0 +1,2 @@
+Folder where Therion outputs are exported
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/config.thc b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/config.thc
new file mode 100644
index 0000000..c7a80cb
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/config.thc
@@ -0,0 +1,3112 @@
+encoding utf-8
+######################################################################################################################################
+# Version template pyCreate_th2.py By Alex 2024 12 30
+######################################################################################################################################
+
+
+
+######################################################################################################################################
+# Licence
+######################################################################################################################################
+#
+# Released under a Creative Commons Attribution-ShareAlike-NonCommercial License:
+# Publié sous la licence Creative Commons Attribution-ShareAlike-NonCommercial:
+#
+#
+# Written by: / Écrit par : Xavier Robert
+#
+
+# File to set up specific settings for Therion drawing outputs
+# In your *.thconfig file, you need to call this file with:
+# Fichier pour définir une configuration pour les dessins de issus de Therion
+# Dans votre fichier *.thconfig, vous devez appeler ce fichier avec la ligne :
+# input config.thc
+# and then, in each layout, you need to call the corresponding layout:
+# et ensuite, dans chaque layout de votre thconfig, vous devez appeler les layouts qui vous intéressent comme par exemple :
+# copy drawingconfig
+#
+# Lots of definition comes from (or are deeply inspired by) the excellent Therion Wiki
+# Beaucoup de définitions proviennent (ou sont fortement inspirées) de l'excellent Wiki Therion
+# https://therion.speleo.sk/wiki/doku.php
+# https://therion.speleo.sk/wiki/tbe:wiki6
+# https://therion.speleo.sk/wiki/metapost
+# https://thomas-holder.de/projects/therion/
+
+
+# Existing user points / nouvelles définitions de points :
+# - nid/nest (u:nest)
+# - gradient --> geologic dip
+# - danger (u:danger)
+# - chauves-souris/bats (u:bats)
+# - stalactite boss (u:boss)
+# - Shell/coquille fossile (u:shell)
+# - Masonry/maçonnerie (u:masonry)
+# - Ex voto/Signature (u:ex_voto)
+# - Human bones/Ossements humains (u:human_bones)
+# - Walking Caver/Spéléo qui marche (u:man_w)
+# - Climbing caver/Spéléo qui grimpe (u:man_c)
+# - Plan view symbol/symbole de vue en plan (u:symbol_plan)
+# - extended view symbol/symbole de vue en coupe développée (u:symbol_extend)
+# - entrance
+# - block point
+# - block user (u:block)
+
+# Existing user lines:
+# - strate/strata (u:strata; option -clip off)
+# - coupole (u:coupole; option -clip off)
+# - faille/fault (u:fault; option -clip off)
+# - doline (u:doline; option -clip off)
+# - chauves-souris/bats (u:bats)
+# - rail (u:rail)
+# - plan walk/ (u:planwalk)
+# - handrail/rambarde (u:handrail)
+# - Surface (u:surf)
+# - Dive line/fil d'Ariane (u:ariane)
+# - Deviation (u:deviation)
+# - rock border
+
+# Existing user areas:
+# - boue/mud (u:boue)
+# - guano (u:guano)
+# - chauves-souris/bats (u:bats)
+# - tronc/tree-trunk (u:tronc)
+# - feuilles/tree-leaves (u:feuilles)
+# - Tunnel initiation/Départ de galerie (u:galerie)
+
+# layout definition:
+# - layout langue-fr
+# - layout langue-es
+# - layout langue-en
+# - layout drawingconfig
+# - layout scalebar_horiz
+# - layout scalebar_vert-Halama
+# - layout scalebar_vert
+# - layout headerl
+# - layout header_coupe_vert-to-place
+# - layout header_coupe_vert-auto
+# - layout header_coupe
+# - layout header-plan-schema
+# - layout header_coupe-schema
+# - layout headeratlas
+# - layout layoutmapborder
+# - layout LayoutAtlasNorthArrow2
+# - layout LayoutAtlasNorthArrow
+# - layout AtlasSetUp
+# - layout layoutcontinuation
+# - layout northarrowMG
+# - layout test
+# - layout depth
+
+######################################################################################################################################
+# change the names for the legend
+# change les descriptions des symboles pour la légende
+######################################################################################################################################
+text en "line u:rope" "rope"
+text fr "line u:rope" "corde"
+text es "line u:rope" "cuerda"
+
+text en "line u:fault" "fault"
+text fr "line u:fault" "faille"
+text es "line u:fault" "falla"
+
+text en "line u:strata" "strata"
+text fr "line u:strata" "strate"
+text es "line u:strata" "strata"
+
+text en "line u:doline" "doline"
+text fr "line u:doline" "doline"
+text es "line u:doline" "dolina"
+
+text en "point u:bats" "bat(s)"
+text fr "point u:bats" "chauve-souris"
+text es "point u:bats" "murciélago(s)"
+
+text en "line u:bats" "bat path"
+text fr "line u:bats" "passage de chauve-souris"
+text es "line u:bats" "ruta de murciélagos"
+
+text en "area u:bats" "lot of bats"
+text fr "area u:bats" "beaucoup de chauve-souris"
+text es "area u:bats" "muchos murciélagos"
+
+text fr "area u:galerie" "départ de galerie"
+text en "area u:galerie" "tunnel departure"
+text es "area u:galerie" "salida de galeria"
+
+text en "point u:guacharos" "guacharos"
+text fr "point u:guacharos" "guacharos"
+text es "point u:guacharos" "guacharos"
+
+text fr "point danger" "danger !"
+text en "point danger" "danger !"
+text es "point danger" "danger !"
+
+text en "point masonry" "masonry"
+text fr "point masonry" "maçonnerie/murs"
+text es "point masonry" "albañilería/muros"
+
+text en "point ex-voto" "ex voto"
+text fr "point ex-voto" "ex voto/signature"
+text es "point ex-voto" "ex voto/firma"
+
+text en "point human-bones" "human bones"
+text fr "point human-bones" "ossements humains"
+text es "point human-bones" "huesos humanos"
+
+text en "point u:boss" "stalagmite boss"
+text fr "point u:boss" "stalagmite boss"
+text es "point u:boss" "stalagmite boss"
+
+text fr "area u:guano" "guano"
+text en "area u:guano" "guano"
+text es "area u:guano" "guano"
+
+text fr "area u:boue" "lac de boue"
+text en "area u:boue" "mud lake"
+text es "area u:boue" "lago de barro"
+
+text fr "area u:tronc" "tronc d'arbre"
+text en "area u:tronc" "Tree trunk"
+text es "area u:tronc" "tronca de árbol"
+
+text fr "area u:feuilles" "feuilles/feuillage"
+text en "area u:feuilles" "tree leaves"
+text es "area u:feuilles" "Hojas de árbol"
+
+text en "line u:sentier" "trail"
+text fr "line u:sentier" "sentier"
+text es "line u:sentier" "sendero"
+
+text en "point u:shell" "shell"
+text fr "point u:shell" "fossile"
+text es "point u:shell" "fosíl"
+
+# Correction texte espagnol
+text es "point air-draught" "corriente de aire"
+text es "line rock-border" "contorno de bloque"
+#text es "point water-flow" "curso de agua"
+#text es "line water-flow" "curso de agua"
+#text es "group water-flow" "curso de agua"
+text es "point water-flow:permanent" "riachuelo"
+text es "line water-flow:permanent" "riachuelo"
+text es "point water-flow:intermittent" "riachuelo intermitente"
+text es "line water-flow:intermittent" "riachuelo intermitente"
+text es "line water-flow:conjectural" "riachuelo supuesto"
+
+text es "line rock-edge" "arista de bloque"
+text es "point cave-pearl" "perlas de cavernas"
+
+text es "point rimstone-dam" "travertino"
+text es "point rimstone-pool" "travertino"
+text es "point stalactite" "estalactita"
+text es "point stalactites" "estalactitas"
+text es "point stalagmite" "estalagmita"
+text es "point stalagmites" "estalagmitas"
+text es "point pillars" "pilares"
+text es "point pillar" "pilare"
+
+text fr "point traverse" "vire"
+text fr "point ice-stalagmite" "stalagmite de glace"
+
+text fr "point u:anchor_artificial" "Ancrage artificiel"
+text fr "point u:anchor_natural" "Ancrage naturel"
+
+text en "point u:man_w" "caver (walking)"
+text fr "point u:man_w" "spéléo (marchant)"
+text es "point u:man_w" "espeleológo (caminando)"
+
+text en "point u:man_c" "caver (climbing)"
+text fr "point u:man_c" "spéléo (grimpant)"
+text es "point u:man_c" "espeleológo (escalando)"
+
+text en "point u:symbol_plan" ""
+text fr "point u:symbol_plan" ""
+text es "point u:symbol_plan" ""
+
+text en "point u:symbol_extend" ""
+text fr "point u:symbol_extend" ""
+text es "point u:symbol_extend" ""
+
+text en "point wall-altitude" "altitude (m)"
+text fr "point wall-altitude" "altitude (m)"
+text es "point wall-altitude" "altura (m)"
+
+
+
+######################################################################################################################################
+### Layouts Languages/langues
+######################################################################################################################################
+# Different layouts to manage languages (en, fr, es)
+# In your thconfig, call the layout langue-XX where XX is en, fr or es
+# You need to add one of these layout if you use the layout headerl or header_coupe
+# If you want to add one of the field club, syntesys, web page, expedition, guide,
+# add the following line in the code tex-map/endcode block of your layout in the thconfig
+# \newtoks\YYYY \YYYY={the value of your variable}
+# where YYYY = club, synth, wpage, expe or guide
+# Différents layouts pour définir les langues (pour l'instant : en, fr, es)
+# Dans votre thconfig, appelez le layout langue-XX où XX est en, fr ou es
+# Vous devez ajouter l'un de ces layouts si vous voulez utiliser les layouts headerl ou header_coupe
+# qui redéfinissent la présentation et les informations du cartouche (header).
+# Si vous voulez ajouter un de ces champs club, syntesys, web page, expedition, guide,
+# rajouter la ligne suivante dans le bloc code tex-map/endcode de votre layout dans votre thconfig
+# (voir les exemples)
+# \newtoks\YYYY \YYYY={Valeur de votre varialbe}
+# où YYYY = club, synth, wpage, expe or guide
+#
+# You may add new fields, following the examples in the layouts.
+# If you add a new field, you need to edit the layout(s) headerl and/or header_coupe
+# Vous pouvez ajouter de nouveaux champs, en suivant les exemples dans les layouts suivant.
+# Si vous rajouter un nouveau champ, vous devrez éditer le(s) layout(s) headerl et/ou header_coupe
+
+######################################################################################################################################
+layout langue-fr
+ # Définit la langue française
+ language fr
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compilation }
+ \newtoks\datetitle \datetitle={le }
+ \newtoks\thproj \thproj={Projection }
+ \newtoks\thclub \thclub={Club(s) }
+ \newtoks\thsynth \thsynth={Synthèse }
+ \newtoks\thwpage \thwpage={Page internet }
+ \newtoks\thexpe \thexpe={Expedition }
+ \newtoks\thguide \thguide={Guide(s) }
+ \newtoks\thdatat \thdatat={Données topographiques }
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\ththanksto \ththanksto{Remerciements }
+ \newtoks\thcoords \thcoords{Coordonnées}
+ \newtoks\explolengthtitle \explolengthtitle{Longueur explorée }
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Profondeur explorée }
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+endlayout
+
+######################################################################################################################################
+layout langue-es
+ # Definición del idioma español
+ language es
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compilación}
+ \newtoks\datetitle \datetitle={el }
+ \newtoks\thproj \thproj={Proyección}
+ \newtoks\thclub \thclub={Club(es)}
+ \newtoks\thsynth \thsynth={Síntesis}
+ \newtoks\thwpage \thwpage={Página web}
+ \newtoks\thexpe \thexpe={Expedición}
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\thguide \thguide={Guia(s)}
+ \newtoks\thdatat \thdatat={Datos topograficas}
+ \newtoks\ththanksto \ththanksto{Nuestros agradecimientos }
+ \newtoks\thcoords \thcoords{Coordinadas GPS (WGS84) }
+ \newtoks\explolengthtitle \explolengthtitle{Longitud explorada}
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Profondidad explorada}
+
+ \cartotitle={Dibujo}
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+
+endlayout
+
+######################################################################################################################################
+layout langue-en
+ # Set the language english
+ language en
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compiled}
+ \newtoks\datetitle \datetitle={on }
+ \newtoks\thproj \thproj={Projection}
+ \newtoks\thclub \thclub={Club(s)}
+ \newtoks\thsynth \thsynth={Synthesys}
+ \newtoks\thwpage \thwpage={Web page}
+ \newtoks\thexpe \thexpe={Expedition}
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\thguide \thguide={Guide(s)}
+ \newtoks\thdatat \thdatat={Survey's data}
+ \newtoks\ththanksto \ththanksto{Acknowledgments }
+ \newtoks\thcoords \thcoords{GPS coordinates (WGS84) }
+ \newtoks\explolengthtitle \explolengthtitle{Explored length}
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Explored depth}
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+
+endlayout
+
+### End of the layouts languages
+### Fin des layouts languages
+#______________________________
+
+######################################################################################################################################
+######################################################################################################################################
+layout drawingconfig
+ # Layout to draw the map and extended view.
+ # Layout pour dessiner les plans et les coupes développées.
+
+ # pdf-Author
+ # Auteur du pdf
+ doc-author "Xavier Robert"
+
+ # Set the symology you want to use: UIS, ASF (Australie) CCNP (Etats Units), SKB (tchecoslovakia)
+ # Définit la banque de symboles que nous voulons utiliser :
+ # UIS, ASF (Australie) CCNP (Etats Units) ou SKB (tchecoslovakia)
+ #symbol-set UIS
+ # Change the type or colors of specific symbols:
+ # Changer le type ou la couleur de symboles spécifiques:
+
+
+ symbol-assign area sand AUT
+ symbol-assign point pillar AUT
+ symbol-assign point station:temporary SKBB
+ symbol-assign point entrance MY
+ #symbol-assign point entrance UIS
+
+
+ symbol-color area clay [52 33 6] # Color to verify
+ symbol-color area flowstone [100 60 20]
+ symbol-color area ice [0 0 100]
+ symbol-color area moonmilk [100 60 20] # Change the color ?
+ symbol-color area mudcrack [52 33 6] # Color to verify ; Maybe to darken
+ symbol-color area pillar [100 60 20]
+ symbol-color area pillar-with-curtains [100 60 20]
+ symbol-color area sand [67 49 1] # Color to verify
+ symbol-color area snow [0 0 100]
+ symbol-color area stalactite [100 60 20]
+ symbol-color area stalactite-stalagmite [100 60 20]
+ symbol-color area stalagmite [100 60 20]
+
+ symbol-color line contour [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line ceiling-meander [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line flowstone [100 60 20]
+ symbol-color line floor-meander [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line floor-step [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line map-connection [69 69 69] # Gris acier (175, 175, 175)
+ symbol-color line rimstone-dam [100 60 20]
+ symbol-color line rimstone-pool [100 60 20]
+ symbol-color line rock-border [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line rock-edge [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line slope [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line rope [58 44 25]
+ symbol-color line survey [46 46 46] # Gris foncé (117, 117, 117) / acier (175, 175, 175)
+ symbol-color line wall:clay [52 33 6] # Color to verify
+ symbol-color line wall:flowstone [100 60 20]
+ symbol-color line wall:ice [0 0 100]
+ symbol-color line wall:moonmilk [100 60 20] # Change the color ?
+ symbol-color line water-flow [17 46 100]
+ symbol-color line water-flow:conjectural [17 46 100]
+ symbol-color line water-flow:intermittent [17 46 100]
+
+ symbol-color point altitude [100 50 0]
+ symbol-color point aragonite [100 60 20]
+ symbol-color point blocks [34 21 3] # Marron : (87, 56, 8)
+ symbol-color point breakdown-choke [34 21 3] # Marron : (87, 56, 8)
+ symbol-color point cave-pearl [100 60 20]
+ symbol-color point clay [52 33 6] # Color to verify
+ symbol-color point clay-choke [52 33 6] # Color to verify
+ symbol-color point curtain [100 60 20]
+ symbol-color point curtains [100 60 20]
+ symbol-color point disc-pillar [100 60 20]
+ symbol-color point disc-pillars [100 60 20]
+ symbol-color point disc-stalactite [100 60 20]
+ symbol-color point disc-stalactites [100 60 20]
+ symbol-color point disc-stalagmite [100 60 20]
+ symbol-color point disc-stalagmites [100 60 20]
+ symbol-color point disk [100 60 20]
+ symbol-color point flowstone [100 60 20]
+ symbol-color point flowstone-choke [100 60 20]
+ symbol-color point helictite [100 60 20]
+ symbol-color point helictites [100 60 20]
+ symbol-color point ice [0 0 100]
+ symbol-color point ice-pillar [0 0 100]
+ symbol-color point ice-stalactite [0 0 100]
+ symbol-color point ice-stalagmite [0 0 100]
+ symbol-color point moonmilk [100 60 20] # Change the color ?
+ symbol-color point mud [52 33 6] # Color to verify
+ symbol-color point mudcrack [52 33 6] # Color to verify
+ symbol-color point pillar [100 60 20]
+ symbol-color point pillar-with-curtains [100 60 20]
+ symbol-color point pillars [100 60 20]
+ symbol-color point pillars-with-curtains [100 60 20]
+ symbol-color point popcorn [100 60 20]
+ symbol-color point rimstone-dam [100 60 20]
+ symbol-color point root [52 33 6]
+
+ symbol-color point seed-germination [13 47 6]
+ symbol-color point snow [0 0 100]
+ symbol-color point soda-straw [100 60 20]
+ symbol-color point spring [17 46 100]
+ symbol-color point stalactite [100 60 20]
+ symbol-color point stalactite-stalagmite [100 60 20]
+ symbol-color point stalactite-stalagmite [100 60 20]
+ symbol-color point stalactites [100 60 20]
+ symbol-color point stalactites-stalagmites [100 60 20]
+ symbol-color point stalactites-stalagmites [100 60 20]
+ symbol-color point stalagmite [100 60 20]
+ symbol-color point stalagmites [100 60 20]
+ symbol-color point station [54 7 60]
+ symbol-color point station-name [80 80 80] # light grey
+ symbol-color point vegetable-debris [13 47 6]
+ symbol-color point volcano [52 33 6] # Color to verify
+ symbol-color point wall-altitude [100 50 0]
+ symbol-color point wall-calcite [100 60 20]
+ symbol-color point water [17 46 100]
+ symbol-color point water-drip [17 46 100]
+ symbol-color point water-flow [17 46 100]
+ symbol-color point water-flow:intermittent [17 46 100]
+ symbol-color point water-flow:paleo [17 46 100]
+
+ ####### Metapost-changes ############
+ code metapost
+
+ #fonts_setup( 12, 16, 32, 64, 96 );
+
+ # Modify length/depth statistics to print
+ # Modifier l'aspect et les données des statistiques de longueur affichées si besoin
+ #code tex-map
+ # \cavelength{1330\thinspace{}m}
+ # + 150\thinspace{}m estimes}
+ # \cavedepth{243\thinspace{}m}
+ #endcode
+
+ # Change the entrance symbole
+ # Changer le symbole d'entrée
+ def p_entrance_MY (expr pos,theta,sc,al)=
+ U:=(0.0u,0.0u);
+ T:=identity aligned al rotated 0.0 scaled sc shifted pos;
+ path p;
+ p = (-.3u,-.25u) -- (-.2u,-.25u){dir 135} .. (0u, .25u) .. {dir 225}(.2u,-.25u) -- (.3u,-.25u);
+ thdraw p withpen PenA;
+ thdraw unitsquare scaled 1.2u shifted (-0.6u,-0.6u) rotated 0.0 withpen PenD;
+ enddef;
+
+ initsymbol("p_entrance_MY");
+
+ # Change the block symbole
+ # Changer le symbole de block
+ def p_blocks (expr pos,theta,sc,al)=
+ base_symbolsize :=0.30u; %Factor*u; Factor=size of the blocks
+ size_factor := 0.5 + uniformdeviate 0.5; % Pour le polygone principal
+ symbolsize := base_symbolsize * size_factor;
+ U:=(.5u,.5u);
+ random_theta := uniformdeviate 360;
+ T:=identity aligned al rotated random_theta scaled sc shifted pos;
+ pickup PenC;
+ thfill (.0symbolsize,.0symbolsize)--(1.0symbolsize,-.5symbolsize)--(0.0symbolsize,-1.5symbolsize)--(-1.0symbolsize,-1.0symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.6;
+ thdraw (.0symbolsize,.0symbolsize)--(1.0symbolsize,-.5symbolsize)--(0.0symbolsize,-1.5symbolsize)--(-1.0symbolsize,-1.0symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ thfill (.5symbolsize,-.25symbolsize)--(1.0symbolsize,.5symbolsize)--(0.0symbolsize,1.5symbolsize)--(-0.5symbolsize,.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.4;
+ thdraw (.5symbolsize,-.25symbolsize)--(1.0symbolsize,.5symbolsize)--(0.0symbolsize,1.5symbolsize)--(-0.5symbolsize,.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ thfill (.0symbolsize,.0symbolsize)--(.0symbolsize,.5symbolsize)--(-1.5symbolsize,.5symbolsize)--(-1.5symbolsize,-0.5symbolsize)--(-0.5symbolsize,-0.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.5;
+ thdraw (.0symbolsize,.0symbolsize)--(.0symbolsize,.5symbolsize)--(-1.5symbolsize,.5symbolsize)--(-1.5symbolsize,-0.5symbolsize)--(-0.5symbolsize,-0.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ enddef;
+
+ # Change the rock bordersymbole
+ # Changer le symbole des ligne rock border
+ def l_rockborder (expr p) =
+ % Vérifie si le chemin est fermé
+ %if p[0] = point infinity of p:
+ % Remplit la zone avec une couleur si le chemin est fermé
+ %fill p withcolor (0.34, 0.21, 0.3);
+
+ %draw p withcolor 0.5green;
+ %fi;
+ thfill p --cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.5;
+ thdraw p --cycle withcolor (0.341117, 0.219607, 0.031372);
+ % Dessine la bordure de la ligne (même si elle n'est pas fermée)
+ %draw p withcolor (0.34, 0.21, 0.3);
+ enddef;
+
+
+ def p_u_block(expr pos,theta,sc,al) =
+ T:=identity aligned al rotated theta scaled sc shifted pos;
+ path p q;
+ p := (2.3u,0.9u)--(0.65u,1u)--(-0.9u,0.6u)--(-2.15u,-0.1u)--(-2.35u,-0.25u)--(-2.5u,-0.5u)--(-2u,-0.65u)--(-0.75u,-0.65u)--(0.6u,-0.7u)--(1.1u,-0.5u)--(2.1u,-0.15u)--cycle;
+ pickup PenB;
+ thdraw p;
+ % The following line uses the code from Colour Dependant Visualization of Symbols by Bruce Mutton
+ if known colour_block_bg: thfill p withcolor colour_block_bg; else: thfill p withcolor (0.75,0.75,0.75); fi;
+ q := (-2.5u,-0.5u)--(-2u,-0.65u)--(-0.75u,-0.65u)--(0.6u,-0.7u)--(1.1u,-0.5u)--(2.1u,-0.15u)--(2.3u,0.9u)--(2.5u,0.7u)--(2.5u,0.5u)--(2.25u,-0.9u)--(1.1u,-1.3u)--(0.5u,-1.5u)--(-0.75u,-1.4u)--(-2u,-1.15u)--(-2.35u,-0.65u)--cycle;
+ thdraw q;
+ thfill q withcolor(0.6,0.6,0.6);
+ pickup PenD;
+ path p;
+ p := (-2u,-0.65u)--(-1.9u,-1u);
+ thdraw p;
+ path p;
+ p := (0.6u,-0.7u)--(0.5u,-1.3u);
+ thdraw p;
+ path p;
+ p := (2.1u,-0.15u)--(2.3u,-0.4u);
+ thdraw p;
+ enddef;
+
+ initsymbol("p_u_block");
+
+
+
+ # Change the dashed line for the line wall:presumed
+ # Changer la ligne pointillée du symbole line wall:presumed
+ def l_wall_presumed (expr P) =
+ T:=identity;
+ pickup PenA;
+ # Old definition
+ #thdraw P dashed evenly scaled (2*optical_zoom);
+ # New definition
+ thdraw P dashed evenly scaled (.1u);
+ enddef;
+
+ # Change the dashed line for the line chimney
+ # Changer la ligne pointillée du symbole line chemney (cheminée)
+ def l_chimney (expr P) =
+ T:=identity;
+ pickup PenC;
+ %thdraw P dashed evenly scaled optical_zoom;
+ thdraw P dashed evenly scaled (.05u);
+ enddef;
+
+ # To change blocs size in the area blocks
+ # Pour modifier la taille des blocs dans l'aire 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 (((-.3uu,-.3uu)--(.3uu,-.3uu)--(.3uu,.3uu)--(-.3uu,.3uu)--cycle)
+ randomized (uu/2))
+ rotated uniformdeviate(360)
+ shifted ((i,j) randomized 1.0uu);
+ if xpart (p intersectiontimes qq) < 0:
+ thclean qq;
+ thdraw qq;
+ fi;
+ endfor;
+ endfor;
+ );
+ clip tmp_pic to p;
+ draw tmp_pic;
+ enddef;
+
+ # To change sand aspects
+ # Pour modifier les aspects du sable dans l'aire associée
+ 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.1u until xpart urcorner q:
+ for j = ypart llcorner q step 0.1u until ypart urcorner q:
+ draw origin shifted ((i,j) randomized 0.1u) withpen PenC;
+ endfor;
+ endfor;
+ );
+ #clip tmp_pic to p;
+ draw tmp_pic;
+ enddef;
+
+ # To change pebbles aspects
+ # Pour modifier l'aspects de l'aire pebbles (galets)
+ def a_pebbles_SKBB (expr p) =
+ T:=identity;
+ pickup PenC;
+ path q, qq; 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 .5u until ypart urcorner q:
+ qq := (superellipse((.07u,0),(0,.03u), (-.07u,0),(0,.-.03u),.75))
+ %randomized (u/25)
+ rotated uniformdeviate(360)
+ shifted ((i,j) randomized 0.27u);
+ if xpart (p intersectiontimes qq) < 0:
+ thdraw qq;
+ fi;
+ endfor;
+ endfor;
+ );
+ clip tmp_pic to p;
+ draw tmp_pic;
+ enddef;
+
+ # To change slopes aspects
+ # Pour modifier la ligne aspects
+ 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 i=0 upto li: show dirs[i]; endfor;
+ ni:=0; % next
+ pi:=0; % previous
+ for i=0 upto li:
+ d:=dirs[i];
+ if d=-1:
+ if (i=0) or (i=li):
+ dirs[i] := angle(thdir(P,i) rotated 90) mod 360;
+ pi:=i;
+ else:
+ if ni<=i:
+ for j=i upto li:
+ ni:=j;
+ exitif dirs[j]>-1;
+ endfor;
+ fi;
+ w:=arclength(subpath(pi,i) of P) /
+ arclength(subpath(pi,ni) of P);
+ dirs[i]:=w[dirs[pi],dirs[ni]];
+ %if (dirs[i]-angle(thdir(P,i))) mod 360>180:
+ %dirs[i]:=w[dirs[ni],dirs[pi]];
+ %message("*******");
+ %fi;
+ fi;
+ else:
+ pi:=i;
+ fi;
+ endfor;
+ %for i=0 upto li: show dirs[i]; endfor;
+ ni:=0; % next
+ pi:=0; % previous
+ for i=0 upto li:
+ l:=lengths[i];
+ if l=-1:
+ if (i=0) or (i=li):
+ lengths[i] := 1cm; % should never happen!
+ thwarning("slope width at the end point not specified");
+ pi:=i;
+ else:
+ if ni<=i:
+ for j=i+1 upto li:
+ ni:=j;
+ exitif lengths[j]>-1;
+ endfor;
+ fi;
+ w:=arclength(subpath(pi,i) of P) /
+ arclength(subpath(pi,ni) of P);
+ lengths[i]:=w[lengths[pi],lengths[ni]];
+ pi:=i;
+ fi;
+ else:
+ pi:=i;
+ fi;
+ endfor;
+ %for i=0 upto li: show lengths[i]; endfor;
+ T:=identity;
+ boolean par;
+ cas := 0.3u;
+ krok := 0.7u;
+ dlzka := (arclength P);
+ if dlzka>3u: dlzka:=dlzka-0.6u fi;
+ mojkrok:=adjust_step(dlzka,1.4u) / 5;
+ pickup PenD;
+ par := false;
+ forever:
+ t := arctime cas of P;
+ if t mod 1>0: % not a key point
+ w := (arclength(subpath(floor t,t) of P) /
+ arclength(subpath(floor t,ceiling t) of P));
+ if alw_perpendicular:
+ a := 90;
+ else:
+ a := w[dirs[floor t],dirs[ceiling t]];
+ fi;
+ l := w[lengths[floor t],lengths[ceiling t]];
+ else:
+ if alw_perpendicular:
+ a := 90;
+ else:
+ a:= dirs[t];
+ fi;
+ l:=lengths[t];
+ fi;
+ a := a + angle(thdir(P,t));
+ thdraw (point t of P) -- ((point t of P) + if par: 0.333 * fi l * unitvector(dir(a)));
+ cas := cas + mojkrok;
+ par := not par;
+ exitif cas > dlzka + .3u + (krok / 3); % for rounding errors
+ endfor;
+ if S = 1: pickup PenC; draw P fi;
+ %pickup pencircle scaled 3pt;
+ %for i=0 upto li: draw point i of P; endfor;
+ enddef;
+
+ # To change color of Mud area
+ # Pour modifier la couleur de l'aire Boue
+ def a_u_boue (expr p) =
+ T:=identity;
+ #thfill p withcolor (0.22, 0.22, 0.95);
+ #126, 51, 0
+ thfill p withcolor (0.49, 0.20, 0.00);
+ enddef;
+
+ # To change color of Sump
+ # Pour modifier la couleur de l'aire siphon
+ def a_sump (expr p) =
+ T:=identity;
+ #thfill p withcolor (0.22, 0.22, 0.95);
+ thfill p withcolor (0.06, 0.20, 0.65);
+ enddef;
+
+ # To change color of guano
+ # Pour modifier la couleur de l'aire guano
+ def a_u_guano (expr p) =
+ T:=identity;
+ thfill p withcolor (0.53, 0.26, 0.11);
+ enddef;
+
+ # To change color of a tree-trunk
+ # I advise to use a line "border" to delimit the area
+ # If used with tree-leaves, add the option -place top
+ # Pour modifier la couleur de l'aire tronc
+ # Je suggère d'utiliser une ligne "border/bord" pour délimiter l'aire
+ # Si utilisé conjointement avec l'aire feuilles d'arbres, utiliser l'option -place top
+ def a_u_tronc (expr p) =
+ T:=identity;
+ thfill p withcolor (0.62, 0.24, 0.05);
+ enddef;
+
+ # To change color of a tree-leaves
+ # Pour modifier la couleur de l'aire feuilles d'arbre/feuillage
+ def a_u_feuilles (expr p) =
+ T:=identity;
+ thfill p withcolor (0.0, 1.0, 0.0);
+ enddef;
+
+ # To change color of Water area
+ # Pour modifier la couleur de l'aire eau
+ def a_water (expr p) =
+ T:=identity;
+ #thfill p withcolor (0.60, 0.8, 1);
+ thfill p withcolor (0.17, 0.46, 1);
+ enddef;
+
+ # Northarrow more funnier !
+ # Pour définir une nouvelle flèche du nord
+ # def s_northarrow (expr rot) =
+ # begingroup
+ # interim defaultscale:=0.7; % scale your north arrow here
+ # #interim defaultscale:=0.5; % scale your north arrow here; 0.5 is the best value for atlas
+ # T:=identity scaled defaultscale rotated -rot;
+ # interim linecap:=squared;
+ # interim linejoin:=rounded;
+ # thfill (-.5cm,-.1cm)--(0,2.5cm)--(.5cm,-.1cm)--cycle;
+ # pickup pencircle scaled (0.08cm * defaultscale);
+ # thdraw (0,0)--(0,-2.5cm);
+ # pickup pencircle scaled (0.16cm * defaultscale);
+ # p:=(0.4cm,0.6cm);
+ # thdraw ((p--(p yscaled -1)--(p xscaled -1)--(p scaled -1)) shifted (0,-1.0cm));
+ # label.rt(thTEX("mg") scaled 1.6, (.6cm,-1.6cm)) transformed T;
+ # endgroup;
+ # enddef;
+
+ def s_northarrow (expr rot) =
+ begingroup
+ interim defaultscale:=0.8; % scale your north arrow here
+ T:=identity scaled defaultscale rotated -rot;
+ %noRotT:=identity scaled defaultscale 0;
+ pickup pencircle scaled (0.08cm * defaultscale);
+
+ % Cercle du nord
+ p:=fullcircle scaled 1.6cm;
+ thclean p;
+ thdraw p withcolor black;
+ p:=(0.95cm,0)--(0.65cm,0);
+ thdraw p withcolor black; thdraw p xscaled -1 withcolor black;
+
+ % Flèche
+ thdraw (-.6cm,-1.4cm)--(0,2.8cm)--(0cm, -1cm)--cycle withcolor black;
+ thfill (-.6cm,-1.4cm)--(0,2.8cm)--(0cm, -1cm)--cycle withcolor black withalpha 0.8;
+ thdraw (.6cm,-1.4cm)--(0,2.8cm)--(0cm, -1cm)--cycle withcolor black;
+
+ % N du Nord
+ %pickup pencircle scaled (0.12cm * defaultscale);
+ %p:=(0.28cm,0.42cm);
+ %thdraw p--(p yscaled -1)--(p xscaled -1)--(p scaled -1) transformed T withcolor red;
+ label.rt(thTEX("N") scaled 1.6, (-0.2cm,0cm)) withcolor red; % transformed T;
+ endgroup;
+ enddef;
+
+ # # Change Scale bar type
+ # # Pour modifier la barre d'échelle
+ # def s_scalebar (expr l, units, txt) =
+ # begingroup
+ # interim warningcheck:=0;
+ # tmpl:=l / Scale * cm * units / 2;
+ # tmpx:=l / Scale * cm * units / 5;
+ # tmph:=5bp; % bar height
+ # endgroup;
+ # pickup PenC;
+ # draw (-tmpl,0)--(tmpl,0)--(tmpl,-tmph)--(-tmpl,-tmph)--cycle;
+ # p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
+ # for i:=-2.5 step 2 until 2:
+ # fill p shifted (i * tmpx,0);
+ # endfor;
+ # begingroup
+ # interim labeloffset:=3.5bp;
+ # for i:=0 step (l/5) until (l-1):
+ # tmpx:=tmpl * (i * 2 / l - 1);
+ # label.bot(thTEX(decimal (i)),(tmpx,-tmph));
+ # endfor;
+ # label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph));
+ # % To write the scale "1:scale" uncomment it the next line:
+ # % Pour écrire l'échelle "1:scale" au dessus de la barre décommenter la ligne suivante :
+ # %label.top(thTEX("Echelle 1 : " & decimal (Scale*100)),(0,0));
+ # endgroup;
+ # enddef;
+
+
+ # # Write the point depth (not functionning...)
+ # # Définir un point qui écrit la côte/profondeur (Ne fonctionne pas actuellement...)
+ # def p_u_prof (expr pos) =
+ # T:=identity shifted pos;
+ # pickup PenD;
+ # p:=(-.3u,0)--(.3u,0);
+ # thdraw p; thdraw p rotated 90;
+ # p:=fullcircle scaled .2u;
+ # thclean p; thdraw p;
+ # enddef;
+ # vardef p_label@#(expr txt,pos,rot,mode) =
+ # if mode=1:
+ # thdrawoptions(withcolor .8red + .4blue);
+ # p_u_prof(pos);
+ # % append "m" to label
+ # picture txtm;
+ # % calcul profondeur
+ # %numeric profondeur;
+ # profondeur:=(\thaltitude-\cavemaxz);
+ # picture txtprofondeur;
+ # txtm:=image(
+ # draw txt;
+ # interim labeloffset:=0;
+ # label.urt(btex \thaltitude m etex, lrcorner txt);
+ # %label.urt(btex \thdepth m etex, lrcorner txt);
+ # );
+ # % give extra offset in case of l/r/t/b alignment
+ # pair ctmp;
+ # ctmp:=center thelabel@#("x", (0,0));
+ # if (xpart ctmp * ypart ctmp)=0:
+ # interim labeloffset:=(.4u);
+ # else: % diagonal alignment
+ # interim labeloffset:=(.2u);
+ # fi;
+ # % draw label
+ # lab:=thelabel@#(txtm, pos);
+ # draw lab _thop_; % use color
+ # thdrawoptions();
+ # bboxmargin:=0.8bp;
+ # write_circ_bbox((bbox lab) smoothed 2);
+ # else:
+ # if mode=7: interim labeloffset:=(u/8) fi;
+ # lab:=thelabel@#(txt, pos);
+ # if mode>1: pickup PenD fi;
+ # if mode=2: process_uplabel;
+ # elseif mode=3: process_downlabel;
+ # elseif mode=4: process_updownlabel;
+ # elseif mode=5: process_circledlabel;
+ # elseif mode=6: process_boxedlabel;
+ # elseif mode=7: process_label(pos,rot); % station name
+ # elseif mode=8: process_filledlabel(pos, rot);
+ # else: process_label(pos,rot); fi;
+ # fi;
+ # enddef;
+
+
+
+ # Change the altitude definition
+ # This label requires to specify the position of text relative to point with
+ # help of -align in the options box.
+ # Changer la définition du point altitude
+ # Ce label nécessite la position spécifique de l'étiquette de texte de façon relative
+ # au point avec l'aide de l'option -align.
+ #ex: -align bottom-right/top-left/top-right/bottom-left/top/bottom/left/right...
+
+ def p_altitude (expr pos) =
+ T:=identity shifted pos;
+ pickup PenD;
+ p:=(-.3u,0)--(.3u,0);
+ thdraw p; thdraw p rotated 90;
+ p:=fullcircle scaled .2u;
+ thclean p; thdraw p;
+ enddef;
+
+ vardef p_label@#(expr txt,pos,rot,mode) =
+ if mode=1:
+ thdrawoptions(withcolor .8red + .4blue);
+ p_altitude(pos);
+ % append "m" to label
+ picture txtm;
+ txtm:=image(
+ draw txt;
+ interim labeloffset:=0;
+ label.urt(btex \thaltitude { m} etex, lrcorner txt);
+ #label.urt(btex \thheight m etex, lrcorner txt);
+ );
+ % give extra offset in case of l/r/t/b alignment
+ pair ctmp;
+ ctmp:=center thelabel@#("x", (0,0));
+ if (xpart ctmp * ypart ctmp)=0:
+ interim labeloffset:=(.4u);
+ else: % diagonal alignment
+ interim labeloffset:=(.2u);
+ fi;
+ % draw label
+ lab:=thelabel@#(txtm, pos);
+ draw lab _thop_; % use color
+ thdrawoptions();
+ bboxmargin:=0.8bp;
+ write_circ_bbox((bbox lab) smoothed 2);
+ else:
+ if mode=7: interim labeloffset:=(u/8) fi;
+ lab:=thelabel@#(txt, pos);
+ if mode>1: pickup PenD fi;
+ if mode=2: process_uplabel;
+ elseif mode=3: process_downlabel;
+ elseif mode=4: process_updownlabel;
+ elseif mode=5: process_circledlabel;
+ elseif mode=6: process_boxedlabel;
+ elseif mode=7: process_label(pos,rot); % station name
+ elseif mode=8: process_filledlabel(pos, rot);
+ else: process_label(pos,rot); fi;
+ fi;
+ enddef;
+
+ # For point height with P or C prefixe
+ # use “point 0 0 height -value [+10 m]”
+ # or “point 0 0 height -value [-85 m]”
+ # in your data to get E10 or P85
+ # Pour obtenir un point de hauteur de passage avec P ou C comme préfixe
+ # utiliser “point 0 0 height -value [+10 m]”
+ # ou “point 0 0 height -value [-85 m]”
+ # dans les données vous donner E10 ou P85 respectivement
+ verbatimtex \def\thheightpos{E}\def\thheightneg{P} etex
+
+
+ # Change the altitude definition for the wall-line label (add units)
+ # To modify the color, you need to modify the triplets after the 3 withcolor command.
+ # BE CAREFUL ! Sometimes, it generates mpost errors when using point wall:altitude.
+ # If you get this kind of error, comment the whole p_wallaltitude definition.
+ # Changer la définition de l'altitude pour le label de la ligne mur (ajout de l'unité)
+ # Pour modifier la couleur, modifier le triplet (RGB) après les 3 commandes withcolor.
+ # ATTENTION ! Parfois, cette redéfinition génère des erreurs métapost.
+ # Si c'est le cas, commenter toute la redéfinition du point p_wallaltitude.
+
+ #def p_wallaltitude (expr pprev,pos,pnext,txt) =
+ # rot:=angle(unitvector(pnext-pos)+unitvector(pos-pprev)) - 90;
+ # pickup PenD;
+ # pair zz;
+ # %zz:=(pos + 3*unitvector(dir rot));
+ # zz:=(pos + (u/4)*unitvector(dir rot));
+ # %draw (pos)--zz withcolor (0.78, 0.08, 0.52); % tic in black
+ # draw (pos)--zz withcolor (0.78, 0.08, 0.52); % tic in color
+ # % add the unit (here, meters as m)
+ # txtm:=image(
+ # %draw txt; % altitude in black
+ # draw txt withcolor (0.78, 0.08, 0.52); % altitude in color
+ # %interim labeloffset:=0;
+ # %label.urt(btex \thaltitude { m} etex, lrcorner txt); % unit in black
+ # label.urt(btex \thaltitude { m} etex, lrcorner txt) withcolor (0.78, 0.08, 0.52); % unit in color
+ # );
+ # begingroup
+ # % interim labeloffset:=2pt;
+ # interim labeloffset:=(u/12);
+ # if horiz_labels:
+ # rot:=rot mod 360;
+ # if rot<=22.5: lab:=thelabel.rt(txtm, zz);
+ # elseif rot<=67.5: lab:=thelabel.urt(txtm, zz);
+ # elseif rot<=112.5: lab:=thelabel.top(txtm, zz);
+ # elseif rot<=157.5: lab:=thelabel.ulft(txtm, zz);
+ # elseif rot<=202.5: lab:=thelabel.lft(txtm, zz);
+ # elseif rot<=247.5: lab:=thelabel.llft(txtm, zz);
+ # elseif rot<=292.5: lab:=thelabel.bot(txtm, zz);
+ # elseif rot<=337.5: lab:=thelabel.lrt(txtm, zz);
+ # else: lab:=thelabel.rt(txtm, zz);
+ # fi;
+ # else:
+ # if (abs rot>90) and (abs rot <=270):
+ # rot:=rot-180;
+ # lab:=thelabel.lft(txtm, pos);
+ # else:
+ # lab:=thelabel.rt(txtm, pos);
+ # fi;
+ # fi;
+ # process_label(pos, if horiz_labels: 0 else: rot fi);
+ # endgroup;
+ #enddef;
+
+
+
+ # Definition of new lines symbols
+ # Définition de nouveau symboles de lignes
+
+
+ # Line symbol for strata for cross sections (u:strata). It works exactly as line section
+ # symbol but you should use -clip off option:
+ # Symbole de ligne pour dessiner des strates (u:strata).
+ # Cela fonctionne exactement comme les autres sections de ligne
+ # mais vous devrez rajouter l'option -clip off:
+ def l_u_strata (expr P) =
+ T:=identity;
+ path Q; Q = punked P;
+ for t = 0 upto length P - 1:
+ pair zz[];
+ zz1 := point t of P;
+ zz2 := point t+1 of P;
+ zz3 := postcontrol t of P;
+ zz4 := precontrol t+1 of P;
+ linecap:=0;
+ if (length(zz3-1/3[zz1,zz2]) > 0.1pt) or (length(zz4-2/3[zz1,zz2]) > 0.1pt):
+ zz5 = whatever[zz1,zz2];
+ (zz3-zz5) = whatever * (zz1-zz2) rotated 90;
+ pickup pencircle scaled 1 mm;
+ draw zz1--zz5 dashed evenly;
+ pickup PenA;
+ draw zz1--zz5 withcolor background;
+ zz6 = whatever[zz1,zz2];
+ (zz4-zz6) = whatever * (zz1-zz2) rotated 90;
+ pickup pencircle scaled 1 mm;
+ draw zz2--zz6 dashed evenly;
+ pickup PenA;
+ draw zz2--zz6 withcolor background;
+ else:
+ pickup pencircle scaled 1 mm;
+ draw zz1--zz2 dashed evenly;
+ pickup PenA;
+ draw zz1--zz2 withcolor background;
+ fi;
+ endfor;
+ enddef;
+
+
+ # Line symbol for Coupoles (u:coupole). It works exactly as line section
+ # Symbole de ligne pour dessiner des coupoles de plafond.
+ # Fonctionne comme les autres lignes
+ def l_u_coupole (expr P) =
+ T:=identity;
+ cas := 0; % cursor to step along path
+ dlzka := arclength P;
+ mojkrok:=adjust_step(dlzka, 0.25u); % symbol length nudged to be multiple of path length
+ q:= (0.10u,0.16u) -- (0.13u,0.17u); % dot
+
+ pickup PenC; %2nd thinnest pen
+ forever:
+ t := arctime cas of P;
+ thdraw q rotated angle(thdir(P,t)) shifted (point t of P ); % draw dots
+ cas := cas + mojkrok;
+ exitif cas > dlzka + (mojkrok / 3); % for rounding errors
+ endfor;
+ pickup PenC; %2nd thickest pen
+ thdraw P; %continuous line
+ enddef;
+
+
+ # Line symbol for fault.
+ # It works exactly as line section symbol but you should use -clip off option:
+ # Symbole de ligne pour dessiner des failles (u:fault).
+ # Cela fonctionne exactement comme les autres sections de ligne
+ # mais vous devrez rajouter l'option -clip off:
+ def l_u_fault (expr P) =
+ T:=identity;
+ path Q; Q = punked P;
+ pickup PenA;
+ for t = 0 upto length P - 1:
+ pair zz[];
+ zz1 := point t of P;
+ zz2 := point t+1 of P;
+ zz3 := postcontrol t of P;
+ zz4 := precontrol t+1 of P;
+ if (length(zz3-1/3[zz1,zz2]) > 0.1pt) or (length(zz4-2/3[zz1,zz2]) > 0.1pt):
+ zz5 = whatever[zz1,zz2];
+ (zz3-zz5) = whatever * (zz1-zz2) rotated 90;
+ draw zz1--zz5 dashed evenly;
+ zz6 = whatever[zz1,zz2];
+ (zz4-zz6) = whatever * (zz1-zz2) rotated 90;
+ draw zz2--zz6 dashed evenly;
+ else:
+ draw zz1--zz2 dashed evenly;
+ fi;
+ endfor;
+ enddef;
+
+
+ # Line symbol for the surface.
+ # It works exactly as line section symbol but you should use -clip off option:
+ # Symbole de ligne pour dessiner la surface (u:surf).
+ # Cela fonctionne exactement comme les autres sections de ligne
+ # mais vous devrez rajouter l'option -clip off:
+ def l_u_surf (expr P) =
+ T:=identity;
+ path Q; Q = punked P;
+ pickup PenC;
+ draw Q dashed evenly withcolor (0.5, 0, 0);
+ enddef;
+
+
+ # To add a doline line (u:doline); Do not forget the option -clip off !
+ # Symbole de ligne pour dessiner une ligne doline (u:doline).
+ # Cela fonctionne exactement comme les autres sections de ligne
+ # mais vous devrez rajouter l'option -clip off:
+ def l_u_doline (expr P) =
+ T:=identity;
+ laenge:= arclength P;
+ symsize:=adjust_step(laenge,2u);
+ triangle_width:=symsize/10;
+ cur:=(symsize-triangle_width)/2;
+ pickup PenC;
+ forever:
+ t1 := arctime (cur) of P;
+ t := arctime (cur + triangle_width/2) of P;
+ t2 := arctime (cur + triangle_width) of P;
+ thfill (subpath (t1,t2) of P) --
+ ((point t of P) + symsize/2 * unitvector(thdir(P,t) rotated 90)) --
+ cycle;
+ thdraw (point t2 of P) --((point t of P) + symsize/2 * unitvector(thdir(P,t) rotated 90)) --
+ (point t1 of P) withcolor (0.5, 0, 0);
+ cur := cur + symsize;
+ exitif cur > laenge - (1*symsize/3); % for rounding errors
+ t1:=arctime (cur) of P;
+ endfor;
+ enddef;
+
+
+ # Modify length/depth statistics to print
+ # Modifier l'aspect et les données des statistiques de longueur affichées si besoin
+ #code tex-map
+ # \cavelength{1330\thinspace{}m}
+ # + 150\thinspace{}m estimes}
+ # \cavedepth{243\thinspace{}m}
+
+
+ # Defines the gradient as geologic dip
+ # Définit le gradient comme pendage géologique
+ def p_gradient_XA (expr P,R,S,A) =
+ U:=(.15u, .4u);
+ T:=identity aligned A rotated R scaled S shifted P;
+ pickup PenC;
+ thdraw (0u, 0u) -- (0u, .4u);
+ thdraw (-.4u, 0u) -- (.4u, 0u);
+ enddef;
+ initsymbol ("p_gradient_XA");
+ symbol-assign point gradient XA
+
+
+ # Section to define the bat symbol (point, line, area)
+ # Section pour définir le symbole Chauve souris utilisé en point, ligne ou aire
+ path bat_path_x;
+ bat_path_x := (160.43589,619.76148)
+ .. controls (200.83034,598.56215) and (225.01974,599.82632) .. (242.33709,601.15842)
+ .. controls (250.91988,585.02142) and (280.12279,545.7622) .. (328.92385,566.52372)
+ .. controls (343.18917,529.89929) and (387.77695,513.04018) .. (453.54702,518.36185)
+ .. controls (456.6654,525.97557) and (466.09064,533.43257) .. (471.27843,523.05007)
+ .. controls (463.85291,520.67657) and (466.71891,517.42483) .. (471.63814,522.23522)
+ .. controls (472.87859,519.83044) and (472.11254,517.25674) .. (467.00984,516.24193)
+ .. controls (498.08181,494.38071) and (518.37927,488.7935) .. (554.08261,484.34703)
+ .. controls (536.23968,468.87122) and (526.7451,451.32142) .. (536.0878,433.78585)
+ .. controls (539.04313,428.23891) and (549.65293,437.81051) .. (550.08905,431.99134)
+ .. controls (543.35122,428.68782) and (547.16851,429.31755) .. (550.93619,430.90592)
+ .. controls (555.01514,419.20795) and (542.29889,420.82043) .. (539.21019,422.32967)
+ .. controls (526.80565,412.03922) and (538.14174,362.22955) .. (562.04206,325.41289)
+ .. controls (560.70416,305.4475) and (552.94665,275.48765) .. (596.42383,240.15823)
+ .. controls (586.13796,214.86512) and (584.21841,176.344) .. (618.88684,158.99293)
+ .. controls (600.38363,161.42082) and (571.90452,163.00167) .. (555.87287,173.29962)
+ .. controls (533.80922,180.31406) and (511.7587,189.77279) .. (494.76462,217.75852)
+ .. controls (469.02274,260.15007) and (465.60841,280.08537) .. (466.27659,287.73284)
+ .. controls (467.27295,299.13663) and (456.20597,295.4343) .. (455.42733,284.84646)
+ .. controls (447.034,297.47822) and (465.71846,292.96944) .. (457.40227,311.17742)
+ .. controls (451.51715,333.88534) and (454.55183,344.68208) .. (455.22274,365.27634)
+ .. controls (445.59186,380.66207) and (438.52169,394.98144) .. (432.56329,406.97544)
+ .. controls (421.27321,411.75599) and (411.86904,413.85884) .. (403.92838,423.33244)
+ .. controls (391.19793,418.79449) and (380.875,414.46152) .. (373.6673,409.41976)
+ .. controls (365.11095,413.84661) and (372.76761,437.1554) .. (372.88328,437.30963)
+ -- (360.72573,447.88215)
+ .. controls (360.72573,447.88215) and (348.36583,439.38367) .. (342.32921,440.26049)
+ .. controls (340.52016,451.25937) and (343.58923,463.9528) .. (354.67087,475.2679)
+ .. controls (341.63825,482.57642) and (339.10347,494.24676) .. (313.80723,490.57484)
+ .. controls (304.61922,489.24114) and (282.31298,490.61764) .. (258.32359,496.84657)
+ .. controls (246.18809,499.99759) and (248.48311,482.8706) .. (236.36849,493.22467)
+ .. controls (239.32461,491.85429) and (242.55704,492.01948) .. (245.59044,495.64662)
+ .. controls (248.83726,499.52895) and (249.4495,502.08244) .. (244.59097,503.87878)
+ .. controls (221.93401,514.80409) and (190.83965,541.85436) .. (178.69512,574.11392)
+ .. controls (176.80431,577.00681) and (162.4873,600.33708) .. cycle;
+ path bat_path_bb;
+ bat_path_bb = bbox bat_path_x;
+ path bat_path;
+ bat_path = bat_path_x shifted (-(llcorner bat_path_bb) - (urcorner bat_path_bb - llcorner bat_path_bb) / 2.0) scaled (1u / ((xpart urcorner bat_path_bb) - (xpart llcorner bat_path_bb))) rotated 210;
+
+ # Section of your layout define point u:bats symbol like this
+ # Pour définir le point chauve souris : u:bats
+ def p_u_bats(expr pos, theta, sc, al) =
+ T := identity shifted pos;
+ thfill (bat_path scaled 1.5) withcolor black;
+ enddef;
+
+ # similarly the line u:bat symbol
+ # Idem pour la ligne
+ def l_u_bats(expr P) =
+ T:=identity;
+ cas := 0;
+ dlzka := arclength P;
+ mojkrok:=adjust_step(dlzka, 1.0u);
+ pickup PenD;
+ forever:
+ t := arctime cas of P;
+ thfill bat_path scaled 0.5 shifted (point t of P) withcolor black;
+ cas := cas + mojkrok;
+ exitif cas > dlzka + (mojkrok / 3); % for rounding errors
+ endfor;
+ enddef;
+
+ # and finally the area u:bat symbol (pattern in this case)
+ # Et pour l'aire
+ % bat pattern
+ beginpattern(pattern_bat);
+ fill bat_path withcolor black;
+ endpattern;
+
+ % bat area symbol
+ def a_u_bats (expr Path) =
+ T:=identity;
+ thclean Path;
+ thfill Path withpattern pattern_bat;
+ enddef;
+
+ # These symbols will be included also in the legend. To
+ # change the way how they are drawn there just define appropriate
+ # macro. Its name should be symbol macro name with _legend
+ # suffix.
+ # Ces symbols seront inclus dans la légende. Pour modifier la façon dont ils
+ # sont dessinés, juste, définissez la macro appropriée.
+ # Son nom doit être le nom de la macro symbol approprié avec le suffixe
+ # _legend.
+ def l_u_bats_legend =
+ l_u_bats(((.2,.2) -- (.8,.8)) inscale)
+ enddef;
+
+
+ # Definition of a stalagmite boss symbol
+ # Définition du point stalagmite boss
+ def p_u_boss (expr pos,theta,sc,al)=
+ T:=identity aligned al rotated theta scaled sc shifted pos;
+ pickup PenD;
+ p := (0.08u,0.25u)..(0,0.29u)..(-0.08u,0.25u);
+ q := (0.16u,0.5u)..(0u,0.58u)..(-0.16u,0.5u);
+ for i=0 upto 9:
+ # braun color
+ thdraw p rotated 36i withcolor (100, 0.6, 0.2);
+ thdraw q rotated 36i withcolor (100, 0.6, 0.2);
+ % black color
+ %thdraw p rotated 36i;
+ %thdraw q rotated 36i;
+ endfor
+ p := fullcircle scaled 0.15u;
+ thdraw p withcolor (100, 0.6, 0.2);
+ % black color
+ %thdraw p withcolor;
+ enddef;
+
+
+ # Definition of a shell limestone symbol
+ # Définition du point coquille fossile
+ def p_u_shell (expr pos,theta,sc,al)=
+ T:=identity shifted pos;
+ pickup PenB;
+ numeric turns, radius;
+ path ss, cesta;
+ pair za, zb;
+ turns = 1.55;
+ radius = .3u;
+ za = ( xpart(origin)+0, ypart(origin)+.1u ) rotated 370 turns;
+ zb = ( xpart(origin)+.3u, ypart(origin)+0 ) rotated 360 turns;
+ cesta := za--zb;
+ ss := (origin for t=1 upto 360 turns: -- dir t scaled t endfor) scaled (radius/turns/360);
+ thdraw ss withcolor (0.3);
+ thdraw (cesta cutbefore ss) withcolor (0.6);
+ enddef;
+ initsymbol ("p_u_shell");
+
+
+ # Define Danger symbol
+ # Définition du point Danger
+ def p_u_danger (expr P,R,S,A)=
+ T:=identity aligned A rotated R scaled S shifted P;
+ thfill (0,-u)--(u,0)--(0,u)--(0,.9u)--(.9u,0)--(0,-.9u)--cycle;
+ thfill (0,-u)--(-u,0)--(0,u)--(0,.9u)--(-.9u,0)--(0,-.9u)--cycle;
+ thfill (.1u,-.45u)..(0,-.35u)..(-.1u,-.45u)..(0,-.55u)..cycle;
+ thfill (0,-.2u)..(.1u,-.1u)--(.2u,.4u)..(0,.6u)..(-.2u,.4u)--(-.1u,-.1u)..cycle;
+ enddef;
+ #initsymbol("p_entrance_MY");
+ #let p_entrance = p_entrance_MY;
+
+
+ # Define dive line (u:ariane) in thin red
+ # Définition de la ligne file d'Ariane en rouge fin
+ def l_u_ariane (expr Path) =
+ T:=identity;
+ pickup PenD;
+ draw Path withcolor (100, 0, 0);
+ enddef;
+
+
+ # Definition of plankwalk
+ # Définition d'une ligne de main courante
+ def l_u_plankwalk (expr P) = T:=identity;
+ # by Dave Clucas
+ cas := 0;
+ dlzka := arclength P;
+ mojrok := adjust_step(dlzka, 0.5u);
+ pickup PenD;
+ forever:
+ t := arctime cas of P;
+ thdraw ((point t of P) + 0.5 * u * unitvector(thdir(P,t) rotated 90)) --
+ ((point t of P) - 0.5 * u * unitvector(thdir(P,t) rotated 90) );
+ cas := cas + mojrok;
+ exitif cas > dlzka + (mojrok/3); % for rounding errors
+ endfor;
+ pickup PenC;
+ %thdraw P;
+ %draw path withcolor (0.5, 0 ,0)
+ enddef;
+
+
+ # Definition of a line rail
+ # Définition d'une ligne rail
+ def l_u_rail (expr P) =
+ # by Andrew Aktinson
+ T:=identity;
+ cas := 0;
+ dlzka := arclength P;
+ mojkrok:=adjust_step(dlzka, 0.8u);
+ pickup PenC;
+ forever:
+ t0 := arctime (cas) of P;
+ t1 := arctime (cas + mojkrok*2/5) of P;
+ t := arctime (cas + mojkrok/2) of P;
+ t4 := arctime (cas + mojkrok*3/5) of P;
+ t5 := arctime (cas + mojkrok) of P;
+ thdraw (subpath (t0,t1) of P);
+ thdraw (subpath (t4,t5) of P);
+ drawdot (point t of P);
+ #mark_ (P,t,0.02u);
+ #mark_ (P,t,-0.02u);
+ #f := (P,t,0.2u);
+ #draw f;
+ cas := cas + mojkrok;
+ exitif cas > dlzka - (2*mojkrok/3); % for rounding errors
+ endfor;
+ enddef;
+
+
+ # Change fig Flowstone, increase the number of arcs
+ # Modifier le symbole flowstone en augmentant le nombr d'arc
+ def l_flowstone (expr p) =
+ #draw p withpen PenC withcolor (0.0, 0.5, 1.0);
+ T:=identity;
+ cas := 0;
+ dlzka := arclength p;
+ mojkrok:=adjust_step(dlzka, .3u);
+ # povodne .7u
+ pickup PenC;
+ t1:=0;
+ forever:
+ t2 := arctime (cas + mojkrok) of p;
+ thdraw (point t1 of p){dir (angle(thdir(p,t1)) + 60)} ..
+ {dir (angle(thdir(p,t2)) - 60)}(point t2 of p);
+ cas := cas + mojkrok;
+ exitif cas > dlzka + (mojkrok / 3); % for rounding errors
+ t1:=t2;
+ endfor;
+ enddef;
+
+
+ # Point that represent a bird nest
+ # Point pour représenter un nid d'oiseau
+ def p_u_nid (expr pos,theta,sc,al)=
+ U:=(.4u,.2u);
+ T:=identity aligned al rotated theta scaled sc shifted pos;
+ pickup PenC;
+ #thdraw (-.4u,.2u){dir -70}..{dir 70}(.4u,.2u) withcolor (0.53, 0.26, 0.11);
+ thdraw (-.2u,.1u){dir -70}..{dir 70}(.2u,.1u) withcolor (0.53, 0.26, 0.11);
+ enddef;
+
+
+ # Artificial anchor point (From a post by Evaristo Quiroga)
+ # Point ancrage artificiel (From a post by Evaristo Quiroga)
+ def p_u_anchor_artificial(expr pos,theta,sc,al) =
+ T:=identity shifted pos;
+ thdraw origin withpen pencircle scaled 0.25u withcolor (0.58, 0.44, 0.25);
+ enddef;
+ initsymbol ("p_u_anchor_artificial");
+
+
+ # Natural anchor point (From a post by Evaristo Quiroga)
+ # Point ancrage naturel (From a post by Evaristo Quiroga)
+ def p_u_anchor_natural(expr pos,theta,sc,al) =
+ U:=(.2u,.2u);
+ T:=identity aligned al rotated theta scaled sc shifted pos;
+ thfill (-.2u,-.2u)--(0,.2u)--(.2u,-.2u)--cycle withcolor (0.58, 0.44, 0.25);
+ enddef;
+ initsymbol ("p_u_anchor_natural");
+
+
+ # Deviation line (by Tarquin 2019)
+ # Ligne pour dessiner une déviation (D'après Tarquin 2019)
+ def l_u_deviation (expr P) =
+ begingroup;
+ save ellipse;
+ T:=identity;
+ pickup PenC;
+ path ellipse;
+ ellipse:=fullcircle xscaled (.5u) yscaled (.25u) shifted (point (length P) of P);
+ thdraw P cutafter ellipse;
+ draw ellipse;
+ endgroup;
+ enddef;
+ initsymbol("l_u_deviation");
+
+ def l_u_deviation_legend =
+ l_u_deviation(((.1,.5)--(.8,.5)) inscale);
+ enddef;
+
+
+ # Climbing caver point (by Juraj Halama, 2020)
+ # Climbing one has center where the rope should go on the harness...
+ # Point pour dessiner un spéléo qui grimpe ou escalade (D'après Juraj Halama, 2020)
+ # Le point correspond au centre du spéléo au niveau du harnais, qui doit donc être sur la corde
+ picture u_man_c_pic;
+ u_man_c_pic := image (
+ draw (0cm, -0cm) -- (-8cm, 27cm) -- (-36cm, 55cm) -- (-50cm, 99cm) withpen pencircle scaled 16cm;
+ draw (27cm, 48cm) -- (0, 64cm) -- (-29cm, 61cm) -- (-38cm, 102cm) withpen pencircle scaled 16cm;
+ draw (-65cm, 48cm) -- (-75cm, 75cm) -- (-53cm, 106cm) -- (0, 106cm) withpen pencircle scaled 14cm;
+ draw (-44cm, 130cm) withpen pencircle scaled 27cm withcolor black;
+ ) shifted (20cm, -67cm);
+
+ def p_u_man_c (expr P, R, S, A) =
+ U := (60cm, 85cm) scaled (0.01 / Scale);
+ T:=identity aligned A rotated R scaled S shifted P;
+ thdraw u_man_c_pic scaled (0.01 / Scale);
+ enddef;
+ initsymbol ("p_u_man_c");
+
+ # The scale on the map and in the legend is matching just for 1:500...
+ # L'échelle sur la carte et sur la légende correspond au 1:500...
+ def p_u_man_c_legend =
+ draw u_man_c_pic scaled (u / 175cm) shifted ((.5, .5) inscale);
+ enddef;
+
+
+ # Walking caver point (by Juraj Halama, 2020)
+ # Use "-align top" for proper alignment of the walking man when his point is on the groung.
+ # Point pour dessiner un spéléo marchant (D'après Juraj Halama, 2020)
+ # Utiliser l'option "-align top" pour un alignement correct quand le point est au sol
+ picture u_man_w_pic;
+ u_man_w_pic := image (
+ draw (0, 0) -- (7.5cm, 36cm) -- (0cm, 69cm) -- (9cm, 99cm) withpen pencircle scaled 16cm;
+ draw (42cm, 9cm) -- (37.5cm, 42cm) -- (13.5cm, 69cm) -- (30cm, 102cm) withpen pencircle scaled 16cm;
+ draw (21.5cm, 100.5cm) -- (6.6cm, 69cm) withpen pencircle scaled 16cm;
+ draw (-24cm, 75cm) -- (-13.5cm, 102cm) -- (9cm, 112.5cm) -- (30cm, 108cm) -- (51cm, 87cm) -- (75cm, 93cm) withpen pencircle scaled 14cm;
+ draw (30cm, 132cm) withpen pencircle scaled 27cm withcolor black;
+ ) shifted (-20cm, -70cm);
+
+ def p_u_man_w (expr P, R, S, A) =
+ U := (60cm, 80cm) scaled (0.01 / Scale);
+ T:=identity aligned A rotated R scaled S shifted P;
+ thdraw u_man_w_pic scaled (0.01 / Scale);
+ enddef;
+ initsymbol ("p_u_man_w");
+
+ # The scale on the map and in the legend is matching just for 1:500...
+ # L'échelle sur la carte et sur la légende correspond au 1:500...
+ def p_u_man_w_legend =
+ draw u_man_w_pic scaled (u / 175cm) shifted ((.5, .5) inscale);
+ enddef;
+
+
+ # Plan view symbol point (by Juraj Halama, 2020)
+ # Point dessinant un symbole de "vue en plan" (D'après Juraj Halama, 2020)
+ def p_u_symbol_plan (expr pos,theta,sc,al) =
+ U := (-3.25u, 3.25u);
+ T := identity aligned al rotated theta scaled sc shifted pos;
+ pickup PenB;
+ q := ((-3.26u, -.95u) -- (1.74u, -.95u) -- (2.8u, .82u) -- (-1.49u, .82u) -- cycle);
+ thfill q withcolor .85;
+ thdraw q;
+ q := ((-.175u, .5u) -- (0u, 0u) -- (.175u, .5u) .. (0u, .45u) .. cycle);
+ thfill q withcolor .5green;
+ thdraw q withcolor .5green;
+ thdraw (0u, 0u) -- (0u, 2.31u) withcolor .5green;
+ enddef;
+
+
+ # Extended view symbol point (by Juraj Halama, 2020)
+ # Point dessinant un symbole de "vue en coupe développée" (D'après Juraj Halama, 2020)
+ def p_u_symbol_extend (expr pos,theta,sc,al) =
+ U := (-2.5u, 2.5u);
+ T := identity aligned al rotated theta scaled sc shifted pos;
+ pickup PenB;
+ q := ((-2.346u, -2.480u) -- (-.48u, -2.116u) -- (-.48u, 1.573u) -- (-2.346u, 1.354u) -- cycle);
+ thfill q withcolor .85;
+ q := ((-1.551u, -2.878u) -- (1.438u, -.766u) -- (1.438u, 2.388u) -- (-1.551u, 1.118u) -- cycle);
+ thfill q withcolor .75;
+ thdraw q;
+ thdraw (-.48u, -2.116u) -- (-.48u, 1.573u) dashed evenly;
+ q := ((.446u, -1.461u) -- (2.120u, -1.094u) -- (2.120u, 2.184u) -- (.446u, 1.965u) -- cycle);
+ thfill q withcolor .85;
+ thdraw (.446u, -1.461u) -- (.446u, 1.965u) dashed evenly;
+ q := ((-.175u, .5u) -- (0u, 0u) -- (.175u, .5u) .. (0u, .45u) .. cycle) rotated -90;
+ thfill q withcolor .5green;
+ thdraw q withcolor .5green;
+ thdraw (0u, 0u) -- (2.31u, 0u) withcolor .5green;
+ enddef;
+
+
+ # Change rope line color
+ # Changer la couleur de la ligne rope (corde)
+ #symbol-colour line rope [58 44 25]
+
+
+ # Area for galerie initiation
+ # You will probably need to adapt the color to match the color of your galeries
+ # Aire pour matérialiser le départ d'une galerie
+ # A adapter en fonction de la couleur de vos galeries
+ def a_u_galerie(expr P) =
+ T:=identity;
+ ## jaune chamois (208, 192, 122)
+ ##thfill P withcolor (0.82,0.75,0.48) withtransparency 0.5;
+ thfill P withcolor (0.82,0.75,0.48) withalpha 0.5;
+
+ ## Grey
+ ##thfill P withcolor (0.73,0.72,0.75) withtransparency 0.5;
+ #thfill P withcolor (0.73,0.72,0.75) withalpha 0.5;
+
+ ## Jaune queue de vache (168, 152, 116)
+ ##thfill P withcolor (0.66,0.60,0.45) withtransparency 0.5;
+ #thfill P withcolor (0.66,0.60,0.45) withalpha 0.5;
+
+ ## gris argile (239, 239, 239)
+ ##thfill P withcolor (0.937,0.937,0.937) withtransparency 0.5;
+ #thfill P withcolor (0.937,0;937,0.937) withalpha 0.5;
+ enddef;
+
+
+ # Make unsurveyed wall lines more light-weight and dashed
+ # Rendre les parois non topographiées plus légères et en pointillés
+ #Bruce Mutton 2010.06.20 for Therion 5.3.9
+ def l_wall_unsurveyed (expr P) =
+ T:=identity;
+ pickup PenC;
+ thdraw P dashed evenly scaled (0.5*optical_zoom);
+ enddef;
+
+
+ # thin grey cave splays, yellow duplicates and dashed approximate legs
+ # Pour modifier la couleur du squelette en fonction du type de visées
+ # (splays, normal, duplicates, approximate...)
+ def l_survey_cave (expr P) =
+ % always draws full centreline, rather than short stubs like default cave centrelines
+ T:=identity;
+ pickup PenC;
+ if ATTR__shotflag_splay:
+ drawoptions(withcolor(0.5,0.5,0.5) withpen PenD);
+ thdraw P; % grey & thin
+ drawoptions();
+ else: % not splay but may have either or both duplicate and approx flags set
+ if ATTR__shotflag_duplicate:
+ drawoptions(withcolor (1,1,0)); % differentiate duplicate with colour yellow
+ fi;
+ if ATTR__shotflag_approx:
+ thdraw P dashed evenly scaled optical_zoom; % differentiate approx with dashed
+ else:
+ thdraw P;
+ fi;
+ thdrawoptions();
+ fi;
+ enddef;
+
+ endcode
+ # Endcode for all the definition
+
+
+ code tex-map
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+ endcode
+
+endlayout
+
+######################################################################################################################################
+ # Layout to define a horizontal Scale bar
+ # Layout pour définir une barre d'échelle horizontale
+######################################################################################################################################
+layout scalebar_horiz
+
+
+ code metapost
+ # Change Scale bar type
+ # Pour modifier la barre d'échelle
+ # def s_scalebar (expr l, units, txt) =
+ # begingroup
+ # interim warningcheck:=0;
+ # tmpl:=l / Scale * cm * units / 2;
+ # tmpx:=l / Scale * cm * units / 5;
+ # tmph:=5bp; % bar height
+ # endgroup;
+ # pickup PenC;
+ # draw (-tmpl,0)--(tmpl,0)--(tmpl,-tmph)--(-tmpl,-tmph)--cycle;
+ # p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
+ # for i:=-2.5 step 2 until 2:
+ # fill p shifted (i * tmpx,0);
+ # endfor;
+
+ # begingroup
+ # interim labeloffset:=3.5bp;
+ # for i:=0 step (l/5) until (l-1):
+ # tmpx:=tmpl * (i * 2 / l - 1);
+ # label.bot(thTEX(decimal (i)),(tmpx,-tmph));
+ # endfor;
+ # label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph));
+ # % To write the scale "1:scale" uncomment it the next line:
+ # % Pour écrire l'échelle "1:scale" au dessus de la barre décommenter la ligne suivante :
+ # %label.top(thTEX("Echelle 1 : " & decimal (Scale*100)),(0,0));
+ # endgroup;
+ # enddef;
+
+ def s_scalebar (expr l, units, txt) =
+ % l = value of scale-bar length
+ % units = ??
+ % txt = string representing units
+ begingroup
+ interim warningcheck:=0;
+ tmpl:=l / Scale * cm * units / 2;
+ % tmpl = half plotted length of scale bar from central top insertion point
+ tmpx:=l / Scale * cm * units / 5;
+ tmph:=5bp; % bar height
+ endgroup;
+ pickup PenC;
+ draw (-tmpl,0)--(tmpl,0)--(tmpl,-tmph)--(-tmpl,-tmph)--cycle;
+ p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
+ for i:=-0.5 step 2 until 2: % start drawing at the third block (leave space for smaller divisions)
+ fill p shifted (i * tmpx,0);
+ endfor;
+
+ % Draw first part with subdivided blocks
+ p:=(0,0)--(tmpx/5,0)--(tmpx/5,-tmph)--(0,-tmph)--cycle; % define width of segment (tmpx is length of a normal bar segment)
+ for i:=-2.5 step 2/5 until -0.75: % Startpos, segments, count-index
+ fill p shifted (i * tmpx,0) withcolor black;
+ endfor;
+
+ % Label of scale: Scalebar top, values below
+ begingroup
+ interim labeloffset:=3.5bp;
+ for i:=0 step (l/5) until (l-1):
+ tmpx:=tmpl * (i * 2 / l - 1);
+ label.bot(thTEX(decimal (i)),(tmpx,-tmph));
+ endfor;
+ label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph));
+ # label.top(thTEX("Echelle 1 : " & decimal round(Scale*100)),(0,0));
+ endgroup;
+
+ enddef;
+
+ endcode
+
+endlayout
+
+######################################################################################################################################
+######################################################################################################################################
+layout scalebar_vert-Halama
+
+ # Layout to define a vertical Scale bar (see Therion Wiki - Juraj Halama)
+ # distributed under the GNU General Public Licence
+ # You need to place it with in your thconfig file:
+ # code tex-map
+ # \def\maplayout{
+ # \legendbox{102.5}{100.4}{NW}
+ # {\scalebar}}
+ # endcode
+ # Layout pour définir une barre d'échelle verticale (voir le wiki Therion - Jural Halama)
+ # distribué sous la licence GNU General Public Licence
+ # Il faut l'appeler dans le fichier de configuration thconfig avec le bloc:
+ # code tex-map
+ # \def\maplayout{
+ # \legendbox{102.5}{100.4}{NW}
+ # {\scalebar}}
+ # endcode
+
+ code metapost
+ def s_scalebar (expr l, units, txt) =
+ begingroup
+ tmpw = 3.0 bp;
+ tmp5m = 5 / Scale * units * cm;
+ tmpl = l / Scale * units * cm;
+ endgroup;
+ p := (0, 0) -- (tmpw, 0) -- (tmpw, - tmp5m) -- (0, - tmp5m) -- cycle;
+ pickup PenD;
+ for i := 0 step 1 until (l - 1) / 5:
+ if (i mod 2) <> 0:
+ unfill p shifted - (0, i * tmp5m);
+ else:
+ fill p shifted - (0, i * tmp5m);
+ fi;
+ draw p shifted - (0, i * tmp5m);
+ endfor;
+ pickup PenA
+ %draw (-tmpw, 0) -- (tmpw, 0);
+ %draw (-tmpw, -tmpl) -- (0, -tmpl);
+ fill (-2tmpw, tmpw) -- (-2tmpw, -tmpw) -- (0, 0) -- cycle;
+ fill (-2tmpw, -tmpl + tmpw) -- (-2tmpw, -tmpl + -tmpw) -- (0, -tmpl) -- cycle;
+ if ((l mod 10) > 5) or ((l mod 10) = 0):
+ draw (0, - tmpl) -- (tmpw, - tmpl) withcolor black;
+ else:
+ draw (0, - tmpl) -- (tmpw, - tmpl) withcolor white;
+ fi;
+ begingroup
+ interim labeloffset:=3.5bp + tmpw;
+ %interim defaultscale:=0.5;
+ label.rt(thTEX("\size[12]" & "0{\thinspace}m"),(0, 0));
+ for i := 1 step 1 until l / 5:
+ if (i mod 10) = 0:
+ label.rt(thTEX("\size[12]" & "-\thinspace" & decimal (i * 5)),(0, - i * tmp5m));
+ else:
+ if i * 5 = l:
+ label.rt(thTEX("\size[12]" & "-\thinspace" & decimal (i * 5)),(0, - i * tmp5m));
+ else:
+ label.rt(thTEX("\size[8]" & "-\thinspace" & decimal (i * 5)),(0, - i * tmp5m));
+ fi
+ fi;
+ endfor;
+ if (l mod 5) <> 0:
+ label.rt(thTEX("\size[12]" & "-\thinspace" & decimal (l)),(0, - tmpl));
+ fi;
+ endgroup
+ enddef;
+ endcode
+
+endlayout
+
+######################################################################################################################################
+layout scalebar_vert
+
+ # Layout to define a vertical Scale bar
+ # Layout pour définir une barre d'échelle verticale
+
+ code metapost
+ # Change Scale bar type
+ # Pour modifier la barre d'échelle
+ def s_scalebar (expr l, units, txt) =
+ begingroup
+ interim warningcheck:=0;
+ tmpl:=l / Scale * cm * units / 2;
+ tmpx:=l / Scale * cm * units / 5;
+ tmph:=5bp; % bar height
+ % To compute the right size of the text
+ if (l/1000) <1 :
+ if (l/100) <1 :
+ if (l/10) <1 : tmphz:=6bp;
+ else: tmphz:=8bp; fi;
+ else: tmphz:=10bp; fi;
+ else tmphz:=12bp; fi;
+ endgroup;
+ pickup PenC;
+ draw (0,-tmpl)--(0,tmpl)--(-tmph,tmpl)--(-tmph,-tmpl)--cycle;
+ p:=(0,0)--(0,tmpx)--(-tmph,tmpx)--(-tmph,0)--cycle;
+ for i:=-2.5 step 2 until 2:
+ fill p shifted (0,i * tmpx);
+ endfor;
+ begingroup
+ interim labeloffset:=0bp;
+ for i:=0 step (l/5) until (l-1):
+ tmpx:=tmpl * (i * 2 / l - 1);
+ label.bot(thTEX(decimal (l-i)),(tmph+tmphz,tmpx));
+ %label.bot(thTEX(decimal (i)),(tmpx,-tmph)) rotated 90;
+ % Inverser l'ordre des nombres
+ endfor;
+ label.bot(thTEX(decimal (l-l) & "\thinspace" & txt),(tmph+tmphz,tmpl));
+ %label.bot(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,-tmph)) rotated 90;
+ endgroup;
+ enddef;
+
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout headerl
+ # Layout to change the header (plan projection)
+ # This code is experimental redefinition of map header and based on the work of
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Layout pour modifier le cartouche (header) de la projection en plan
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+
+ copy scalebar_horiz
+
+ # This one affects maps only
+ # Ceci ne touche que les maps (plans)
+ code tex-map
+
+ \def\loadpicture#1{\pdfximage{#1}\pdfrefximage\pdflastximage}
+
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ \ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
+ %print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip1cm
+ \fi}
+ %print scalebar
+ \ifscalebar\scalebar\vskip1cm\fi
+ %print entrances coordinates (Lat-Long/WGS84) if defined
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords \the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+
+ % start bruces addition
+ # % CS
+ \edef\tmp{\the\outcsname} \ifx\tmp\empty \else
+ %{\the\legendtextsize\si\the\thproj: \ss\the\outcsname\par}
+ %\fi
+ %\edef\tmp{\the\northdir} \ifx\tmp\empty \else
+ %{\the\legendtextsize\ss\the\northdir north }
+ %\fi
+ %\edef\tmp{\the\magdecl} \ifx\tmp\empty \else
+ %{\the\legendtextsize\ss\the\magdecl { deg.} \par}
+ %\fi
+ \vskip0.5cm
+ % end bruces addition
+ #%print comment
+ {
+ #\rightskip=0pt plus 3em\parskip=3bp
+ #\edef\tmp{\the\comment} \ifx\tmp\empty \else
+ # {\the\legendtextsize\the\comment} \par\medskip
+ #\fi
+ %print cavelength and depth
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
+ \fi
+ # % start bruces addition
+ ## % altitude
+ #\edef\tmp{\the\cavemaxz} \ifx\tmp\empty \else
+ # {\the\legendtextsize\si\the\depthrangetitle \ss\the\cavemaxz m to}
+ #\fi
+ #\edef\tmp{\the\caveminz} \ifx\tmp\empty \else
+ # {\the\legendtextsize\ss\the\caveminz m \par} %above mean sea level
+ #\fi
+ # % end bruces addition
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+ # % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
+ \edef\tmp{\the\thversion} \ifx\tmp\empty \else %only write version and date if version is not emplty
+ {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
+ % \fi
+ % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
+ \fi
+
+ # % end bruces addition
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ \bigskip
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+ % Add Logos
+ #\legendbox{50}{60}{NW}{\loadpicture{Logos/Logo_FFS_small.jpg}}
+
+ endcode
+endlayout
+
+
+######################################################################################################################################
+layout header_coupe_vert-to-place
+ # Layout to change the header (extended elevation)
+ # This code is experimental redefinition of map header
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Xavier Robert (2020/04/27)
+ # Header specifically for extended elevation maps with a vertical scale bar
+ # that needs to be manually located inside your layout (in the thconfig file)
+ # with the code :
+ # code tex-map
+ # \def\maplayout{
+ # \legendbox{0}{-1}{NW}{\the\legendcontent} % add legend content
+ # \legendbox{0}{87.5}{NW}{\hsize=1.5 cm\centerline\scalebar} % add scalebar where you want it
+ # }
+ # endcode
+ # Layout pour modifier le cartouche (header) de la projection en coupe développée
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+ # Xavier Robert (2020/04/27)
+ # Header développé spécialement pour les coupes étendues et projetées, avec l'échelle
+ # verticale qu'il faut localiser grâce au code :
+ # code tex-map
+ # \def\maplayout{
+ # \legendbox{0}{-1}{NW}{\the\legendcontent} % Ajout du contenu de la légende
+ # \legendbox{0}{87.5}{NW}{\hsize=1.5 cm\centerline\scalebar} % Ajout de l'échelle où nous la voulons
+ # }
+ # endcode
+
+
+ copy scalebar_vert # Xavier robert
+ #copy scalebar_vert-Halama # Juraj Halama
+
+ # This one affects maps only (extended view)
+ # Ceci ne touche que les maps (coupes développées)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ %\ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
+ %print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip0.5cm
+ \fi}
+ {
+ %print the coordinates of the entrance. It is associated with the entrances_coordinates.th file
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+ %print cavelength and depth
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
+ \fi
+ # % end bruces addition
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+ # % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
+ \edef\tmp{\the\thversion} \ifx\tmp\empty \else %only write version and date if version is not emplty
+ {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
+ % \fi
+ % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
+ \fi
+
+ # % end bruces addition
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ \bigskip
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout header_coupe_vert-auto
+ # Layout to change the header (extended elevation)
+ # This code is experimental redefinition of map header
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Xavier Robert (2020/04/27)
+ # Header specifically for extended elevation maps with a vertical scale bar
+ # located at the right of the header.
+ # Layout pour modifier le cartouche (header) de la projection en coupe développée
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+ # Xavier Robert (2020/04/27)
+ # Header développé spécialement pour les coupes étendues et projetées, avec l'échelle
+ # verticale et localisée à la droite du header.
+
+ copy scalebar_vert
+
+ # This one affects maps only (extended view)
+ # Ceci ne touche que les maps (coupes développées)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ % print scalebar
+ \ifscalebar\hskip1.3cm\vbox to 0pt{\line{\hfil\scalebar}\vss}\fi
+ % print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ % print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip0.3cm
+ \fi}
+ {
+ %print the coordinates of the entrance. It is associated with the entrances_coordinates.th file
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+ %print cavelength and depth
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
+ \fi
+ # % end bruces addition
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+ # % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
+ \edef\tmp{\the\thversion} \ifx\tmp\empty \else %only write version and date if version is not emplty
+ {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
+ % \fi
+ % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
+ \fi
+
+ # % end bruces addition
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \bigskip
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+ endcode
+endlayout
+
+######################################################################################################################################
+layout header_coupe
+ # Layout to change the header (extended elevation)
+ # This code is experimental redefinition of map header
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Layout pour modifier le cartouche (header) de la projection en coupe développée
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+
+ copy scalebar_horiz
+
+ # This one affects maps only (extended view)
+ # Ceci ne touche que les maps (coupes développées)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ %\ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
+ %print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip1cm
+ \fi}
+ %print scalebar
+ \ifscalebar\scalebar\vskip1cm\fi
+ {
+ %print the coordinates of the entrance. It is associated with the entrances_coordinates.th file
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+ %print cavelength and depth
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
+ \fi
+ # % end bruces addition
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+ # % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
+ \edef\tmp{\the\thversion} \ifx\tmp\empty \else %only write version and date if version is not emplty
+ {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
+ % \fi
+ % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
+ \fi
+
+ # % end bruces addition
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ \bigskip
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+ endcode
+endlayout
+
+
+######################################################################################################################################
+layout header-plan-schema
+ # Layout to change the header for sketch (plan projection)
+ # This code is experimental redefinition of map header and based on the work of
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Layout pour modifier le cartouche (header) de la projection en plan
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+
+ copy scalebar_horiz
+
+ # This one affects maps only
+ # Ceci ne touche que les maps (plans)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ \ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
+ %%print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %%print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip1cm
+ \fi}
+ %%print scalebar
+ \ifscalebar\scalebar\vskip1cm\fi
+ %%print entrances coordinates (Lat-Long/WGS84) if defined
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+
+ %%print cavelength and depth ; they need to be defined in the layout in the thconfig
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explolengthtitle: \ss\the\cavelength} %\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explodepthtitle: \ss\the\cavedepth\par}
+ \fi
+
+ %%print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %%print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %%print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %%print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %%print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+
+ %%print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ \bigskip
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ \fi
+ \formattedlegend
+ \color[0 0 0]
+ }
+
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout header_coupe-schema
+ # Layout to change the header for sketch (extended elevation)
+ # This code is experimental redefinition of map header
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Layout pour modifier le cartouche (header) de la projection en coupe développée
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+
+ copy scalebar_horiz
+
+ # This one affects maps only (extended view)
+ # Ceci ne touche que les maps (coupes développées)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ %print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip1cm
+ \fi}
+ %print scalebar
+ \ifscalebar\scalebar\vskip1cm\fi
+ {
+ %print the coordinates of the entrance. It is associated with the entrances_coordinates.th file
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+ %%print cavelength and depth ; they need to be defined in the layout in the thconfig
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explolengthtitle: \ss\the\cavelength} %\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explodepthtitle: \ss\the\cavedepth\par}
+ \fi
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ \bigskip
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout headeratlas
+ # Layout to change the header (plan projection)
+ # This code is experimental redefinition of map header and based on the work of
+ # Bruce Mutton Therion 5.3.15 make use of new variables
+ # Layout pour modifier le cartouche (header) de la projection en plan
+ # Ce code de redéfinition est expérimental experimental et basé sur le travail de
+ # Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
+
+ copy scalebar_horiz
+
+ # This one affects maps only
+ # Ceci ne touche que les maps (plans)
+ code tex-map
+ \legendcontent={%
+ \hsize=\legendwidth
+ \color[0 0 0]\the\legendtextcolor
+ \ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
+ %print cave map name
+ \edef\tmp{\the\cavename} \ifx\tmp\empty \else
+ {\the\legendtextheadersize\the\cavename}\vskip0.5cm
+ \fi
+ %print comment
+ {\rightskip=0pt plus 3em\parskip=3bp
+ \edef\tmp{\the\comment} \ifx\tmp\empty \else
+ {\the\legendtextsize\the\comment} \par\medskip\vskip1cm
+ \fi}
+ %print scalebar
+ \ifscalebar\scalebar\vskip1cm\fi
+ %print entrances coordinates (Lat-Long/WGS84) if defined
+ \edef\tmp{\the\ECoordinates} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thcoords: \ss\the\ECoordinates\par}
+ \vskip0.5cm
+ \fi
+
+ % start bruces addition
+ # % CS
+ \edef\tmp{\the\outcsname} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thproj: \ss\the\outcsname\par}
+ \fi
+ \edef\tmp{\the\northdir} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\northdir north }
+ \fi
+ \edef\tmp{\the\magdecl} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\magdecl deg \par}
+ \fi
+ \vskip0.5cm
+ % end bruces addition
+ #%print comment
+ {
+ #\rightskip=0pt plus 3em\parskip=3bp
+ #\edef\tmp{\the\comment} \ifx\tmp\empty \else
+ # {\the\legendtextsize\the\comment} \par\medskip
+ #\fi
+ %print cavelength and depth
+ \everypar{\hangindent=2em\hangafter=1}
+ \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
+ \fi
+ \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
+ \fi
+ # % start bruces addition
+ ## % altitude
+ #\edef\tmp{\the\cavemaxz} \ifx\tmp\empty \else
+ # {\the\legendtextsize\si\the\depthrangetitle \ss\the\cavemaxz m to}
+ #\fi
+ #\edef\tmp{\the\caveminz} \ifx\tmp\empty \else
+ # {\the\legendtextsize\ss\the\caveminz m \par} %above mean sea level
+ #\fi
+ # % end bruces addition
+
+ %print explorers names
+ \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
+ \fi
+ %print surveyors names
+ \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
+ \fi
+ %%print the guides
+ \edef\tmp{\the\guide} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thguide: \ss\the\guide\par}
+ \fi
+ %print cartographers names
+ \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
+ \fi
+ %print synthesys name !!! !!! with newtoks\synth \synth={Synth Name} in the thconfig
+ \edef\tmp{\the\synth} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thsynth: \ss\the\synth\par}
+ \fi
+ %print the club
+ \edef\tmp{\the\club} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thclub: \ss\the\club\par}
+ \fi
+ %%print the expedition
+ \edef\tmp{\the\expe} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thexpe: \ss\the\expe\par}
+ \fi
+ %%print the web page
+ \edef\tmp{\the\wpage} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thwpage: \ss\the\wpage\par}
+ \fi
+ %%print the survey's data web page
+ \edef\tmp{\the\datat} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\thdatat: \ss\the\datat\par}
+ \fi
+ # % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
+ \edef\tmp{\the\thversion} \ifx\tmp\empty \else %only write version and date if version is not emplty
+ {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
+ % \fi
+ % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
+ \fi
+
+ # % end bruces addition
+ %print copyrights
+ \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
+ {\the\legendtextsize\ss\the\copyrights\par}
+ \fi
+
+ \bigskip
+ \edef\tmp{\the\thanksto} \ifx\tmp\empty \else
+ {\the\legendtextsize\si\the\ththanksto: \ss\the\thanksto\par}
+ %\def\ththankstotitle{Nos remerciements : }
+ %{\everypar{\hangindent=7.2em\hangafter=1}
+ %\size[\thsizem]\si\ththankstotitle \ss\ththanksto\par}
+ \fi
+ }
+ \formattedlegend
+ \color[0 0 0]
+ }
+
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout layoutmapborder
+ # If you want to draw a frame around the map
+ # Si vous voulez un cadre autour de votre topographie
+ code tex-map
+ \framethickness=0.5mm
+ endcode
+
+endlayout
+
+######################################################################################################################################
+# CODE TO CUSTOMISE ATLAS OUTPUT
+# CODE POUR CUSTOMISER L'ATLAS
+######################################################################################################################################
+layout LayoutAtlasNorthArrow2
+# This code is a redefinition of the default atlas definition
+# that includes both north arrow & scale bar beside the navigation pane
+# from Bruce Mutton (2019/08)
+# Ce code est une redéfinition de la définition par défaut de l'Altlas
+# Cela inclus à la fois la flèche du nord et la barre d'échelle du panneau de navigation.
+# from Bruce Mutton (2019/08)
+
+ code tex-atlas
+ \def\dopage{%
+ \vbox{\centerline{\framed{\mapbox}}
+ \bigskip
+ \line{%
+ \vbox to \ht\navbox{
+ \hbox{\size[20]\the\pagelabel
+ \ifpagenumbering\space(\the\pagenum)\fi
+ \space\size[16]\the\pagename}
+ \ifpagenumbering
+ \medskip
+ \hbox{\qquad\qquad
+ \vtop{%
+ \hbox to 0pt{\hss\showpointer\pointerN\hss}
+ \hbox to 0pt{\llap{\showpointer\pointerW\hskip0.7em}%
+ \raise1pt\hbox to 0pt{\hss$\updownarrow$\hss}%
+ \raise1pt\hbox to 0pt{\hss$\leftrightarrow$\hss}%
+ \rlap{\hskip0.7em\showpointer\pointerE}}
+ \hbox to 0pt{\hss\showpointer\pointerS\hss}
+ }\qquad\qquad
+ \vtop{
+ \def\arr{$\uparrow$}
+ \showpointerlist\pointerU
+ \def\arr{$\downarrow$}
+ \showpointerlist\pointerD
+ }
+ }
+ \fi
+ \vss
+ }
+ \hss
+ \vbox to \ht\navbox{
+ \ifnortharrow\hbox to 0pt{\hss\northarrow\qquad}\fi
+ \vss
+ \ifscalebar\hbox to 0pt{\hss\scalebar\qquad}\fi
+ }
+ \box\navbox
+ }
+ }
+ }
+ endcode
+
+endlayout
+
+######################################################################################################################################
+layout LayoutAtlasNorthArrow
+ # Layout for the set of the Atlas North Arrow to override
+ # the north arrow definition of the layout drawingconfig
+ # and use a smaller North arrow to avoid overlaps with the scale bar
+ # For that, it should be call first in the layout Altas of the .thconfig file.
+ # Layout pour définir le set up de l'Atlas North Arrow.
+ # pour effacer la définition de la flèche du nord du layout drawingconfig
+ # et éviter la superposition de la flèche avec la barre d'échelle.
+ # Pour cela, il convient de placer l'appel à ce Layout avant tous les autres layouts
+ # dans le layout Atlas du .thconfig
+ code metapost
+ def s_northarrow (expr rot) =
+ begingroup
+ #interim defaultscale:=0.7; % scale your north arrow here
+ interim defaultscale:=0.5; % scale your north arrow here; 0.5 is the best value for atlas
+ T:=identity scaled defaultscale rotated -rot;
+ interim linecap:=squared;
+ interim linejoin:=rounded;
+ thfill (-.5cm,-.1cm)--(0,2.5cm)--(.5cm,-.1cm)--cycle;
+ pickup pencircle scaled (0.08cm * defaultscale);
+ thdraw (0,0)--(0,-2.5cm);
+ pickup pencircle scaled (0.16cm * defaultscale);
+ p:=(0.4cm,0.6cm);
+ thdraw ((p--(p yscaled -1)--(p xscaled -1)--(p scaled -1)) shifted (0,-1.0cm));
+ label.rt(thTEX("mg") scaled 1.6, (.6cm,-1.6cm)) transformed T;
+ endgroup;
+ enddef;
+ endcode
+
+endlayout
+
+######################################################################################################################################
+layout AtlasSetUp
+ # Layout for the set of the Atlas
+ # Layout pour définir le set up de l'Atlas
+
+ # "size" are the dimensions of the square/rectangle which will be
+ # occupied by part of the survey corresponding to each smal inset.
+ # 15 x 20, is good to print with an A4-paper.
+ # "size", c'est pour l'atlas. Ce sont les dimensions du carré dont
+ # l'interieur sera occupé par la partie de la topo correspondante à
+ # chaque une des pagines. 15 x 20, ça va bien pour imprimer A4.
+ size 15 20 cm
+
+ # In the atlas, we choose an overlap of 1 cm with the neibourghood pages
+ # Dans l'atlas, on va superposer 1 cm de chaque page voisine
+ overlap 1 cm
+
+ # "page-setup".
+ # We specify 1) the dimensions of the paper: 21 X 29.7 (A4)
+ # 2) the surface usable to print, here 17 X 28.2
+ # and then 3, we can add a 3 cm left margin (21 - 17 -1 = 3)
+ # and a 1.5 cm top margin (29.7 - 27.2 - 1 = 1,5)
+ # "page-setup", ça sert pour le map et pour l'atlas aussi.
+ # on spécifie les dimensions de la feuille de papier : 21 X 29,7 (A4)
+ # la surface imprimible du papier, ce sont 17 X 28,2
+ # Alors, on peut indiquer une marge à gauche de 3 (21-17-1=3)
+ # et une marge en haut de 1,5 (29,7-27,2-1=1,5)
+ # en centimetres
+ page-setup 21 29.7 17 27.2 3 1.5 cm
+
+ # Print (or not) the title of the pages before each capter of the Atlas
+ # Affiche (ou non) le titre des pages avant chaque chapitre de l’atlas
+ title-pages on
+
+ # Zoom factor of the navigation pannel; by default, 30
+ # Facteur de zoom du panneau de navigation ; Par défault, 30
+ nav-factor 30
+
+ # Define the number of pages in the 2 directions of the navigation pannel
+ # Définir le nombre de pages de l'atlas dans les 2 directions du panneau de navigation
+ nav-size 2 2
+
+
+ code tex-atlas
+ \atlastitlepages
+ \insertmaps
+ \formattedlegend
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout layoutcontinuation
+ # If you want to write all the texts that go with continuations marks
+ # Si vous voulez écrire sur la carte le texte qui est donnée dans chaque définition
+ # de point d'interrogation de continuation
+
+ code metapost
+ def p_continuation(expr pos,theta,sc,al) =
+ % draw default continuation symbol
+ p_continuation_UIS(pos,theta,sc,al);
+ % if text attribute is set
+ if known(ATTR__text) and picture(ATTR__text):
+ % set labeling color to light orange
+ push_label_fill_color(1.0, 0.9, 0.8);
+ % draw filled label with text next to ?
+ p_label.urt(ATTR__text,(.5u,-.25u) transformed T,0.0,8);
+ % restore original labeling color
+ pop_label_fill_color;
+ fi;
+ enddef;
+ endcode
+
+endlayout
+
+
+######################################################################################################################################
+layout northarrowMG
+ # New Northarrow definition
+ # Nouvelle définition de la flèche du nord
+
+ code metapost
+ # If you want to get both, magnetic and geographic north,
+ # with \cartodate ?
+ def s_northarrow (expr rot) =
+ %valscal=1.2; % scale your north arrow here
+ valscal=0.7; % scale your north arrow here
+ decl:=MagDecl; % set the magnetic declination
+ T:=identity;
+ picture tmp_pic;
+ tmp_pic = image (
+ pickup pencircle scaled .3;
+ thfill fullcircle scaled 4cm withcolor 1white;
+ thdraw fullcircle scaled 3.1cm;
+ thdraw fullcircle scaled 4.05cm;
+ pickup pencircle scaled .1;
+ thdraw fullcircle scaled 3cm;
+ thdraw fullcircle scaled 4cm;
+ pickup pencircle scaled .2;
+ thdraw (dir(45)*2.025cm)--(dir(45)*3.7cm);
+ thdraw (dir(135)*2.025cm)--(dir(135)*3.7cm);
+ thdraw (dir(225)*2.025cm)--(dir(225)*3.7cm);
+ thdraw (dir(315)*2.025cm)--(dir(315)*3.7cm);
+ pickup pencircle scaled .1;
+ for whereto=0 step 15 until 345:
+ thdraw dir(whereto)*.65cm--dir(whereto)*.9cm;
+ thdraw dir(whereto)*1.4cm--dir(whereto)*1.5cm;
+ endfor;
+ for whereto=0 step 5 until 355:
+ thdraw dir(whereto)*.65cm--dir(whereto)*.8cm;
+ thdraw dir(whereto)*1.45cm--dir(whereto)*1.5cm;
+ endfor;
+ for whereto=0 step 1 until 359:
+ thdraw dir(whereto)*1.94cm--dir(whereto)*2cm;
+ endfor;
+ pickup pencircle scaled 1;
+ thdraw fullcircle scaled 1cm;
+ thdraw fullcircle scaled 1.1cm;
+ thdraw fullcircle scaled 1.3cm withpen pencircle scaled .3;
+ vald=90-decl;
+ texrot=0-decl;
+ drawarrow(dir(vald)*-2cm--dir(vald)*2cm) withpen pencircle scaled .2;
+ % Add the date of the last drawing
+ thdraw image(label.top(btex $mg$ etex, (0,0)) scaled .5 rotated texrot;) shifted (dir(vald)*2.04cm);
+ thfill (1.06cm,1.06cm)--(0,.2cm)--(-1.06cm,1.06cm)--(-.2cm,0)--(-1.06cm,-1.06cm)--(0,-.2cm)--(1.06cm,-1.06cm)--(.2cm,0)--cycle;
+ thfill (-.2cm,.2cm)--(0,2cm)--(0,0)--cycle;
+ thfill (.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle;
+ thfill (.2cm,.2cm)--(2cm,0)--(0,0)--cycle;
+ thfill (-.2cm,-.2cm)--(-2cm,0)--(0,0)--cycle;
+ thfill (.2cm,.2cm)--(-0,2cm)--(0,0)--cycle withcolor 1white;
+ thfill (.2cm,-.2cm)--(2cm,0)--(0,0)--cycle withcolor 1white;
+ thfill (-.2cm,-.2cm)--(0,-2cm)--(0,0)--cycle withcolor 1white;
+ thfill (-.2cm,.2cm)--(-2cm,0)--(0,0)--cycle withcolor 1white;
+ pickup pencircle scaled .2;
+ thdraw (-.2cm,.2cm)--(0,2cm)--(.2cm,.2cm)--(2cm,0cm)--(.2cm,-.2cm)--(0,-2cm)--(-.2cm,-.2cm)--(-2cm,0)--cycle;
+ thfill fullcircle scaled .56cm withcolor 1white;
+ pickup pencircle scaled .1;
+ thdraw (.28cm,0)..(0,.28cm)..(-.28cm,0)..(0,-.28cm)..cycle;
+ pickup pencircle scaled .4;
+ thdraw (.2cm,0)..(0,.2cm)..(-.2cm,0)..(0,-.2cm)..cycle;
+ label.bot(btex $N$ etex, (0,2.6cm));
+ label.lft(btex $E$ etex, (2.6cm,0));
+ label.rt(btex $W$ etex, (-2.6cm,0));
+ label.top(btex $S$ etex, (0,-2.6cm));
+ );
+ thdraw tmp_pic scaled valscal rotatedaround(origin, -rot);
+ enddef;
+
+ endcode
+
+endlayout
+
+
+ #######################################################################################################################################
+ layout test
+ # A test layout to test you new symbols, configurations,... ;-)
+ # Un layout de test pour tester vos nouveaux symboles, configurations,... ;-)
+
+ code metapost
+
+ def p_u_prof (expr P,R,S,A)=
+ T:=identity aligned A rotated R scaled S shifted P;
+ pickup PenD;
+ p:=(-.3u,0)--(.3u,0);
+ thdraw p;
+ #thdraw p rotated 90;
+ p:=fullcircle scaled .2u;
+ #thclean p;
+ thdraw p;
+ enddef;
+
+ vardef p_label@#(expr txt,P,R,mode) =
+ if mode=1:
+ thdrawoptions(withcolor .8red + .4blue);
+ # thdrawoptions(withcolor .8red + .6blue);
+ p_u_prof(P);
+ % append "m" to label
+ picture txtm;
+ % calcul profondeur
+ %numeric profondeur;
+ profondeur:=(\thaltitude-\cavemaxz);
+ picture txtprofondeur;
+ txtm:=image(
+ draw txt;
+ interim labeloffset:=0;
+ #label.urt(btex \thaltitude m etex, lrcorner txt);
+ label.urt(btex profondeur m etex, lrcorner txt);
+ %label.urt(btex \thdepth m etex, lrcorner txt);
+ );
+ % give extra offset in case of l/r/t/b alignment
+ pair ctmp;
+ ctmp:=center thelabel@#("x", (0,0));
+ if (xpart ctmp * ypart ctmp)=0:
+ interim labeloffset:=(.4u);
+ else: % diagonal alignment
+ interim labeloffset:=(.2u);
+ fi;
+ % draw label
+ lab:=thelabel@#(txtm, P);
+ draw lab _thop_; % use color
+ thdrawoptions();
+ bboxmargin:=0.8bp;
+ write_circ_bbox((bbox lab) smoothed 2);
+ else:
+ if mode=7: interim labeloffset:=(u/8) fi;
+ lab:=thelabel@#(txt, P);
+ if mode>1: pickup PenD fi;
+ if mode=2: process_uplabel;
+ elseif mode=3: process_downlabel;
+ elseif mode=4: process_updownlabel;
+ elseif mode=5: process_circledlabel;
+ elseif mode=6: process_boxedlabel;
+ elseif mode=7: process_label(P,R); % station name
+ elseif mode=8: process_filledlabel(P, R);
+ else: process_label(P,R); fi;
+ fi;
+ enddef;
+
+ endcode
+
+ endlayout
+
+
+######################################################################################################################################
+layout depth
+
+ code metapost
+ # Change the altitude definition
+ # This label requires to specify the position of text relative to point with
+ # help of -align in the options box.
+ # Changer la définition du point altitude
+ # Ce label nécessite la position spécifique de l'étiquette de texte de façon relative
+ # au point avec l'aide de l'option -align.
+ #ex: -align bottom-right/top-left/top-right/bottom-left/top/bottom/left/right...
+
+ #def p_altitude_depth (expr pos) =
+ def p_u_prof (expr pos) =
+ T:=identity shifted pos;
+ pickup PenD;
+ p:=(-.3u,0)--(.3u,0);
+ thdraw p; thdraw p rotated 90;
+ p:=fullcircle scaled .2u;
+ thclean p; thdraw p;
+ enddef;
+ # vardef p_label@#(expr txt,pos,rot,mode) =
+ # if mode=1:
+ # thdrawoptions(withcolor .8red + .4blue);
+ # p_u_prof(pos);
+ # #%% append "m" to label
+ # picture txtm;
+ # txtm:=image(
+ # draw txt;
+ # interim labeloffset:=0;
+ # label.urt(btex \thaltitude { m} etex, lrcorner txt);
+ # #label.urt(btex \thheight m etex, lrcorner txt);
+ # );
+ # #%% give extra offset in case of l/r/t/b alignment
+ # pair ctmp;
+ # ctmp:=center thelabel@#("x", (0,0));
+ # if (xpart ctmp * ypart ctmp)=0:
+ # interim labeloffset:=(.4u);
+ # else: % diagonal alignment
+ # interim labeloffset:=(.2u);
+ # fi;
+ # #% draw label
+ # lab:=thelabel@#(txtm, pos);
+ # draw lab _thop_; % use color
+ # thdrawoptions();
+ # bboxmargin:=0.8bp;
+ # write_circ_bbox((bbox lab) smoothed 2);
+ # else:
+ # if mode=7: interim labeloffset:=(u/8) fi;
+ # lab:=thelabel@#(txt, pos);
+ # if mode>1: pickup PenD fi;
+ # if mode=2: process_uplabel;
+ # elseif mode=3: process_downlabel;
+ # elseif mode=4: process_updownlabel;
+ # elseif mode=5: process_circledlabel;
+ # elseif mode=6: process_boxedlabel;
+ # elseif mode=7: process_label(pos,rot); % station name
+ # elseif mode=8: process_filledlabel(pos, rot);
+ # else: process_label(pos,rot); fi;
+ # fi;
+ # enddef;
+ endcode
+
+ #symbol-color point altitude_depth [100 100 100]
+
+endlayout
\ No newline at end of file
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/log.log b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/log.log
new file mode 100644
index 0000000..16fc2ee
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/log.log
@@ -0,0 +1,291 @@
+therion 6.3.1 (2024-11-22)
+ - using Proj 9.4.1, compiled against 9.4.1
+initialization file: C:\Program Files\Therion/therion.ini
+reading ... done
+configuration file: C:/Users/alexa/Desktop/Lonnee/AP260/AP260.thconfig
+reading ... done
+reading source files ... done
+preprocessing database ... done
+output coordinate system: UTM30
+meridian convergence (deg): -1.5498
+geomag declinations (deg):
+ 2024.1.1 1.0782
+ 2025.1.1 1.2430
+scanning centreline tree ... done
+searching for centerline loops ... done
+calculating station coordinates ... done
+processing survey data ...
+####################### cavern log file ########################
+ 1> Survex 1.4.15
+ 2> Copyright 1990-2024 Olly Betts
+ 3>
+ 4> La topographie contient 2 stations, connectes par 1 vis.
+ 5> Il y a 0 bouclages.
+ 6> Longueur totale de la topographie = 0.00m ( 0.00m ajust)
+ 7> Longueur totale en projection horizontale = 0.00m
+ 8> Longueur totale verticale = 0.00m
+ 9> Intervalle vertical = 0.00m (de 2 1720.00m jusqu' 2 1720.00m)
+10> Intervalle Nord-Sud = 0.00m (de 2 4760539.00m jusqu' 2 4760539.00m)
+11> Intervalle Est-Ouest = 0.00m (de 2 685335.00m jusqu' 2 685335.00m)
+12> 2 1-noeuds.
+13>
+######################### transcription ########################
+ 4> 2 : -@AP260_Entree.AP260 -- 1 : AP_260@AP260_Entree.AP260
+ 9> 2 : -@AP260_Entree.AP260 -- 2 : -@AP260_Entree.AP260
+10> 2 : -@AP260_Entree.AP260 -- 2 : -@AP260_Entree.AP260
+11> 2 : -@AP260_Entree.AP260 -- 2 : -@AP260_Entree.AP260
+12> 2 : -@AP260_Entree.AP260
+#################### end of cavern log file ####################
+done
+calculating basic statistics ... done
+processing extended elevation ... done
+processing references ... done
+selecting export objects ... done
+processing projection plan ... done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Data/AP260-Plan.xvi ... done
+processing projection extended ... done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Data/AP260-Extended.xvi ... done
+
+
+############### export maps & scraps selection #################
+M 1720.00 MP-AP260-Plan-tot@AP260 (AP260)
+S 1720.00 SP-AP260_Entree_01@AP260 ()
+########## end of export maps & scraps selection ###############
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260-Plan.pdf ...
+####################### metapost log file ########################
+This is MetaPost, version 2.01 (TeX Live 2021/W32TeX) (kpathsea version 6.3.3) 30 DEC 2024 20:53
+**data.mp
+(c:/Program Files/Therion/texmf/mpost/mpost.mp
+(c:/Program Files/Therion/texmf/mpost/plain.mp
+Preloading the plain mem file, version 1.005) ) (./data.mp
+{randomseed:=42}
+ [1] [2] [3] [4]
+[5] [6] [7] [8] [9] [10] [11] [12] [13] [14]
+[15] [1] (./mptextmp.mp) [2] (./mptextmp.mp) (./mptextmp.mp) (./mptextmp.mp)
+(./mptextmp.mp) (./mptextmp.mp) (./mptextmp.mp) [3] [4] [5] [6] [7] [8] [9]
+[10] [11] [12] [13] )
+
+Here is how much of MetaPost's memory you used:
+ 1604 strings using 44026 characters
+ 3665440 bytes of node memory
+ 1753 symbolic tokens
+ 9i,82n,12p,312b,5f stack positions out of 16i,98n,15p,312b,6f
+28 output files written: data-patt.1 .. data-patt.15
+
+
+#################### end of metapost log file ####################
+converting scraps ... done
+making map ... done
+######################## pdftex log file #########################
+This is pdfTeX, Version 3.141592653-2.6-1.40.22 (TeX Live 2021/W32TeX) (preloaded format=pdfetex 2023.12.2) 30 DEC 2024 20:53
+entering extended mode
+**data.tex
+(./data.tex (./th_enc.tex) (./th_texts.tex) (./th_resources.tex
+(c:/Program Files/Therion/texmf/tex/glyphtounicode.tex)) (./th_fontdef.tex{c:/P
+rogram Files/Therion/texmf/fonts/pdftex.map})
+(./th_formdef.tex) (./th_pagedef.tex (./th_legend.tex)) (./th_pages.tex
+Overfull \hbox (0.42943pt too wide) in paragraph at lines 66--1
+[][][] |
+
+\hbox(4.015+0.0)x4.015, glue set - 1.0
+.\hbox(0.0+0.0)x0.0
+.\hbox(4.015+0.0)x0.0
+..\pdfliteral{/OC /oc7 BDC}
+..\pdfliteral{q 0 0 0 0 k}
+..\pdfliteral{Q}
+..\pdfliteral{EMC}
+..\pdfliteral{q}
+..etc.
+.\hbox(0.0+0.0)x0.0
+..\hbox(4.015+348.51889)x0.0, glue set - 584.26279fil
+...\kern 0.0
+...\hbox(352.53389+0.0)x584.26279, shifted 348.51889 []
+...\glue 0.0 plus 1.0fil minus 1.0fil
+.\glue 3.33333 plus 1.66666 minus 1.11111
+.\glue 3.33333 plus 1.66666 minus 1.11111
+.etc.
+
+)
+ 60 numeric registers used out of 32768
+ [1]
+Overfull \vbox (5.985pt too high) has occurred while \output is active
+\vbox(4.015+0.0)x4.015
+.\glue(\topskip) 5.985 plus 60.0
+.\hbox(4.015+0.0)x4.015, glue set - 1.0
+..\hbox(0.0+0.0)x0.0
+..\hbox(4.015+0.0)x0.0
+...\pdfliteral{/OC /oc7 BDC}
+...\pdfliteral{q 0 0 0 0 k}
+...\pdfliteral{Q}
+...\pdfliteral{EMC}
+...\pdfliteral{q}
+...etc.
+..\hbox(0.0+0.0)x0.0
+...\hbox(4.015+348.51889)x0.0, glue set - 584.26279fil []
+..\glue 3.33333 plus 1.66666 minus 1.11111
+..\glue 3.33333 plus 1.66666 minus 1.11111
+..etc.
+.\hbox(0.0+0.0)x4.015
+.\kern 0.0
+.\glue 0.0 plus 1.0fil
+
+ [2] )
+(\end occurred when \ifx on line 12 was incomplete)
+Here is how much of TeX's memory you used:
+ 324 strings out of 95671
+ 4288 string characters out of 1192323
+ 22231 words of memory out of 1509274
+ 1717 multiletter control sequences out of 15000+50000
+ 21229 words of font info for 66 fonts, out of 1000000 for 2000
+ 844 hyphenation exceptions out of 5000
+ 12i,5n,8p,1688b,73s stack positions out of 5000i,500n,10000p,200000b,50000s
+
+Output written on data.pdf (2 pages, 40624 bytes).
+PDF statistics:
+ 69 PDF objects out of 1000 (max. 8388607)
+ 40 compressed objects within 1 object stream
+ 0 named destinations out of 1000 (max. 500000)
+ 121 words of extra memory for PDF output out of 10000 (max. 10000000)
+
+
+##################### end of pdftex log file #####################
+done
+
+
+############### export maps & scraps selection #################
+M 0.00 MC-AP260-Extended-tot@AP260 (AP260)
+S 0.00 SC-AP260_Entree_01@AP260 ()
+########## end of export maps & scraps selection ###############
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260-Extended.pdf ...
+####################### metapost log file ########################
+This is MetaPost, version 2.01 (TeX Live 2021/W32TeX) (kpathsea version 6.3.3) 30 DEC 2024 20:53
+**data.mp
+(c:/Program Files/Therion/texmf/mpost/mpost.mp
+(c:/Program Files/Therion/texmf/mpost/plain.mp
+Preloading the plain mem file, version 1.005) ) (./data.mp
+{randomseed:=42}
+ [1] [2] [3] [4]
+[5] [6] [7] [8] [9] [10] [11] [12] [13] [14]
+[15] [1] (./mptextmp.mp) [2] (./mptextmp.mp) (./mptextmp.mp) (./mptextmp.mp)
+(./mptextmp.mp) (./mptextmp.mp) (./mptextmp.mp) [3] [4] )
+
+Here is how much of MetaPost's memory you used:
+ 1603 strings using 44017 characters
+ 3665440 bytes of node memory
+ 1753 symbolic tokens
+ 9i,82n,12p,312b,5f stack positions out of 16i,98n,15p,312b,6f
+19 output files written: data-patt.1 .. data-patt.15
+
+
+#################### end of metapost log file ####################
+converting scraps ... done
+making map ... done
+######################## pdftex log file #########################
+This is pdfTeX, Version 3.141592653-2.6-1.40.22 (TeX Live 2021/W32TeX) (preloaded format=pdfetex 2023.12.2) 30 DEC 2024 20:53
+entering extended mode
+**data.tex
+(./data.tex (./th_enc.tex) (./th_texts.tex) (./th_resources.tex
+(c:/Program Files/Therion/texmf/tex/glyphtounicode.tex)) (./th_fontdef.tex{c:/P
+rogram Files/Therion/texmf/fonts/pdftex.map})
+(./th_formdef.tex) (./th_pagedef.tex (./th_legend.tex)) (./th_pages.tex
+Overfull \hbox (0.42943pt too wide) in paragraph at lines 66--1
+[][][] |
+
+\hbox(4.015+0.0)x4.015, glue set - 1.0
+.\hbox(0.0+0.0)x0.0
+.\hbox(4.015+0.0)x0.0
+..\pdfliteral{/OC /oc7 BDC}
+..\pdfliteral{q 0 0 0 0 k}
+..\pdfliteral{Q}
+..\pdfliteral{EMC}
+..\hbox(4.015+0.0)x0.0, glue set - 4.015fil
+...\kern 0.0
+...\hbox(4.015+0.0)x4.015 []
+...\glue 0.0 plus 1.0fil minus 1.0fil
+..etc.
+.\hbox(0.0+0.0)x0.0
+..\hbox(4.015+336.07033)x0.0, glue set - 4.015fil
+...\kern -422.85704
+...\hbox(340.08533+0.0)x426.87204, shifted 336.07033 []
+...\glue 0.0 plus 1.0fil minus 1.0fil
+.\glue 3.33333 plus 1.66666 minus 1.11111
+.\glue 3.33333 plus 1.66666 minus 1.11111
+.etc.
+
+)
+ 51 numeric registers used out of 32768
+ [1]
+Overfull \vbox (5.985pt too high) has occurred while \output is active
+\vbox(4.015+0.0)x4.015
+.\glue(\topskip) 5.985 plus 60.0
+.\hbox(4.015+0.0)x4.015, glue set - 1.0
+..\hbox(0.0+0.0)x0.0
+..\hbox(4.015+0.0)x0.0
+...\pdfliteral{/OC /oc7 BDC}
+...\pdfliteral{q 0 0 0 0 k}
+...\pdfliteral{Q}
+...\pdfliteral{EMC}
+...\hbox(4.015+0.0)x0.0, glue set - 4.015fil []
+...etc.
+..\hbox(0.0+0.0)x0.0
+...\hbox(4.015+336.07033)x0.0, glue set - 4.015fil []
+..\glue 3.33333 plus 1.66666 minus 1.11111
+..\glue 3.33333 plus 1.66666 minus 1.11111
+..etc.
+.\hbox(0.0+0.0)x4.015
+.\kern 0.0
+.\glue 0.0 plus 1.0fil
+
+ [2] )
+Here is how much of TeX's memory you used:
+ 315 strings out of 95671
+ 4216 string characters out of 1192323
+ 21906 words of memory out of 1508949
+ 1708 multiletter control sequences out of 15000+50000
+ 21229 words of font info for 66 fonts, out of 1000000 for 2000
+ 844 hyphenation exceptions out of 5000
+ 12i,5n,8p,1688b,73s stack positions out of 5000i,500n,10000p,200000b,50000s
+
+Output written on data.pdf (2 pages, 38226 bytes).
+PDF statistics:
+ 51 PDF objects out of 1000 (max. 8388607)
+ 31 compressed objects within 1 object stream
+ 0 named destinations out of 1000 (max. 500000)
+ 67 words of extra memory for PDF output out of 10000 (max. 10000000)
+
+
+##################### end of pdftex log file #####################
+done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260.lox .... done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260.kml ... done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260-Cave-list.html ... done
+writing C:/Users/alexa/Desktop/Lonnee/AP260/Outputs/AP260-Surveys.html ... done
+compilation time: 2 sec
+
+
+###################### scrap distortions #######################
+ PROJECTION: plan
+ AVERAGE MAXIMAL SCRAP
+ 0.00% 0.00% SP-AP260_Entree_01@AP260
+################### end of scrap distortions ###################
+
+
+###################### scrap distortions #######################
+ PROJECTION: extended
+ AVERAGE MAXIMAL SCRAP
+ 0.00% 0.00% SC-AP260_Entree_01@AP260
+################### end of scrap distortions ###################
+
+############# CRS transformations chosen by PROJ ###############
+ Area of Use (AoU): (-0.727, 42.975) (-0.727, 42.975)
+ [UTM30 → LONG-LAT] AoU: [yes] transformation: [Inverse of UTM zone 30N + axis order change (2D)] definition: [proj=pipeline step inv proj=utm zone=30 ellps=WGS84 step proj=unitconvert xy_in=rad xy_out=deg] accuracy: [0.000 m]
+ [UTM30 → LAT-LONG] AoU: [no] transformation: [Inverse of UTM zone 30N + axis order change (2D)] definition: [proj=pipeline step inv proj=utm zone=30 ellps=WGS84 step proj=unitconvert xy_in=rad xy_out=deg] accuracy: [0.000 m]
+ [UTM30 → UTM30] AoU: [yes] transformation: [Inverse of UTM zone 30N + UTM zone 30N] definition: [proj=noop ellps=GRS80] accuracy: [0.000 m]
+ [UTM30 → EPSG:4326] AoU: [yes] transformation: [Inverse of UTM zone 30N + axis order change (2D)] definition: [proj=pipeline step inv proj=utm zone=30 ellps=WGS84 step proj=unitconvert xy_in=rad xy_out=deg] accuracy: [0.000 m]
+ [EPSG:4326 → UTM30] AoU: [yes] transformation: [axis order change (2D) + UTM zone 30N] definition: [proj=pipeline step proj=unitconvert xy_in=deg xy_out=rad step proj=utm zone=30 ellps=WGS84] accuracy: [0.000 m]
+########## end of CRS transformations chosen by PROJ ###########
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/readme.md b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/readme.md
new file mode 100644
index 0000000..4bc64e7
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/AP260/readme.md
@@ -0,0 +1,8 @@
+#Template for pyCreate_th2.py
+
+to add this survey in a main survey add in
+
+tot.th file
+
+AP260.{survey}
+equate
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/B3_Bourrugues/Data/B3_Entree/Data/B3_Entree-plan.th2 b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/B3_Bourrugues/Data/B3_Entree/Data/B3_Entree-plan.th2
index 7d1f98f..c908ade 100644
--- a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/B3_Bourrugues/Data/B3_Entree/Data/B3_Entree-plan.th2
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/B3_Bourrugues/Data/B3_Entree/Data/B3_Entree-plan.th2
@@ -1,6 +1,6 @@
encoding utf-8
##XTHERION## xth_me_area_adjust -128.00000000000182 -128.0 30128.0162 16774.1822
-##XTHERION## xth_me_area_zoom_to 200
+##XTHERION## xth_me_area_zoom_to 100
##XTHERION## xth_me_image_insert {26614.199999999997 1 1.0} {3425.2 B_3@B3_Entree_01.B3_Entree} B3_Entree-map.xvi 0 {}
# Copyright (C) ARSIP 2024 https://www.arsip.fr/
@@ -14,6 +14,8 @@ encoding utf-8
scrap SP-B3_Entree_01 -station-names "" "@B3_Entree_01" -author 1990 "Yvon Hénaff" -author 1990 "François Ichas" -author 1990 "Olivier Gaspé" -author 2024 "Alexandre Pont" -copyright 2024 "licence CC by-nc-nd : http://creativecommons.org/licenses/by-nc-nd/4.0/" -scale [0 0 1600 0 0.0 0.0 40.64 0.0 m]
+point 26547.0 3104.0 label -text B3 -scale xl
+
point 26555.0 3304.0 entrance -orientation 40.6
line pit -reverse on
@@ -346,6 +348,7 @@ line wall -reverse on
26922.0 3620.0 26967.0 3641.0 26985.0 3631.0
27003.0 3621.0 27012.0 3625.0 27018.0 3588.0
27024.0 3551.0 27006.0 3485.5 27001.0 3465.5
+ smooth off
endline
line wall -reverse on
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.th2 b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.th2
new file mode 100644
index 0000000..13e0c56
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.th2
@@ -0,0 +1,23 @@
+encoding utf-8
+##XTHERION## xth_me_area_adjust 0.0 0.0 0.0 0.0
+##XTHERION## xth_me_area_zoom_to 100
+##XTHERION## xth_me_image_insert {0.001 1.0} {0.00 GL_04} GL04_Cam_Claque-Extended.xvi 0 {}
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-21:04:26
+
+# x_min: 0.0, x_max: 0.0 ecart : 0.0
+# y_min: 0.0, y_max: 0.0 ecart : 0.0
+
+scrap SC-GL04_Entree_01 -station-names "" "@GL04_Entree" -projection extended -author 2024 "Alexandre Pont" -copyright 2024 "Licence CC by-nc-nd : http://creativecommons.org/licenses/by-nc-nd/4.0/"
+
+ point 0.00 0.00 station -name GL_04
+
+
+
+
+
+endscrap
\ No newline at end of file
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.xvi b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.xvi
new file mode 100644
index 0000000..9f67e5f
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Extended.xvi
@@ -0,0 +1,8 @@
+set XVIgrids {2.0 m}
+set XVIstations {
+ { 0.00 0.00 GL_04}
+}
+set XVIshots {
+ { 0.00 0.00 0.00 0.00}
+}
+set XVIgrid {0 0 15.748 0.0 0.0 15.748 1 1}
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.th2 b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.th2
new file mode 100644
index 0000000..bedcd14
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.th2
@@ -0,0 +1,28 @@
+encoding utf-8
+##XTHERION## xth_me_area_adjust -135.87302 -135.87402 165.0 294.5
+##XTHERION## xth_me_area_zoom_to 200
+##XTHERION## xth_me_image_insert {0.001000000000000334 1.0 1.0} {0.0 GL_04} GL04_Cam_Claque-Plan.xvi 0 {}
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-21:04:26
+
+# x_min: 0.0, x_max: 0.0 ecart : 0.0
+# y_min: 0.0, y_max: 0.0 ecart : 0.0
+
+
+
+
+scrap SP-GL04_Entree_01 -projection plan -station-names "" "@GL04_Entree" -author 2024 "Alexandre Pont" -copyright 2024 "Licence CC by-nc-nd : http://creativecommons.org/licenses/by-nc-nd/4.0/" -scale [0.0 0.0 256.0 0.0 0.0 0.0 6.5024 0.0 m]
+
+point 3.0 284.0 label -text GL4 -scale xl
+
+point 34.5 39.0 entrance -orientation 215.8
+
+point 0.00 0.00 station -name GL_04
+
+endscrap
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.xvi b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.xvi
new file mode 100644
index 0000000..5c2d8e7
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque-Plan.xvi
@@ -0,0 +1,8 @@
+set XVIgrids {2.0 m}
+set XVIstations {
+ { 0.00 0.00 GL_04}
+}
+set XVIshots {
+ { 0.00 0.00 0.00 0.00}
+}
+set XVIgrid {-7.87402 -7.87402 15.748 0.0 0.0 15.748 1 1}
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.lox b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.lox
new file mode 100644
index 0000000..bae5eb0
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.lox differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.th
new file mode 100644
index 0000000..3deb195
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Data/GL04_Cam_Claque.th
@@ -0,0 +1,36 @@
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+encoding utf-8
+
+survey GL04_Entree -title "Gouffre du Cam de Caque GL04" -entrance "GL_04"
+
+ centerline
+ date 2024.06.30
+
+ team "Michel Douat"
+
+
+ #explo-date YYYY.MM.DD
+ explo-team "ARSIP"
+
+
+ cs UTM30
+ fix GL_04 682365 4760497 1636 # Coordonnées MD 30 06 2024 Karsteau
+ station GL_04 "GL4 Gouffre du Cam de Caque" entrance
+
+
+ units length meters
+ units compass degrees
+ units clino degrees
+
+ data topofil from to length compass clino left right up down
+
+ GL_04 - 0.00 0.00 0.00 0 0 0 0 #
+
+ endcenterline
+
+endsurvey
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-maps.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-maps.th
new file mode 100644
index 0000000..8b02b0b
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-maps.th
@@ -0,0 +1,21 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+
+# File generated by pyCreate_th2.py version 2024.12.30 date: 2024.12.30-21:04:26
+
+map MP-GL04_Cam_Claque-Plan-tot -title "GL04_Cam_Claque"
+ SP-GL04_Entree_01
+ break
+endmap
+
+map MC-GL04_Cam_Claque-Extended-tot -title "GL04_Cam_Claque"
+ SC-GL04_Entree_01
+ break
+endmap
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-tot.th b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-tot.th
new file mode 100644
index 0000000..62d4153
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque-tot.th
@@ -0,0 +1,23 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+
+# File generated by pyCreate_th2.py (version 2024.12.30) date: 2024.12.30 21:04:26
+
+survey GL04_Cam_Claque -title "GL04_Cam_Claque"
+ input Data/GL04_Cam_Claque.th
+
+ ## Pour le plan
+ input Data/GL04_Cam_Claque-Plan.th2
+
+ ## Pour la coupe développée
+ input Data/GL04_Cam_Claque-Extended.th2
+
+ ## Appel des maps
+ input GL04_Cam_Claque-maps.th
+
+endsurvey
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque.thconfig b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque.thconfig
new file mode 100644
index 0000000..ceb67f6
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/GL04_Cam_Claque.thconfig
@@ -0,0 +1,386 @@
+#Template for pyCreate_th2.py
+encoding utf-8
+
+###############################################################################################
+
+# Copyright (C) ARSIP 2024
+# This work is under the Creative Commons Attribution-NonCommercial-NoDerivatives License:
+#
+
+# File generated by pyCreate_th2.py (version 2024.12.30) date: 2024.12.30 21:04:26
+###############################################################################################
+
+## INTRO
+
+## Le signe "#" en début de ligne signifie que la ligne est commentée. Elle ne
+## sera donc pas lue lors de la compilation.
+
+## Dans ce fichier on met les specifications generales, à savoir
+## dans quel fichier sont les donnees topo, l'aspect que l'on veut
+## donner aux topos imprimées (layout) et ce que l'on
+## veut comme résultat : map, ou atlas ou 3D ou donnees en format SQL
+
+## Alors, on peut fractionner ce fichier en trois parts:
+## - source, pour specifier les fichiers ou sont les données topo/dessin
+## - layout, pour specifier la composition du document à imprimer
+## - export: map, atlas, etc
+
+###############################################################################################
+## 1-SOURCES
+###############################################################################################
+## La ligne source spécifie le fichier ou sont les donnees topo
+## jb.th". (Au fichier "jb.th" il faudra avoir une ligne
+## "input "nomducavite.th2" pour specifier le fichier ou se trouvent
+## les donnees du dessin, comme ça, ce fichier thconfig appellera
+## "jb.th" et a leur tour, "jb.th" appellera
+## "jb-dessin.th2")
+
+source GL04_Cam_Claque-tot.th
+
+## Add config file
+input config.thc
+
+###############################################################################################
+## 2-LAYOUT
+###############################################################################################
+## Ici, on peut specifier des choses comme les symboles à utiliser (UIS, etc)
+## ou imprimer des explications des symboles
+
+## Début de la définition du Layout "xviexport"
+layout xviexport
+ #cs UTM32
+ ## echelle à laquelle on veut dessiner la topo
+ scale 1 500
+ #scale 1 1000
+ ## taille de la grille
+ grid-size 2 2 2 m
+ ## mettre la grille en arrière plan
+ grid bottom
+endlayout
+## fin de la définition du layout "xviexport"
+
+## Début de la définition du layout "Layout-Plan"
+layout layout-Plan
+ ## Call the config settings (Layout config inside the config.thc file)
+ copy drawingconfig
+ #copy layoutcontinuation # Pour afficher le label des continuations
+ copy headerl
+ copy langue-fr
+
+ ## Définition du système de projection du plan
+ cs UTM30
+
+ ## La ligne base-scale spécifie l'échelle auquel nous avons dessiné nos croquis.
+ ## Par défaut, Therion pense que c'est une échelle 1:200. Si on a utilisé une autre échelle,
+ ## il faut enlever le "#" et spécifier l'échelle vraiment employée, comme c'est le cas
+ ## après avoir dessiné la topo sur un cheminement exporté avec le layout "xviexport".
+ ## Jouer avec le ration base-scale/scale permet de jouer globalement sur les tailles
+ ## des caractères et des traits.
+ base-scale 1 500
+
+ ## Maintenant on va mettre une ligne "scale" pour specifier l'échelle pour imprimer la topo.
+ ## La combination entre scale et base-scale contrôle l'épaisseur des lignes, rotation, etc, convenable
+ ## pour faire l'ampliation-réduction entre dessin et le résultat de l'imprimante
+ ## C'est tres important s'assurer que la configuration de l'imprimante ne spécifie pas l'option "Fit in page"
+ ## ou similaire, sinon, l'échelle sera changée pendant l'impression!
+ scale 1 500
+
+ ## Echelle graphique 100 m ampleur (Généralement, le choix scale/10 est plutôt pas mal)
+ scale-bar 100 m
+
+ ## Voici une ligne pour specifier qu'il faut imprimer une grille au dessous de la topo
+ grid bottom
+
+ ## Défini la rotation de la topographie
+ #rotate -65
+
+ ## Une ligne pour specifier que la grille est 1000x1000x1000 m
+ ## (Trois dimensions, oui, ça sert pour la coupe aussi)
+ grid-size 50 50 50 m
+
+ ## la topo est transparente (on peut voir les galeries en dessous)
+ ## C'est on par défaut, donc, pas vraiment besoin de specifier
+ transparency on
+
+ ## Couleurs de la topographie
+ #colour map-bg [70 90 70]
+ #colour map-fg [100 100 80]
+ #colour map-fg altitude
+ #colour map-fg explo-date
+ #colour map-fg topo-date
+ #colour map-fg map
+ #colour map-fg scrap
+ #colour-legend off
+ colour map-fg 90
+
+ ## ça marche seulement si transparency est "on" 90% blanc= 10% noir
+ opacity 75
+ #surface bottom
+ #surface-opacity 100
+
+ ## Auteur
+ doc-author "Alexandre Pont"
+ ## Titre
+ doc-title "GL04 Cam Claque Plan - 1:500"
+
+ ## Maintenant on spécifie la position de la manchette, dont l'intérieur est occupé par le titre, auteurs, etc.
+ ## Nous pouvons indiquer les cordonnées du point de la topo ou l'on veut la manchette :
+ ## 0 0, c'est en bas, à gauche, 100 100, c'est en haut, à droite
+ ## La manchette a des "points cardinaux" autour : n, s, ne, sw, etc.
+ ## Il faut specifier un de ces points comme ce que sera placé sur les cordonnées.
+ ## Alors nous pouvons specifier que le sud-ouest de la manchette soit placé en bas, a gauche,
+ ## ou une autre combination...
+ map-header 2 98 nw
+
+ ## arrière plan de la manchette
+ map-header-bg on
+ ## Légende pour expliciter les symboles. "on" imprimera seulement la légende des symboles dessinés
+ ## sur la topo. Si l'on veut pour tous les symboles, utilisés ou pas, il faut indiquer "all".
+ ## "legend off" = pas de légende
+ legend on
+ ## Par défaut, la légende est de 14 cm de largeur
+ legend-width 15 cm
+ legend-columns 2
+ ## Un commentaire à ajouter au titre, on pourrait indiquer ici la mairie où est placée la cavité
+ ## dont le nom est probablement le titre de la topo.
+ map-comment "Massif de la Pierre Saint Martin - Larra"
+ #map-comment "Massif de la Pierre Saint Martin - Larra
Coordonnées : (UTM30/WGS84) xxx.xxx xxxx.xxx, Alt.: xxxx m"
+
+ ## Afficher les statistiques d'explo/topo par équipe/nom. C'est lourd
+ ## si la cavité est importante et qu'il y a beaucoup d'explorateurs/topographes.
+ statistics explo-length off
+ statistics topo-length off
+
+ ## Afficher un copyright
+ statistics copyright 2
+
+ ## Dessin ou pas du cheminement topo
+ #symbol-hide point station
+ #symbol-hide line survey
+ #symbol-hide group
+ #symbol-show line wall
+ #symbol-hide point station-name
+ #symbol-hide point u:symbol_plan
+ #symbol-hide point u:symbol_extend
+ #debug scrap-names
+ #debug station-names
+
+ layers on
+
+ overlap 2 cm
+
+ code tex-map
+ \legendwidth=15cm
+ \legendtextsize={\size[12]}
+ \legendtextheadersize={\size[28]} %%% Taille du titre
+ \legendtextsectionsize={\size[14]} %%% Taille du titre
+ %\legendtextcolor={\color[0 0 110]} %# RGB values 0--100
+ % Output map title as determined by Therion is stored in cavename, défini par la une Map.
+ % It will be empty if there are multiple maps selected for any one projection
+ % AND there are multiple source surveys identified in the thconfig file
+ % ie Therion can not infer a unique title from the input data given.
+ % This code allows you to define an output map title GL04 Cam Claque if it happens to be empty
+ \edef\temp{\the\cavename} % cavename from Therion
+ \edef\nostring{} % empty string
+ \ifx\temp\nostring % test if cavename is empty
+ % if empty
+ reassign cavename to describe selected maps as a group
+ \else % if not empty keep the value set by therion, or assign an override cavename here
+ \fi
+ \cavename={GL04 Cam Claque, Plan 1:500} % Note Alex : Bug avec certains fichiers ?
+ \newtoks\club \club={ARSIP}
+ %\newtoks\thanksto \thanksto={Merçi à tout le monde}
+ \newtoks\wpage \wpage={https://www.arsip.fr/}
+ \newtoks\datat \datat={https://github.com/Alex38Lyon/Synthese-PSM\_LARRA}
+ \newtoks\synth \synth={Alexandre Pont}
+ \framethickness=0.5mm
+ endcode
+
+endlayout
+
+##debut de la definition du layout "layout-Extended"
+layout layout-Extended
+ ## Call the config settings (Layout config inside the config.thc file)
+ copy drawingconfig
+ #copy layoutcontinuation # Pour afficher le label des continuations
+ copy header_coupe
+ #copy headerl
+ #copy header_coupe_vert-auto
+ #copy header_coupe_vert-to-place
+ copy langue-fr
+
+ ## Définition du système de projection du plan
+ cs UTM30
+
+ ## La ligne base-scale spécifie l'échelle auquel nous avons dessiné nos croquis.
+ ## Par défaut, Therion pense que c'est une échelle 1:200. Si on a utilisé une autre échelle,
+ ## il faut enlever le "#" et spécifier l'échelle vraiment employée, comme c'est le cas
+ ## après avoir dessiné la topo sur un cheminement exporté avec le layout "xviexport".
+ ## Jouer avec le ration base-scale/scale permet de jouer globalement sur les tailles
+ ## des caractères et des traits.
+ base-scale 1 500
+
+ ## Maintenant on va mettre une ligne "scale" pour specifier l'échelle pour imprimer la topo.
+ ## La combination entre scale et base-scale contrôle l'épaisseur des lignes, rotation, etc, convenable
+ ## pour faire l'ampliation-réduction entre dessin et le résultat de l'imprimante
+ ## C'est tres important s'assurer que la configuration de l'imprimante ne spécifie pas l'option "Fit in page"
+ ## ou similaire, sinon, l'échelle sera changée pendant l'impression!
+ scale 1 500
+
+ ## Echelle graphique 100 m ampleur (Généralement, le choix scale/10 est plutôt pas mal)
+ scale-bar 40 m
+
+ ## Voici une ligne pour specifier qu'il faut imprimer une grille au dessous de la topo
+ #grid bottom
+ grid off
+ ## Une ligne pour specifier que la grille est 1000x1000x1000 m
+ ## (Trois dimensions, oui, ça sert pour la coupe aussi)
+ #grid-size 250 250 250 m
+
+ ## la topo est transparente (on peut voir les galeries inférieurs)
+ ## C'est on par défaut, donc, pas vraiment besoin de specifier
+ transparency on
+
+ ## Couleurs de la topographie
+ #colour map-bg [70 90 70]
+ #colour map-fg [100 100 80]
+ #colour map-fg altitude
+ #colour map-fg explo-date
+ #colour map-fg topo-date
+ #colour map-fg map
+ #colour map-fg scrap
+ #colour-legend off
+ colour map-fg 90
+
+ ## ça marche seulement si transparency est "on" 90% blanc= 10% noir
+ opacity 75
+ #surface bottom
+ #surface-opacity 100
+
+ ## Auteur
+ doc-author "Alexandre Pont"
+ ## Titre
+ doc-title "GL04 Cam Claque Coupe développée - 1:500"
+
+ ## Maintenant on spécifie la position de la manchette, dont l'intérieur est occupé par le titre, auteurs, etc.
+ ## Nous pouvons indiquer les cordonnées du point de la topo ou l'on veut la manchette :
+ ## 0 0, c'est en bas, à gauche, 100 100, c'est en haut, à droite
+ ## La manchette a des "points cardinaux" autour : n, s, ne, sw, etc.
+ ## Il faut specifier un de ces points comme ce que sera placé sur les cordonnées.
+ ## Alors nous pouvons specifier que le sud-ouest de la manchette soit placé en bas, a gauche,
+ ## ou une autre combination...
+ map-header 98 98 ne
+ ## arrière plan de la manchette
+ map-header-bg on
+ ## Légende pour expliciter les symboles. "on" imprimera seulement la légende des symboles dessinés
+ ## sur la topo. Si l'on veut pour tous les symboles, utilisés ou pas, il faut indiquer "all".
+ ## "legend off" = pas de légende
+ legend on
+ ## Par défaut, la légende est de 14 cm de largeur
+ legend-width 15 cm
+ legend-columns 2
+ ## Un commentaire à ajouter au titre, on pourrait indiquer ici la mairie où est placée la cavité
+ ## dont le nom est probablement le titre de la topo.
+ map-comment "Massif de la Pierre Saint Martin - Larra"
+ #map-comment "Massif de la Pierre Saint Martin - Larra
Coordonnées : (UTM30/WGS84) xxx.xxx xxxx.xxx, Alt.: xxxx m"
+
+ ## Afficher les statistiques d'explo/topo par équipe/nom. C'est lourd
+ ## si la cavité est importante et qu'il y a beaucoup d'explorateurs/topographes.
+ statistics explo-length off
+ statistics topo-length off
+
+ ## Afficher un copyright
+ statistics copyright 2
+
+ ## Dessin ou pas du cheminement topo
+ #symbol-hide point station
+ #symbol-hide line survey
+ #symbol-hide group
+ #symbol-show line wall
+ #symbol-hide point u:symbol_plan
+ #symbol-hide point u:symbol_extend
+ #debug scrap-names
+ #debug station-names
+
+ layers on
+
+ overlap 2 cm
+
+ ## Modification du Titre de la topo
+ code tex-map
+ \legendwidth=15cm
+ \legendtextsize={\size[12]}
+ \legendtextheadersize={\size[28]} %%% Taille du titre
+ \legendtextsectionsize={\size[14]} %%% Taille du titre
+ %\legendtextcolor={\color[0 0 110]} %# RGB values 0--100
+ % Output map title as determined by Therion is stored in cavename, défini par la une Map.
+ % It will be empty if there are multiple maps selected for any one projection
+ % AND there are multiple source surveys identified in the thconfig file
+ % ie Therion can not infer a unique title from the input data given.
+ % This code allows you to define an output map title GL04 Cam Claque if it happens to be empty
+ \edef\temp{\the\cavename} % cavename from Therion
+ \edef\nostring{} % empty string
+ \ifx\temp\nostring % test if cavename is empty
+ % if empty
+ reassign cavename to describe selected maps as a group
+ \else % if not empty keep the value set by therion, or assign an override cavename here
+ \fi
+ \cavename={GL04 Cam Claque, Coupe développée 1:500} % Note Alex : Bug avec certains fichiers ?
+ \newtoks\club \club={ARSIP}
+ %\newtoks\thanksto \thanksto={Merçi à tout le monde}
+ \newtoks\wpage \wpage={https://www.arsip.fr/}
+ \newtoks\datat \datat={https://github.com/Alex38Lyon/Synthese-PSM\_LARRA}
+ \newtoks\synth \synth={Alexandre Pont}
+ \framethickness=0.5mm
+ endcode
+
+endlayout
+## Fin de la definition du Layout "normal"
+
+layout layout-kml
+ ## Définition du système de projection du plan
+ cs EPSG:2154
+ ## Couleur de la topographie
+ ## Rouge-Orange = 255,69,0 -->
+ ## Orange = 255,165,0 -->
+ ## Orange Sombre = 255,140,0 -->
+ ## Bleu --> 0, 0 255
+ color map-fg [0 0 100]
+endlayout
+
+###############################################################################################
+# 3-EXPORT
+###############################################################################################
+
+## Export des xvi pour le dessin si besoin
+export map -proj plan -layout xviexport -fmt xvi -o Data/GL04_Cam_Claque-Plan.xvi
+export map -proj extended -layout xviexport -fmt xvi -o Data/GL04_Cam_Claque-Extended.xvi
+
+## Selection des Maps à exporter
+select MP-GL04_Cam_Claque-Plan-tot@GL04_Cam_Claque
+select MC-GL04_Cam_Claque-Extended-tot@GL04_Cam_Claque
+
+## Export des fichiers pdf, plan et coupe.
+## ATTENTION, la topo étant énorme, il faut mettre l'option ne traçant pas la centerline !
+
+export map -projection plan -fmt pdf -layout layout-Plan -o Outputs/GL04_Cam_Claque-Plan.pdf
+export map -projection extended -fmt pdf -layout layout-Extended -o Outputs/GL04_Cam_Claque-Extended.pdf
+
+## Export du fichier 3d pour Loch
+export model -enable all -o Outputs/GL04_Cam_Claque.lox
+export model -enable all -o Outputs/GL04_Cam_Claque.kml
+
+## Export des fichiers ESRI
+#export map -proj plan -fmt esri -o Outputs/GL04_Cam_Claque
+
+## Export des fichiers kml
+#export map -proj plan -fmt kml -o Outputs/GL04_Cam_Claque.kml -layout layout-kml
+#export model -fmt kml -o Outputs/GL04_Cam_Claque-model.kml -enable all
+#export model -enable all -o Outputs/GL04_Cam_Claque-3D.kml
+export cave-list -location on -o Outputs/GL04_Cam_Claque-Cave-list.html
+export survey-list -location on -o Outputs/GL04_Cam_Claque-Surveys.html
+
+
+###############################################################################################
+## END
+###############################################################################################
\ No newline at end of file
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Cave-list.html b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Cave-list.html
new file mode 100644
index 0000000..2d837a6
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Cave-list.html
@@ -0,0 +1,43 @@
+
+
+GL04_Cam_Claque-Cave-list.html
+
+
+
+
+
+
+| Title | Length | Depth | Explored | X | Y | Altitude |
+| GL04_Cam_Claque | 0 | | | | | |
+| Gouffre du Cam de Caque GL04 | 0 | | | 682365.000 | 4760497.000 | 1636.000 |
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Extended.pdf b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Extended.pdf
new file mode 100644
index 0000000..ecec7ab
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Extended.pdf differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Plan.pdf b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Plan.pdf
new file mode 100644
index 0000000..3ceafa3
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Plan.pdf differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Surveys.html b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Surveys.html
new file mode 100644
index 0000000..feb7e97
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque-Surveys.html
@@ -0,0 +1,43 @@
+
+
+GL04_Cam_Claque-Surveys.html
+
+
+
+
+
+
+| Title | Length | Depth | Explored | Approx. | Duplicate | Surface | Shots | Stations |
+| GL04_Cam_Claque | 0 | 0.0 | 0 | 0 | 0 | 0 | 1 | 2 |
+| Gouffre du Cam de Caque GL04 | 0 | 0.0 | 0 | 0 | 0 | 0 | 1 | 2 |
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.kml b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.kml
new file mode 100644
index 0000000..61e4500
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.kml
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+ https://therion.speleo.sk/downloads/KmlIconModel.png
+
+Depth 0 m]]>
+
+#ThEntranceIcon
+ -0.76355919170487,42.97528412852289,1636.00000000000000
+
+
+
+
+GL_04
+#ThSurveyLine
+
+
+ -0.76355919170487,42.97528412852289,1636.00000000000000 -0.76355919170487,42.97528412852289,1636.00000000000000
+
+
+
+
+
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.lox b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.lox
new file mode 100644
index 0000000..7b55c3a
Binary files /dev/null and b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/GL04_Cam_Claque.lox differ
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/outputs.txt b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/outputs.txt
new file mode 100644
index 0000000..4a3b6e4
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/Outputs/outputs.txt
@@ -0,0 +1,2 @@
+Folder where Therion outputs are exported
+
diff --git a/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/config.thc b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/config.thc
new file mode 100644
index 0000000..c7a80cb
--- /dev/null
+++ b/Data/Complexe_Lonne_Peyret-Bourrugues/Data/GL04_Cam_Claque/config.thc
@@ -0,0 +1,3112 @@
+encoding utf-8
+######################################################################################################################################
+# Version template pyCreate_th2.py By Alex 2024 12 30
+######################################################################################################################################
+
+
+
+######################################################################################################################################
+# Licence
+######################################################################################################################################
+#
+# Released under a Creative Commons Attribution-ShareAlike-NonCommercial License:
+# Publié sous la licence Creative Commons Attribution-ShareAlike-NonCommercial:
+#
+#
+# Written by: / Écrit par : Xavier Robert
+#
+
+# File to set up specific settings for Therion drawing outputs
+# In your *.thconfig file, you need to call this file with:
+# Fichier pour définir une configuration pour les dessins de issus de Therion
+# Dans votre fichier *.thconfig, vous devez appeler ce fichier avec la ligne :
+# input config.thc
+# and then, in each layout, you need to call the corresponding layout:
+# et ensuite, dans chaque layout de votre thconfig, vous devez appeler les layouts qui vous intéressent comme par exemple :
+# copy drawingconfig
+#
+# Lots of definition comes from (or are deeply inspired by) the excellent Therion Wiki
+# Beaucoup de définitions proviennent (ou sont fortement inspirées) de l'excellent Wiki Therion
+# https://therion.speleo.sk/wiki/doku.php
+# https://therion.speleo.sk/wiki/tbe:wiki6
+# https://therion.speleo.sk/wiki/metapost
+# https://thomas-holder.de/projects/therion/
+
+
+# Existing user points / nouvelles définitions de points :
+# - nid/nest (u:nest)
+# - gradient --> geologic dip
+# - danger (u:danger)
+# - chauves-souris/bats (u:bats)
+# - stalactite boss (u:boss)
+# - Shell/coquille fossile (u:shell)
+# - Masonry/maçonnerie (u:masonry)
+# - Ex voto/Signature (u:ex_voto)
+# - Human bones/Ossements humains (u:human_bones)
+# - Walking Caver/Spéléo qui marche (u:man_w)
+# - Climbing caver/Spéléo qui grimpe (u:man_c)
+# - Plan view symbol/symbole de vue en plan (u:symbol_plan)
+# - extended view symbol/symbole de vue en coupe développée (u:symbol_extend)
+# - entrance
+# - block point
+# - block user (u:block)
+
+# Existing user lines:
+# - strate/strata (u:strata; option -clip off)
+# - coupole (u:coupole; option -clip off)
+# - faille/fault (u:fault; option -clip off)
+# - doline (u:doline; option -clip off)
+# - chauves-souris/bats (u:bats)
+# - rail (u:rail)
+# - plan walk/ (u:planwalk)
+# - handrail/rambarde (u:handrail)
+# - Surface (u:surf)
+# - Dive line/fil d'Ariane (u:ariane)
+# - Deviation (u:deviation)
+# - rock border
+
+# Existing user areas:
+# - boue/mud (u:boue)
+# - guano (u:guano)
+# - chauves-souris/bats (u:bats)
+# - tronc/tree-trunk (u:tronc)
+# - feuilles/tree-leaves (u:feuilles)
+# - Tunnel initiation/Départ de galerie (u:galerie)
+
+# layout definition:
+# - layout langue-fr
+# - layout langue-es
+# - layout langue-en
+# - layout drawingconfig
+# - layout scalebar_horiz
+# - layout scalebar_vert-Halama
+# - layout scalebar_vert
+# - layout headerl
+# - layout header_coupe_vert-to-place
+# - layout header_coupe_vert-auto
+# - layout header_coupe
+# - layout header-plan-schema
+# - layout header_coupe-schema
+# - layout headeratlas
+# - layout layoutmapborder
+# - layout LayoutAtlasNorthArrow2
+# - layout LayoutAtlasNorthArrow
+# - layout AtlasSetUp
+# - layout layoutcontinuation
+# - layout northarrowMG
+# - layout test
+# - layout depth
+
+######################################################################################################################################
+# change the names for the legend
+# change les descriptions des symboles pour la légende
+######################################################################################################################################
+text en "line u:rope" "rope"
+text fr "line u:rope" "corde"
+text es "line u:rope" "cuerda"
+
+text en "line u:fault" "fault"
+text fr "line u:fault" "faille"
+text es "line u:fault" "falla"
+
+text en "line u:strata" "strata"
+text fr "line u:strata" "strate"
+text es "line u:strata" "strata"
+
+text en "line u:doline" "doline"
+text fr "line u:doline" "doline"
+text es "line u:doline" "dolina"
+
+text en "point u:bats" "bat(s)"
+text fr "point u:bats" "chauve-souris"
+text es "point u:bats" "murciélago(s)"
+
+text en "line u:bats" "bat path"
+text fr "line u:bats" "passage de chauve-souris"
+text es "line u:bats" "ruta de murciélagos"
+
+text en "area u:bats" "lot of bats"
+text fr "area u:bats" "beaucoup de chauve-souris"
+text es "area u:bats" "muchos murciélagos"
+
+text fr "area u:galerie" "départ de galerie"
+text en "area u:galerie" "tunnel departure"
+text es "area u:galerie" "salida de galeria"
+
+text en "point u:guacharos" "guacharos"
+text fr "point u:guacharos" "guacharos"
+text es "point u:guacharos" "guacharos"
+
+text fr "point danger" "danger !"
+text en "point danger" "danger !"
+text es "point danger" "danger !"
+
+text en "point masonry" "masonry"
+text fr "point masonry" "maçonnerie/murs"
+text es "point masonry" "albañilería/muros"
+
+text en "point ex-voto" "ex voto"
+text fr "point ex-voto" "ex voto/signature"
+text es "point ex-voto" "ex voto/firma"
+
+text en "point human-bones" "human bones"
+text fr "point human-bones" "ossements humains"
+text es "point human-bones" "huesos humanos"
+
+text en "point u:boss" "stalagmite boss"
+text fr "point u:boss" "stalagmite boss"
+text es "point u:boss" "stalagmite boss"
+
+text fr "area u:guano" "guano"
+text en "area u:guano" "guano"
+text es "area u:guano" "guano"
+
+text fr "area u:boue" "lac de boue"
+text en "area u:boue" "mud lake"
+text es "area u:boue" "lago de barro"
+
+text fr "area u:tronc" "tronc d'arbre"
+text en "area u:tronc" "Tree trunk"
+text es "area u:tronc" "tronca de árbol"
+
+text fr "area u:feuilles" "feuilles/feuillage"
+text en "area u:feuilles" "tree leaves"
+text es "area u:feuilles" "Hojas de árbol"
+
+text en "line u:sentier" "trail"
+text fr "line u:sentier" "sentier"
+text es "line u:sentier" "sendero"
+
+text en "point u:shell" "shell"
+text fr "point u:shell" "fossile"
+text es "point u:shell" "fosíl"
+
+# Correction texte espagnol
+text es "point air-draught" "corriente de aire"
+text es "line rock-border" "contorno de bloque"
+#text es "point water-flow" "curso de agua"
+#text es "line water-flow" "curso de agua"
+#text es "group water-flow" "curso de agua"
+text es "point water-flow:permanent" "riachuelo"
+text es "line water-flow:permanent" "riachuelo"
+text es "point water-flow:intermittent" "riachuelo intermitente"
+text es "line water-flow:intermittent" "riachuelo intermitente"
+text es "line water-flow:conjectural" "riachuelo supuesto"
+
+text es "line rock-edge" "arista de bloque"
+text es "point cave-pearl" "perlas de cavernas"
+
+text es "point rimstone-dam" "travertino"
+text es "point rimstone-pool" "travertino"
+text es "point stalactite" "estalactita"
+text es "point stalactites" "estalactitas"
+text es "point stalagmite" "estalagmita"
+text es "point stalagmites" "estalagmitas"
+text es "point pillars" "pilares"
+text es "point pillar" "pilare"
+
+text fr "point traverse" "vire"
+text fr "point ice-stalagmite" "stalagmite de glace"
+
+text fr "point u:anchor_artificial" "Ancrage artificiel"
+text fr "point u:anchor_natural" "Ancrage naturel"
+
+text en "point u:man_w" "caver (walking)"
+text fr "point u:man_w" "spéléo (marchant)"
+text es "point u:man_w" "espeleológo (caminando)"
+
+text en "point u:man_c" "caver (climbing)"
+text fr "point u:man_c" "spéléo (grimpant)"
+text es "point u:man_c" "espeleológo (escalando)"
+
+text en "point u:symbol_plan" ""
+text fr "point u:symbol_plan" ""
+text es "point u:symbol_plan" ""
+
+text en "point u:symbol_extend" ""
+text fr "point u:symbol_extend" ""
+text es "point u:symbol_extend" ""
+
+text en "point wall-altitude" "altitude (m)"
+text fr "point wall-altitude" "altitude (m)"
+text es "point wall-altitude" "altura (m)"
+
+
+
+######################################################################################################################################
+### Layouts Languages/langues
+######################################################################################################################################
+# Different layouts to manage languages (en, fr, es)
+# In your thconfig, call the layout langue-XX where XX is en, fr or es
+# You need to add one of these layout if you use the layout headerl or header_coupe
+# If you want to add one of the field club, syntesys, web page, expedition, guide,
+# add the following line in the code tex-map/endcode block of your layout in the thconfig
+# \newtoks\YYYY \YYYY={the value of your variable}
+# where YYYY = club, synth, wpage, expe or guide
+# Différents layouts pour définir les langues (pour l'instant : en, fr, es)
+# Dans votre thconfig, appelez le layout langue-XX où XX est en, fr ou es
+# Vous devez ajouter l'un de ces layouts si vous voulez utiliser les layouts headerl ou header_coupe
+# qui redéfinissent la présentation et les informations du cartouche (header).
+# Si vous voulez ajouter un de ces champs club, syntesys, web page, expedition, guide,
+# rajouter la ligne suivante dans le bloc code tex-map/endcode de votre layout dans votre thconfig
+# (voir les exemples)
+# \newtoks\YYYY \YYYY={Valeur de votre varialbe}
+# où YYYY = club, synth, wpage, expe or guide
+#
+# You may add new fields, following the examples in the layouts.
+# If you add a new field, you need to edit the layout(s) headerl and/or header_coupe
+# Vous pouvez ajouter de nouveaux champs, en suivant les exemples dans les layouts suivant.
+# Si vous rajouter un nouveau champ, vous devrez éditer le(s) layout(s) headerl et/ou header_coupe
+
+######################################################################################################################################
+layout langue-fr
+ # Définit la langue française
+ language fr
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compilation }
+ \newtoks\datetitle \datetitle={le }
+ \newtoks\thproj \thproj={Projection }
+ \newtoks\thclub \thclub={Club(s) }
+ \newtoks\thsynth \thsynth={Synthèse }
+ \newtoks\thwpage \thwpage={Page internet }
+ \newtoks\thexpe \thexpe={Expedition }
+ \newtoks\thguide \thguide={Guide(s) }
+ \newtoks\thdatat \thdatat={Données topographiques }
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\ththanksto \ththanksto{Remerciements }
+ \newtoks\thcoords \thcoords{Coordonnées}
+ \newtoks\explolengthtitle \explolengthtitle{Longueur explorée }
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Profondeur explorée }
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+endlayout
+
+######################################################################################################################################
+layout langue-es
+ # Definición del idioma español
+ language es
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compilación}
+ \newtoks\datetitle \datetitle={el }
+ \newtoks\thproj \thproj={Proyección}
+ \newtoks\thclub \thclub={Club(es)}
+ \newtoks\thsynth \thsynth={Síntesis}
+ \newtoks\thwpage \thwpage={Página web}
+ \newtoks\thexpe \thexpe={Expedición}
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\thguide \thguide={Guia(s)}
+ \newtoks\thdatat \thdatat={Datos topograficas}
+ \newtoks\ththanksto \ththanksto{Nuestros agradecimientos }
+ \newtoks\thcoords \thcoords{Coordinadas GPS (WGS84) }
+ \newtoks\explolengthtitle \explolengthtitle{Longitud explorada}
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Profondidad explorada}
+
+ \cartotitle={Dibujo}
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+
+endlayout
+
+######################################################################################################################################
+layout langue-en
+ # Set the language english
+ language en
+
+ code tex-map
+ % Definition of variables for the tuned headers :
+ \newtoks\thversiontitleB \thversiontitleB={Therion }
+
+ \newtoks\thversiontitleA \thversiontitleA={Compiled}
+ \newtoks\datetitle \datetitle={on }
+ \newtoks\thproj \thproj={Projection}
+ \newtoks\thclub \thclub={Club(s)}
+ \newtoks\thsynth \thsynth={Synthesys}
+ \newtoks\thwpage \thwpage={Web page}
+ \newtoks\thexpe \thexpe={Expedition}
+ \newtoks\depthrangetitle \depthrangetitle={Depth range from }
+ \newtoks\thguide \thguide={Guide(s)}
+ \newtoks\thdatat \thdatat={Survey's data}
+ \newtoks\ththanksto \ththanksto{Acknowledgments }
+ \newtoks\thcoords \thcoords{GPS coordinates (WGS84) }
+ \newtoks\explolengthtitle \explolengthtitle{Explored length}
+ \newtoks\explodepthtitle \explodepthtitle{\thinspace{}---\thinspace{}\thinspace{}\thinspace{}\thinspace{}Explored depth}
+
+ # Initiate variables
+ \newtoks\club \club={}
+ \newtoks\synth \synth={}
+ \newtoks\wpage \wpage={}
+ \newtoks\expe \expe={}
+ \newtoks\guide \guide={}
+ \newtoks\datat \datat={}
+ \newtoks\thanksto \thanksto={}
+ \newtoks\ECoordinates \ECoordinates={}
+
+ endcode
+
+endlayout
+
+### End of the layouts languages
+### Fin des layouts languages
+#______________________________
+
+######################################################################################################################################
+######################################################################################################################################
+layout drawingconfig
+ # Layout to draw the map and extended view.
+ # Layout pour dessiner les plans et les coupes développées.
+
+ # pdf-Author
+ # Auteur du pdf
+ doc-author "Xavier Robert"
+
+ # Set the symology you want to use: UIS, ASF (Australie) CCNP (Etats Units), SKB (tchecoslovakia)
+ # Définit la banque de symboles que nous voulons utiliser :
+ # UIS, ASF (Australie) CCNP (Etats Units) ou SKB (tchecoslovakia)
+ #symbol-set UIS
+ # Change the type or colors of specific symbols:
+ # Changer le type ou la couleur de symboles spécifiques:
+
+
+ symbol-assign area sand AUT
+ symbol-assign point pillar AUT
+ symbol-assign point station:temporary SKBB
+ symbol-assign point entrance MY
+ #symbol-assign point entrance UIS
+
+
+ symbol-color area clay [52 33 6] # Color to verify
+ symbol-color area flowstone [100 60 20]
+ symbol-color area ice [0 0 100]
+ symbol-color area moonmilk [100 60 20] # Change the color ?
+ symbol-color area mudcrack [52 33 6] # Color to verify ; Maybe to darken
+ symbol-color area pillar [100 60 20]
+ symbol-color area pillar-with-curtains [100 60 20]
+ symbol-color area sand [67 49 1] # Color to verify
+ symbol-color area snow [0 0 100]
+ symbol-color area stalactite [100 60 20]
+ symbol-color area stalactite-stalagmite [100 60 20]
+ symbol-color area stalagmite [100 60 20]
+
+ symbol-color line contour [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line ceiling-meander [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line flowstone [100 60 20]
+ symbol-color line floor-meander [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line floor-step [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line map-connection [69 69 69] # Gris acier (175, 175, 175)
+ symbol-color line rimstone-dam [100 60 20]
+ symbol-color line rimstone-pool [100 60 20]
+ symbol-color line rock-border [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line rock-edge [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line slope [34 21 3] # Marron : (87, 56, 8)
+ symbol-color line rope [58 44 25]
+ symbol-color line survey [46 46 46] # Gris foncé (117, 117, 117) / acier (175, 175, 175)
+ symbol-color line wall:clay [52 33 6] # Color to verify
+ symbol-color line wall:flowstone [100 60 20]
+ symbol-color line wall:ice [0 0 100]
+ symbol-color line wall:moonmilk [100 60 20] # Change the color ?
+ symbol-color line water-flow [17 46 100]
+ symbol-color line water-flow:conjectural [17 46 100]
+ symbol-color line water-flow:intermittent [17 46 100]
+
+ symbol-color point altitude [100 50 0]
+ symbol-color point aragonite [100 60 20]
+ symbol-color point blocks [34 21 3] # Marron : (87, 56, 8)
+ symbol-color point breakdown-choke [34 21 3] # Marron : (87, 56, 8)
+ symbol-color point cave-pearl [100 60 20]
+ symbol-color point clay [52 33 6] # Color to verify
+ symbol-color point clay-choke [52 33 6] # Color to verify
+ symbol-color point curtain [100 60 20]
+ symbol-color point curtains [100 60 20]
+ symbol-color point disc-pillar [100 60 20]
+ symbol-color point disc-pillars [100 60 20]
+ symbol-color point disc-stalactite [100 60 20]
+ symbol-color point disc-stalactites [100 60 20]
+ symbol-color point disc-stalagmite [100 60 20]
+ symbol-color point disc-stalagmites [100 60 20]
+ symbol-color point disk [100 60 20]
+ symbol-color point flowstone [100 60 20]
+ symbol-color point flowstone-choke [100 60 20]
+ symbol-color point helictite [100 60 20]
+ symbol-color point helictites [100 60 20]
+ symbol-color point ice [0 0 100]
+ symbol-color point ice-pillar [0 0 100]
+ symbol-color point ice-stalactite [0 0 100]
+ symbol-color point ice-stalagmite [0 0 100]
+ symbol-color point moonmilk [100 60 20] # Change the color ?
+ symbol-color point mud [52 33 6] # Color to verify
+ symbol-color point mudcrack [52 33 6] # Color to verify
+ symbol-color point pillar [100 60 20]
+ symbol-color point pillar-with-curtains [100 60 20]
+ symbol-color point pillars [100 60 20]
+ symbol-color point pillars-with-curtains [100 60 20]
+ symbol-color point popcorn [100 60 20]
+ symbol-color point rimstone-dam [100 60 20]
+ symbol-color point root [52 33 6]
+
+ symbol-color point seed-germination [13 47 6]
+ symbol-color point snow [0 0 100]
+ symbol-color point soda-straw [100 60 20]
+ symbol-color point spring [17 46 100]
+ symbol-color point stalactite [100 60 20]
+ symbol-color point stalactite-stalagmite [100 60 20]
+ symbol-color point stalactite-stalagmite [100 60 20]
+ symbol-color point stalactites [100 60 20]
+ symbol-color point stalactites-stalagmites [100 60 20]
+ symbol-color point stalactites-stalagmites [100 60 20]
+ symbol-color point stalagmite [100 60 20]
+ symbol-color point stalagmites [100 60 20]
+ symbol-color point station [54 7 60]
+ symbol-color point station-name [80 80 80] # light grey
+ symbol-color point vegetable-debris [13 47 6]
+ symbol-color point volcano [52 33 6] # Color to verify
+ symbol-color point wall-altitude [100 50 0]
+ symbol-color point wall-calcite [100 60 20]
+ symbol-color point water [17 46 100]
+ symbol-color point water-drip [17 46 100]
+ symbol-color point water-flow [17 46 100]
+ symbol-color point water-flow:intermittent [17 46 100]
+ symbol-color point water-flow:paleo [17 46 100]
+
+ ####### Metapost-changes ############
+ code metapost
+
+ #fonts_setup( 12, 16, 32, 64, 96 );
+
+ # Modify length/depth statistics to print
+ # Modifier l'aspect et les données des statistiques de longueur affichées si besoin
+ #code tex-map
+ # \cavelength{1330\thinspace{}m}
+ # + 150\thinspace{}m estimes}
+ # \cavedepth{243\thinspace{}m}
+ #endcode
+
+ # Change the entrance symbole
+ # Changer le symbole d'entrée
+ def p_entrance_MY (expr pos,theta,sc,al)=
+ U:=(0.0u,0.0u);
+ T:=identity aligned al rotated 0.0 scaled sc shifted pos;
+ path p;
+ p = (-.3u,-.25u) -- (-.2u,-.25u){dir 135} .. (0u, .25u) .. {dir 225}(.2u,-.25u) -- (.3u,-.25u);
+ thdraw p withpen PenA;
+ thdraw unitsquare scaled 1.2u shifted (-0.6u,-0.6u) rotated 0.0 withpen PenD;
+ enddef;
+
+ initsymbol("p_entrance_MY");
+
+ # Change the block symbole
+ # Changer le symbole de block
+ def p_blocks (expr pos,theta,sc,al)=
+ base_symbolsize :=0.30u; %Factor*u; Factor=size of the blocks
+ size_factor := 0.5 + uniformdeviate 0.5; % Pour le polygone principal
+ symbolsize := base_symbolsize * size_factor;
+ U:=(.5u,.5u);
+ random_theta := uniformdeviate 360;
+ T:=identity aligned al rotated random_theta scaled sc shifted pos;
+ pickup PenC;
+ thfill (.0symbolsize,.0symbolsize)--(1.0symbolsize,-.5symbolsize)--(0.0symbolsize,-1.5symbolsize)--(-1.0symbolsize,-1.0symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.6;
+ thdraw (.0symbolsize,.0symbolsize)--(1.0symbolsize,-.5symbolsize)--(0.0symbolsize,-1.5symbolsize)--(-1.0symbolsize,-1.0symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ thfill (.5symbolsize,-.25symbolsize)--(1.0symbolsize,.5symbolsize)--(0.0symbolsize,1.5symbolsize)--(-0.5symbolsize,.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.4;
+ thdraw (.5symbolsize,-.25symbolsize)--(1.0symbolsize,.5symbolsize)--(0.0symbolsize,1.5symbolsize)--(-0.5symbolsize,.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ thfill (.0symbolsize,.0symbolsize)--(.0symbolsize,.5symbolsize)--(-1.5symbolsize,.5symbolsize)--(-1.5symbolsize,-0.5symbolsize)--(-0.5symbolsize,-0.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.5;
+ thdraw (.0symbolsize,.0symbolsize)--(.0symbolsize,.5symbolsize)--(-1.5symbolsize,.5symbolsize)--(-1.5symbolsize,-0.5symbolsize)--(-0.5symbolsize,-0.5symbolsize)--cycle withcolor (0.341117, 0.219607, 0.031372);
+ enddef;
+
+ # Change the rock bordersymbole
+ # Changer le symbole des ligne rock border
+ def l_rockborder (expr p) =
+ % Vérifie si le chemin est fermé
+ %if p[0] = point infinity of p:
+ % Remplit la zone avec une couleur si le chemin est fermé
+ %fill p withcolor (0.34, 0.21, 0.3);
+
+ %draw p withcolor 0.5green;
+ %fi;
+ thfill p --cycle withcolor (0.341117, 0.219607, 0.031372) withalpha 0.5;
+ thdraw p --cycle withcolor (0.341117, 0.219607, 0.031372);
+ % Dessine la bordure de la ligne (même si elle n'est pas fermée)
+ %draw p withcolor (0.34, 0.21, 0.3);
+ enddef;
+
+
+ def p_u_block(expr pos,theta,sc,al) =
+ T:=identity aligned al rotated theta scaled sc shifted pos;
+ path p q;
+ p := (2.3u,0.9u)--(0.65u,1u)--(-0.9u,0.6u)--(-2.15u,-0.1u)--(-2.35u,-0.25u)--(-2.5u,-0.5u)--(-2u,-0.65u)--(-0.75u,-0.65u)--(0.6u,-0.7u)--(1.1u,-0.5u)--(2.1u,-0.15u)--cycle;
+ pickup PenB;
+ thdraw p;
+ % The following line uses the code from Colour Dependant Visualization of Symbols by Bruce Mutton
+ if known colour_block_bg: thfill p withcolor colour_block_bg; else: thfill p withcolor (0.75,0.75,0.75); fi;
+ q := (-2.5u,-0.5u)--(-2u,-0.65u)--(-0.75u,-0.65u)--(0.6u,-0.7u)--(1.1u,-0.5u)--(2.1u,-0.15u)--(2.3u,0.9u)--(2.5u,0.7u)--(2.5u,0.5u)--(2.25u,-0.9u)--(1.1u,-1.3u)--(0.5u,-1.5u)--(-0.75u,-1.4u)--(-2u,-1.15u)--(-2.35u,-0.65u)--cycle;
+ thdraw q;
+ thfill q withcolor(0.6,0.6,0.6);
+ pickup PenD;
+ path p;
+ p := (-2u,-0.65u)--(-1.9u,-1u);
+ thdraw p;
+ path p;
+ p := (0.6u,-0.7u)--(0.5u,-1.3u);
+ thdraw p;
+ path p;
+ p := (2.1u,-0.15u)--(2.3u,-0.4u);
+ thdraw p;
+ enddef;
+
+ initsymbol("p_u_block");
+
+
+
+ # Change the dashed line for the line wall:presumed
+ # Changer la ligne pointillée du symbole line wall:presumed
+ def l_wall_presumed (expr P) =
+ T:=identity;
+ pickup PenA;
+ # Old definition
+ #thdraw P dashed evenly scaled (2*optical_zoom);
+ # New definition
+ thdraw P dashed evenly scaled (.1u);
+ enddef;
+
+ # Change the dashed line for the line chimney
+ # Changer la ligne pointillée du symbole line chemney (cheminée)
+ def l_chimney (expr P) =
+ T:=identity;
+ pickup PenC;
+ %thdraw P dashed evenly scaled optical_zoom;
+ thdraw P dashed evenly scaled (.05u);
+ enddef;
+
+ # To change blocs size in the area blocks
+ #