summaryrefslogtreecommitdiff
path: root/info/fontsampler/tengwar.sty
blob: a5ca7d5e050ba2deaf18f5d744e33e496e75105d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
% This implements the Tengwar font
\def\fileversion{1.0}
\def\filedate{1999/04/19}
\def\docdate{1999/04/19}
\NeedsTeXFormat{LaTeX2e}[1998/06/01]
\ProvidesPackage{tengwar}[1999/04/19 Tengwar font]
\RequirePackage[OT1]{fontenc}
%\renewcommand{\rmdefault}{ztg}
\def\rmfontfamilyname{Tengwar}
%
%\input{ot1ztg.fd}
\newcommand{\tengwar}{%
%	\renewcommand{\baselinestretch}{1.2}%
	\fontencoding{OT1}\fontfamily{ztg}%
		\fontseries{m}\fontshape{n}\selectfont%
	\def\a##1{\accent"5E ##1}%
	\def\sh{C}%
	\def\z{\ae}%
	\let\@i\u%
	\def\i##1{\setbox0=\hbox{##1}\dimen0=\ht0% 
		\advance\dimen0 by\dp0% 
		\advance\dimen0 by1ex%
		\raise.47ex\hbox{\begin{tabular}{@{}c@{}}%
			\@i{}\\[-\dimen0 ]##1\end{tabular}}}%
	\let\u\v%
	\let\uu\=%
	\def\m##1{\accent"1E ##1}%
}%
\newcommand{\teng}[1]{{\tengwar#1}}
% eof