\startenvironment env_ms_blackletter

\definetypeface[mainface][rm][specserif]  [Lucida Blackletter OT][default][features=default]
\definetypeface[mainface][cg][calligraphy][lucidaot]             [default][features=default]
 \definetypeface[mainface][mm][math][lucidaot][default]
% 
\setupbodyfont[mainface]

% \setupbodyfont[10pt]

\definebodyfontenvironment[default][em=cg]

\definecolor[darkgray][s=.9]


\startuniqueMPgraphic{CgLines}
	draw (-1cm,0cm) -- (14cm,0cm) -- (14cm,1.5cm) -- (-1cm,1.5cm) -- (-1cm,0cm) -- cycle withcolor white; 	
	path p ; p := (0cm,1.2cm) -- (12.5cm,1.2cm) -- (12.3cm,1.3cm) -- (-0.5cm,1.4cm) -- (0cm,1.2cm) -- cycle ;
	fill p 
	withshading("linear",llcorner p,urcorner p) 
	withcolor black shadedinto darkgray ;
 	path p ; p := (0cm,0cm) -- (12.5cm,0cm) -- (12.3cm,0.1cm) -- (-0.3cm,0.2cm) -- (0cm,0cm) -- cycle ;
	fill p 
	withshading("linear",llcorner p,urcorner p) 
	withcolor black shadedinto darkgray ;
 	
\stopuniqueMPgraphic

\startuniqueMPgraphic{CgLine}
	draw (-1cm,0cm) -- (14cm,0cm) -- (14cm,1cm) -- (-1cm,1cm) -- (-1cm,0cm) -- cycle withcolor white; 	
 	path p ; p := (0cm,0cm) -- (12.5cm,0cm) -- (12.3cm,0.05cm) -- (-0.3cm,0.1cm) -- (0cm,0cm) -- cycle ;
	fill p 
	withshading("linear",llcorner p,urcorner p) 
	withcolor black shadedinto darkgray ;
\stopuniqueMPgraphic


\setuphead[title][command=\MsTitle,style=\tfb,page=no]
\defineoverlay[HeaderLines][\uniqueMPgraphic{CgLines}]

\def\MsTitle#1#2{
    \framedtext
        [width=\textwidth,
        background={foreground,HeaderLines},
        offset=0pt,
%		loffset=-20pt,
        strut=no,
        frame=off,
        align={middle,right},
		distance=.3mm]
%		after={\nowhitespace}]
		{#1 #2}}


\setuphead[subject][command=\MsSubject,style=\tfa]
\defineoverlay[HeaderLine][\uniqueMPgraphic{CgLine}]

		\def\MsSubject#1#2{
		    \framedtext
		        [width=\textwidth,
		        background={foreground,HeaderLine},
		        offset=0pt,
%				loffset=20pt,
		        strut=no,
		        frame=off,
		        align={middle,right},
%				after={\nowhitespace}]
				distance=0.1mm]
				{#1 #2}}



\stopenvironment