encoding  utf-8

source free_left_willy.th

export map -proj plan -layout local -o free_left_willy.pdf
export map -proj extended -layout local -o free_left_willyE.pdf

layout local

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


legend off
symbol-hide group cave-centreline
symbol-hide line border
symbol-assign area flowstone TEST
symbol-colour area water [25 50 100]
  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