summaryrefslogtreecommitdiff
path: root/fonts/trsym/trsym.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/trsym/trsym.dtx')
-rw-r--r--fonts/trsym/trsym.dtx211
1 files changed, 211 insertions, 0 deletions
diff --git a/fonts/trsym/trsym.dtx b/fonts/trsym/trsym.dtx
new file mode 100644
index 0000000000..b39fd9ef80
--- /dev/null
+++ b/fonts/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}