summaryrefslogtreecommitdiff
path: root/fonts/malvern/fontinst/pdcmat1.mtx
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/malvern/fontinst/pdcmat1.mtx')
-rw-r--r--fonts/malvern/fontinst/pdcmat1.mtx186
1 files changed, 186 insertions, 0 deletions
diff --git a/fonts/malvern/fontinst/pdcmat1.mtx b/fonts/malvern/fontinst/pdcmat1.mtx
new file mode 100644
index 0000000000..8d69e7592d
--- /dev/null
+++ b/fonts/malvern/fontinst/pdcmat1.mtx
@@ -0,0 +1,186 @@
+% pdcmat1.mtx 1.1.1 1994/07/20 -- glyph hacks for Malvern -*-TeX-*-
+%%% ====================================================================
+%%% @TeX-macro-file{
+%%% author = "P. Damian Cugley",
+%%% version = "1.1.1",
+%%% date = "1994/07/20",
+%%% filename = "pdcmat1.mtx",
+%%% 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 = "How to make some glyphs needed to generate
+%%% Cork (T1) encoded fonts from Malvern
+%%% fonts.",
+%%% package = "",
+%%% dependencies = "(as a document) pdcetxf.tex, fontdoc.sty;
+%%% (as a subr) none",
+%%% }
+%%% ====================================================================
+
+\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.1}
+ \def\lastedit{1994/07/20}
+}\the\toks0
+
+\raggedright
+
+\title{Glyph hacks for making Cork (T1) from Malvern A \& B}
+
+\section{Introduction}
+ This document describes some definitions useful for making fonts
+ with the Cork (T1) encoding from fonts with Malvern~A and~B
+ encodings (such as the Malvern fonts). This file is called
+ `{\tt pdcmat1.mtx}': `{\tt pdc}' as a prefix to avoid
+ confusion with files contributed by other people; `{\tt ma}' for
+ Malvern;\footnote*{To prevent a prolifiation of different
+ abbreviations, Malvern is always shortened to `Ma', (except in
+ Karl Berry's font-naming scheme, where its code is `Mv'). It
+ should not be abbreviated `Malv' or any other variations on the
+ name.} and `{\tt t1}' because the NFSS~2 code for the Cork
+ encoding is T1.
+
+ This file is expected to be read {\it before}\/ `{\tt
+ latin.mtx}' in an \cs{installfonts} list.
+
+ This is version \pdcversion, last edited \lastedit.
+
+\metrics
+
+% Topaccent and botaccent stolen from Alan's latin.mtx:
+
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+
+% A special verion of topaccent for my twodots mark
+% It is designed to be raised to go halfway between
+% top of letter and cap-height...
+\setcommand\twodots#1#2#3{
+ \push
+ \moveup{\max{0}{\scale{\sub{\height{#1}}{\int{xheight}}}{500}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+\comment{\section{L-caron}}
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-200}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+
+\comment{\section{Botaccents (cedillas, ogoneks)}
+ These use use full-sized base letters and -cap marks.
+ Acutually, A-ogonek and E-ogonek are already defined in Malvern~A.}
+
+\setglyph{Aogonek} \botaccent{A}{ogonekcap}{900} \endsetglyph
+\setglyph{Eogonek} \botaccent{E}{ogonekcap}{850} \endsetglyph
+\setglyph{Ccedilla} \botaccent{C}{cedillacap}{500} \endsetglyph
+\setglyph{Scedilla} \botaccent{S}{cedilla}{500} \endsetglyph
+\setglyph{Tcedilla} \botaccent{T}{cedilla}{500} \endsetglyph
+
+\comment{\section{Dot and two-dot marks}
+ These are the only marks with no `-cap' variant. Instead the
+ two dots are placed so as to be about halfway between the top of
+ the glyph and the cap height.
+ (Obviously this depends on the base glyph being shorter than
+ full cap height.)}
+
+\setglyph{Adieresis} \twodots{Amedium}{dieresis}{500} \endsetglyph
+\setglyph{Edieresis} \twodots{Emedium}{dieresis}{500} \endsetglyph
+\setglyph{Idotaccent} \twodots{Imedium}{dotaccent}{500} \endsetglyph
+\setglyph{Idieresis} \twodots{Imedium}{dieresis}{500} \endsetglyph
+\setglyph{Odieresis} \twodots{Omedium}{dieresis}{500} \endsetglyph
+\setglyph{Udieresis} \twodots{Umedium}{dieresis}{500} \endsetglyph
+\setglyph{Ydieresis} \twodots{Ymedium}{dieresis}{500} \endsetglyph
+\setglyph{Zdotaccent} \twodots{Zmedium}{dotaccent}{500} \endsetglyph
+
+\comment{\section{Topaccents}
+ This is the bulk of composite letters: medium capitals with a
+ `-cap' mark raised above them.}
+
+\setglyph{Aacute} \topaccent{Amedium}{acutecap} {500} \endsetglyph
+\setglyph{Abreve} \topaccent{Amedium}{brevecap} {500} \endsetglyph
+\setglyph{Acircumflex} \topaccent{Amedium}{circumflexcap} {500} \endsetglyph
+\setglyph{Agrave} \topaccent{Amedium}{gravecap} {500} \endsetglyph
+\setglyph{Aring} \topaccent{Amedium}{ringcap} {500} \endsetglyph
+\setglyph{Atilde} \topaccent{Amedium}{tildecap} {500} \endsetglyph
+\setglyph{Cacute} \topaccent{Cmedium}{acutecap} {600} \endsetglyph
+\setglyph{Ccaron} \topaccent{Cmedium}{caroncap} {600} \endsetglyph
+\setglyph{Dcaron} \topaccent{Dmedium}{caroncap} {450} \endsetglyph
+\setglyph{Eacute} \topaccent{Emedium}{acutecap} {500} \endsetglyph
+\setglyph{Ecaron} \topaccent{Emedium}{caroncap} {500} \endsetglyph
+\setglyph{Ecircumflex} \topaccent{Emedium}{circumflexcap} {500} \endsetglyph
+\setglyph{Egrave} \topaccent{Emedium}{gravecap} {500} \endsetglyph
+\setglyph{Gbreve} \topaccent{Gmedium}{brevecap} {600} \endsetglyph
+\setglyph{Iacute} \topaccent{Imedium}{acutecap} {500} \endsetglyph
+\setglyph{Icircumflex} \topaccent{Imedium}{circumflexcap} {500} \endsetglyph
+\setglyph{Igrave} \topaccent{Imedium}{gravecap} {500} \endsetglyph
+\setglyph{Lacute} \topaccent{Lmedium}{acutecap} {250} \endsetglyph
+\setglyph{Nacute} \topaccent{Nmedium}{acutecap} {500} \endsetglyph
+\setglyph{Ncaron} \topaccent{Nmedium}{caroncap} {500} \endsetglyph
+\setglyph{Ntilde} \topaccent{Nmedium}{tildecap} {500} \endsetglyph
+\setglyph{Oacute} \topaccent{Omedium}{acutecap} {500} \endsetglyph
+\setglyph{Ocircumflex} \topaccent{Omedium}{circumflexcap} {500} \endsetglyph
+\setglyph{Ograve} \topaccent{Omedium}{gravecap} {500} \endsetglyph
+\setglyph{Ohungarumlaut} \topaccent{Omedium}{hungarumlautcap}{500} \endsetglyph
+\setglyph{Otilde} \topaccent{Omedium}{tildecap} {500} \endsetglyph
+\setglyph{Racute} \topaccent{Rmedium}{acutecap} {500} \endsetglyph
+\setglyph{Rcaron} \topaccent{Rmedium}{caroncap} {500} \endsetglyph
+\setglyph{Sacute} \topaccent{Smedium}{acutecap} {500} \endsetglyph
+\setglyph{Scaron} \topaccent{Smedium}{caroncap} {500} \endsetglyph
+\setglyph{Tcaron} \topaccent{Tmedium}{caroncap} {500} \endsetglyph
+\setglyph{Uacute} \topaccent{Umedium}{acutecap} {500} \endsetglyph
+\setglyph{Ucircumflex} \topaccent{Umedium}{circumflexcap} {500} \endsetglyph
+\setglyph{Ugrave} \topaccent{Umedium}{gravecap} {500} \endsetglyph
+\setglyph{Uhungarumlaut} \topaccent{Umedium}{hungarumlautcap}{500} \endsetglyph
+\setglyph{Uring} \topaccent{Umedium}{ringcap} {500} \endsetglyph
+\setglyph{Yacute} \topaccent{Ymedium}{acutecap} {500} \endsetglyph
+\setglyph{Zacute} \topaccent{Zmedium}{acutecap} {500} \endsetglyph
+\setglyph{Zcaron} \topaccent{Zmedium}{caroncap} {500} \endsetglyph
+
+\endmetrics
+
+\bye
+
+% Local Variables:
+% fill-prefix: "\t"
+% End: