encoding  utf-8
source dyo
cs osgb:SN
maps off
#Common features of layout
text en "line u:ledge" "ledge"
text en "line u:judson" "Judson & Coase"

layout atlas
  symbol-set BCRA
  north grid
  cs osgb:sn
  transparency on
  layers off
  opacity 50
  language en
  debug station-names
  scale 1 1000
  colour-model rgb
  symbol-colour area water 0000ff
  symbol-colour line water-flow 0000ff
  colour map-fg 100
  colour map-bg 90
  symbol-show group cave-centerline
endlayout

layout map_layout
  symbol-set BCRA
  colour map-fg altitude
  cs osgb:sn
  symbol-hide group cave-centerline
  north grid
  scale 1 1000
  base-scale 1 200
  transparency on
  grid bottom
  grid-coords border
  colour-model rgb
  symbol-colour area water 668aff
  symbol-colour line water-flow 668aff
  legend on
  #map-header 100 -40 se
  size 48.3 32.9 cm
  symbol-show group cave-centerline
  
  code metapost
	def s_northarrow (expr rot) =
	  scale_value = 0.5;
	  decl := MagDecl; 
	  T := identity;

	  picture tmp_pic;
	  tmp_pic = image (
		  pickup pencircle scaled 1;
		  thdraw fullcircle scaled 4cm;
		  thdraw fullcircle scaled 2.75cm;
		  pickup pencircle scaled .5;
		  thdraw fullcircle scaled 3.75cm;
		  for whereto=11.25 step 22.5 until 360:
			thdraw dir(whereto)*2.75/2cm--dir(whereto)*3.75/2cm;
		  endfor;
	% arrows
		  path halfarrow;
		  halfarrow = (+.3cm,.3cm)--(0,2cm)--(0,0)--cycle;
		  for whereto = 45 step 90 until 315:
	%          thfill halfarrow scaled .85 rotated whereto withcolor .30;
			pickup pencircle scaled 1;
			for halfarrowgrad = 1 step -.05 until 0:
			  thdraw ((halfarrowgrad*.3cm, halfarrowgrad*.3cm)--(0,2cm)) scaled .85 rotatedaround ((0, 0),whereto) withcolor .75halfarrowgrad;
			endfor;  
			pickup pencircle scaled .5;
			thdraw halfarrow scaled .85 rotated whereto;;
			thfill halfarrow xscaled -1 scaled .85 rotated whereto withcolor white;
			thdraw halfarrow xscaled -1 scaled .85 rotated whereto;;
		  endfor;  
		  for whereto = 0 step 90 until 270:
	%          thfill halfarrow scaled 1.15 rotated whereto withcolor .30;
			pickup pencircle scaled 1;
			for halfarrowgrad = 1 step -.05 until 0:
			  thdraw ((halfarrowgrad*.3cm, halfarrowgrad*.3cm)--(0,2cm)) scaled 1.15 rotatedaround ((0, 0),whereto) withcolor .75halfarrowgrad;
			endfor;  
			pickup pencircle scaled .5;
			thdraw halfarrow scaled 1.15 rotated whereto;;
			thfill halfarrow xscaled -1 scaled 1.15 rotated whereto withcolor white;
			thdraw halfarrow xscaled -1 scaled 1.15 rotated whereto;;
		  endfor;  
	% central circles
		  thfill fullcircle scaled .56cm withcolor 1white;
		  pickup pencircle scaled .5;
		  thdraw fullcircle scaled .56cm;
		  thfill fullcircle scaled .3cm withcolor .30;
	% characters
		  label.bot(thTEX("\bf{}N") scaled 1.5, (0,2.9cm));
		  label.lft(thTEX("\bf{}E") scaled 1.5, (2.9cm,0));
		  label.rt (thTEX("\bf{}W") scaled 1.5, (-2.95cm,0));
		  label.top(thTEX("\bf{}S") scaled 1.5, (0,-2.9cm));
	% space among characters
		  pickup pencircle scaled .5;
		  thdraw (dir(45)*2cm)--(dir(45)*2.5cm);
		  thdraw (dir(135)*2cm)--(dir(135)*2.5cm);
		  thdraw (dir(225)*2cm)--(dir(225)*2.5cm);
		  thdraw (dir(315)*2cm)--(dir(315)*2.5cm);
	  );
	  
	  thdraw tmp_pic scaled scale_value rotatedaround (origin, - rot);
	enddef;
  endcode
endlayout



#export model -o dyo.lox
export model -o dyo.3d -format survex
#export atlas -o atlas.pdf -layout atlas
export map -proj plan -o map.pdf -layout map_layout