 %%% lffam-ps.tex ; Dec 92
 %%% latex font families file to load before lofss-ps.tex
 %%% part of fe-format-dumper-ck
 %%% on ftp matups.matups.fr
 
 \def\atvpt   { at 5pt}
 \def\atvipt  { at 6pt}
 \def\atviipt { at 7pt}
 \def\atviiipt{ at 8pt}
 \def\atixpt  { at 9pt}
 \def\atxpt   { at 10pt}
 \def\@halfmag{ at 11pt}
 \def\@magi   { scaled 1200}
 \def\@magii  { scaled 1440}
 \def\@magiii { scaled 1728}
 \def\@magiv  { scaled 2074}
 \def\@magv   { scaled 2488}
 
 \let\Atvpt\atvpt
 \let\Atvipt\atvipt
 \let\Atviipt\atviipt
 \let\Atviiipt\atviiipt
 \let\Atixpt\atixpt
 \let\Atxpt\atxpt
 \let\@Halfmag\@halfmag
 \let\@Magi\@magi
 \let\@Magii\@magii
 \let\@Magiii\@magiii
 \let\@Magiv\@magiv
 \let\@Magv\@magv


   %%% \TexturesOzSelection is for Textures/OzTeX on Mac
   %%% using the native ISOLatin1 chars of Adobe fonts
   %%% via K-PS series of Jungers&Siebenmann
   %%
 \def\TexturesOzSelection{%
  \def\T@norm{KTimes}
  \def\T@ital{KTimesI}
  \def\T@bold{KTimesB}
  \def\T@boit{KTimesBI}
  \def\T@slan{KTimesI}%%%%% not final!
  \def\T@sltt{KCourierBI}%%%%%
  \def\T@type{KCourierB}
  \def\T@sans{KHelvetica}
  \def\T@sani{KHelveticaI}%%%%%
  \def\T@sanb{KHelveticaB}
  \def\M@symb{Symbol}
  \def\T@csc{dccsc10} %%%%%% this is really for prose
  %% want Times SC and oldnum if possible, or dccsc10
  %% will use font substitution to bf
  %
  \def\@mbi{cmmib10}
  \def\@mbsy{cmbsy10}
  \def\@lasyb{lasyb10}
  }
    
   %%% \vAdobeSelection
   %%%  Virtual font Adobe (Textures nomenclature)
    %%  Eg for Sun with Rokicki's dvips virtual font system
 \def\vAdobeSelection{%
  \def\T@norm{Times}
  \def\T@ital{TimesI}
  \def\T@bold{TimesB}
  \def\T@boit{TimesBI}
  \def\T@slan{TimesI}%%%%% should be slant (oblique)
  \def\T@sltt{CourierBI}%%%%%
  \def\T@type{CourierB}
  \def\T@sans{Helvetica}
  \def\T@sani{HelveticaI}%%%%%
  \def\T@sanb{HelveticaB}
  \def\M@symb{Symbol}
   \def\T@csc{TimesB}%%%%%
  %% want Times Small Caps and Old Numerals if possible, or dccsc10
  %% will use substitution bf
  %
  \def\@mbi{cmmib10}
  \def\@mbsy{cmbsy10}
  \def\@lasyb{lasyb10}
  }
  
   %%% \dcSelection DC fonts of N. Schwartz
   %%%   Knuth's typeface extended to Cork norm
    %%
  \def\dcSelection{%
  \csname newif\endcsname \ifKnuth
  \Knuthtrue
  \def\T@norm{dcr}
  \def\T@ital{dcti}
  \def\T@bold{dcbx}
  \def\T@boit{dcbxti}
  \def\T@slan{dcsl}
  \def\T@type{dctt}
  %\def\T@sltt{???}%%%% substitute ??
  \def\T@sans{dcss}
  \def\T@sani{dcssi}
  \def\T@sanb{dcssbx}
  %\def\M@symb{Symbol}
  \def\T@csc{dccsc10}%%%%%
  %
  \def\@mbi{cmmib10}
  \def\@mbsy{cmbsy10}
  \def\@lasyb{lasyb10}
  %
 \def\Atvpt   {5 }
 \def\Atvipt  {6 }
 \def\Atviipt {7 }
 \def\Atviiipt{8 }
 \def\Atixpt  {9 }
 \def\Atxpt   {10 }
 \def\@Halfmag{10 at 10.95pt }
 \def\@Magi   {10 at 12 pt }
 \def\@Magii  {10 at 14.4pt }
 \def\@Magiii {10 at 17.28pt }
 \def\@Magiv  {10 at 20.74pt }
 \def\@Magv   {10 at 24.88pt }
  }

 %% Macro to load symbol font if called
 %% --- with adjustable scaling factor 
 \def\LoadSy@{\def\temp{1.00}%% adjust to taste
    \def\Temp##1/##2{\dimen0=##1\p@\relax
    \dimen0=\temp\dimen0\relax \count255=\dimen0\relax
    \divide\count255 by 65536\relax
    \global\font##2=\M@symb \space scaled \count255\relax}%
    \Temp 500/\Sy@vpt 
    \Temp 600/\Sy@vipt 
    \Temp 700/\Sy@viipt 
    \Temp 800/\Sy@viiipt 
    \Temp 900/\Sy@ixpt 
    \Temp 1000/\Sy@xpt 
    \Temp 1200/\Sy@xipt 
    \Temp 1440/\Sy@xiipt 
    \Temp 1720/\Sy@xviipt 
    \Temp 2064/\Sy@xxpt 
    \Temp 2477/\Sy@xxvpt}

 %%% usage \@getSyfont\Sy@viiipt\Sy@vipt\Sy@vpt
 %%%                        #1          #2        #3
 \def\@getSyfont#1#2#3{\ifx\undefined#1\relax\LoadSy@\fi
    \textfont\Syfam#1\scriptfont\Syfam#2
    \scriptscriptfont\Syfam#2
    \def\pSy{\fam\Syfam}\pSy}

  
   %%% Choose font collection (not NFSS)
   %%
 \def\W@{\immediate\write16}\W@{}%
 \W@{ **************************************************}
 \W@{ **** Cork norm font choices for LaTeX:}
 \W@{ ** Hit return for K-PS font series (KTimes etc.) of }
 \W@{ ** Jungers & Siebenmann for Textures or OzTeX on Macintosh}
 \W@{ ** that contain the ISOLatin1 accented characters.}
 \W@{ * Hit "v" and return for virtual PS font series, nomenclature }
 \W@{ * Times, TimesI, etc. covering nearly the full Cork norm.}
 \W@{ Hit "d" and return for DC Knuth font series}
 \W@{ of N. Schwartz, covering the full Cork norm.}
 \W@{
**************************************************}

 \def\temp{\par}
 \read16 to \YourChoice
 \ifx\YourChoice\temp
   \def\Temp{\TexturesOzSelection}
 \else
   \def\temp{v }
   \ifx\YourChoice\temp
     \def\Temp{\vAdobeSelection}
   \else
     \def\temp{d }
     \ifx\YourChoice\temp
       \def\Temp{\dcSelection}
     \fi
   \fi
 \fi
 \Temp
 
  \let\TexturesOzSelection\undefined
  \let\vAdobeSelection\undefined
  \let\dcSelection\undefined
 

\endinput
  



%%%%%%%%%%%%%
  %% TRASH

   %%% \dvipsSelection is for dvips configuration
   %%%   (notably on Sun workstations)
   %%% using exemplary Knuth-Rokicki virtual font setup
   %%% STILL CM ONLY??
 \def\dvipsSelection{%
  \def\T@norm{times}
  \def\T@ital{timesi}
  \def\T@bold{timesb}
  \def\T@boit{timesbi}
  \def\T@slan{timessl}%%%%%
  \def\T@sltt{courbi}%%%%%
  \def\T@type{courb}%%%%%
  \def\T@sans{helv}
  \def\T@sani{helvi}%%%%%
  \def\T@sanb{helvb}
  %\def\M@symb{Symbol}
  %%\def\T@csc{timesb} %%%%%% this is for prose
  %% want timescsc Times SC and oldnum if possible, or dccsc10
  %% use substitution
  %
  \def\@mbi{cmmib10}
  \def\@mbsy{cmbsy10}
  \def\@lasyb{lasyb10}
  }
  
