encoding utf-8 # 2024.08.22 created by TopoDroid v 6.2.44 source "CH_milkloft.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_3_2_draft_p200.pdf -proj plan export map -layout local -layout plan500 -o Cowshead_3_2_draft_p500.pdf -proj plan export map -layout local -layout elevation200 -o Cowshead_3_2_draft_e200.pdf -proj extended export map -layout local -layout elevation500 -o Cowshead_3_2_draft_e500.pdf -proj extended