encoding  utf-8
source conyueng.th

layout layout
scale 1 200
color map-bg 95
#symbol-hide group cave-centreline
doc-author "Dave Clucas"
doc-keywords "cave,survey,speleology,sekunyit,kuching"
doc-subject "cave survey"
doc-title "Sekunyit - Comyuang Cave"

code metapost
def p_u (expr P,R,S,A,type)=
   tmplength:=0.3u;
   if type="gradient":
   if known ATTR_length: if ATTR_length="big": tmplength:=.6u; elseif ATTR_length="small": tmplength:=0.2u; fi;fi;
  U:=(.2u,.6u);
  T:=identity aligned A rotated R scaled S shifted P;
  thfill (-.1u,-tmplength)--(0,tmplength)--(.1u,-tmplength)--cycle;
  fi;
 enddef;
 initsymbol("p_u");
 endcode

endlayout

export map -proj plan -o conyueng_p.xvi
export map  -o conyueng_p.pdf -layout layout
export model -o conyueng.3d