mirror of
https://github.com/Alex38Lyon/Synthese-PSM_LARRA.git
synced 2026-06-01 13:59:13 +00:00
Alex38Lyon
271 lines
8.6 KiB
Plaintext
271 lines
8.6 KiB
Plaintext
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
|
|
|