encoding  utf-8
source castillo_basketcase.th

export map -proj plan -layout local -o castillo_basketcase.pdf
export map -proj extended -layout local -o castillo_basketcaseE.pdf


layout local
debug off
symbol-set BCRA

map-comment "Tresviso Caves Project www.tresvisocaves.info"
map-header 50 100 sw


legend off
#legend-width 15 cm # printed size, based on scale

#scale-bar 50 m
#scale 1 500
#base-scale 1 500   # Achieves nice narrow lines
#overlap 1 cm       # margin sizem default 1cm
#grid bottom
#grid-size 50 50 50 m
symbol-hide group cave-centreline
symbol-hide line border
symbol-assign area flowstone TEST

symbol-colour area water [25 50 100]
#colour map-fg altitude

  colour map-fg [80 80 80]
  colour map-bg [70 90 70]

code metapost
initsymbol ("a_flowstone_TEST");

beginpattern(pattern_flowstone_TEST);
    pickup PenC;​
    p:=(-.25u,0){dir -60} .. {dir 60}(0.25u,0);​
    draw p;​
    draw p shifted (0.35u,0.4u);​
    patternxstep(0.9u);​
    patternystep(0.30u);​
endpattern;

def a_flowstone_TEST (expr Path) =
  T:=identity;​
  thclean Path;​
  thfill Path withpattern pattern_flowstone_TEST;​
enddef;

endcode

endlayout