encoding  utf-8

source outer_mongolia.th

export map -proj plan -layout local -o outer_mongolia.pdf
export map -proj extended -layout local -o outer_mongoliaE.pdf
export map -proj plan -layout local -o outer_mongolia.svg
export map -proj extended -layout local -o outer_mongoliaE.svg

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 off
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;


#Change the scale bar to black and white bar, split into 5 and labelled
code metapost
  def s_scalebar (expr l, units, txt) =
    begingroup
      interim warningcheck:=0;
      tmpl:=l / Scale * cm * units / 2;
      tmpx:=l / Scale * cm * units / 5;
      tmph:=5bp; % bar height
    endgroup;
    pickup PenC;
#Adjusted to make lines not stick out: 0.25*u/10,0 is half thickness of PenC
    draw (-tmpl+0.25*u/10,0)--(tmpl-0.25*u/10,0);
    draw (tmpl-0.25*u/10,-tmph)--(-tmpl+0.25*u/10,-tmph);
    p:=(0,0)--(tmpx,0)--(tmpx,-tmph)--(0,-tmph)--cycle;
    for i:=-2.5 step 2 until 2:
      fill p shifted (i * tmpx,0);
 
    endfor;
    begingroup
      interim labeloffset:=3.5bp;
      for i:=0 step (l/5) until (l-1):
        tmpx:=tmpl * (i * 2 / l - 1);
        label.top(thTEX(decimal (i)),(tmpx,0));
      endfor;
      label.top(thTEX(decimal (l) & "\thinspace" & txt),(tmpl,0));
#      label.bot(thTEX("Original Scale = 1 : " & decimal (Scale*100)),(0,-tmph));
    endgroup;
  enddef;


endcode

endlayout