encoding utf-8 # 2024.12.05 created by TopoDroid v 6.2.44 source "./winnats_master.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 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 -layout colour -o winnats_master_plan.pdf -proj plan export map -layout local -layout colour -o winnats_master_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