encoding  utf-8
source
centerline
cs EPSG:27200
data normal from to compass clino tape
0 1 90 0 10
fix 0 2500800 6023500  730
date 2012.01.09
endcenterline
centerline
data normal from to compass clino tape
1 2 100 0 10
date 2015.01.15
endcenterline
endsource

#SPECIFY OUTPUT CO-ORDINATE SYSTEM
#=================================
cs EPSG:2193  #NZ Transverse Mercater 2000
 # cs EPSG:27200 #NZ Map Grid 1949 

export map  -layout LayoutExperimentalHeader

layout LayoutExperimentalHeader
#This code is experimental redefinition of map header
#Bruce Mutton 25Jun2011 Therion 5.3.8
#Bruce Mutton           Therion 5.3.15 make use of new variables

debug all
code tex-map
% start bruces addition
\newtoks\thversiontitleA \thversiontitleA={Compiled}
\newtoks\thversiontitleB \thversiontitleB={Therion }
\newtoks\datetitle \datetitle={on }
\newtoks\depthrangetitle \depthrangetitle={Depth range from }
% end bruces addition

\legendcontent={%
  \hsize=\legendwidth
  \color[0 0 0]\the\legendtextcolor 
  \ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
%print cave map name
  \edef\tmp{\the\cavename} \ifx\tmp\empty \else
     {\the\legendtextheadersize\the\cavename}\vskip1cm
  \fi
%print scalebar  
  \ifscalebar\scalebar\vskip1cm\fi
  
% start bruces addition
  # %	CS
    \edef\tmp{\the\outcsname} \ifx\tmp\empty \else
      {\the\legendtextsize\ss\the\outcsname\par}
    \fi
    \edef\tmp{\the\northdir} \ifx\tmp\empty \else
      {\the\legendtextsize\ss\the\northdir north }
    \fi	
    \edef\tmp{\the\magdecl} \ifx\tmp\empty \else
      {\the\legendtextsize\ss\the\magdecl deg \par}
    \fi	  
% end bruces addition	
%print comment
  {\rightskip=0pt plus 3em\parskip=3bp
    \edef\tmp{\the\comment} \ifx\tmp\empty \else
      {\the\legendtextsize\the\comment} \par\medskip
    \fi
%print cavelength and depth
    \everypar{\hangindent=2em\hangafter=1}
    \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\cavelengthtitle: \ss\the\cavelength\par}
    \fi
    \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\cavedepthtitle: \ss\the\cavedepth\par}
    \fi
# % start bruces addition	
# %	altitude
    \edef\tmp{\the\cavemaxz} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\depthrangetitle \ss\the\cavemaxz m to} 
    \fi
    \edef\tmp{\the\caveminz} \ifx\tmp\empty \else
      {\the\legendtextsize\ss\the\caveminz m \par} %above mean sea level
    \fi
# % end bruces addition	

%print explorers names
    \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\explotitle: \ss\the\exploteam\quad\si\the\explodate\par}
    \fi
%print surveyors names
    \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\topotitle: \ss\the\topoteam\quad\si\the\topodate\par}
    \fi
%print cartographers names
    \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\cartotitle: \ss\the\cartoteam\quad\si\the\cartodate\par}
    \fi
# % start bruces addition (compilation version and date modified to use built-in 5.3.15 variables)
    \edef\tmp{\the\thversion} \ifx\tmp\empty \else  %only write version and date if version is not emplty
      {\the\legendtextsize\si\the\thversiontitleA: \ss\the\thversiontitleB \ss\the\thversion}
    % \fi 
    % \edef\tmp{\the\currentdate} \ifx\tmp\empty \else
      {\the\legendtextsize\si\the\datetitle \ss\the\currentdate\par}
    \fi 	
	
# % end bruces addition
%print copyrights
    \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
      {\the\legendtextsize\ss\the\copyrights\par}
    \fi	
  }
  \formattedlegend
  \color[0 0 0]
}

endcode
endlayout LayoutExperimentalHeader