\ProvidesPackage{concmath}[1995/02/28 LaTeX package for Concrete math fonts]

%% this package doesn't provide any options at the moment,
%% so there are no \DeclareOption or \ProcessOptions commands. 


%% this package was originally written for poster sizes,
%% therefore we provide some additional magsteps


%% declare math sizes for additional magesteps

\DeclareMathSizes{29.86}{29.86}{20.74}{14.4}	% = magstep 6
\DeclareMathSizes{35.83}{35.83}{24.88}{17.28}	% = magstep 7
\DeclareMathSizes{40}{40}{29.86}{20.74}		% scaled 4000


%% declare the font family ccr, don't load OT1ccr.fd

\DeclareFontFamily{OT1}{ccr}{}{}


%% declare font shapes for sizes 29.86, 35.83 and 40 (text fonts)

\DeclareFontShape{OT1}{ccr}{m}{n}{
  <5> <6> <7> <8> <9> gen * ccr
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> ccr10}{}
\DeclareFontShape{OT1}{ccr}{m}{it}{
  <5> <6> <7> <8> <9> 
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> ccti10}{}
\DeclareFontShape{OT1}{ccr}{m}{sl}{
  <5> <6> <7> <8> <9> 
  <10> <10.95>
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> ccsl10}{}
\DeclareFontShape{OT1}{ccr}{m}{sc}{
  <5> <6> <7> <8> <9> 
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> cccsc10}{}


%% substitute CM Sans Serif Demibold Condensed for bold

\DeclareFontShape{OT1}{cmss}{sbc}{n}{
  <5> <6> <7> <8> <9> 
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> cmssdc10}{}

\DeclareFontShape{OT1}{cmss}{sbc}{it}{<-> ssub * cmss/sbc/n}{}
\DeclareFontShape{OT1}{cmss}{sbc}{sl}{<-> ssub * cmss/sbc/n}{}
\DeclareFontShape{OT1}{cmss}{sbc}{sc}{<-> ssub * cmss/sbc/n}{}

\DeclareFontShape{OT1}{ccr}{bx}{n} {<-> ssub * cmss/sbc/n }{}
\DeclareFontShape{OT1}{ccr}{bx}{it}{<-> ssub * cmss/sbc/it}{}
\DeclareFontShape{OT1}{ccr}{bx}{sl}{<-> ssub * cmss/sbc/sl}{}
\DeclareFontShape{OT1}{ccr}{bx}{sc}{<-> ssub * cmss/sbc/sc}{}


%% declare Concrete math font families and shapes

\DeclareFontFamily{OML}{ccm}{\skewchar\font'177}
\DeclareFontFamily{OMS}{ccsy}{\skewchar\font'60}
\DeclareFontShape{OML}{ccm}{m}{it}{
  <5> <6> <7> <8> <9> gen * xccmi
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> xccmi10}{}
\DeclareFontShape{OMS}{ccsy}{m}{n}{
  <5> <6> <7> <8> <9> gen * xccsy
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> xccsy10}{}

\DeclareFontFamily{OMX}{ccex}{}
\DeclareFontShape{OMX}{ccex}{m}{n}{<-> sfixed * xccex10}{}


%% declare Concrete versions of AMS symbol fonts

\DeclareFontFamily{U}{msa}{}
\DeclareFontFamily{U}{msb}{}
\DeclareFontShape{U}{msa}{m}{n}{  
  <5> <6> <7> <8> <9> 
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> xccam10}{}
\DeclareFontShape{U}{msb}{m}{n}{  
  <5> <6> <7> <8> <9> 
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> xccbm10}{}


%% declare font shapes for sizes 29.86, 35.83 and 40 (math fonts)

\DeclareFontShape{OML}{cmr}{bx}{n}{
  <5> <6> <7> <8> <9> gen * cmbx
  <10> <10.95> cmbx10
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> cmbx12}{}
\DeclareFontShape{OML}{cmm}{b}{it}{
  <5> <6> <7> <8> <9> gen * cmmib
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> cmmib10}{}
\DeclareFontShape{OMS}{cmsy}{b}{n}{
  <5> <6> <7> <8> <9> gen * cmbsy
  <10> <10.95> 
  <12> <14.4> <17.28> <20.74> <24.88> <29.86> <35.83> <40> cmbsy10}{}


%% substitute CM bold math fonts in mathversion bold

\DeclareFontShape{OT1}{ccr}{bx}{n}{<-> ssub * cmr/bx/n}{}
\DeclareFontShape{OML}{ccm}{b}{it}{<-> ssub * cmm/b/it}{}
\DeclareFontShape{OMS}{ccsy}{b}{n}{<-> ssub * cmsy/b/n}{}


%% redefine math symbol fonts using Concrete fonts

\DeclareSymbolFont{operators}   {OT1}{ccr} {m}{n}
\DeclareSymbolFont{letters}     {OML}{ccm} {m}{it}
\DeclareSymbolFont{symbols}     {OMS}{ccsy}{m}{n}
\DeclareSymbolFont{largesymbols}{OMX}{ccex}{m}{n}
\SetSymbolFont{operators}{bold}{OT1}{ccr} {bx}{n}
\SetSymbolFont{letters}  {bold}{OML}{ccm} {b}{it}
\SetSymbolFont{symbols}  {bold}{OMS}{ccsy}{b}{n}
\DeclareSymbolFontAlphabet{\mathrm}    {operators}
\DeclareSymbolFontAlphabet{\mathnormal}{letters}
\DeclareSymbolFontAlphabet{\mathcal}   {symbols}
\DeclareMathAlphabet      {\mathbf}{OT1}{ccr}{bx}{n}
\DeclareMathAlphabet      {\mathit}{OT1}{ccr}{m}{it}
%% \mathtt and \mathsf are left unchanged 


%% switch to Concrete roman as primary text font 

\renewcommand{\rmdefault}{ccr}

\endinput
