summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/fundus/pvscript.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
committerKarl Berry <karl@freefriends.org>2006-01-11 23:03:17 +0000
commitecf966f305f6aeff2bbdf42c82d8425921aa9eda (patch)
treedb606a57e3619610e4c35cae849d41cf4e0937d5 /Master/texmf-dist/source/latex/fundus/pvscript.dtx
parentac3c55a3216b5988f0e48ba9414ddb059f19a699 (diff)
source 1
git-svn-id: svn://tug.org/texlive/trunk@105 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/fundus/pvscript.dtx')
-rw-r--r--Master/texmf-dist/source/latex/fundus/pvscript.dtx175
1 files changed, 175 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/fundus/pvscript.dtx b/Master/texmf-dist/source/latex/fundus/pvscript.dtx
new file mode 100644
index 00000000000..27456221b9c
--- /dev/null
+++ b/Master/texmf-dist/source/latex/fundus/pvscript.dtx
@@ -0,0 +1,175 @@
+\def\filename{pvscript.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: pvscript.dtx
+%% Copyright (C) 1996 Gerd Neugebauer
+%% all rights reserved.
+%<package>\NeedsTeXFormat{LaTeX2e}
+%<package>\ProvidesPackage{pvscript}[1996/07/18 v1.2 LaTeX package pvscript]
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage{pvscript}
+\GetFileInfo{pvscript.sty}
+\begin{document}
+\title{The \texttt{pvscript} 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{pvscript.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{63}
+%% \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 textpvscript added.}
+% \changes{v1.2}{1996/07/18}{Some commands made robust.}
+%
+%
+% \section{Introduction}
+%
+% The font pvscript provides a handwritten font. It can be found on
+% the CTAN in the directory \texttt{tex-archive/fonts/script}.
+% 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 pvscript
+% is defined. This could also have been done by providing a
+% font definition file.
+%
+%
+% \DescribeMacro{\pvscript}
+% The command |\pvscript| changes the current font family to pvscript 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.
+%
+% \DescribeMacro{\textpvscript}
+% The macro |\textpvscript| typesets its argument in the pvscript font.
+%
+%
+% \StopEventually{}
+%
+%
+% \section{Implementation}
+%
+%
+% First we declare a new font family for the pvscript font.
+% \begin{macrocode}
+\DeclareFontFamily{OT1}{pvscript}{}
+% \end{macrocode}
+%
+% This font is available in the normal shape and in a bold variant.
+% Here we can get the desired font by (silently) scaling the present fonts.
+%
+% \begin{macrocode}
+\DeclareFontShape{OT1}{pvscript}{m}{n}{<-> s * [12.84]script10}{}
+\DeclareFontShape{OT1}{pvscript}{bx}{n}{<-> s * [12.84]scriptb10}{}
+\DeclareFontShape{OT1}{pvscript}{b}{n}{<-> sub * pvscript/bx/n}{}
+% \end{macrocode}
+%
+% Next we define some macros to perform the mapping of umlaut
+% characters which have to be combined out of two characters each.
+% \begin{macrocode}
+\newcommand\pvscript@a{\mbox{\rlap{\kern.25em\symbol{34}}a}}
+\newcommand\pvscript@o{\mbox{\rlap{\kern.1em\symbol{34}}o}}
+\newcommand\pvscript@u{\mbox{\rlap{\kern.1em\symbol{34}}u}}
+\newcommand\pvscript@A{\mbox{\rlap{\kern.5em\raisebox{1ex}{\symbol{34}}}A}}
+\newcommand\pvscript@O{\mbox{\rlap{\kern.4em\raisebox{1ex}{\symbol{34}}}O}}
+\newcommand\pvscript@U{\mbox{\rlap{\kern.4em\raisebox{1ex}{\symbol{34}}}U}}
+% \end{macrocode}
+%
+% Now we define the font changing command.
+%
+% \begin{macro}{pvscript}
+% The macro |\pvscript| selects the pvscript family.
+% \begin{macrocode}
+\DeclareRobustCommand\pvscript{
+ \let\pvscript@original@umlaut=\"
+ \def\"##1{%
+ \@ifundefined{pvscript@##1}{%
+ \pvscript@original@umlaut{##1}}{%
+ \@nameuse{pvscript@##1}}}%
+ \def\ss{ss}%
+ \fontfamily{pvscript}%
+ \fontencoding{OT1}%
+ \selectfont}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{textpvscript}
+% The macro |\textpvscript| typesets its argument in the pvscript font.
+% \begin{macrocode}
+\newcommand\textpvscript[1]{\begingroup\pvscript #1\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% \Finale
+%
+\endinput