 %%% 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{xTimes}
  \def\T@ital{xTimesI}
  \def\T@bold{xTimesB}
  \def\T@boit{xTimesBI}
  \def\T@slan{xTimesI}%%%%% not final!
  \def\T@sltt{xCourierBI}%%%%%
  \def\T@type{xCourierB}
  \def\T@sans{xHelvetica}
  \def\T@sani{xHelveticaI}%%%%%
  \def\T@sanb{xHelveticaB}
  \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}
  }
  
   %%% \dmSelection DM fonts of Brouard-Sullivan-
   %%%   Knuth's typeface extended to IOSLatin1
    %%
  \def\dmSelection{%
  \csname newif\endcsname \ifKnuth
  \Knuthtrue
  \def\T@norm{dmr}
  \def\T@ital{dmti}
  \def\T@bold{dmbx}
  \def\T@boit{dmbxti}
  \def\T@slan{dmsl}
  \def\T@type{dmtt}
  %\def\T@sltt{dmsltt}%%%% ??
  \def\T@sans{dmss}
  \def\T@sani{dmssi}
  \def\T@sanb{dmssbx}
  %\def\M@symb{Symbol}
  \def\T@csc{dmcsc10}%%%%%
  %
  \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@{ **** Extended CM font choices for LaTeX:}
 \W@{ Hit "c" and return for CM font series}
 \W@{ with self test for ISOLatin1 extension.}
 \W@{ * Hit "d" and return for DM font series}
 \W@{ * of Brouard-Sullivan-??, covering ISOLatin1.}
 \W@{ ** Hit return for xPS font series (xTimes etc.) of }
 \W@{ ** Jungers & Siebenmann for Textures or OzTeX on Macintosh}
 \W@{ ** that contain the ISOLatin1 accented characters.}
 \W@{ *** Hit "z" and return for Zlatushka PS font series,}
 \W@{ *** Times, TimesI, etc. (ISOLatin1 for now).}
 \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{\dmSelection}
     \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}
  }
  
