%
% This is gconcret.sty
% at 8,9,10,11pt size
% prepared by T.Przechlewski (ekotp@halina.univ.gda.pl)
%
% for easy inclusion of Concrete Math fonts in \LaTeX documents
% February 1993. Last updated 11.02.93 <--
% ==================
% WARNING: Under Conctruction!!!
% ==================
% 
% 1. Loading fonts
% =============

\font\tenCrm=pcr10   \font\tenCi=eurm10   \font\tenCex=plex10 
\font\tenCit=pcti10   

\font\ninCrm=pcr9    \font\ninCi=eurm9    \font\ninCex=plex9
\font\ninCit=pcti9

\font\egtCrm=pcr8    \font\egtCi=eurm8    \font\egtCex=plex8   
\font\egtCit=pcti8

\font\sevCrm=pcr7    \font\sevCi=eurm7    \font\sevCit=pcti8    
\font\sixCi=eurm6    \font\sixCrm=pcr6   \font\fivCi=eurm5     
\font\fivCi=eurm5    \font\fivCrm=pcr5

\font\elvCrm = pcr10   \@halfmag
\font\elvCi  = eurm10  \@halfmag  
\font\elvFbf = eurb10  \@halfmag  % boldface
\font\elvCit = pcti10  \@halfmag

%

\font\tenly  = euex10
\font\elvly  = euex10  \@halfmag
\font\egtly  = euex8

%
% bold greek:
% ===========

%
% 2. Redefining \LaTeX macros
% =============
%

