diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/fundus/suetterl.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/fundus/suetterl.dtx | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/fundus/suetterl.dtx b/Master/texmf-dist/source/latex/fundus/suetterl.dtx new file mode 100644 index 00000000000..e2701bbcf6d --- /dev/null +++ b/Master/texmf-dist/source/latex/fundus/suetterl.dtx @@ -0,0 +1,173 @@ +\def\filename{suetterl.dtx} +\def\fileversion{1.2} +\def\filedate{1996/07/18} +\let\docversion=\fileversion +\let\docdate=\filedate +% \iffalse meta-comment +% +% Copyright 1996 by Gerd Neugebauer +% +% For further copyright information, and conditions for modification +% and distribution, see the file legal.txt, and any other copyright +% notices in this file. +% +% This system is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +% +% For error reports concerning UNCHANGED versions of this file no +% more than one year old, see bugs.txt. +% +% Please do not request updates from us directly. Primary +% distribution is through the CTAN archives. +% +% +% IMPORTANT COPYRIGHT NOTICE: +% +% You are NOT ALLOWED to distribute this file alone. +% +% You are allowed to distribute this file under the condition that it +% is distributed together with all the files listed in manifest.txt. +% +% If you receive only some of these files from someone, complain! +% +% +% Permission is granted to copy this file to another file with a +% clearly different name and to customize the declarations in that +% copy to serve the needs of your installation, provided that you +% comply with the conditions in the file legal.txt. +% +% However, NO PERMISSION is granted to produce or to distribute a +% modified version of this file under its original name. +% +% You are NOT ALLOWED to change this file. +% +% +% +% \fi +% \iffalse +%%% File: suetterl.dtx +%% Copyright (C) 1996 Gerd Neugebauer +%% all rights reserved. +%<package>\NeedsTeXFormat{LaTeX2e} +%<package>\ProvidesPackage{suetterl}[1996/07/18 v1.2 LaTeX package suetterl] +%<*driver> +\documentclass{ltxdoc} +\usepackage{suetterl} +\GetFileInfo{suetterl.sty} +\begin{document} +\title{The \texttt{suetterl} package\thanks + {This file has version number \fileversion, dated \filedate.}\\ + for use with \LaTeX2e} +\author{Gerd Neugebauer\\Mainzer Str.~16\\56321 Rhens\\ + \texttt{gerd@informatik.uni-koblenz.de}} +\date{\docdate} +\maketitle +\DocInput{suetterl.dtx} +\end{document} +%</driver> +% \fi +% +% \CheckSum{18} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +% \changes{v1.0}{1996/03/03}{First release} +% \changes{v1.1}{1996/05/19}{Macro textsuetterlin added.} +% \changes{v1.2}{1996/07/18}{Some commands made robust.} +% +% +% \section{Introduction} +% +% The font suetterl provides a suetterlin kind of font. This fonts +% are the handwritten variants of the gothic fonts. The sutterl and +% the schwell font have been written by B.~Ludewig. They can be +% found on the CTAN in the directory +% \texttt{tex-archive/fonts/gothic/sueterl}. +% This package provides means to use this font. +% +% +% \section{Usage} +% +% This file can be used as a package by placing its name +% in the argument of |\usepackage|. Afterwards the font family suetterl +% is defined. This could also have been done by providing a +% font definition file. +% +% The font definitions in this file scale down the original fonts +% to let \LaTeX{} choose the right baselineskip. +% +% \DescribeMacro{\suetterlin} +% The command |\suetterlin| changes the current font family to +% suetterl and the encoding to T1. Usually this should be used in a +% \TeX{} group only since the macros |\s| is redefined as well. +% +% \DescribeMacro{\textsuetterlin} +% The command |\textsuetterlin| typesets its argument in the +% suetterl font. +% +% +% \StopEventually{} +% +% +% \section{Implementation} +% +% +% First we declare a new font family for the suetterl font. +% \begin{macrocode} +\DeclareFontFamily{T1}{suetterl}{} +% \end{macrocode} +% +% This font is only available in the normal shape. Here we can get the +% desired font by (silently) scaling the only present suett15. The +% appropriate factor seems to be magstep 2 = 1.44. +% +% \begin{macrocode} +\DeclareFontShape{T1}{suetterl}{m}{n}{<->s*[0.8]suet14}{} +\DeclareFontShape{T1}{suetterl}{m}{it}{<->s*[0.7]schwell}{} +% \end{macrocode} +% +% Now we define font changing command. +% +% \begin{macro}{\sutterlin} +% The macro |\suetterlin| selects the suetterl family. The macro |\s| +% is used for the short s. +% \begin{macrocode} +\DeclareRobustCommand\suetterlin{% + \renewcommand\s{\symbol{28}}% + \fontfamily{suetterl}% + \fontencoding{T1}% + \selectfont} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\s} +% Usually |\s| produces a normal s. +% \begin{macrocode} +\newcommand\s{s} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\textsutterlin} +% The macro |\textsuetterlin| typesets is argument in the sutterl font. +% \begin{macrocode} +\newcommand\textsuetterlin[1]{\begingroup\suetterlin #1\endgroup} +% \end{macrocode} +% \end{macro} +% +% \Finale +% +\endinput |