encoding  utf-8
source natacha_upper.th

select m1s@natacha_upper


export model -o NATACHAUPP.3d
#export map -proj plan -layout local -o natacha_upper.pdf
export map -proj extended -layout local -o natacha_upperE.pdf

layout local

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

debug all
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;

def p_continuation(expr pos,theta,sc,al) =
      % draw default continuation symbol ie ?
      p_continuation_UIS(pos,theta,sc,al);
      % if text attribute is set
      if known(ATTR__text) and picture(ATTR__text):
      % set labeling color to light orange
      push_label_fill_color(0.8, 0.8, 0.0);
      % draw filled label with text next to symbol ?
      p_label.urt(ATTR__text,(.5u,-.25u) transformed T,0.0,8);
      % restore original labeling color
      pop_label_fill_color;
      fi;
    enddef;

endcode

endlayout