encoding  utf-8
# 2024.08.22 created by TopoDroid v 6.2.44

source "Farnsley_Lane_Swallet.th"

###tweak legend
  ###Removing from legend
  text en "point danger" ""
  text en "point gate" "lid"
  text en "line via-ferrata" "scaffolding"
  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"); 
  
  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;
  
  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;
  
  def l_wall_unsurveyed (expr P) = 
  T:=identity;
  pickup PenC;
  thdraw P dashed evenly scaled (2*optical_zoom);
enddef;
endcode
  
  endcode

endlayout

layout colour_plan
  colour map-fg altitude #[97 93 43]
  scale 1 30
  map-header -8 30 sw
  map-comment "Plan<br><br>WGS84 UTM 30U 587295 5903776 Alt: 292m<br>BCRA Grade 5d"
endlayout

layout colour_elevation
  colour map-fg altitude #[97 93 43]
  scale 1 100
  map-header 45 46 sw  
  map-comment "Extended Elevation<br><br>WGS84 UTM 30U 587295 5903776 Alt: 292m<br>BCRA Grade 5d"
endlayout


layout BWplan
  scale 1 30
  map-header 5 56 sw
  map-comment "Plan<br><br>WGS84 UTM 30U 587295 5903776 Alt: 292m<br>BCRA Grade 5d<br><br>Drawn by Michael Holliday"
endlayout

layout BWelevation
  scale 1 100
  map-header 45 64 sw
  map-comment "Extended Elevation<br><br>WGS84 UTM 30U 587295 5903776 Alt: 292m<br>BCRA Grade 5d<br><br>Drawn by Michael Holliday"
endlayout


#Colour exports
export map -layout local -layout colour_plan -o Farnsley_Lane_Swallet_colour_plan.pdf -proj plan 
export map -layout local -layout colour_elevation -o Farnsley_Lane_Swallet_colour_elevation.pdf -proj extended

#B&W exports
export map -layout local -layout BWplan -o Farnsley_Lane_Swallet_B&W_plan.pdf -proj plan 
export map -layout local -layout BWelevation -o Farnsley_Lane_Swallet_B&W_elevation.pdf -proj extended

export continuation-list -o FLS_leads.html