encoding utf-8
# 2024.08.22 created by TopoDroid v 6.2.44
source "CH_tobys_sump.th"
###tweak legend
###Removing from legend
text en "line rock-border" "rocks"
layout local
symbol-set BCRA
legend off
symbol-hide group centerline
symbol-hide point station
debug off
###prepping for custom symbols
symbol-assign area blocks TEST
code metapost
### custom symbol definition
initsymbol ("a_blocks_TEST");
initsymbol ("a_flowstone_TEST");
beginpattern(pattern_flowstone_TEST);
pickup PenC;
p:=(-.25u,0){dir -60} .. {dir 60}(0.25u,0);
draw p;
draw p shifted (0.35u,0.4u);
patternxstep(0.9u);
patternystep(0.30u);
endpattern;
def a_flowstone_TEST (expr Path) =
T:=identity;
thclean Path;
thfill Path withpattern pattern_flowstone_TEST;
enddef;
def a_blocks_TEST (expr p) = T:=identity;
symbol_distance:=0.7; scale_factor:= 0.001;
pickup PenC; path q, qq; q = bbox p;
pair outside; outside:= ulcorner q + up; 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 symbol_distance*uu until xpart urcorner q: for j = ypart llcorner q step symbol_distance*uu until ypart urcorner q: qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(1.05uu,0.05uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle) randomized (uu/2)) scaled (uniformdeviate(0.7)+scale_factor ) rotated uniformdeviate(360) shifted ((i,j) randomized 0.75uu);
if xpart (p intersectiontimes qq) < 0: if pointinside((i,j),p,outside): thclean qq; thdraw qq;
fi; else: qq:= qq scaled (uniformdeviate(.2)+.5 ) if xpart (p intersectiontimes qq) < 0: if pointinside((i,j),p,outside): thclean qq;
thdraw qq; fi; fi; fi; endfor; endfor; );
clip tmp_pic to p; drawoptions(); draw tmp_pic;
enddef;
endcode
endlayout
layout colour_plan
colour map-fg altitude #[97 93 43]
#scale 1 100
map-header -8 30 sw
map-comment "BCRA Grade 5d
Drawn by Michael Holliday"
endlayout
layout colour_elevation
colour map-fg altitude #[97 93 43]
#scale 1 100
map-header 43 46 sw
map-comment "BCRA Grade 5d
Drawn by Michael Holliday"
endlayout
layout plan200
scale 1 200
colour map-fg altitude #[97 93 43]
base-scale 1 140
endlayout
layout plan500
scale 1 500
min-symbol-scale s
base-scale 1 170
endlayout
layout elevation200
colour map-fg altitude #[97 93 43]
scale 1 200
endlayout
layout elevation500
scale 1 500
min-symbol-scale s
endlayout
#exports
export map -layout local -layout plan200 -o Cowshead_02_1A_draft_p200.pdf -proj plan
export map -layout local -layout plan500 -o Cowshead_02_1A_draft_p500.pdf -proj plan
export map -layout local -layout elevation200 -o Cowshead_02_1A_draft_e200.pdf -proj extended
export map -layout local -layout elevation500 -o Cowshead_02_1A_draft_e500.pdf -proj extended