summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/fundus/suetterl.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/fundus/suetterl.dtx')
-rw-r--r--Master/texmf-dist/source/latex/fundus/suetterl.dtx173
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