\catcode`@=11

\def\@mbi{eurb10}        %\def\@mbsy{plbsy10}
\def\@mcsc{pccsc10}      %\def\@mss{plss10}

\def\viiipt{\textfont\z@\egtCrm 
  \scriptfont\z@\sixCrm \scriptscriptfont\z@\fivCrm
\textfont\@ne\egtCi \scriptfont\@ne\sixCi \scriptscriptfont\@ne\fivCi
\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\egtCex \scriptfont\thr@@\egtCex \scriptscriptfont\thr@@\egtCex
\def\prm{\fam\z@\egtCrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\egtCit}\textfont\itfam\egtCit 
   \scriptfont\itfam\sevCit \scriptscriptfont\itfam\sevCit 
\def\psl{\@getfont\psl\slfam\@viiipt{plsl8}}%
\def\pbf{\@getfont\pbf\bffam\@viiipt{plbx8}}%
\def\ptt{\@getfont\ptt\ttfam\@viiipt{pltt8}\@nohyphens\ptt\@viiipt}%
\def\psf{\@getfont\psf\sffam\@viiipt{plss8}}%
\def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \@ptscale8}}% 
\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly 
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
\baselineskip10.3pt\@setstrut \rm}

\def\@viiipt{}

\def\ixpt{\textfont\z@\ninCrm 
  \scriptfont\z@\sixCrm \scriptscriptfont\z@\fivCrm
\textfont\@ne\ninCi \scriptfont\@ne\sixCi \scriptscriptfont\@ne\fivCi
\textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\ninCex \scriptfont\thr@@\ninCex \scriptscriptfont\thr@@\ninCex
\def\prm{\fam\z@\ninCrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
    \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\ninCit}\textfont\itfam\ninCit 
   \scriptfont\itfam\sevCit \scriptscriptfont\itfam\sevCit 
\def\psl{\@getfont\psl\slfam\@ixpt{plsl9}}%
\def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf 
   \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
   \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
\def\psf{\@getfont\psf\sffam\@ixpt{plss9}}%
\def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc \@ptscale9}}%  
\def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly 
   \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
\baselineskip 11.7pt\@setstrut \rm} % beware of setting strut..!! TP.

\def\@ixpt{}

\def\xpt{\textfont\z@\tenCrm 
  \scriptfont\z@\sevCrm \scriptscriptfont\z@\fivrm
\textfont\@ne\tenCi \scriptfont\@ne\sevCi \scriptscriptfont\@ne\fivCi
\textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenCex \scriptfont\thr@@\tenCex \scriptscriptfont\thr@@\tenCex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\tenmi 
          \textfont\tw@\tensy \textfont\lyfam\tenly
          \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi 
   \global\font\tensyb\@mbsy 
   \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
   {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
        \textfont\@ne\tenmib \textfont\tw@\tensyb 
        \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
\def\prm{\fam\z@\tenCrm}%
\def\pit{\fam\itfam\tenCit}\textfont\itfam\tenCit \scriptfont\itfam\sevit
    \scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\tensl}\textfont\slfam\tensl 
     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf 
    \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf 
\def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
    \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
\def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
    \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psCc\scfam\@xpt{\@mcsc}}%
\def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly 
   \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly 
\baselineskip13pt\@setstrut \rm}

\def\@xpt{}

\def\xipt{\textfont\z@\elvCrm 
  \scriptfont\z@\egtCrm \scriptscriptfont\z@\sixCrm
\textfont\@ne\elvCi \scriptfont\@ne\egtCi \scriptscriptfont\@ne\sixCi
\textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenCex \scriptfont\thr@@\tenCex \scriptscriptfont\thr@@\tenCex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\elvmi \textfont\tw@\elvsy 
          \textfont\lyfam\elvly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag 
         \global\font\elvsyb\@mbsy\@halfmag
         \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
         {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
                \textfont\@ne\elvmib \textfont\tw@\elvsyb 
                \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
\def\prm{\fam\z@\elvCrm}%
\def\pit{\fam\itfam\elvit}\textfont\itfam\elvCit 
   \scriptfont\itfam\egtCit \scriptscriptfont\itfam\sevCit
\def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl 
    \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl 
\def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvFbf 
   \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
   \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
\def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
    \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psCc\scfam\@xipt{\@mcsc\@halfmag}}%
\def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly 
   \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly 
\baselineskip14.2pt\@setstrut \rm}

\def\@xipt{}

% Digits
% =======
\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

\mathchardef\Gamma="7100
\mathchardef\Delta="7101
\mathchardef\Theta="7102
\mathchardef\Lambda="7103
\mathchardef\Xi="7104
\mathchardef\Pi="7105
\mathchardef\Sigma="7106
\mathchardef\Upsilon="7107
\mathchardef\Phi="7108
\mathchardef\Psi="7109
\mathchardef\Omega="710A

\mathchardef\intop="1A52 
\mathchardef\ointop="1A48
\mathchardef\coprod="1A60
\mathchardef\prod="1A51
\mathchardef\sum="1A50
\mathchardef\braceld="A7A \mathchardef\bracerd="A7B
\mathchardef\bracelu="A7C \mathchardef\braceru="A7D
\mathchardef\infty="0A31

\mathchardef\nearrow="3A25
\mathchardef\searrow="3A26
\mathchardef\nwarrow="3A2D
\mathchardef\swarrow="3A2E
\mathchardef\Leftrightarrow="3A2C
\mathchardef\Leftarrow="3A28
\mathchardef\Rightarrow="3A29
\mathchardef\leftrightarrow="3A24 \mathcode`\^^W="3A24
\mathchardef\leftarrow="3A20 \let\gets=\leftarrow \mathcode`\^^X="3A20
%\mathchardef\rightarrow="3A21 \let\to=\rightarrow \mathcode`\^^Y="3A21
\def\uparrow{\delimiter"3A22378 } \mathcode`\^^K="3A22
\def\downarrow{\delimiter"3A23379 } \mathcode`\^^A="3A23
\def\updownarrow{\delimiter"3A6C33F }
\def\Uparrow{\delimiter"3A2A37E }
\def\Downarrow{\delimiter"3A2B37F }
\def\Updownarrow{\delimiter"3A6D377 }
\mathchardef\leftharpoonup="3A18
\mathchardef\leftharpoondown="3A19
\mathchardef\rightharpoonup="3A1A
\mathchardef\rightharpoondown="3A1B


\catcode`@=12
\endinput

\mathcode`+="292B 
\mathcode`-="292D 
\mathcode`!="0921 
\mathcode`(="4928 \delcode`(="928300
\mathcode`)="5929 \delcode`)="929301
\mathcode`[="495B \delcode`[="95B302
\mathcode`]="595D \delcode`]="95D303
\mathcode`=="393D
\mathchardef\Relbar="3B3D % we need the old = to match \Arrows
\let\varsigma=\sigma                      % Euler doesn't have these
\let\varrho=\rho                          % Euler doesn't have these
\mathchardef\aleph="0840
\def\rbrace{\delimiter"5867A09 } \let\}=\rbrace
\def\lbrace{\delimiter"4866A08 } \let\{=\lbrace
%\mathchardef\equiv="3811 \let\cong=\equiv % lowres bars weren't spaced right
\mathchardef\leq="3814 \let\le=\leq
\mathchardef\geq="3815 \let\ge=\geq
\mathchardef\Re="083C
\mathchardef\Im="083D
\def\vert{\delimiter"86A30C }
\def\backslash{\delimiter"86E30F }

\def\eightpoint{\def\rm{\fam0\eightrm}% switch to 8-pt type
\textfont0\eightrm \scriptfont0=\sixrm   \scriptscriptfont0=\fiverm%
\textfont1\eighti  \scriptfont1=\sixi    \scriptscriptfont1=\fivei%
\textfont2\eightsy \scriptfont2=\sixsy   \scriptscriptfont2=\fivesy%
\textfont3\eightex \scriptfont3=\eightex \scriptscriptfont3=\eightex%
\textfont9=\eighfr \scriptfont9=\sixfr   \scriptscriptfont9=\fivefr%
\textfont"A=\eigheuex \scriptfont"A=\eigheuex%
\def\frak{\fam9}\def\frak{\fam9}%
\textfont\itfam=\eightit \def\it{\fam\itfam\eightit}%
%% \textfont\slfam=\eightsl \def\sl{\fam\slfam\eightsl}%
%% \textfont\ttfam=\eighttt \def\tt{\fam\ttfam\eighttt}%
\textfont\bffam=\eightbf \scriptfont\bffam=\sixbf%
\scriptscriptfont\bffam=\fivebf \def\bf{\fam\bffam\eightbf}%
\tt \ttglue=.5em plus .25em minus .15em%
\normalbaselineskip=9.6pt%1.2 wider than \baselineskip...
\setbox\strutbox=\hbox{\vrule height7.0pt depth 2.6pt width0pt}%
\normalbaselines\rm}

%\catcode`@=12
%
\endinput
%
%


