% \iffalse meta-comment
%
% Copyright (C) 1989,1990,1991 by Frank Mittelbach, Rainer Schoepf.
% All rights reserved.
% 
% This file is part of the NFSS (New Font Selection Scheme) package.
% 
% IMPORTANT NOTICE:
% 
% You are not allowed to change this file.  You may however copy this file
% to a file with a different name and then change the copy if you obey 
% the restrictions on file changes described in readme.mz. 
% 
% You are allowed to distribute this file under the condition that it is
% distributed together with all files mentioned in readme.mz3.  If you
% receive only some of these files from someone, complain!
% 
% You are NOT ALLOWED to distribute this file alone.  You are NOT ALLOWED
% to take money for the distribution or use of either this file or a
% changed version, except for a nominal charge for copying etc. 
% 
% For error reports in case of UNCHANGED versions see readme files.
% 
% Please do not request updates from us directly.  Distribution is done
% through Mail-Servers and TeX organizations. 
% 
% \fi

\def\fileversion{v1.0g}
\def\filedate{91/11/27}
\def\docdate {90/01/28}

%\iffalse   % this is a METACOMMENT !
%
%% File `concrete.doc'.
%% Copyright (C) 1989,1990,1991 Frank Mittelbach and Rainer Sch\"opf,
%% all rights reserved.
%
%\fi
%% \CheckSum{90}
%% \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         \~}
%%
%
% \title{The {\tt concrete} style option}
% \author{Frank Mittelbach \and Rainer Sch\"opf}
%
% \section{Introduction}
%
% This style option sets up some font shape defintion and one math
% version to allow setting documents similar to the book ``Concrete
% math''.
%
% The current version of this file should serve only as a model. It isn't
% finished and will eventually change but I don't like to do work
% which is already done elsewhere. Therefore this has to wait until I get
% hold of a copy of Don Knuth macros for typesetting~\cite{?}. 
%
% \StopEventually{}
%
% \section{The Implementation}
%
% We start by writing to the VDU and the transcript file.
%    \begin{macrocode}
\typeout{Style Option: `concrete'
  \fileversion\space <\filedate> (FMi and RmS)}
\typeout{English Documentation
  \@spaces\@spaces\space <\docdate> (FMi and RmS)}
