Initial commit

1 files changed, 304 insertions, 0 deletions

diff --git a/fonts/fge/fge.dtx b/fonts/fge/fge.dtx
new file mode 100644
index 0000000000..941b3cae23
--- /dev/null
+++ b/fonts/fge/fge.dtx
@@ -0,0 +1,304 @@
+% \iffalse meta-comment
+%
+% Copyright 2006, 2007, 2009, 2011  J.J. Green
+% 
+% Changes:
+%
+% \fi
+%
+% \CheckSum{844}
+%% \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         \~}
+%
+% \iffalse   % this is a METACOMMENT !
+%
+%<package>\NeedsTeXFormat{LaTeX2e}
+%<package>\ProvidesPackage{fge}
+%<fdrm>\ProvidesFile{fgerm.fd}%
+%<fdit>\ProvidesFile{fgeit.fd}%
+%<-driver>             [2015/05/19 1.25
+%<package>               fge symbol support package]
+%<fdrm>                  fge roman symbol font definitions]
+%<fdit>                  fge italic symbol font definitions]
+%
+%<*driver>
+\documentclass{ltxdoc}
+\OnlyDescription
+\usepackage{multicol}
+\usepackage{fge}
+\providecommand\dst{\expandafter{\normalfont\scshape docstrip}}
+\renewcommand{\quad}{{\hskip1em plus 2em}}
+% a slighly wider quote environment
+\newenvironment{bquote}{\list{}{%
+    \leftmargin=0.1in\rightmargin=0.1in}\item[]}{\endlist}
+\begin{document}
+ \DocInput{fge.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \GetFileInfo{fge.sty}
+% \title{The \texttt{fge} macro package for \LaTeXe}
+% \author{J.J. Green}
+% \date{Version \fileversion{} \filedate}
+% \maketitle
+%
+% \setcounter{StandardModuleDepth}{1}
+%
+% \begin{quote}
+%   \noindent The comfort of the typesetter is certainly not 
+%   the \textit{summum bonum}.
+%
+%   \hfill\textsc{G.~Frege, 1896.} 
+% \end{quote}
+% 
+% \noindent
+% This file defines the package |fge| which provides \LaTeXe\ access
+% to the characters from the \texttt{fge} fonts. These are 
+% based on Knuth's Computer Modern and specifically designed for setting 
+% the \textit{Grundgesetze der Arithmetik}, the culmination of Frege's 
+% logicist project.
+%
+% \begin{multicols}{2}
+%
+% \subsubsection*{Spiritus lenis and asper}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\spirituslenis{\alpha}| & $\spirituslenis{\alpha}$ \\
+%     |\spiritusasper{\alpha}| & $\spiritusasper{\alpha}$
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Lazy capitals and numerals}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgerighttwo|  & $\fgerighttwo$  \\
+%     |\fgerightB|    & $\fgerightB$  \\
+%     |\fgelefttwo|   & $\fgelefttwo$ \\
+%     |\fgeleftthree| & $\fgeleftthree$ \\
+%     |\fgeleftB|     & $\fgeleftB$ \\
+%     |\fgeleftC|     & $\fgeleftC$
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Overturned romans}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgec|         & $\fgec$ \\
+%     |\fgee|         & $\fgee$ \\
+%     |\fgeeszett|    & $\fgeeszett$ \\
+%     |\fgeA|         & $\fgeA$ 
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Overturned italics}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fged|         & $\fged$ \\
+%     |\fgef|         & $\fgef$ \\
+%     |\fgeF|         & $\fgeF$ \\ 
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Struckout numerals}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgestruckzero| & $\fgestruckzero$ \\
+%     |\fgestruckone|  & $\fgestruckone$
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Fletched arrows}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgerightarrow| & $\fgerightarrow$ \\
+%     |\fgeuparrow|    & $\fgeuparrow$
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Cups, caps and bars}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgeupbracket| & $\fgeupbracket$ \\
+%     |\fgecap| & $\fgecap$ \\
+%     |\fgecup| & $\fgecup$ \\
+%     |\fgecupbar| & $\fgecupbar$ \\
+%     |\fgecapbar| & $\fgecapbar$ \\
+%     |\fgebarcap| & $\fgebarcap$ \\
+%     |\fgecupacute| & $\fgecupacute$ \\
+%     |\fgebaracute| & $\fgebaracute$ 
+%   \end{tabular}
+% \end{bquote}
+%
+% \subsubsection*{Erratics}
+% \begin{bquote}
+%   \begin{tabular}{lc}
+%     |\fgemark|      & $\fgemark$  \\
+%     |\fgelb|        & $\fgelb$ \\
+%     |\fgeinfty|     & $\fgeinfty$ \\
+%     |\fgelangle|    & $\fgelangle$ \\
+%     |\fges|         & $\fges$ \\
+%     |\fgebackslash| & $\fgebackslash$
+%   \end{tabular}
+% \end{bquote}
+%
+% \end{multicols}
+% 
+% \StopEventually{}
+% 
+% \section{The \dst{} modules}
+% 
+% The following modules are used in the implementation to direct
+% \dst{} in generating the external files:
+% \begin{center}
+%   \begin{tabular}{ll}
+%     driver  & produce a documentation driver file \\
+%     package & produce a package file \\
+%     fdrm    & produce a roman font definition file \\
+%     fdit    & produce an italic font definition file \\
+%   \end{tabular}
+% \end{center}
+% 
+% \section{The Implementation}
+% \subsection{The macro package}
+% 
+%<*package>
+% Setup the |crescent| option, which selects the crescent
+% variant of the spiritus lenis. 
+\newif\ifcrescent 
+\crescentfalse
+\DeclareOption{crescent}{\global\crescenttrue}
+\ProcessOptions\relax
+% We declare \texttt{fgerm} and \texttt{fgeit} math symbol fonts:
+%    \begin{macrocode}
+\DeclareSymbolFont{fgerm}{U}{fgerm}{m}{n}
+\DeclareSymbolFont{fgeit}{U}{fgeit}{m}{n}
+%    \end{macrocode}
+% 
+% The special symbols:
+%    \begin{macrocode}
+\DeclareMathSymbol{\fgelb}{\mathord}{fgeit}{"11}
+\DeclareMathSymbol{\fgeF}{\mathbin}{fgeit}{"46}
+\DeclareMathSymbol{\fgevareta}{\mathord}{fgerm}{"11}
+\DeclareMathSymbol{\fgeeszett}{\mathbin}{fgerm}{"19}
+\DeclareMathSymbol{\fgerightarrow}{\mathrel}{fgerm}{"21}
+\DeclareMathSymbol{\fgeuparrow}{\mathrel}{fgerm}{"22}
+\DeclareMathSymbol{\fgestruckzero}{\mathord}{fgerm}{"30}
+\DeclareMathSymbol{\fgestruckone}{\mathord}{fgerm}{"31}
+\DeclareMathSymbol{\fgelefttwo}{\mathbin}{fgerm}{"32}
+\DeclareMathSymbol{\fgeleftthree}{\mathbin}{fgerm}{"33}
+\DeclareMathSymbol{\fgerighttwo}{\mathbin}{fgerm}{"34}
+\DeclareMathSymbol{\fgeA}{\mathord}{fgerm}{"41}
+\DeclareMathSymbol{\fgerightB}{\mathbin}{fgerm}{"42}
+\DeclareMathSymbol{\fgeleftC}{\mathbin}{fgerm}{"43}
+\DeclareMathSymbol{\fgeleftB}{\mathbin}{fgerm}{"44}
+\DeclareMathSymbol{\fgebackslash}{\mathord}{fgerm}{"4B}
+\DeclareMathSymbol{\fgeupbracket}{\mathord}{fgerm}{"4C}
+\DeclareMathSymbol{\fgebaracute}{\mathord}{fgerm}{"4D}
+\DeclareMathSymbol{\fgecup}{\mathord}{fgerm}{"4E}
+\DeclareMathSymbol{\fgebarcap}{\mathord}{fgerm}{"4F}
+\DeclareMathSymbol{\fgecupbar}{\mathord}{fgerm}{"50}
+\DeclareMathSymbol{\fgecapbar}{\mathord}{fgerm}{"51}
+\DeclareMathSymbol{\fgecupacute}{\mathord}{fgerm}{"52}
+\DeclareMathSymbol{\fgecap}{\mathord}{fgerm}{"53}
+\DeclareMathSymbol{\fgemark}{\mathord}{fgerm}{"55}
+\DeclareMathSymbol{\fgec}{\mathbin}{fgerm}{"63}
+\DeclareMathSymbol{\fgee}{\mathbin}{fgerm}{"65}
+\DeclareMathSymbol{\fgef}{\mathord}{fgeit}{"66}
+\DeclareMathSymbol{\fgelangle}{\mathbin}{fgerm}{"68}
+\DeclareMathSymbol{\fgeinfty}{\mathord}{fgerm}{"69}
+\DeclareMathSymbol{\fged}{\mathord}{fgeit}{"70}
+\DeclareMathSymbol{\fges}{\mathbin}{fgerm}{"73}
+%    \end{macrocode}
+% This included for backward compatibility with versions
+% prior to 1.17, it was only then that I discovered that
+% what I first thought was an N, then an eta, then an 
+% overturned U, was in fact an overturned lb (pound) 
+% ligature. Likewise, what was  orignally thought to be
+% a U turned out to be a Mark (currency) sign
+%    \begin{macrocode}
+\newcommand{\fgeeta}{\fgelb}
+\newcommand{\fgeN}{\fgelb}
+\newcommand{\fgeoverU}{\fgelb}
+\newcommand{\fgeU}{\fgemark}
+%    \end{macrocode}
+% The spiritus lenis and asper accents. Here we don't use 
+% \texttt{DeclareMathAccent} but instead \TeX\ primatives; the former 
+% is for ordinary symbols which are press-ganged into being accents, 
+% the latter is for glyphs designed as accents. The tricky part is 
+% selecting the \textt{fge} font by coercing its symbol-code into an 
+% appropriate hex-string, we copy the code in the AMS fonts package.
+%    \begin{macrocode}
+\def\spirituslenisA{\mathaccent"0\hexnumber@\symfgerm 15}
+\def\spirituslenisB{\mathaccent"0\hexnumber@\symfgerm 16}
+\def\spiritusasperA{\mathaccent"0\hexnumber@\symfgerm 13}
+\def\spiritusasperB{\mathaccent"0\hexnumber@\symfgerm 14}
+%    \end{macrocode}
+% There are two versions of the spiritus lenis and asper, variant
+% A from the Ibycus font for classical Greek by
+% Pierre A. MacKay, from work by Silvio Levy's realization of a
+% classic Didot cut of Greek type from around 1800.
+% Variant B is my own, an approximation of the more crescent-like
+% accent used in the original printing. Variant A is the default,
+% since it is prettier; but the translators have asked me to retain
+% the crescent form.
+%    \begin{macrocode}
+\ifcrescent
+  \def\spirituslenis{\spirituslenisB}
+  \def\spiritusasper{\spiritusasperB}
+\else
+  \def\spirituslenis{\spirituslenisA}
+  \def\spiritusasper{\spiritusasperA}
+\fi
+%    \end{macrocode}
+% The character sizing
+%    \begin{macrocode}
+\DeclareMathSizes{10}{10}{7}{5}
+%    \end{macrocode}
+%</package>
+%    \end{macrocode}
+% \subsection{The font definition files}
+% 
+% The declarations, 
+% that have to go into the corresponding |.fd| files:
+%<*fdrm>
+%    \begin{macrocode}
+\DeclareFontFamily{U}{fgerm}{}
+\DeclareFontShape{U}{fgerm}{m}{n}{%
+  <5><6><7> fgerm10
+  <8><9><10> fgerm10
+  <10.95><12><14.4><17.28> fgerm10}{}
+%    \end{macrocode}
+%</fdrm>
+%<*fdit>
+%    \begin{macrocode}
+\DeclareFontFamily{U}{fgeit}{}
+\DeclareFontShape{U}{fgeit}{m}{n}{%
+  <5><6><7> fgeit10
+  <8><9><10> fgeit10
+  <10.95><12><14.4><17.28> fgeit10}{}
+%    \end{macrocode}
+%</fdit>
+% 
+% The next line goes into all files and in addition prevents \dst{}
+% from adding any further code from the main source file (such as a
+% character table).
+%    \begin{macrocode}
+\endinput
+%    \end{macrocode}
+% 
+% \DeleteShortVerb{\|}
+% \Finale