trunk/Master/texmf-dist/source/latex/trsym

git-svn-id: svn://tug.org/texlive/trunk@564 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 240 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/trsym/trsym.dtx b/Master/texmf-dist/source/latex/trsym/trsym.dtx
new file mode 100644
index 00000000000..b39fd9ef807
--- /dev/null
+++ b/Master/texmf-dist/source/latex/trsym/trsym.dtx
@@ -0,0 +1,211 @@
+% \iffalse
+% trsym.dtx
+% Copyright (c) 2000 Jan Holfert
+%
+% This file is part of the `trsym' program.
+%
+% This program may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% 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.2 or later is part of all distributions of LaTeX 
+% version 1999/12/01 or later.
+%
+% This program consists of all files listed in manifest.txt.
+% \fi
+%
+% \iffalse
+%<*!metafont&!metafont10&!metafont12>
+\def\trsymfileversion{1.0}
+\def\trsymfiledate{2000/06/25}
+%</!metafont&!metafont10&!metafont12>
+% \fi
+%
+% \iffalse
+%<*package>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{trsym}
+   [\trsymfiledate v\trsymfileversion transformation symbol font]
+%</package>
+% \fi
+%
+% \iffalse
+%<*driver>
+\NeedsTeXFormat{LaTeX2e}
+\documentclass{ltxdoc}
+\usepackage{trsym}
+\begin{document}
+   \DocInput{trsym.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \RecordChanges
+% \OnlyDescription
+%
+% \title{\textsf{trsym} package\\ version \trsymfileversion}
+% \author{Jan Holfert, \texttt{jan.holfert@gmx.net}}
+% \date{\trsymfiledate}
+%
+% \changes{1.0}{2000/06/25}{Released version 1.0}
+%
+% \newcommand{\tfh}{\TransformHoriz}
+% \newcommand{\itfh}{\InversTransformHoriz}
+% \newcommand{\tfv}{\TransformVert}
+% \newcommand{\itfv}{\InversTransformVert}
+% \newcommand{\bs}{\textbackslash}
+%
+% \maketitle
+%
+% \section*{Installation}
+% If you see the symbols in section ``Usage'', the files are
+% already installed. There is no need to do the installation
+% again. Otherwise, do the following:
+% \begin{enumerate}
+% \item Create a subdirectory \textsf{trsym} in your local source path
+%   for \textsf{MetaFont} files. If you use the configuration file for
+%   the \textsf{docstrip} utility doing this is obligatory.
+% \item Run ``\textsf{latex trsym.ins}''. If you use \textsf{docstrips}'
+%   configuration file, everything is copied to its right
+%   place. Otherwise, copy \textsf{trsy.mf}, \textsf{trsy10.mf} and
+%   \textsf{trsy12.mf} into the subdirectory \textsf{trsym}
+%   (e.g. \bs\bs localtexmf\bs fonts\bs source\bs trsym). Copy
+%   \textsf{utrsy.fd} and \textsf{trsym.sty} into a subdirectory
+%   \textsf{trsym} in your local \LaTeX{} path (e.g. \bs\bs
+%   localtexmf\bs tex\bs latex\bs trsym)
+% \end{enumerate}
+% \section*{Usage}
+% Write \textsf{\bs usepackage\{trsym\}} into your \LaTeX{} file's preamble.
+% In \textsf{mathmode} use the following commands generating the
+% according symbol. The commands in parenthesis are short versions of
+% the commands as I used to declare in my documents.\\[1em]
+% \begin{displaymath}
+%   \begin{array}{lc}
+%       \mbox{command} & \mbox{symbol}\\
+%       \hline
+%       \mbox{\rule{0pt}{1.1em}\textsf{\bs TransformHoriz (\bs tfh)}} & \tfh\\
+%       \mbox{\textsf{\bs InversTransformHoriz (\bs itfh)}} & \itfh\\
+%       \mbox{\textsf{\bs TransformVert (\bs tfv)}} & \tfv\\
+%       \mbox{\textsf{\bs InversTransformVert (\bs itfv)}} & \itfv
+%   \end{array}
+% \end{displaymath}
+%
+% \StopEventually
+%
+%    \begin{macrocode}
+%<*package>
+\DeclareSymbolFont{transfsymbol}{U}{trsy}{m}{n}
+
+\DeclareMathSymbol{\TransformHoriz}{\mathrel}{transfsymbol}{0}
+\DeclareMathSymbol{\InversTransformHoriz}{\mathrel}{transfsymbol}{1}
+\DeclareMathSymbol{\TransformVert}{\mathrel}{transfsymbol}{2}
+\DeclareMathSymbol{\InversTransformVert}{\mathrel}{transfsymbol}{3}
+%</package>
+
+%<*fontdefinition>
+\ProvidesFile{utrsy.fd}
+   [\trsymfiledate v\trsymfileversion transformation symbol font definitions]
+\DeclareFontFamily{U}{trsy}{}
+\DeclareFontShape{U}{trsy}{m}{n}{
+  <-11> trsy10
+  <11-> trsy12
+}{}
+%</fontdefinition>
+
+%<*metafont>
+font_identifier:="TRANSFORMATION";
+
+qqs:=ceiling(qqs#*hppp);
+define_pixels(qqw,qqh);
+
+fontdimen 1: 0,0,0,0,0,0,0,qqs#;
+let cmchar=\;
+
+cmchar "horizontal transformation symbol";
+beginchar(0,1.5qqw#,.75qqh#,0);
+  pickup pencircle scaled qqs;
+  y1=y2=y3=y4=1/2h;
+  20x1=5x2=4w;
+  70x3=30x4=21w;
+  diam_sharp:=1/5w;
+  draw fullcircle scaled diam_sharp shifted z1;
+  draw z3--z4;
+  pickup pencircle scaled (diam_sharp+qqs);
+  drawdot z2;
+endchar;
+
+cmchar "horizontal inverse transformation symbol";
+beginchar(1,1.5qqw#,.75qqh#,0);
+  pickup pencircle scaled qqs;
+  y1=y2=y3=y4=1/2h;
+  20x1=5x2=4w;
+  70x3=30x4=21w;
+  diam_sharp:=1/5w;
+  draw fullcircle scaled diam_sharp shifted z2;
+  draw z3--z4;
+  pickup pencircle scaled (diam_sharp+qqs);
+  drawdot z1;
+endchar;
+
+cmchar "vertical transformation symbol";
+beginchar(2,.75qqw#,1.15qqh#,.35qqh#);
+  pickup pencircle scaled qqs;
+  x1=x2=x3=x4=1/2w;
+  5(y1+d)=20(y2+d)=4(h+d);
+  70(y3+d)=30(y4+d)=21(h+d);
+  diam_sharp:=1/5(h+d);
+  draw fullcircle scaled diam_sharp shifted z1;
+  draw z3--z4;
+  pickup pencircle scaled (diam_sharp+qqs);
+  drawdot z2;
+endchar;
+
+cmchar "vertical inverse transformation symbol";
+beginchar(3,.75qqw#,1.15qqh#,.35qqh#);
+  pickup pencircle scaled qqs;
+  x1=x2=x3=x4=1/2w;
+  5(y1+d)=20(y2+d)=4(h+d);
+  70(y3+d)=30(y4+d)=21(h+d);
+  diam_sharp:=1/5(h+d);
+  draw fullcircle scaled diam_sharp shifted z2;
+  draw z3--z4;
+  pickup pencircle scaled (diam_sharp+qqs);
+  drawdot z1;
+endchar;
+
+bye
+%</metafont>
+
+%<*metafont10>
+inner bye;
+if not unknown cmbase:
+  errhelp "This font must be generated using the plain base.";
+  errmessage "You can't use cmbase for this font!";
+  expandafter bye
+fi
+font_size 10pt#;
+mode_setup;
+qqs# = .4pt#;
+qqh# = 10pt#;
+qqw# = 10pt#;
+input trsy;
+bye.
+%</metafont10>
+
+%<*metafont12>
+inner bye;
+if not unknown cmbase:
+  errhelp "This font must be generated using the plain base.";
+  errmessage "You can't use cmbase for this font!";
+  expandafter bye
+fi
+font_size 12pt#;
+mode_setup;
+qqs# = .4pt#;
+qqh# = 12pt#;
+qqw# = 12pt#;
+input trsy;
+bye.
+%</metafont12>
+%    \end{macrocode}
diff --git a/Master/texmf-dist/source/latex/trsym/trsym.ins b/Master/texmf-dist/source/latex/trsym/trsym.ins
new file mode 100644
index 00000000000..d0e6076eff8
--- /dev/null
+++ b/Master/texmf-dist/source/latex/trsym/trsym.ins
@@ -0,0 +1,29 @@
+%% trsym.ins
+%% Copyright (c) 2000 Jan Holfert
+%%
+%% This file is part of the `trsym' program.
+%%
+%% This program may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.2
+%% 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.2 or later is part of all distributions of LaTeX 
+%% version 1999/12/01 or later.
+%%
+%% This program consists of all files listed in manifest.txt.
+\def\batchfile{trsym.ins}
+\input docstrip
+\keepsilent
+\declarepostamble\mfpost
+\endpostamble
+\generate{\usedir{tex/latex/trsym}
+            \file{trsym.sty}{\from{trsym.dtx}{package}}
+            \file{utrsy.fd}{\from{trsym.dtx}{fontdefinition}}
+          \usedir{fonts/source/trsym}
+          \usepostamble\mfpost
+            \file{trsy.mf}{\from{trsym.dtx}{metafont}}
+            \file{trsy10.mf}{\from{trsym.dtx}{metafont10}}
+            \file{trsy12.mf}{\from{trsym.dtx}{metafont12}}
+         }
+\endbatchfile
\ No newline at end of file