diff options
Diffstat (limited to 'fonts/malvern/fontinst/pdcmat1.mtx')
-rw-r--r-- | fonts/malvern/fontinst/pdcmat1.mtx | 186 |
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: |