mirror of
https://github.com/Alex38Lyon/Synthese-PSM_LARRA.git
synced 2026-06-01 22:00:53 +00:00
BB26
This commit is contained in:
Alex38Lyon
@@ -0,0 +1,270 @@
|
||||
encoding utf-8
|
||||
layout 100
|
||||
code tex-map
|
||||
\framethickness=1mm
|
||||
endcode
|
||||
doc-author "M.EGELS"
|
||||
|
||||
code metapost
|
||||
########################################################################################
|
||||
###########################*#############################################################
|
||||
#############
|
||||
#############
|
||||
############# Modification des tailles de texte
|
||||
#############
|
||||
#############
|
||||
########################################################################################
|
||||
########################################################################################
|
||||
|
||||
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 2uu until xpart urcorner q:
|
||||
for j = ypart llcorner q step 2uu until ypart urcorner q:
|
||||
qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle)
|
||||
randomized (uu/2))
|
||||
rotated uniformdeviate(360)
|
||||
shifted ((i,j) randomized 1.6uu);
|
||||
if xpart (p intersectiontimes qq) < 0:
|
||||
thdraw qq;
|
||||
fi;
|
||||
endfor;
|
||||
endfor;
|
||||
);
|
||||
clip tmp_pic to p;
|
||||
draw tmp_pic;
|
||||
enddef;
|
||||
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;
|
||||
#fonts_setup(<xs>,<s>,<m>,<l>,<xl>);
|
||||
fonts_setup(8,14,18,20,25);
|
||||
% default values depend on scale; for 1:200 they are 7,8,10,20,30
|
||||
|
||||
|
||||
########################################################################################
|
||||
########################################################################################
|
||||
#############
|
||||
#############
|
||||
############# Modification de la fléche du Nord
|
||||
#############
|
||||
#############
|
||||
########################################################################################
|
||||
########################################################################################
|
||||
def s_northarrow (expr rot) =
|
||||
begingroup
|
||||
interim defaultscale:=0.5; % scale your north arrow here
|
||||
T:=identity scaled defaultscale rotated -rot;
|
||||
pickup pencircle scaled (0.08cm * defaultscale);
|
||||
thdraw (-.4cm,-1.4cm)--(0,2.8cm)--(.4cm,-1.4cm)--cycle;
|
||||
p:=fullcircle scaled 1.6cm;
|
||||
thclean p; thdraw p;
|
||||
p:=(0.95cm,0)--(0.65cm,0);
|
||||
thdraw p; thdraw p xscaled -1;
|
||||
pickup pencircle scaled (0.12cm * defaultscale);
|
||||
p:=(0.28cm,0.42cm);
|
||||
thdraw p--(p yscaled -1)--(p xscaled -1)--(p scaled -1);
|
||||
endgroup;
|
||||
enddef;
|
||||
|
||||
|
||||
########################################################################################
|
||||
########################################################################################
|
||||
#############
|
||||
#############
|
||||
############# Modification de l'echelle
|
||||
#############
|
||||
#############
|
||||
########################################################################################
|
||||
########################################################################################
|
||||
|
||||
|
||||
# Echelle
|
||||
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));
|
||||
label.top(thTEX("Echelle 1 : " & decimal (Scale*100)),(0,0));
|
||||
endgroup;
|
||||
enddef;
|
||||
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);
|
||||
);
|
||||
% 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;
|
||||
|
||||
|
||||
|
||||
|
||||
#################################################
|
||||
#################################################
|
||||
#### ###
|
||||
#### Blocs ###
|
||||
#################################################
|
||||
#################################################
|
||||
|
||||
code metapost
|
||||
def a_blocks (expr p) =
|
||||
distance:=1;
|
||||
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 distance*uu until xpart urcorner q:
|
||||
for j = ypart llcorner q step distance*uu until ypart urcorner q:
|
||||
qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle)
|
||||
randomized (uu/10))
|
||||
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;
|
||||
def a_u_eau (expr p) =
|
||||
T:=identity;
|
||||
thfill p withcolor (0.1, 0.2, 0.8);
|
||||
enddef;
|
||||
endcode
|
||||
|
||||
##################################################################################
|
||||
##################################################################################
|
||||
####
|
||||
#### Modification des couleurs
|
||||
####
|
||||
####
|
||||
##################################################################################
|
||||
##################################################################################
|
||||
|
||||
|
||||
#colour map-fg [98 87 38] #couleur carte jaune pale
|
||||
#colour map-fg [100 100 79] #couleur carte jaune pale
|
||||
colour map-bg [100 100 100] #couleur fond de carte blanc
|
||||
#colour map-fg altitude #couleur carte jaune pale
|
||||
color map-fg topo-date
|
||||
|
||||
|
||||
|
||||
|
||||
transparency on
|
||||
opacity 70
|
||||
language fr
|
||||
# grid-size 10 10 10 m
|
||||
# grid bottom
|
||||
# surface bottom
|
||||
surface-opacity 70
|
||||
legend off
|
||||
# map-header 75 50 sw
|
||||
# statistics topo-length on
|
||||
# statistics explo-length on
|
||||
symbol-set UIS
|
||||
#symbol-hide point label
|
||||
# symbol-hide line label
|
||||
symbol-hide group cave-centerline
|
||||
# symbol-color group water-flow [10 20 80]
|
||||
symbol-colour point water-flow [10 20 80]
|
||||
symbol-colour line water-flow [10 20 80]
|
||||
|
||||
symbol-hide point cave-station
|
||||
cs UTM30
|
||||
grid-origin 0 0 1520 m
|
||||
scale 1 100
|
||||
base-scale 1 50
|
||||
|
||||
endlayout
|
||||
#lookup topo-altitude -title "Profondeur"
|
||||
#[2018] [98 87 38] "Exploré en 2018"
|
||||
#[2019] [94 77 42] "Exploré en 2019"
|
||||
#endlookup
|
||||
lookup topo-date -title "Date d'exploration"
|
||||
[2018] [98 87 38] "Exploré en 2018"
|
||||
[2019] [94 77 42] "Exploré en 2019"
|
||||
endlookup
|
||||
|
||||
Reference in New Issue
Block a user