From 4dba39261e79016273de3205cf595d844a48f105 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 12 Jan 2006 23:52:23 +0000
Subject: bookhands

git-svn-id: svn://tug.org/texlive/trunk@719 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/bookhands/allegoth.sty | 65 ++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/bookhands/allegoth.sty

(limited to 'Master/texmf-dist/tex/latex/bookhands/allegoth.sty')

diff --git a/Master/texmf-dist/tex/latex/bookhands/allegoth.sty b/Master/texmf-dist/tex/latex/bookhands/allegoth.sty
new file mode 100644
index 00000000000..5343873a26f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bookhands/allegoth.sty
@@ -0,0 +1,65 @@
+%%
+%% This is file `allegoth.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% egothic.dtx  (with options: `uscall')
+%% 
+%%  Copyright 1999 Peter R. Wilson
+%% 
+%%  This program is provided under the terms of the
+%%  LaTeX Project Public License distributed from CTAN
+%%  archives in directory macros/latex/base/lppl.txt.
+%% 
+%% Author: Peter Wilson (CUA)
+%%         now at: peter.r.wilson@boeing.com
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{allegoth}[2002/12/30 v1.0 package for all Early Gothic fonts]
+\RequirePackage{egothic}
+\providecommand{\Tienc}{T1}
+\renewcommand{\rmdefault}{egoth}
+\renewcommand{\sfdefault}{egoth}
+\renewcommand{\ttdefault}{egoth}
+\newcommand{\egoth@baselineskip@table}{%
+  <\@vpt>7.5%
+  <\@vipt>9.0%
+  <\@viipt>10.5%
+  <\@viiipt>12.0%
+  <\@ixpt>13.5%
+  <\@xpt>15.0%
+  <\@xipt>16.5%
+  <\@xiipt>18.0%
+  <\@xivpt>21.0%
+  <\@xviipt>26.0%
+  <\@xxpt>30.5%
+  <\@xxvpt>38.5}
+\newcommand{\egoth@new@setfontsize}[3]{%
+  \edef\@tempa{\def\noexpand\@tempb####1<#2}%
+  \@tempa>##2<##3\@nil{\def\egoth@baselineskip@value{##2}}%
+  \edef\@tempa{\noexpand\@tempb\egoth@baselineskip@table<#2}%
+  \@tempa><\@nil
+  \ifx\egoth@baselineskip@value\@empty
+    \def\egoth@baselineskip@value{#3}%
+  \fi
+  \egoth@old@setfontsize{#1}{#2}\egoth@baselineskip@value}
+\ifx\Tienc\encodingdefault
+  \providecommand{\cmrfamily}{\usefont{T1}{cmr}{m}{n}}
+  \providecommand{\cmssfamily}{\usefont{T1}{cmss}{m}{n}}
+  \providecommand{\cmttfamily}{\usefont{T1}{cmtt}{m}{n}}
+\else
+  \providecommand{\cmrfamily}{\usefont{OT1}{cmr}{m}{n}}
+  \providecommand{\cmssfamily}{\usefont{OT1}{cmss}{m}{n}}
+  \providecommand{\cmttfamily}{\usefont{OT1}{cmtt}{m}{n}}
+\fi
+\DeclareTextFontCommand{\textcmr}{\cmrfamily}
+\DeclareTextFontCommand{\textcmss}{\cmssfamily}
+\DeclareTextFontCommand{\textcmtt}{\cmttfamily}
+\AtBeginDocument{%
+  \let\egoth@old@setfontsize=\@setfontsize
+  \let\@setfontsize=\egoth@new@setfontsize}
+\AtBeginDocument{\normalsize}
+\endinput
+%%
+%% End of file `allegoth.sty'.
-- 
cgit v1.2.3

