From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 info/fontsampler/tengwar.sty | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 info/fontsampler/tengwar.sty

(limited to 'info/fontsampler/tengwar.sty')

diff --git a/info/fontsampler/tengwar.sty b/info/fontsampler/tengwar.sty
new file mode 100644
index 0000000000..a5ca7d5e05
--- /dev/null
+++ b/info/fontsampler/tengwar.sty
@@ -0,0 +1,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
-- 
cgit v1.2.3

