Commit 1193e02d authored by Benoit Urruty's avatar Benoit Urruty
Browse files

DEM

parent ec546bd2
This diff is collapsed.
encoding utf-8
source Ded.th
################################# Layout général #############################
layout mon_layout_general
language fr ### choix de la langue => fr
legend off ### présence de la légende des symboles ? => on/off
map-header-bg on ### cartouche avec fond opaque (on)
legend-width 25 cm ### cartouche avec largeur maxi de xx cm
statistics topo-length off ### mettre "on" pour afficher les metrages topo
statistics explo-length on ### Affichage des statistiques
layers on ### pour la génération du PDF en 1.5
transparency on ### vue en transparence des galeries qui se superposent...
opacity 80 ### ... avec une opacité de 80%
rotate 0 ### rotation du nord géographique (en degré)
symbol-colour point station-name [50 30 0] ### changer la couleur des noms des points stations
symbol-colour line water-flow [22 22 95] ### changer la couleur des lignes "rivière"
symbol-colour point water-flow [22 22 95] ### changer la couleur des points "rivière"
symbol-colour point sink [22 22 95] ### changer la couleur des points "perte"
symbol-colour area water [86 100 100] ### changer la couleur des hachures des zones "eau" quand elles ne sont colorée en bleu
symbol-colour area sump [22 22 95] ### changer la couleur des hachures des zones "siphon" quand elles ne sont colorée en bleu
symbol-colour line rock-edge [10 10 10] # type de ligne utilisée pour le scrap surface
symbol-colour line label [10 10 10] # type de ligne utilisée pour le scrap surface
symbol-show group cave-centerline
symbol-assign point station:temporary SKBB ### pour afficher les stations topo dans un format plus sympa
### pour avoir une belle échelle des longueurs et une belle orientation.
code metapost
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.25*u/10,0)--(tmpl-0.25*u/10,0);
draw (tmpl-0.25*u/10,-tmph)--(-tmpl+0.25*u/10,-tmph);
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));
# label.top(thTEX("1 : " & decimal (Scale*100)),(0,0));
endgroup;
enddef;
def s_northarrow_SKBB (expr rot) =
T:=identity scaled 0.7 rotated -rot;
begingroup
interim defaultscale:=1;
label(btex Nord Géographique etex, (0,-1cm));
endgroup;
thdraw (-.5cm,-1cm)--(0,1.5cm)--(.5cm,-1cm)--(0,-.5cm)--cycle;
thfill (-.5cm,-1cm)--(0,1.5cm)--(0,-.5cm)--cycle;
enddef;
endcode
### pour modifier le textes du cartouche et préciser +/-
code tex-map
\edef\topographiedepth{\the\cavedepth}
\cavedepth={\topographiedepth\ (+37m / -85m)}
\cavelengthtitle={Développement}
\cavedepthtitle={Dénivelé}
endcode
### Pour modifier la taille des caractere de la légende
#code tex-map
# \legendtextheadersize={\size[20]}
# \legendtextsize={\size[10]}
#endcode
#code metapost ###compil mais ne change rien
#fonts_setup (6,8,10,14,20)
#endcode
### pour faire que les zones d'eau soient bleues
code metapost
def a_water (expr p) =
T:=identity;
thfill p withcolor (0.0, 0.5, 1.0);
enddef;
endcode
### pour faire que les siphons soient bleus foncé
code metapost
def a_sump (expr p) =
T:=identity;
thfill p withcolor (0.22, 0.22, 0.95);
enddef;
endcode
### pour les cordes, les ancrges et les map connections :
code metapost
def l_u_rope (expr P) =
T:=identity;
pickup pensquare scaled (0.15u);
#pickup pensquare scaled (0.05u);
thdraw P withcolor (0.8,0.0,0.0);
enddef;
def p_anchor_MY (expr P,R,S,A)=
T:=identity aligned A rotated R scaled S shifted P;
# le rond du !
thfill (.15u,0u)..(0,.15u)..(-.15u,0u)..(0,-.15u)..cycle withcolor (0.6,0.0,0.0);
enddef;
initsymbol("p_anchor_MY");
let p_anchor = p_anchor_MY;
#def p_map-connection (expr P) =
# T:=identity;
# pickup pensquare scaled (0.15u);
# #pickup pensquare scaled (0.05u);
# thdraw P withcolor (0.8,0.0,0.0);
#enddef;
endcode
endlayout
################################# Atlas en format A4 #############################
layout LayoutAtlasPortraitA4
copy mon_layout_general
color map-bg 100 ### couleur du fond (95% blanc => 95)
scale 1 250 ### echelle
#symbol-hide group cave-centerline ### Ne pas afficher les stations topo
nav-factor 30
nav-size 1 1
page-setup 21 29.7 18 27.7 1.5 1 cm
#overlap 1 cm
size 16 22.6 cm
endlayout LayoutAtlasPortraitA4
##########################################################
layout xviexport
scale 1 100
grid-size 10 10 10 m
endlayout
################################# ma_coupe #############################
layout ma_coupe
copy mon_layout_general
scale 1 350 ### echelle
symbol-hide group cave-centerline ### Ne pas afficher les stations topo
grid bottom ### positionnement de la grille
grid-size 10 10 10 m ### dimension de la grille
grid-coords all ### border = sur les bords. off = pas de coordonnées. all = partout
map-header 30 30 nw ### positionnement du cartouche
overlap 4 cm ### ajout d'une marge pour voir apparaitre des 2 cotés la cote de la profondeur au bout de la grille
color map-fg 80
#color map-fg altitude ### couleur des galeries selon l'altitude
#color map-bg 80 ### couleur de fond (80% blanc / 20% gris => 80)
map-comment "Secteur : Plaine-Joux (74)<br>\
Grotte de Megevette : UTM32T 306364 5117759 960m<br>\
Dessin et synthèse : Christophe LAVOREL - Spéléo Club d'Annemasse (SCASSE)<br>\
"
endlayout
################################# mon_plan #############################
layout mon_plan
copy mon_layout_general
scale 1 300 ### echelle
grid bottom ### positionnement de la grille
grid-size 20 20 20 m ### dimension de la grille
grid-coords off ### border = sur les bords. off = pas de coordonnées. all = partout (horrible en plan)
#color map-fg 80
color map-fg altitude ### couleur des galeries selon l'altitude
#color map-bg 80 ### couleur du fond (80% blanc / 20% gris => 80)
map-header 0 -10 nw ### positionnement du cartouche
symbol-hide group surface-centerline
symbol-hide group cave-centerline ### Ne pas afficher les stations topo
symbol-hide point station-name ### Ne pas afficher le nom des stations topo marquée
symbol-hide point remark ### ne pas afficher les points "remarque" mais que les "libélé"
symbol-hide line gradient ### ne pas afficher les ligne "pente"
symbol-hide line map-connection ### ne pas afficher les ligne "map-connection"
symbol-hide point section
symbol-hide line section
#symbol-hide area water
#symbol-hide line arrow
#symbol-hide point anchor
### cartouche et commentaires complémentaires :
map-comment "Secteur : Plaine-Joux (74)<br>\
Grotte de Megevette : UTM32T 306364 5117759 960m<br>\
Grotte VMax : UTM32T 306308 5117719 1075m<br>\
Dessin et synthèse : Christophe LAVOREL - Spéléo Club d'Annemasse (SCASSE)<br>\
"
endlayout
###############################################################
layout shp
cs UTM32
endlayout
# export du squelette vectoriel xvi
export map -proj plan -fmt xvi -layout xviexport -output kriska-plan.xvi # pour le plan
export map -proj extended -fmt xvi -layout xviexport -output kriska-coupe.xvi # pour la coupe
# export des pdf
export map -proj plan -fmt pdf -layout MonPlan -output kriska-plan.pdf # pour le plan
export map -proj extended -fmt pdf -layout MaCoupe -output kriska-coupe.pdf # pour la coupe
# export du 3D
export model -o kriska.lox
#export atlas
export atlas -layout MonPlan -o kriska-atlas.pdf
#shapefile
export map -fmt esri -layout shp -o kriska
### POUR EXPORTER LA COUPE PROJETE AZIMUTE 0 :
select coupe0@caviteMEGEVETTE
export map -projection [elevation 0] -o kriska_coupe0.pdf -layout ma_coupe
### POUR EXPORTER LES STATS :
export survey-list -o liste.html
encoding utf-8
survey ded -title "Réseau Ded"
###############inclusion th et th2#######################
input data/Kriska_1.th
input data/Kriska_2.th
#input data/escalade1.th
#input data/kriska_plan.th2
#input data/kriska_coupe.th2
#input data/kriska_coupe_proj.th2
##############raccordement#############
centerline
equate 52@Kriska1 bivy56@Kriska2
#equate bivy1@Kriska2 bivouac@escalade1
endcenterline
endsurvey
# 1-SOURCES
source ded.th
input ../config.thc
# 2-LAYOUT
# Ici, on peut specifier des choses comme les symboles
# a utiliser (UIS, etc) ou imprimer des explications des
# symboles
#debut de la definition du layout "my_layout"
layout my_layout
# Call the config settings (Layout config inside the config.thc file)
copy drawingconfig
copy headerl
copy langue-fr
cs UTM32
# La ligne base-scale specifie l'echelle auquel nous avons
# dessine nos croquis. Par defaut, therion pense que c'est
# une echelle 1:200. Si on a utilise une autre echelle,
# il faudrait enlever le "#" et especifier l'echelle vraiment
# employee, comme c'est le cas apres avoir dessine la topo
# sur un cheminement exporte avec le layout "xviexport"
# (voir en bas)
base-scale 1 1000
# Maitenant on va mettre une ligne "scale" pour specifier l'echelle
# pour imprimer la topo. La combination entre scale et base-scale
# controlle le gros des lignes, rotation, etc, convenable
# pour faire l'ampliation-reduction entre dessin et
# le resultat de l'imprimante
# C'est tres important s'assurer que la configuration de
# l'imprimante ne specifie pas l'option "Fit in page"
# ou similaire, sinon, l'echelle sera change pendant
# l'impression!
scale 1 5000
# Voici une ligne pour specifier qu'il faut imprimer une grille
# au dessous de la topo
grid bottom
# Une ligne pour specifier que la grille est 1000x1000x1000 metres
# (Trois dimensions, oui, ça sert pour la coupe aussi)
grid-size 250 250 250 m
# grid off
# une couleur de fond, 85% blanc = 15% noir
#color map-bg 90
# color map-bg 85
color map-fg [100 100 80]
# la topo est transparente (on peut voir les galeries sousjacentes)
# C'est on par defaut, donc, pas vraiment besoin de specifier
transparency on
# ça marche seulement si transparency est "on" 90% blanc= 10% noir
opacity 75
surface bottom
surface-opacity 100
# Pour faire une rotation
#rotate 2.25
# Auteur
doc-author "Benoit Urruty"
# Titule
doc-title "Réseau Ded"
# Maitenant on va specifier la position de la manchette, dont l'interieur
# sera ocuppe par le titule, auteurs, etc. Nous pouvons indiquer
# les cordonnes du point de la topo ou l'on veut la manchette:
# 0 0, c'est en bas, a gauche
# 100 100, c'est en haut, a droite
# La manchette a des "points cardinaux" autour: n, s, ne, sw, etc.
# Il faut specifier un de ces points comme ce que sera place sur les
# cordonnees.
# Alors nous pouvons specifier que le sud-ouest de la manchette
# soit place en bas, a gauche, ou une autre combination
# map-header 0 100 nw
# map-header 5 50 e
# map-header 0 0 s
# arrière plan de la manchette
map-header-bg on
# Nous voulons une legende pour expliquer les symboles. "on" imprimera
# seulement la legende des symboles dessines sur la topo, si l'on veut
# pour tous les symboles, utilises ou pas, il faut indiquer "all".
# "legend off" = pas de legende
legend on
# Par defaut, la legende est de 14 cm de largeur
legend-width 21 cm
# Il faut s'exprimer avec la langue de Voltaire...
language fr
# echelle graphique 100 m ampleur
scale-bar 500 m
# Un commentaire a ajounter au titule, on pourrait indiquer ici
# la mairie ou est place la cavite dont le nom est probablement
# le titule de la topo.
# map-comment "Projection UTM32, Saint Pierre de Chartreuse, 38, France"
# map-comment "Synthèse 2010"
# Afficher les statistiques d'explo par équipe/nom. C'est lourd
# si la cavité est importante et qu'il y a beaucoup d'explorateurs
statistics explo-length off
# Afficher le developpement et la profondeur de la cavite
statistics topo-length off
# Afficher un copyright
statistics copyright 2
# Dessin ou pas du cheminement topo
# symbol-hide point station
symbol-hide line survey
# origin 12 22 0 m
# origin-label 100 K
layers on
# debug station-names
# Titre
code tex-map
% Output map title as determined by Therion 5.3 is stored in cavename.
% 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 {cavename} 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
\cavename={Réseau Ded}
\else % if not empty keep the value set by therion, or assign an override cavename here
\fi
\newtoks\club \club={GUCEM}
\newtoks\synth \synth={}
endcode
endlayout
# Fin de la definition du Layout "normal"
# 3-EXPORT
# 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 -proj plan -fmt pdf -o Outputs/Ded-plan.pdf -layout my_layout
# export map -projection extended -fmt pdf -layout my_layout -o Outputs/Ded-coupe.pdf
#export atlas -o Outputs/atlas-Ded.pdf -layout atlas_layout
# Export du fichier 3d pour Loch
# export model -enable all -o Outputs/Ded.lox
# Export des fichiers ESRI
# export map -proj plan -fmt esri -o Outputs/Ded -layout my_layout
# Export des fichiers kml
# export map -proj plan -fmt kml -o Outputs/Ded.kml -layout my_layout
\ No newline at end of file
encoding utf-8
source ded.th
source data/DEM_DED.th # Import du MNT pour le 3D
cs EPSG:27572
################################# Layout général #############################
layout mon_layout_general
language fr ### choix de la langue => fr
legend on ### présence de la légende des symboles ? => on/off
#map-header-bg on ### cartouche avec fond opaque (on)
legend-width 25 cm ### cartouche avec largeur maxi de xx cm
statistics topo-length on ### mettre "on" pour afficher les metrages topo
statistics explo-length on ### Affichage des statistiques
layers on ### pour la génération du PDF en 1.5
transparency on ### vue en transparence des galeries qui se superposent...
opacity 80 ### ... avec une opacité de 80%
rotate 0 ### rotation du nord géographique (en degré)
symbol-colour point station-name [50 30 0] ### changer la couleur des noms des points stations
symbol-colour line water-flow [22 22 95] ### changer la couleur des lignes "rivière"
symbol-colour point water-flow [22 22 95] ### changer la couleur des points "rivière"
symbol-colour point sink [22 22 95] ### changer la couleur des points "perte"
symbol-colour area water [86 100 100] ### changer la couleur des hachures des zones "eau" quand elles ne sont colorée en bleu
symbol-colour area sump [22 22 95] ### changer la couleur des hachures des zones "siphon" quand elles ne sont colorée en bleu
symbol-colour line rock-edge [10 10 10] # type de ligne utilisée pour le scrap surface
symbol-colour line label [10 10 10] # type de ligne utilisée pour le scrap surface
symbol-show group cave-centerline
symbol-assign point station:temporary SKBB ### pour afficher les stations topo dans un format plus sympa
### pour avoir une belle échelle des longueurs et une belle orientation.
code metapost
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.25*u/10,0)--(tmpl-0.25*u/10,0);
draw (tmpl-0.25*u/10,-tmph)--(-tmpl+0.25*u/10,-tmph);
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));
# label.top(thTEX("1 : " & decimal (Scale*100)),(0,0));
endgroup;
enddef;
def s_northarrow_SKBB (expr rot) =
T:=identity scaled 0.7 rotated -rot;
begingroup
interim defaultscale:=1;
label(btex Nord Géographique etex, (0,-1cm));
endgroup;
thdraw (-.5cm,-1cm)--(0,1.5cm)--(.5cm,-1cm)--(0,-.5cm)--cycle;
thfill (-.5cm,-1cm)--(0,1.5cm)--(0,-.5cm)--cycle;
enddef;
endcode
### pour modifier le textes du cartouche et préciser +/-
code tex-map
\edef\topographiedepth{\the\cavedepth}
# \cavedepth={\topographiedepth\ (+37m / -85m)}
\cavelengthtitle={Développement}
\cavedepthtitle={Dénivelé}
endcode
### Pour modifier la taille des caractere de la légende
#code tex-map
# \legendtextheadersize={\size[20]}
# \legendtextsize={\size[10]}
#endcode
#code metapost ###compil mais ne change rien
#fonts_setup (6,8,10,14,20)
#endcode
### pour faire que les zones d'eau soient bleues
code metapost
def a_water (expr p) =
T:=identity;
thfill p withcolor (0.0, 0.5, 1.0);
enddef;
endcode
### pour faire que les siphons soient bleus foncé
code metapost
def a_sump (expr p) =
T:=identity;
thfill p withcolor (0.22, 0.22, 0.95);
enddef;
endcode
### pour les cordes, les ancrges et les map connections :
code metapost
def l_u_rope (expr P) =
T:=identity;
pickup pensquare scaled (0.15u);
#pickup pensquare scaled (0.05u);
thdraw P withcolor (0.8,0.0,0.0);
enddef;
def p_anchor_MY (expr P,R,S,A)=
T:=identity aligned A rotated R scaled S shifted P;
# le rond du !
thfill (.15u,0u)..(0,.15u)..(-.15u,0u)..(0,-.15u)..cycle withcolor (0.6,0.0,0.0);
enddef;
initsymbol("p_anchor_MY");
let p_anchor = p_anchor_MY;
#def p_map-connection (expr P) =
# T:=identity;
# pickup pensquare scaled (0.15u);
# #pickup pensquare scaled (0.05u);
# thdraw P withcolor (0.8,0.0,0.0);
#enddef;
endcode
endlayout
################################# Atlas en format A4 #############################
layout LayoutAtlasPortraitA4
copy mon_layout_general
color map-bg 100 ### couleur du fond (95% blanc => 95)
scale 1 250 ### echelle
#symbol-hide group cave-centerline ### Ne pas afficher les stations topo
nav-factor 30
nav-size 1 1
page-setup 21 29.7 18 27.7 1.5 1 cm
#overlap 1 cm
size 16 22.6 cm
endlayout LayoutAtlasPortraitA4
##########################################################
layout xviexport
scale 1 100
grid-size 10 10 10 m
endlayout
################################# ma_coupe #############################
layout ma_coupe
copy mon_layout_general
scale 1 350 ### echelle
grid bottom ### positionnement de la grille
grid-size 10 10 10 m ### dimension de la grille
grid-coords all ### border = sur les bords. off = pas de coordonnées. all = partout
map-header 30 30 nw ### positionnement du cartouche
overlap 4 cm ### ajout d'une marge pour voir apparaitre des 2 cotés la cote de la profondeur au bout de la grille
#color map-fg 80
#color map-fg altitude ### couleur des galeries selon l'altitude
#color map-bg 80 ### couleur de fond (80% blanc / 20% gris => 80)
#symbole-hide line survey # commenter cette ligne
debug station-names
map-comment "Secteur : Charmant Som (38)<br>\
Puits Kriska : Lambert IIE 869128.22 2042035.46 1520m<br>\
Dessin et synthèse : Benoit URRUTY et Solveig REYMOND (GUCEM)<br>\
"
endlayout
################################# mon_plan #############################
layout mon_plan
copy mon_layout_general
scale 1 300 ### echelle
grid bottom ### positionnement de la grille
grid-size 20 20 20 m ### dimension de la grille
grid-coords off ### border = sur les bords. off = pas de coordonnées. all = partout (horrible en plan)
#color map-fg 80
color map-fg altitude ### couleur des galeries selon l'altitude
#color map-bg 80 ### couleur du fond (80% blanc / 20% gris => 80)
map-header 0 -10 nw ### positionnement du cartouche
#symbol-hide group surface-centerline
#symbol-hide group cave-centerline ### Ne pas afficher les stations topo
#symbol-hide point station-name ### Ne pas afficher le nom des stations topo marquée
#symbol-hide point remark ### ne pas afficher les points "remarque" mais que les "libélé"
#symbol-hide line gradient ### ne pas afficher les ligne "pente"
#symbol-hide line map-connection ### ne pas afficher les ligne "map-connection"
#symbol-hide point section
#symbol-hide line section
#symbol-hide area water
#symbol-hide line arrow
#symbol-hide point anchor
### cartouche et commentaires complémentaires :
map-comment "Secteur : Charmant Som (38)<br>\
Puits Kriska : Lambert IIE 869128.22 2042035.46 1520m<br>\
Dessin et synthèse : Benoit URRUTY et Solveig REYMOND (GUCEM)<br>\
"
endlayout
###############################################################
layout shp
endlayout
# export du squelette vectoriel xvi
export map -proj plan -fmt xvi -layout xviexport -output ../kriska-plan.xvi # pour le plan
export map -proj extended -fmt xvi -layout xviexport -output ../kriska-coupe.xvi # pour la coupe
export map -proj elevation -fmt xvi -layout xviexport -output ../kriska-coupe_proj.xvi # pour la coupe
# export des pdf
export map -proj plan -fmt pdf -layout mon_plan -output ../kriska-plan.pdf # pour le plan
export map -proj extended -fmt pdf -layout ma_coupe -output ../kriska-coupe.pdf # pour la coupe
export map -proj elevation -fmt pdf -layout ma_coupe -output ../kriska-coupe_proj.pdf # pour la coupe
# export du 3D
export model -o ../kriska.lox
export model -fmt kml -o ../kriska.kml
#export atlas