DataMuseum.dk

top - metrics - download

    Length: 2812 (0xafc)
    Types: TextFile
    Names: »UIUC.mf«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./utilityfonts/bases/UIUC.mf« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦24627e285⟧ »unix3.0/utilityfonts.tar.Z« 
        └─⟦4ad600e20⟧ 
            └─⟦this⟧ »utilityfonts/bases/UIUC.mf« 

TextFile

% $Header: UIUC.mf,v 1.0 86/01/31 20:23:53 richards Released $

% This file can be loaded after PLAIN.MF.
% It introduces conventions that are commonly used at UIUC.
base_version:=base_version&"/UIUC";
message "Updating to "&base_name&" version "&base_version&".";

% screen default dimensions for SUN workstations graphic windows
screen_rows:=400; screen_cols:=480;

% Here are conventions for local output devices:

% imagen mode: for the Imagen 12/300 (Ricoh engine)
mode_def imagen =	% imagen mode
 proofing:=0;		% no, we're not making proofs
 fontmaking:=1;		% yes, we are making a font
 tracingtitles:=0;	% no, don't show titles in the log
 pixels_per_inch:=300;
 blacker:=.95;		% (this value not yet tested)
 fillin:=0;		% (ditto)
 o_correction:=0;	% (ditto)
 enddef;

% canon mode: for the old Imagen (Canon LBP10)
mode_def canon =	% canon mode: for the old Imagen (Canon LBP10)
 proofing:=0;		% no, we're not making proofs
 fontmaking:=1;		% yes, we are making a font
 tracingtitles:=0;	% no, don't show titles in the log
 pixels_per_inch:=240;
 blacker:=.2;		% make pens a wee bit blacker
 fillin:=.2;		% and compensate for fillin
 o_correction:=.4;	% but don't overshoot as much
 enddef;

% sun mode: for the Sun Workstation for proofing
mode_def sun =		% sun mode: for the Sun-2 workstation
 proofing:=0;		% no, we're not making proofs
 fontmaking:=1;		% yes, we are making a font
 tracingtitles:=0;	% no, don't show titles in the log
 pixels_per_inch:=118;	% really lowres
 blacker:=0;		% don't make the pens any blacker
 fillin:=0;		% and don't compensate for fillin
 o_correction:=.2;	% but suppress most overshoots
 enddef;

% qms mode: for the QMS (Xerox engine)
mode_def qms =		% qms mode: for the QMS (Xerox engine)
 proofing:=0;		% no, we're not making proofs
 fontmaking:=1;		% yes, we are making a font
 tracingtitles:=0;	% no, don't show titles in the log
 pixels_per_inch:=300;
 blacker:=.3;		% (this value not yet tested)
 fillin:=.2;		% (ditto)
 o_correction:=.5;	% (ditto)
 enddef;

% default UIUC output device
localfont:=imagen;
mode:=localfont;

% Finally, here are macros for Xerox-world font info:

def font_family expr s =  % string s names the font family, e.g., "CMR"
 headerbyte 49: BCPL_string(s,20);
 special "identifier "&s enddef;
def coding_scheme expr s = % string s names the scheme, e.g. "TEX TEXT"
 headerbyte 9: BCPL_string(s,40);
 special "codingscheme "&s enddef;
def font_face_byte expr x = % integer x gives the family member number,
 headerbyte 72: x;          % which should be between 0 and 255
 special "fontfacebyte"; numspecial x enddef;

def BCPL_string(expr s,n)= % string s becomes an n-byte BCPL string
 for l:=if length(s)>=n: n-1 else: length(s) fi: l
  for k:=1 upto l: , substring (k-1,k) of s endfor
  for k:=l+2 upto n: , 0 endfor endfor enddef;