home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / text / pastex-1.3-2of8.lha / PasTeX / mf / inputs / UIUC.mf < prev    next >
Text File  |  1990-02-14  |  3KB  |  77 lines
  1. % $Header: UIUC.mf,v 1.0 86/01/31 20:23:53 richards Released $
  2.  
  3. % This file can be loaded after PLAIN.MF.
  4. % It introduces conventions that are commonly used at UIUC.
  5. base_version:=base_version&"/UIUC";
  6. message "Updating to "&base_name&" version "&base_version&".";
  7.  
  8. % screen default dimensions for SUN workstations graphic windows
  9. screen_rows:=400; screen_cols:=480;
  10.  
  11. % Here are conventions for local output devices:
  12.  
  13. % imagen mode: for the Imagen 12/300 (Ricoh engine)
  14. mode_def imagen =    % imagen mode
  15.  proofing:=0;        % no, we're not making proofs
  16.  fontmaking:=1;        % yes, we are making a font
  17.  tracingtitles:=0;    % no, don't show titles in the log
  18.  pixels_per_inch:=300;
  19.  blacker:=.95;        % (this value not yet tested)
  20.  fillin:=0;        % (ditto)
  21.  o_correction:=0;    % (ditto)
  22.  enddef;
  23.  
  24. % canon mode: for the old Imagen (Canon LBP10)
  25. mode_def canon =    % canon mode: for the old Imagen (Canon LBP10)
  26.  proofing:=0;        % no, we're not making proofs
  27.  fontmaking:=1;        % yes, we are making a font
  28.  tracingtitles:=0;    % no, don't show titles in the log
  29.  pixels_per_inch:=240;
  30.  blacker:=.2;        % make pens a wee bit blacker
  31.  fillin:=.2;        % and compensate for fillin
  32.  o_correction:=.4;    % but don't overshoot as much
  33.  enddef;
  34.  
  35. % sun mode: for the Sun Workstation for proofing
  36. mode_def sun =        % sun mode: for the Sun-2 workstation
  37.  proofing:=0;        % no, we're not making proofs
  38.  fontmaking:=1;        % yes, we are making a font
  39.  tracingtitles:=0;    % no, don't show titles in the log
  40.  pixels_per_inch:=118;    % really lowres
  41.  blacker:=0;        % don't make the pens any blacker
  42.  fillin:=0;        % and don't compensate for fillin
  43.  o_correction:=.2;    % but suppress most overshoots
  44.  enddef;
  45.  
  46. % qms mode: for the QMS (Xerox engine)
  47. mode_def qms =        % qms mode: for the QMS (Xerox engine)
  48.  proofing:=0;        % no, we're not making proofs
  49.  fontmaking:=1;        % yes, we are making a font
  50.  tracingtitles:=0;    % no, don't show titles in the log
  51.  pixels_per_inch:=300;
  52.  blacker:=.3;        % (this value not yet tested)
  53.  fillin:=.2;        % (ditto)
  54.  o_correction:=.5;    % (ditto)
  55.  enddef;
  56.  
  57. % default UIUC output device
  58. localfont:=imagen;
  59. mode:=localfont;
  60.  
  61. % Finally, here are macros for Xerox-world font info:
  62.  
  63. def font_family expr s =  % string s names the font family, e.g., "CMR"
  64.  headerbyte 49: BCPL_string(s,20);
  65.  special "identifier "&s enddef;
  66. def coding_scheme expr s = % string s names the scheme, e.g. "TEX TEXT"
  67.  headerbyte 9: BCPL_string(s,40);
  68.  special "codingscheme "&s enddef;
  69. def font_face_byte expr x = % integer x gives the family member number,
  70.  headerbyte 72: x;          % which should be between 0 and 255
  71.  special "fontfacebyte"; numspecial x enddef;
  72.  
  73. def BCPL_string(expr s,n)= % string s becomes an n-byte BCPL string
  74.  for l:=if length(s)>=n: n-1 else: length(s) fi: l
  75.   for k:=1 upto l: , substring (k-1,k) of s endfor
  76.   for k:=l+2 upto n: , 0 endfor endfor enddef;
  77.