%    \end{macrocode}
% But we should also check if the new fontselection is actually in
% force otherwise the user will get a lot of uninstructive error
% messages later on. 
%    \begin{macrocode}
\@ifundefined{selectfont}
     {\@latexerr{`concrete' style option could only be used
                  with the new font selection scheme}\@eha
      \endinput}{}
%    \end{macrocode}
%
% Now we define the font shapes for the concrete roman font family
% designed by {\sc Don Knuth}. First the normal shape in medium weight
% and width (others aren't available anyway).
% We assume that for \LaTeX{} use at least the standard magifications
% are available.
% \changes{v1.0f}{90/01/28}{Fifth argument for `new@fontshape.}
%    \begin{macrocode}
\new@fontshape{ccr}{m}{n}{%
   <5>ccr5%
   <6>ccr6%
   <7>ccr7%
   <8>ccr8%
   <9>ccr9%
   <10>ccr10%
   <11>ccr10 at10.95pt%
   <12>ccr10 at12pt%
   <14>ccr10 at14.4pt%
   <17>ccr10 at17.28pt%
   <20>ccr10 at20.74pt%
   <25>ccr10 at24.88pt}{}
%    \end{macrocode}
%
% The {\it italic\/} shape in concrete roman is only provided for the
% 10pt size.  Again we assume that at least for 11 and 12 pt magnified
% fonts are available. For the smaller or larger sizes we substitude
% the normal shape.
%    \begin{macrocode}
\new@fontshape{ccr}{m}{it}{%
   <5>1ccr5%
   <6>1ccr6%
   <7>1ccr7%
   <8>1ccr8%
   <9>1ccr9%
   <10>ccti10%
   <11>ccti10 at10.95pt%
   <12>ccti10 at12pt%
   <14>1ccr10 at14.4pt%
   <17>1ccr10 at17.28pt%
   <20>1ccr10 at20.74pt%
   <25>1ccr10 at24.88pt}{}
%    \end{macrocode}
%
% Also {\sc a caps and small caps} shape for 10pt is provided.
%    \begin{macrocode}
\new@fontshape{ccr}{m}{sc}{%
   <5>1ccr5%
   <6>1ccr6%
   <7>1ccr7%
   <8>1ccr8%
   <9>1ccr9%
   <10>cccsc10%
   <11>cccsc10 at10.95pt%
   <12>cccsc10 at12pt%
   <14>1ccr10 at14.4pt%
   <17>1ccr10 at17.28pt%
   <20>1ccr10 at20.74pt%
   <25>1ccr10 at24.88pt}{}
%    \end{macrocode}
%
% There is also a slanted shape in 9pt with condensed width and medium
% weight which is used for``graffiti'' throughout the book which will
% be defined below.  Again we provide substitudes for other sizes.
% Since this font does not exist in ten point size it would be nearly
% impossible to use it via the standard \LaTeX{} mechanism with
% commands like \verb+\small+ etc.\ (who knows to what pointsize
% \verb+\small+ belongs to?  Therefore we add later on a macro to
% address this font directly.
%    \begin{macrocode}
\new@fontshape{ccr}{c}{sl}{%
   <5>1ccr5%
   <6>1ccr6%
   <7>1ccr7%
   <8>1ccr8%
   <9>ccslc9%
   <10>1ccr10%
   <11>1ccr10 at10.95pt%
   <12>1ccr10 at12pt%
   <14>1ccr10 at14.4pt%
   <17>1ccr10 at17.28pt%
   <20>1ccr10 at20.74pt%
   <25>1ccr10 at24.88pt}{}
%    \end{macrocode}
% 
%    \begin{macrocode}
\extra@def{ccr}{}{}
%    \end{macrocode}


% From the Euler fonts designed by Hermann Zapf we need the families
% `euler cursive'. (Others will follow in the finial version of this
% option.) 
%    \begin{macrocode}
\new@fontshape{eur}{m}{n}{%
   <5>eurm5%
   <6>eurm6%
   <7>eurm7%
   <8>eurm8%
   <9>eurm9%
   <10>eurm10%
   <11>eurm10 at10.95pt%
   <12>eurm10 at12pt%
   <14>eurm10 at14.4pt%
   <17>eurm10 at17.28pt%
   <20>eurm10 at20.74pt%
   <25>eurm10 at24.88pt}{}
%    \end{macrocode}
% We will have to set a \verb+\skewchar+ but I don't know the right
% value. 
%    \begin{macrocode}
\extra@def{eur}{\skewchar#1'177}{}
%    \end{macrocode}
%
% Don Knuth re-designed some of the math extension symbols to blend
% better with the euler fonts. So we have a font called `Euler
% compatible extension font'  available in 7 to 10pt. 
%    \begin{macrocode}
\new@fontshape{euex}{m}{n}{%
   <5>1euex7%
   <6>1euex7%
   <7>euex7%
   <8>euex8%
   <9>euex9%
   <10>euex10%
   <11>1euex10%
   <12>1euex10%
   <14>1euex10%
   <17>1euex10%
   <20>1euex10%
   <25>1euex10}{}
%    \end{macrocode}
%
%    \begin{macrocode}
\extra@def{euex}{}{}
%    \end{macrocode}
%
%
% \begin{macro}{\graffiti}
% \begin{macro}{\pgraffiti}
%    As I remarked above 
%
%    I don't think that it is really necessary to make a robust
%    version but \ldots
%    \begin{macrocode}
\def\graffiti{\protect\pgraffiti}
%    \end{macrocode}
%    Note that this command has no arguments, it simply calls or
%    protects (depending on the current meaning of \verb+\protect+)
%    the \verb+\pgraffiti+ macro.  \marginpar{\graffiti This macro now
%    sets everything necessary to switch to the {\tt ccslc} font. It
%    therefore serves as a good example how to access special fonts
%    for special applications with the new font selection scheme.}
% \changes{v1.0g}{91/11/27}{Changed `family, etc. to `fontfamily etc.}
%    \begin{macrocode}
\def\pgraffiti{\fontfamily{ccr}\fontseries{c}%
               \fontshape{sl}\fontsize{9}{10pt}\selectfont}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
%
% \begin{macro}{\mv@euler}
%    \begin{macrocode}
\new@mathversion\mv@euler
%    \end{macrocode}
%    Now we define the basic {\em math groups\/} for the new version,
%    i.e.\ the groups 0 to 3.
%    \begin{macrocode}
\define@mathgroup\mv@euler{0}
                 {ccr}{m}{n}
\define@mathgroup\mv@euler{1}
                 {eur}{m}{n}
\define@mathgroup\mv@euler{2}
                 {cmsy}{m}{n}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\euex@group}
%    We also add a special math group to the euler version which
%    contains the redesigned math symbols. Since we don't assume that
%    this version has to live in coexistance with the `normal' or `bold'
%    version we don't add this group to the other versions.
%    \begin{macrocode}
\new@mathgroup\euex@group
\define@mathgroup\mv@euler\euex@group
                 {euex}{m}{n}
%    \end{macrocode}
% \end{macro}
%
%
% To set up the math version properly we have to reset some
% \verb+\mathcode+s. We have to take, for example, digits in math
% from the math group number one, i.e.\ from the euler cursive font.
% If we do this globally switching back to, let's say, \LaTeX{}s
% normal version will produces an undesired effect: we will then get
% oldstyle numerals in math.  
%
% We will leave this problem open at the moment until there is more
% experience with this new font selection scheme.  After all, it does
% not seem a very good idea to use such incompatible math versions
% together in one document.
%
% So here we are, re-arranging some of the internal tables:
%    \begin{macrocode}
\mathcode`\0="7130
\mathcode`\1="7131
\mathcode`\2="7132
\mathcode`\3="7133
\mathcode`\4="7134
\mathcode`\5="7135
\mathcode`\6="7136
\mathcode`\7="7137
\mathcode`\8="7138
\mathcode`\9="7139
%    \end{macrocode}
%
% And here are some example for using the symbols from the special
% extension font. We use \verb+\hexnumber@+ to get the unknown assignment to
% \verb+\euex@group+ as a hexadecimal number into  the macro \verb+\@tempa+.
%    \begin{macrocode}
\edef\@tempa{\hexnumber@\euex@group}
\mathchardef\intop="1\@tempa 52
\mathchardef\ointop="1\@tempa 48
\mathchardef\sum="1\@tempa 50
\mathchardef\prod="1\@tempa 51
%    \end{macrocode}
%
% \begin{macro}{\@makefnmark}
%    Since numbers for footnotes are text numbers and not math
%    formulas we prefer shapes comming from Concrete roman (like
%    12345) instead of $12345$. So we have to change the footnote mark
%    generation to avoid using math mode.
%    \begin{macrocode}
\def\@makefnmark{\raise 1ex\hbox{\scriptsize\@thefnmark}}
%    \end{macrocode}
% \end{macro}
%
%
%    \begin{macrocode}
\mathversion{euler}
%    \end{macrocode}
%
% \Finale

\endinput