encoding  utf-8
# 2024.12.20 created by TopoDroid v 6.2.95

source "./past_sewer.th"

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

  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

#1:100 scale outputs
export map -layout local -o past_sewer-p.pdf -proj plan 
export map -layout local -o past_sewer-s.pdf -proj extended 

#1:400 scale outputs
export map -layout local -layout 400scale -o past_sewer-p400.pdf -proj plan 
export map -layout local -layout 400scale -o past_sewer-s400.pdf -proj extended