From 4dba39261e79016273de3205cf595d844a48f105 Mon Sep 17 00:00:00 2001 From: Karl Berry 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