This commit is contained in:
Alex38Lyon
2026-03-16 20:42:46 +01:00
parent 3ad98a1af6
commit 60e2da3ee5
37 changed files with 178914 additions and 154357 deletions
+540 -261
View File
@@ -1,10 +1,9 @@
encoding utf-8
######################################################################################################################################
# Version ARSIP By Alex 2025 11 17
# Version ARSIP By Alex 2026 03 16
######################################################################################################################################
######################################################################################################################################
# Licence
######################################################################################################################################
@@ -28,9 +27,9 @@ encoding utf-8
#
#<en> Lots of definition comes from (or are deeply inspired by) the excellent Therion Wiki
#<fr> 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://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/
#
#
@@ -275,7 +274,6 @@ text fr "line u:bush" "buisson"
text es "line u:bush" "arbusto"
######################################################################################################################################
### Layouts Languages/langues
######################################################################################################################################
@@ -314,18 +312,18 @@ layout langue-fr
\newtoks\thversiontitleA \thversiontitleA={Compilation}
\newtoks\datetitle \datetitle={le }
\newtoks\thproj \thproj={Projection}
\newtoks\thclub \thclub={Réalisation}
\newtoks\thsynth \thsynth={Synthèse}
\newtoks\thwpage \thwpage={Web}
\newtoks\thexpe \thexpe={Expedition}
\newtoks\thguide \thguide={Guide(s)}
\newtoks\thdatat \thdatat={Données}
\newtoks\thdatabase \thdatabase={Base de données}
\newtoks\depthrangetitle \depthrangetitle={Profondeurs depuis}
\newtoks\ththanksto \ththanksto{Remerciements}
\newtoks\thcoords \thcoords{Coordonnées}
\newtoks\explolengthtitle \explolengthtitle{Longueur explorée}
\newtoks\thproj \thproj={Projection }
\newtoks\thclub \thclub={Réalisation }
\newtoks\thsynth \thsynth={Synthèse }
\newtoks\thwpage \thwpage={Web }
\newtoks\thexpe \thexpe={Expedition }
\newtoks\thguide \thguide={Guide(s) }
\newtoks\thdatat \thdatat={Données }
\newtoks\thdatabase \thdatabase={Base de données }
\newtoks\depthrangetitle \depthrangetitle={Profondeurs depuis }
\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
@@ -340,6 +338,40 @@ layout langue-fr
\newtoks\ECoordinates \ECoordinates={}
endcode
code tex-atlas
#% 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={Réalisation }
\newtoks\thsynth \thsynth={Synthèse }
\newtoks\thwpage \thwpage={Web }
\newtoks\thexpe \thexpe={Expedition }
\newtoks\thguide \thguide={Guide(s) }
\newtoks\thdatat \thdatat={Données }
\newtoks\thdatabase \thdatabase={Base de données }
\newtoks\depthrangetitle \depthrangetitle={Profondeurs depuis }
\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\database \database={}
\newtoks\thanksto \thanksto={}
\newtoks\ECoordinates \ECoordinates={}
endcode
endlayout
######################################################################################################################################
@@ -383,6 +415,41 @@ layout langue-es
endcode
code tex-atlas
#% 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={Realización}
\newtoks\thsynth \thsynth={Síntesis}
\newtoks\thwpage \thwpage={Web}
\newtoks\thexpe \thexpe={Expedición}
\newtoks\depthrangetitle \depthrangetitle={Depth range from }
\newtoks\thguide \thguide={Guia(s)}
\newtoks\thdatat \thdatat={Datos topograficas}
\newtoks\thdatabase \thdatabase={Dase de datos}
\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\database \database={}
\newtoks\thanksto \thanksto={}
\newtoks\ECoordinates \ECoordinates={}
endcode
endlayout
######################################################################################################################################
@@ -424,6 +491,39 @@ layout langue-en
endcode
code tex-atlas
#% 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={Realisation}
\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\thdatabase \thdatabase={Data base}
\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\database \database={}
\newtoks\thanksto \thanksto={}
\newtoks\ECoordinates \ECoordinates={}
endcode
endlayout
###<en> End of the layouts languages
@@ -435,8 +535,6 @@ endlayout
#<fr> Layout principal pour dessiner les plans et les coupes développées.
######################################################################################################################################
layout drawingconfig
#<en> pdf-Author
#<fr> Auteur du pdf
@@ -2304,6 +2402,7 @@ layout scalebar_horiz
endgroup;
enddef;
endcode
endlayout
######################################################################################################################################
@@ -2375,7 +2474,6 @@ layout scalebar_vert-Halama
endcode
endlayout
######################################################################################################################################
#<en> Layout to define a vertical Scale bar
#<fr> Layout pour définir une barre d'échelle verticale
@@ -2428,8 +2526,6 @@ endlayout
# Bruce Mutton Therion 5.3.15 fait appel à de nouvelles variables
######################################################################################################################################
layout headerl
copy scalebar_horiz
#<en> This one affects maps only
@@ -2580,7 +2676,6 @@ endlayout
######################################################################################################################################
layout headerl_LT
copy scalebar_horiz
#<en> This one affects maps only
@@ -2835,6 +2930,7 @@ layout headerl_XXLT
# {\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}
@@ -3220,6 +3316,7 @@ layout header_coupe
\color[0 0 0]
}
endcode
endlayout
@@ -3340,23 +3437,28 @@ layout header_coupe-schema
\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
@@ -3370,34 +3472,42 @@ layout header_coupe-schema
\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}
@@ -3424,207 +3534,259 @@ layout header_coupe-schema
endlayout
######################################################################################################################################
#<en> 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
#<fr> 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
#<en> Layout for the set of the Atlas
#<fr> Layout pour définir le set up de l'Atlas
######################################################################################################################################
layout headeratlas
layout Atlas_layout
#<en> "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)
#<fr> "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 # A4 Portrait
# page-setup 29.7 21 27.2 17 0.5 0.5 cm # A4 Paysage
page-setup 42 29.7 40 27.2 1 1 cm # A3 Paysage
#<en> "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.
#<fr> "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 # A4 Portrait
# size 20 15 cm # A4 Paysage
size 38 21 cm # A3 Paysage
#<en> In the atlas, we choose an overlap of 1 cm with the neibourghood pages
#<fr> Dans l'atlas, on va superposer 1 cm de chaque page voisine
overlap 1 cm
#<en> Print (or not) the title of the pages before each capter of the Atlas
#<fr> Affiche (ou non) le titre des pages avant chaque chapitre de l’atlas
title-pages on
#<en> Zoom factor of the navigation pannel; by default, 30
#<fr> Facteur de zoom du panneau de navigation ; Par défault, 30
nav-factor 30
#<en> Define the number of pages in the 2 directions of the navigation pannel
#<fr> Définir le nombre de pages de l'atlas dans les 2 directions du panneau de navigation
nav-size 2 2
copy scalebar_horiz
#<en> This one affects maps only
#<fr> 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
######################################################################################################################################
#<en> If you want to draw a frame around the map
#<fr> Si vous voulez un cadre autour de votre topographie
######################################################################################################################################
layout layoutmapborder
code tex-map
\framethickness=0.5mm
endcode
endlayout
######################################################################################################################################
#<en> CODE TO CUSTOMISE ATLAS OUTPUT
#<fr> CODE POUR CUSTOMISER L'ATLAS
#<en> 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)
#<fr> 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)
######################################################################################################################################
layout LayoutAtlasNorthArrow2
code tex-atlas
\newbox\arsiplogo \setbox\arsiplogo=\hbox{\loadpicture{./Logos/Logo-ARSIP-Synthese-Topographique_XS.png}}
\newbox\arsipheaderlogo \setbox\arsipheaderlogo=\hbox{\loadpicture{./Logos/Logo-ARSIP-Synthese-Topographique.png}}
\legendtextsize={\size[12]}
\cavename={Atlas général des réseaux de la Pierre Saint-Martin \_ Larra}
\datat={https://github.com/Alex38Lyon/Synthese-PSM\_LARRA}
\database={https://karsteau.org/}
\synth={Alexandre Pont pour l'ARSIP}
#####################################################################################
# Page de titre personnalisée #
#####################################################################################
\def\atlastitlepages{%
\vbox{%
# %print logo
\vfill\vskip1cm
\centerline{\copy\arsipheaderlogo} % Logo centré
\vskip2cm\vfill
# %print cave map name
\edef\tmp{\the\cavename} \ifx\tmp\empty \else
\centerline{\the\legendtextheadersize\the\cavename}\vskip1cm
\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}
# % CS
\edef\tmp{\the\outcsname} \ifx\tmp\empty \else
\vskip0.5cm
# %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, }
\fi
\edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par\vskip0.5cm}
\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\vskip0.5cm}
\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\vskip0.5cm}
\fi
# %%print the guides
# \edef\tmp{\the\guide} \ifx\tmp\empty \else
# {\the\legendtextsize\si\the\thguide: \ss\the\guide\par\vskip0.5cm}
# \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\vskip0.5cm}
\fi
# %%print the web page
{\the\legendtextsize\si Page web : https://www.arsip.fr/\par}
# %%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 the survey's database web page
\edef\tmp{\the\database} \ifx\tmp\empty \else
{\the\legendtextsize\si\the\thdatabase: \ss\the\database\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
# % 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
# %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
}%
}
#####################################################################################
# Redéfinition de \dopage pour les pages de carte #
#####################################################################################
\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
}
}
\vbox{%
% Cadre de la carte
\centerline{\framed{\mapbox}}
\bigskip
% Ligne avec informations et navigateur
\line{ %
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\vbox{
\hbox{%
\vbox{%
\hbox{\size[24]\the\pagename} % ligne 1 : nom de page
\ifpagenumbering
\medskip
\hbox{% % ligne 2 + lignes 3-4 côte à côte
\vbox{
\hbox{\size[18]Page : \the\pagenum % bloc gauche : numéro de page
\space(\the\pagelabel)\hskip1em}
}\hskip1.5em
\vbox{ % bloc droit : pointeurs + scalebar
\hbox{%
\vtop{%
\hbox to 0pt{\hss\showpointer\pointerN\hss}
\hbox to 0pt{%
\llap{\showpointer\pointerW\hskip0.8em}%
\hss\vbox{
\hbox{\hfil$\updownarrow$\hfil}
\nointerlineskip
\hbox{\hfil$\leftrightarrow$\hfil}
}
\hss\rlap{\hskip0.8em\showpointer\pointerE}%
}
\hbox to 0pt{\hss\showpointer\pointerS\hss}
}
}
\ifscalebar\hbox{\hskip1.5cm\scalebar}\fi
}
}
\fi
}
}
}
\hss
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\vbox to \ht\navbox{ % Cadre 2 : Bloc central
\vss\centerline{\copy\arsiplogo}\vss % Logo
}
\hss
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\vbox to \ht\navbox{ % Cadre 3 : bas droit
\ifnortharrow\hbox to 0pt{\hss\northarrow\qquad}\fi % flèche nord
\vss
}
\box\navbox % Cadre zoom général
}
}%
}
#####################################################################################
# Insertion des pages #
#####################################################################################
\atlastitlepages % page de titre
\insertmaps % pages de cartes
# \def\formattedlegend{%
# \centerline{\legendtitle}
# \centerline{\insertlegend}
# \vbox{%
# \vskip 1cm % marge en haut de la légende
# \centerline{%
# \vbox{%
# \legendtitle
# }%
# }%
# \vskip 1cm % marge en haut de la légende
# \hbox to \hsize{\hss % largeur totale de la page
# \centerline{%
# \vbox{%
# \insertlegend
# }%
# }%
# \hss}%
# \vskip 1cm % marge en bas si nécessaire
# }%
# }
\formattedlegend % légende à la fin
endcode
endlayout
endlayout
######################################################################################################################################
#<en> Layout for the set of the Atlas North Arrow to override
@@ -3655,58 +3817,175 @@ layout LayoutAtlasNorthArrow
label.rt(thTEX("mg") scaled 1.6, (.6cm,-1.6cm)) transformed T;
endgroup;
enddef;
endcode
endcode
endlayout
######################################################################################################################################
#<en> Layout for the set of the Atlas
#<fr> Layout pour définir le set up de l'Atlas
#<en> 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
#<fr> 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
######################################################################################################################################
layout AtlasSetUp
#<en> "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.
#<fr> "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
#<en> In the atlas, we choose an overlap of 1 cm with the neibourghood pages
#<fr> Dans l'atlas, on va superposer 1 cm de chaque page voisine
overlap 1 cm
#<en> "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)
#<fr> "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
#<en> Print (or not) the title of the pages before each capter of the Atlas
#<fr> Affiche (ou non) le titre des pages avant chaque chapitre de l’atlas
title-pages on
#<en> Zoom factor of the navigation pannel; by default, 30
#<fr> Facteur de zoom du panneau de navigation ; Par défault, 30
nav-factor 30
#<en> Define the number of pages in the 2 directions of the navigation pannel
#<fr> Définir le nombre de pages de l'atlas dans les 2 directions du panneau de navigation
nav-size 2 2
layout headeratlas
copy scalebar_horiz
#<en> This one affects maps only
#<fr> Ceci ne touche que les maps (plans)
code tex-atlas
\atlastitlepages
\insertmaps
# \atlastitlepages
\legendcontent={%
\hsize=\legendwidth
\color[55 55 55]\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[55 55 55]
}
endcode
endlayout
######################################################################################################################################
#<en> If you want to draw a frame around the map
#<fr> Si vous voulez un cadre autour de votre topographie
######################################################################################################################################
layout layoutmapborder
code tex-map
\framethickness=0.5mm
endcode
endlayout
######################################################################################################################################
#<en> If you want to write all the texts that go with continuations marks