encoding  utf-8
# 2024.12.05 created by TopoDroid v 6.2.44

source "./Pool_area.th"

layout local
  symbol-set BCRA
  legend off
  symbol-hide group centerline
  symbol-hide point station
  debug off
code metapost  
  symbol-assign area clay Dense
  symbol-assign area sand Dense
  initsymbol("a_clay_Dense");
  initsymbol("a_sand_Dense");

  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 a_clay_Dense (expr p) =
    T:=identity;
    pickup PenD;
    path q, qq; q = bbox p;
    picture tmp_pic; 
    tmp_pic := image(
    for i = xpart llcorner q step 0.5u until xpart urcorner q:
      for j = ypart llcorner q step 0.5u until ypart urcorner q:
        qq := ((-.20u,0){up}..origin{down}..{up}(0.20u,0)) randomized (u/15)
        shifted ((i,j) randomized 0.3u);
        if xpart (p intersectiontimes qq) < 0:
          thdraw qq;
        fi;
      endfor;  
   endfor;
   );
   clip tmp_pic to p;
   draw tmp_pic;
  enddef;
  
  def a_sand_Dense (expr p) =
    T:=identity;
    pickup PenC;
    path q; q = bbox p;
    picture tmp_pic;
    tmp_pic := image(
      for i = xpart llcorner q step 0.2u until xpart urcorner q:
        for j = ypart llcorner q step 0.2u until ypart urcorner q:
          draw origin shifted ((i,j) randomized 0.3u) withpen PenC;
        endfor;
      endfor;
    );
    #clip tmp_pic to p;
    draw tmp_pic;
  enddef;
  
endcode   

endlayout

layout colour
  symbol-colour point water-flow [25 50 100]
  
  code metapost 
    def a_water (expr p) =
    T:=identity;
    thfill p withcolor (0.48, 0.84, 1.0);
  enddef;
 
  def a_sump (expr p) =
    T:=identity;
    thfill p withcolor (0.05, 0.0, 0.7);
  enddef; 
  endcode 
      
endlayout

layout 400scale
  scale 1 400
  min-symbol-scale s
endlayout

layout empty_header
    code tex-map
      \legendtitle={}
      \cavename={}
      \scalebarfalse
      \cavelengthtitle={}
      \cavelength={}
      \cavedepthtitle={}
      \cavedepth={}
    endcode
endlayout

#1:100 scale outputs
export map -layout local -layout colour -o Pool_area_plan.pdf -proj plan 
export map -layout local -layout colour -o Pool_area_elevation.pdf -proj extended

#1:400 scale outputs
export map -layout local -layout colour -layout 400scale -o winnats_master_plan_400.pdf -proj plan
export map -layout local -layout colour -layout 400scale -o winnats_master_elevation_400.pdf -proj extended

#Combined export
  #First unhash the following line, to prepare the Extended Elevation 
export map -layout colour -layout local -layout empty_header -layout-map-header 40 105 nw -layout-map-comment "<size:24> Extended elevation" -o PA_elevation.pdf -proj extended
    #Edit to remove the excess border, then run the following
export map  -layout colour -layout local -output Pool_area_combined.pdf -proj plan \
    -layout-map-image 0 0 nw PA_elevation.pdf \
    -layout-map-comment "BCRA Grade 5d<br><br>Drawn by Michael Holliday<br>Survey by Michael Holliday, Alfie Burnley, and Zane Pilch." \
    -layout-map-header 60 135 n