encoding utf-8 source th/LambTrap1.th # Change name to the main therion file #Surveys to output #----------------- select LambTrap1 export map -projection plan -layout plan -o LambTrap-Plan.pdf export map -projection [elevation 270] -layout elevation -o LambTrap-Elev.pdf export map -projection [extended] -layout elevation -o LambTrap-Elev-Extended.pdf export map -projection plan -layout combined -o LambTrap.pdf #export map -o LambTrap.kml #export map -proj plan -layout local -o #Produces plan of cave, on a single sheet layout local cs OSGB:SD #base-scale 1 300 scale 1 400 page-grid off symbol-set BCRA #debug station-names #debug on #legend on colour map-fg altitude colour-model cmyk colour-legend off #colour map-fg scrap #colour map-fg [97 86 38] ##Pale Yellow## #colour map-fg [90 90 90] ##Light Grey## #colour map-bg [90 90 90] ##Light Grey## north grid #grid bottom grid top grid-size 20 20 20 m grid-coords all #border #rotate -90 map-header 10 0 sw #puts bottom left corner of header box in bottom left #transparency on #scale-bar 10 metres symbol-colour area water [25 50 100] #symbol-colour area sump [10 10 100] #symbol-colour area flowstone [20 20 20] symbol-colour line water-flow [22 22 95] symbol-colour point water-flow [22 22 95] #symbol-colour group centerline [100 0 0] #symbol-colour point station [0 0 0] # symbol-hide group centerline #1. hides all centerline symbols from everywhere (stations and shots). # symbol-hide point cave-station #2. tells therion, that you want to show stations in the cave. #But in fact point cave-station itself does not show any symbol. #It only specifies, that stations in the cave should be shown rather than surface stations. ####CODE TO PUT BORDER AROUND MAP#### #----------------------------- code tex-map \framethickness=0.5mm ###############OVERIDES############## ##Overide Therion Map Header Data### #----------------------------------- code tex-map \cavename={ \size[45] Lamb Trap \medskip \size[17] OSGB: SD 66621 79424 altitude: 336m\medskip \size[17] Leckfell, Lancashire\medskip \size[17] Explored 2019-2024 by the MMMMC } endcode ##Overide cave length and depth to remove surface leg data## #---------------------------------------------------------- code tex-map # \topoteam{BSD} # \cavelength{371m} # \cavedepth{72m} endcode ######################################################################### #Change the scale bar to black and white bar, split into 5 and labelled # ######################################################################### scale-bar 50 metres # scale-bar . set the length of the scale-bar (M, A) # code metapost 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; #Adjusted to make lines not stick out: 0.25*u/10,0 is half thickness of PenC draw (-tmpl+0.25*u/10,0)--(tmpl-0.25*u/10,0); draw (tmpl-0.25*u/10,-tmph)--(-tmpl+0.25*u/10,-tmph); 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.top(thTEX(decimal (i)),(tmpx,0)); endfor; label.top(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,0)); # label.bot(thTEX("Original Scale = 1 : " & decimal (Scale*100)),(0,-tmph)); endgroup; enddef; ##################### #Change North arrow # ##################### code metapost def s_northarrow (expr rot) = begingroup interim defaultscale:=0.5; % scale your north arrow here T:=identity scaled defaultscale rotated -rot; interim linecap:=squared; interim linejoin:=rounded; thfill (-.5cm,-.1cm)--(0,2.5cm)--(.5cm,-.1cm)--cycle; pickup pencircle scaled (0.08cm * defaultscale); thdraw (0,0)--(0,-2.5cm); pickup pencircle scaled (0.16cm * defaultscale); p:=(0.4cm,0.6cm); thdraw ((p--(p yscaled -1)--(p xscaled -1)--(p scaled -1)) shifted (0,-1.0cm)); label.rt(thTEX("grid") scaled 1.6, (.6cm,-1.6cm)) transformed T; endgroup; enddef; endcode endcode ########################################### # bodge to make floor-steps look sensible # ########################################### code metapost let l_floorstep = l_border_visible_SKBB; endcode ########################################## # bodge to make overhangs look sensible # ########################################## code metapost let l_overhang = l_ceilingstep_SKBB; endcode ##################################### # define cave centreline to be red # ##################################### code metapost def l_survey_cave (expr P) = T:=identity; pickup PenD scaled 0.5; thdraw P withcolor (0.9,0.0,0.0); # thdraw P dashed dashpattern(on 3 off 10) withcolor (0.0,0.9,0.0); enddef; endcode endlayout #layout local ####################################################### layout plan rotate 90 copy local grid off statistics topo off map-header 10 100 sw #puts bottom left corner of header box in bottom left endlayout #layout plan ################################################################# layout elevation copy local symbol-hide special scale-bar endlayout ################################################################# layout combined copy local rotate 90 grid off #page-grid on code tex-map #\legendwidth=10cm \cartotitle {\size[35] PLAN} \comment {\size[35]EXTENDED ELEVATION} \def\maplayout{ \legendbox{-3}{5}{NW}{\loadpicture{LambTrap-Elev-Extended.pdf}} \legendbox{20}{80}{e}{\the\cartotitle} \legendbox{21}{60}{e}{\northarrow} \legendbox{65}{25}{sw}{\scalebar} \legendbox{40}{-27}{sw}{\the\comment} } endcode endcode ############################### #CODE TO PUT BORDER AROUND MAP# ############################### code tex-map \framethickness=0.5mm endcode endlayout #layout combined