summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/fundus/twcal/twcal.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/fundus/twcal/twcal.dtx')
-rw-r--r--macros/latex/contrib/fundus/twcal/twcal.dtx236
1 files changed, 236 insertions, 0 deletions
diff --git a/macros/latex/contrib/fundus/twcal/twcal.dtx b/macros/latex/contrib/fundus/twcal/twcal.dtx
new file mode 100644
index 0000000000..bb80689bef
--- /dev/null
+++ b/macros/latex/contrib/fundus/twcal/twcal.dtx
@@ -0,0 +1,236 @@
+\def\filename{twcal.dtx}
+\def\fileversion{1.3}
+\def\filedate{2012/04/10}
+\let\docversion=\fileversion
+\let\docdate=\filedate
+% \iffalse meta-comment
+%
+% Copyright 1996-2012 by Gerd Neugebauer
+%
+% This file may be distributed and/or modified under the conditions
+% of the LaTeX Project Public License, either version 1.3c of this
+% license or (at your option) any later version. The latest version
+% of this license is in http://www.latex-project.org/lppl.txt and
+% version 1.3c or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This file has the LPPL maintenance status "maintained".
+%
+% \fi
+% \iffalse
+%%% File: twcal.dtx
+%% Copyright (C) 1996-2012 Gerd Neugebauer
+%% all rights reserved.
+%<package>\NeedsTeXFormat{LaTeX2e}
+%<package>\ProvidesPackage{twcal}[2012/04/10 v1.3 LaTeX package twcal]
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage{texnames}
+\usepackage{german}
+\selectlanguage{\english}
+\usepackage{twcal}
+\GetFileInfo{twcal.sty}
+\RecordChanges
+\PageIndex
+\begin{document}
+\title{The \texttt{twcal} package\thanks
+ {This file has version number \fileversion, dated \filedate.}\\
+ for use with \LaTeX2e}
+\author{Gerd Neugebauer\\Im Lerchelsb\"ohl 5\\64521 Gro\ss-Gerau\\Germany\\
+ \texttt{gene@gerd-neugebauer.de}}
+\date{\docdate}
+\maketitle
+\DocInput{twcal.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{64}
+%% \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 texttwcal added.}
+% \changes{v1.2}{1996/07/18}{Some commands made robust.}
+% \changes{v1.3}{2012/04/10}{License clarified and address updated.}
+%
+%
+% \section{Introduction}
+%
+% The \MF\ font twcal provides a calligraphic font. This font has been
+% written by Thomas Weinmann. It can be found on the CTAN in the
+% directory \texttt{tex-archive/fonts/twcal}.
+% This package provides means to use this font.
+
+% This package has been created for an article in "`Die \TeX nische
+% Kom\"odie"' \cite{dtk96.1:neugebauer:krakelig}. This article
+% contains some more details on the package and its use.
+%
+%
+% \section{Usage}
+%
+% This file can be used as a package by placing its name
+% in the argument of |\usepackage|. Afterwards the font family twcal
+% is defined. This could also have been done by providing a
+% font definition file.
+%
+%
+% \DescribeMacro{\twcal}
+% The command |\twcal| changes the current font family to twcal and the
+% encoding to OT1. Usually this should be used in a \TeX{} group only
+% since it changes the font encoding and redefines the umlaut macro.
+%
+% The following example on the left produces the result on the
+% right.\smallskip
+%
+% \noindent
+% \begin{minipage}{.55\textwidth}\small\tt\raggedright
+% \verb|{\twcal| Lorem ipsum dolor sit amet, consectetur
+% adipisicing elit, sed do eiusmod tempor incididunt ut labore et
+% dolore magna aliqua. Ut enim ad minim veniam, quis nostrud
+% exercitation ullamco laboris nisi ut aliquip ex ea commodo
+% consequat. Duis aute irure dolor in reprehenderit in voluptate
+% velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint
+% occaecat cupidatat non proident, sunt in culpa qui officia
+% deserunt mollit anim id est
+% laborum. \verb|}| \end{minipage}\hfill
+% \begin{minipage}{.40\textwidth}
+% \twcal Lorem ipsum dolor sit amet, consectetur adipisicing
+% elit, sed do eiusmod tempor incididunt ut labore et dolore magna
+% aliqua. Ut enim ad minim veniam, quis nostrud exercitation
+% ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis
+% aute irure dolor in reprehenderit in voluptate velit esse cillum
+% dolore eu fugiat nulla pariatur. Excepteur sint occaecat
+% cupidatat non proident, sunt in culpa qui officia deserunt mollit
+% anim id est laborum. \end{minipage}
+% \medskip
+%
+% \DescribeMacro{\texttwcal}
+% The macro |\texttwcal| typesets its argument in the twcal font.
+%
+% The following example on the left produces the result on the
+% right.\smallskip
+%
+% \noindent
+% \begin{minipage}{.55\textwidth}\small\tt\raggedright
+% \verb|\texttwcal{| Lorem ipsum dolor sit\verb|}| amet,
+% consectetur adipisicing elit, sed do eiusmod tempor incididunt ut
+% labore et dolore magna aliqua.\end{minipage}\hfill
+% \begin{minipage}{.40\textwidth}
+% \texttwcal{Lorem ipsum dolor sit} amet, consectetur adipisicing
+% elit, sed do eiusmod tempor incididunt ut labore et dolore magna
+% aliqua. \end{minipage}
+% \medskip
+%
+% \DescribeMacro{\twcallogo}
+% The command |\twcallogo| typesets the logo for the twcal font as
+% defined by the author of the font.
+%
+% The following example on the left produces the result on the
+% right.\smallskip
+%
+% \noindent
+% \begin{minipage}{.55\textwidth}\small\tt\raggedright
+% \verb|\twcallogo|\end{minipage}\hfill
+% \begin{minipage}{.40\textwidth}
+% \twcallogo \end{minipage}
+% \medskip
+%
+%
+% \begin{thebibliography}{1}
+%
+% \bibitem{dtk96.1:neugebauer:krakelig}
+% Gerd Neugebauer.
+% \newblock Von {\glqq}krakelig{\grqq} bis {\glqq}wie gemalt{\grqq}.
+% \newblock {\em {D}ie {\TeX}nische {K}om{\"o}die}, 1/96:25--42, June 1996.
+%
+% \end{thebibliography}
+%
+% \StopEventually{}
+%
+%
+% \section{Implementation}
+%
+%
+% First we declare a new font family for the twcal font.
+% \begin{macrocode}
+\DeclareFontFamily{OT1}{twcal}{}
+% \end{macrocode}
+%
+% This font is only available in the normal shape. Here we can get the
+% desired font by (silently) scaling the only present fonts.
+%
+% \begin{macrocode}
+\DeclareFontFamily{OT1}{twcal}{}
+\DeclareFontShape{OT1}{twcal}{m}{n}{<->s*[0.7]twcal14}{}
+% \end{macrocode}
+%
+% Next we define some macros to perform the mapping of umlaut
+% characters to the unusual positions used in this font.
+% \begin{macrocode}
+\newcommand\twcal@a{\char26}
+\newcommand\twcal@o{\char27}
+\newcommand\twcal@u{\char28}
+\newcommand\twcal@A{\char29}
+\newcommand\twcal@O{\char30}
+\newcommand\twcal@U{\char31}
+% \end{macrocode}
+%
+% Now we define the font changing command.
+%
+% \begin{macro}{\twcal}
+% The macro |\twcal| selects the twcal family.
+% \begin{macrocode}
+\DeclareRobustCommand\twcal{%
+ \let\twcal@original@umlaut=\"
+ \def\"##1{%
+ \@ifundefined{twcal@##1}{%
+ \twcal@original@umlaut{##1}}{%
+ \@nameuse{twcal@##1}}}%
+ \fontfamily{twcal}%
+ \fontencoding{OT1}%
+ \selectfont}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\texttwcal}
+% The macro |\texttwcal| typesets its argument in the twcal font.
+% \begin{macrocode}
+\newcommand\texttwcal[1]{\begingroup\twcal #1\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\twcallogo}
+% Finally we provide the logo for this font as defined by the author
+% of the font.
+% \begin{macrocode}
+\newcommand\twcallogo{\mbox{\({
+ \lower-0.3ex\hbox{T}\kern-0.22em
+ \lower0.3ex\hbox{W}\kern-0em
+ \lower-0.3ex\hbox{C}\kern-0.24em
+ \lower0.3ex\hbox{A}\kern-0.14em
+ \lower-0.3ex\hbox{L}}\kern-0.19em
+ \lower0.1ex\hbox{1}\kern-0.14em
+ \lower-0.1ex\hbox{4}\)}}
+% \end{macrocode}
+% \end{macro}
+%
+% \PrintChanges
+% \PrintIndex
+%
+% \Finale
+%
+\endinput