% %M% 1.%I% 19%E% -- glyph hacks for Malvern -*-TeX-*-
%%% ====================================================================
%%%  @TeX-file{
%%%     author          = "P. Damian Cugley",
%%%     version         = "1.%I%",
%%%     date            = "19%E%",
%%%     filename        = "%M%",
%%%     address         = "Oxford University Computing Laboratory,
%%%			   Parks Road, Oxford OX1 3QD, UK",
%%%     email           = "Damian.Cugley@comlab.ox.ac.uk",
%%%     codetable       = "USASCII",
%%%     keywords        = "AFM, virtual fonts, fonts, Malvern, TeX",
%%%     supported       = "no",
%%%     abstract        = "Hacks for making Malvern A glyphs
%%%				from Adobe glyphs.",
%%%     package         = "",
%%%     dependencies    = "fontinst, pdc-etxf.tex",
%%%  }
%%% ====================================================================

\relax

\catcode`@=11 \input fontdoc.sty \catcode`@=12
\input pdcetxf

%  Following 4 lines get the version ID from SCCS:
\begingroup\catcode`\%=12 \toks0={\endgroup
	\def\pdcversion{1.%R%} 
	\def\lastedit{19%E%}
}\the\toks0

\title{Malvern glyphes for {\tt fontinst}}

\section{Introduction}
	This document describes additional glyphs for the {\tt fontinst}
	package to use when generating Latin fonts with the Malvern~A
	and B encodings from fonts with the Adobe character set.  It
	should be listed in a \cs{installfont} command after {\tt
	latin}.

	This is version \pdcversion, last edited \lastedit.

\raggedright

\metrics

\def\setleftrightkerning#1#2#3%
{
    \setleftkerning{#1}{#2}{#3}
    \setrightkerning{#1}{#2}{#3}
}

\comment{\section{Miscellaneous glyphs}}

\setint{superiorscale}{700}
\setint{superiordy}{\sub{\int{ascender}}
	{\scale{\int{ascender}}{\int{superiorscale}}}}
\setint{inferiorscale}{\int{superiorscale}}
\setint{inferiordy}{0}

\def\superior#1%
{
    \moveup{\int{superiordy}}
    \glyph{#1}{\int{superiorscale}}
    \moveup{-\int{superiordy}}
}

\def\inferior#1%
{
    \moveup{\int{inferiordy}}
    \glyph{#1}{\int{inferiorscale}}
    \moveup{-\int{inferiordy}}
}
\def\flushtop#1#2%
{
    \moveup{\sub{\height{X}}{\scale{\height{#1}}{#2}}}
    \glyph{#1}{#2}
    \moveup{\sub{\scale{\height{#1}}{#2}}{\height{X}}}
}

\setglyph{cedillacap} \glyph{cedilla}{1000} \endsetglyph
\setglyph{ogonekcap} \glyph{ogonek}{1000} \endsetglyph
\setglyph{acutecap} \glyph{acute}{1000} \endsetglyph
\setglyph{gravecap} \glyph{grave}{1000} \endsetglyph
\setglyph{circumflexcap} \glyph{circumflex}{1000} \endsetglyph
\setglyph{tildecap} \glyph{tilde}{1000} \endsetglyph
\setglyph{ringcap} \glyph{ring}{1000} \endsetglyph
\setglyph{caroncap} \glyph{caron}{1000} \endsetglyph
\setglyph{brevecap} \glyph{breve}{1000} \endsetglyph
\setglyph{hungarumlautcap} \glyph{hungarumlaut}{1000} \endsetglyph
\setglyph{macrondbl} \glyph{macron}{1000} \endsetglyph

\setglyph{careof} 
   	\flushtop{c}{\int{superiorscale}}
	\glyph{fraction}{1000}
	\inferior{o}
\endsetglyph

\setglyph{csuperior} 
	\superior{c} 
\endsetglyph

\setglyph{csuperior1}
	\glyph{csuperior}{1000}
\endsetglyph

\setint{ballotboxht}{\add{\int{ascender}}{\int{descender}}}
\setint{ballotboxdp}{\int{descender}}
\setint{ballotboxwd}{\sub{\int{ballotboxht}}
	{\scale{\int{underlinethickness}}{2000}}}
\setint{ballotboxsp}{\int{visiblespacesurround}}

\setglyph{ballotbox} 
	\movert{\int{ballotboxsp}}
	\moveup{-\int{ballotboxdp}}
	\glyphrule{\int{underlinethickness}}{\int{ballotboxht}}
	\push
		\moveup{\sub{\int{ballotboxht}}{\int{underlinethickness}}}
		\glyphrule{\int{ballotboxwd}}{\int{underlinethickness}}
	\pop
	\glyphrule{\int{ballotboxwd}}{\int{underlinethickness}}
	\glyphrule{\int{underlinethickness}}{\int{ballotboxht}}
	\moveup{\int{ballotboxdp}}
	\movert{\int{ballotboxsp}}
\endsetglyph

\setint{markscale}{750}
% based on Alan's topaccent
\setglyph{hcircumflex}
	\push
	\moveup{\sub{\int{xheight}}{\scale{\int{xheight}}{\int{markscale}}}}
	\movert{\sub{\scale{\width{h}}{600}}
		    {\scale{\scale{\width{circumflex}}{500}}{\int{markscale}}}}
	\glyph{circumflex}{\int{markscale}}
	\pop
	\glyph{h}{1000}
\endsetglyph

\setglyph{copyright}
	\glyph{copyrightserif}{1000}
\endsetglyph

\setglyph{registered}
	\glyph{registerserif}{1000}
\endsetglyph

\endmetrics

\bye