diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-11 23:03:17 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-11 23:03:17 +0000 |
commit | ecf966f305f6aeff2bbdf42c82d8425921aa9eda (patch) | |
tree | db606a57e3619610e4c35cae849d41cf4e0937d5 /Master/texmf-dist/source/latex/fundus/pvscript.dtx | |
parent | ac3c55a3216b5988f0e48ba9414ddb059f19a699 (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.dtx | 175 |
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 |