-
Notifications
You must be signed in to change notification settings - Fork 0
/
buco-del-bagno.thconfig
73 lines (55 loc) · 1.93 KB
/
buco-del-bagno.thconfig
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
encoding utf-8
#source analogico.th
source index.th
layout debug
debug station-names
sketches on
endlayout
layout nowall
symbol-hide line wall
endlayout
layout colorize
code metapost
def l_survey_cave (expr P) =
T:=identity;
pair zz[];
pickup PenC;
for t = 0 upto length P - 1:
zz1 := point t of P;
zz2 := point t+1 of P;
if ATTR__scrap = "analogico-plan":
thdraw zz1 -- zz2 withcolor (0,0,1);
elseif ATTR__scrap = "analogico-extended-elevation":
thdraw zz1 -- zz2 withcolor (0,0,1);
elseif ATTR__scrap = "interno-plan":
thdraw zz1 -- zz2 withcolor (0,1,0);
elseif ATTR__scrap = "interno-extended-elevation":
thdraw zz1 -- zz2 withcolor (0,1,0);
else:
thdraw zz1 -- zz2 withcolor (0,0,0);
fi
endfor;
enddef;
def p_station(expr P,mark,txt)(text flags) =
if ATTR__scrap = "analogico-plan":
p_station_SKBB(P, mark, txt, flags);
elseif ATTR__scrap = "analogico-extended-elevation":
p_station_SKBB(P, mark, txt, flags);
elseif ATTR__scrap = "interno-plan":
p_station_SKBB(P, mark, txt, flags);
elseif ATTR__scrap = "interno-extended-elevation":
p_station_SKBB(P, mark, txt, flags);
else:
p_station_SKBB(P, mark, txt, flags);
fi
enddef;
endlayout
select overlayEE
export map -projection extended -layout nowall -layout colorize -output "out/Buco del Bagno - poligonali sezione.pdf"
unselect overlayEE
select overlayPLAN
export map -projection plan -layout nowall -layout colorize -output "out/Buco del Bagno - poligonali pianta.pdf"
unselect overlayPLAN
export map -projection plan -layout colorize -output "out/Buco del Bagno - pianta.pdf"
export map -projection extended -layout colorize -output "out/Buco del Bagno - sezione.pdf"
export model -output "out/Buco del Bagno.lox"