% 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: