home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / s / sbmf13.zip / MF / MFINPUTS / MODES.MF < prev    next >
Text File  |  1992-05-15  |  48KB  |  1,312 lines
  1. % Compiled 1991, 1992 by Karl Berry from modes collected by Doug
  2. % Henderson, Pierre MacKay, and others.  This file is not copyrighted
  3. % and may be used freely.
  4. %
  5. % Please change the definitions of |localfont|, |screen_cols|, and
  6. % |screen_rows| at the end of file (see explanations below).
  7. %
  8. % When you make a new |mode_def|, please send it to {\tt
  9. % karl@cs.umb.edu}.  Please mention what fonts at what sizes you tested
  10. % it on.  This will help other people wondering where particular values
  11. % came from.  Ideally, you would try normal, bold, and italic variants,
  12. % at sizes around 5$\,$pt, 10$\,$pt and 15$\,$pt.
  13. %
  14. % You can run this file through {\tt mft} to generate a \TeX\
  15. % file, if you like reading typeset output instead of computer screens.
  16. %
  17. %%% def mode_def
  18. %%% addto font_size coding_scheme font_face_byte landscape landscape_
  19. %
  20. % @mffile{
  21. %   author = "Karl Berry, Pierre MacKay, Doug Henderson, et al."
  22. %   version = "0.10",
  23. %   date = "REPLACE-WITH-DATE"
  24. %   filename = "modes.mf",
  25. %   contact = "Karl Berry",
  26. %   email = "karl@cs.umb.edu"
  27. %   address = "135 Center Hill Rd. // Plymouth, MA 02360"
  28. %   checksum = "1311    6265   46442",
  29. %   codetable = "ISO/ASCII",
  30. %   supported = "yes",
  31. %   docstring = "
  32. %
  33. % This file collects all known \MF\ modes, some of which are untested.
  34. % It also makes definitions to put specials identifying the mode in the
  35. % \MF\ GF output, and to put the coding scheme and other so-called
  36. % Xerox-world information in the TFM output.  Finally, it defines some
  37. % code to handle write-white devices better; this code comes into play
  38. % if a |mode_def| includes the statement |mode_write_white_setup_;|.
  39. % This only works for those fonts which follow Computer Modern's
  40. % conventions for using |font_setup|.
  41. %
  42. % This file follows a naming convention that has emerged from the
  43. % discussion of |mode_def|s in {\sl TUGboat}.
  44. %
  45. % \item{1)} The print engine is identified wherever possible,
  46. %   rather than the printer which incorporates that engine.
  47. %
  48. % \item{2)} Because |mode_def| names may not contain digits,
  49. %   each digit is spelled out; e.g., {\tt RicohFourZeroEightZero}.
  50. %
  51. % \item{3)} For historical reasons, some modes have synonyms of all
  52. %   lowercase letters, e.g., `cx' for `CanonCX'.
  53. % 
  54. % \item{4)} All modes have at least one name which is eight or fewer
  55. %   letters, and therefore is a portable directory name.
  56. %
  57. % This file is typically loaded when making a \MF\ base; for example,
  58. % the command line 
  59. % {\tt inimf plain input modes dump} 
  60. % makes a file {\tt plain.base} (or {\tt plain.bas}, or something like
  61. % that) with all the modes herein defined (plain itself defines modes
  62. % called |proof|, |smoke|, and |lowres|.)
  63. %
  64. % You can make the Computer Modern base with:
  65. % {\tt inimf plain input modes input cmbase dump}
  66. % 
  67. % On Unix systems, you then install the base file in the system
  68. % directory (/usr/local/lib/mf/bases as distributed) as {\tt mf.base}.
  69. % TeX and Metafont use the name they were invoked as to determine the
  70. % format or base file to read; thus running {\tt mf} reads {\tt
  71. % mf.base}, running {\tt cmmf} reads {\tt cmmf.base}, and so on.
  72. % {\tt plain.base} and {\tt mf.base} should be the same, so the examples
  73. % in the {\sl Metafontbook} work properly.
  74. % 
  75. % A user selects a particular mode when s/he runs \MF, by assigning to
  76. % the variable |mode|.  For example, typing
  77. % {\tt \char`\\mode:=CanonCX; input cmr10}
  78. % sets up values appropriate for the CanonCX engine.
  79. %
  80. % If no mode is assigned, the default is |proof| mode, as stated in {\sl
  81. % The \MF book}.  This is the cause of the ``{\tt .2602gf}'' files which
  82. % are a periodic question in the \TeX\ community.  The remedy is simply
  83. % to assign a different mode---|localfont|, for example.
  84. %
  85. % Every site should define the mode |localfont| to be a synonym for the
  86. % mode most commonly used there.  This file defines |localfont| to be
  87. % |CanonCX|.  The values for |screen_rows| and |screen_cols|, which
  88. % determine how big \MF's window for online output is, should perhaps
  89. % also be changed; individual users should certainly change them to
  90. % their own tastes.
  91. %
  92. % This file defines {\tt ?} to type out a list of all the known
  93. % |mode_def|s (once only).
  94. %
  95. % A |mode_def| is a \MF\ definition that typically consists of a series
  96. % of assignments to various device-specific variables, either primitive
  97. % or defined in plain.  These variables include the following (page
  98. % numbers refer to {\sl The \MF book\/}:
  99. %
  100. % |aspect_ratio|: the ratio of the vertical resolution to the horizontal
  101. %   resolution (page 94).
  102. %
  103. % |blacker|: a correction added to the width of stems and similar
  104. %   features, to account for devices which would otherwise make them too
  105. %   light (page 93).  (Write-white devices are best handled by a more
  106. %   sophisticated method than adding to |blacker|, as explained above.)
  107. %
  108. % |fillin|: a correction factor for diagonals and other features which
  109. %   would otherwise be ``filled in'' (page 94).  An ideal device would
  110. %   have |fillin=0| (page 94).  Negative values for |fillin| will
  111. %   probably either gross effects or none at all.
  112. %
  113. % |fontmaking|: if nonzero at the end of the job, \MF\ makes a TFM file
  114. %   (page 315).
  115. %
  116. % |o_correction|: a correction factor for the ``overshoot'' of curves
  117. %   beyond the baseline (or x-height, or some other line).  High
  118. %   resolution curves look better with overshoot, so such devices should
  119. %   have |o_correction=1|; but at low resolutions, the overshoot appears
  120. %   to simply be a distortion (page 93).  Here some additional comments
  121. %   about |o_correction|, courtesy of Pierre MacKay (edited by Karl):
  122. %
  123. %   At present, I find that |o_correction| works nicely at 80 pixels per
  124. %   em, and gets increasingly disturbing as you move down towards 50
  125. %   pixels per em. Below that I do not think it ought to happen at all.
  126. %
  127. %   The problem, of course, is that full |o_correction| is supposed to
  128. %   occur only at the zenith and nadir of the curve of `o', which is a
  129. %   small region at high resolution, but may be a long line of
  130. %   horizontal pixels at medium resolution.  The full |o_correction|
  131. %   does not change a 300$\,$dpi {\tt cmr10}, but it changes a 21-pixel
  132. %   high {\tt cmr12} to be 23 pixels high.  The extra height and depth
  133. %   is seen along a line of seven pixels at the bottom and five at the
  134. %   top.  This is a pronounced overshoot indeed.
  135. %
  136. %   For high-resolution devices, such as phototypesetters, the values
  137. %   for |blacker|, |fillin|, and |o_correction| don't matter all that
  138. %   much, so long as the values are within their normal ranges: between
  139. %   0 and 1, with the values approaching 0, 0, and 1 respectively.
  140. %
  141. % |pixels_per_inch|: the horizontal resolution; the \MF\ primitive
  142. %   |hppp| (which is what determines the extension on the GF filename,
  143. %   as among other things) is computed from this (page 94).  (An
  144. %   ``inch'' is 72.27\thinspace pt in the \TeX\ world.)
  145. %
  146. %   To be more precise, you can determine the resolution of a font given
  147. %   a |mode_def| and a magnification |m| by simply multiplying
  148. %   |pixels_per_inch| for that |mode_def| by |m|.  (Of course, your
  149. %   results may differ from \MF's if you don't use equivalent
  150. %   fixed-point arithmetic routines.)  Then you can determine the number
  151. %   used in the name of the GF font output by rounding.  For example, a
  152. %   font generated at |magstep(.5)| (which is $\sqrt{1.2}$, which \MF
  153. %   computes as 1.09544) for a printer with |pixels_per_inch=300| will
  154. %   have a resolution of 328.63312 dots per inch, and the GF filename
  155. %   will include the number {\tt 329}.
  156. %
  157. % |proofing|: says whether to put additional specials in the GF file for
  158. %   use in making proofsheets with the assistance of, e.g., the utility
  159. %   program {\tt GFtoDVI} (page 323--4).
  160. %
  161. % |tracingtitles|: if nonzero, strings that appear as \MF\ statements
  162. %   are typed on the terminal (page 187).
  163. %
  164. % Neenie Billawala's article in the April 1987 issue of {\sl TUGboat}
  165. % describes how to test your printer for the best set of values for the
  166. % magic numbers above.  Here are some brief comments on the subject,
  167. % courtesy of {\tt rocky@watson.ibm.com}, again edited by Karl:
  168. %
  169. % For medium-to-low resolution devices, you can first set the |blacker|
  170. % and |o_correction| to~0 and decide on a |fillin| value by looking at
  171. % the diagonal of a lowercase `z' in the typewriter font, or various
  172. % lines in LaTeX's line10 font. The diagonal should be the same
  173. % thickness as the horizontal bars of the `z'. Then I decide on the
  174. % |blacker| value, generally by checking the smaller fonts for too much
  175. % filling in.  Finally, you can set the |o_correction| using the
  176. % guidelines suggested above.
  177. %"
  178. % }
  179.  
  180. % Identify ourselves in the format file.
  181. base_version := base_version & "/modes 0.10";
  182.  
  183.  
  184. % Here are useful macros (also called definitions) that we will use
  185. % throughout.
  186.  
  187. % First, some comments about how the |mode_defs| are constructed (from
  188. % {\tt rocky@watson.ibm.com}).  In the past, |mode_defs| unconditionally
  189. % assigned a value to the various mode-dependent parameters. For
  190. % example, they contained an assignment |fontmaking:=1|, which tells
  191. % \MF\ to write a TFM file.
  192. %
  193. % But suppose you want to generate a font using all of the setup for
  194. % some mode |m|, but do not want to generate a TFM? One could create
  195. % another mode that doesn't have the assignment, but this seems a bit
  196. % wasteful since the rest of the code in the mode would be duplicated.
  197. % Furthermore, given the way the mode definitions were written, it was
  198. % not possible to change the mode parameters.  To see why, I review how
  199. % a \MF\ run typically works.
  200. %
  201. % First, \MF\ is invoked with some base file to load.  Then you might
  202. % want give additional instructions, such as |scrollmode|, or |mode:=m|.
  203. % Next, you input a parameter file, say {\tt cmr10}.  The parameter file
  204. % calls a driver file, such as {\tt roman}, with the command |generate
  205. % roman|.  Finally, the driver finished by saying |bye| or |end|.  Thus,
  206. % any additional commands you give after the input of the parameter file
  207. % are ignored.
  208. %
  209. % Usually, one of the first things a driver file does is to call
  210. % |mode_setup|. It is here that the mode parameters are set.  (In our
  211. % hypothetical mode, it would be here that |fontmaking| is assigned.)
  212. %
  213. % To allow a flexible setting of |fontmaking|, we can make a simple
  214. % change: in the |mode_def|, first test to see if a value has been
  215. % defined prior and only make the assignment if not. That is:
  216. % |if unknown fontmaking: fontmaking := 1; fi|.
  217. %
  218. % Alas, this doesn't work.  Primitives, like |fontmaking|, are always
  219. % |known|.  So instead we create ``guard'' variables, e.g.,
  220. % |mode_guard_.fontmaking|; we set the guard variable when we assign the
  221. % parameter.  Then we test whether the guard variable is |known| before
  222. % we actually do an assignment.
  223. % This allows more flexible definitions: you can specify some of the
  224. % parameters, and keep the default value for others.
  225. %
  226. % It is also possible to write a program that creates a |mode_def| on
  227. % the fly. Although useful, this has a slightly different focus than
  228. % starting with an existing |mode_def| and changing a couple of
  229. % parameters. In particular, one still has to peek inside the
  230. % file to see what the old values were and set them again (in the
  231. % new context). Also, such on-the-fly |mode_def| generation programs are
  232. % inherently less machine-independent that a scheme that does
  233. % everything in \MF\ itself.
  234. %
  235. % The upshot of all this is the following definition: we say, e.g.,
  236. % |mode_param (fontmaking, 1)| below, instead of doing a real
  237. % assignment.  The name (``|mode_param|'') is kept somewhat short
  238. % because you also use this to override a mode assignment, on the
  239. % command line or in response to the {\tt **} prompt.
  240. def mode_param (suffix v) (expr e) =
  241.   if unknown mode_guard_.v:
  242.     v := e;
  243.     mode_guard_.v := 1;
  244.   fi
  245. enddef;
  246.  
  247. % This macro is invoked by all the modes, after |pixels_per_inch|
  248. % has been defined, thus saving some space and time.
  249. def mode_common_setup_ =
  250.   mode_param (proofing, 0);
  251.   mode_param (fontmaking, 1);
  252.   mode_param (tracingtitles, if pixels_per_inch > 700: 1 else: 0 fi);
  253. enddef;
  254.  
  255.  
  256. % In a similar spirit, here are definitions to change to ``landscape''
  257. % mode.  You just say {\tt mode := whatever; landscape; ...}, and when
  258. % |mode_setup| is executed, the |aspect_ratio| will be inverted, and
  259. % |pixels_per_inch| changed.
  260. def landscape =
  261.   extra_setup := extra_setup & "landscape_;"
  262. enddef;
  263.  
  264. def landscape_ =
  265.   begingroup
  266.     interim warningcheck := 0;
  267.     pixels_per_inch := aspect_ratio * pixels_per_inch;
  268.     aspect_ratio := 1 / aspect_ratio;
  269.     fix_units; % Too bad we can't do this after any |extra_setup|.
  270.   endgroup
  271. enddef;
  272.  
  273.  
  274. % Here are macros to add specials with mode information to the GF file.
  275. %
  276. % Specifically, we add the |pixels_per_inch|, |o_correction|,
  277. % |aspect_ratio| (if not 1), |mag|, |fillin|, and |mode_def| name.  This
  278. % information can be used to automatically verify that a font file name
  279. % matches the specification within the file.  For example, you could
  280. % check that the number in the filename matches |mag*pixels_per_inch|.
  281. % Or, if the |mode_def| name is is put in the font directory path (e.g.,
  282. % you put fonts in {\tt $\ldots$/tex/fonts/CanonCX}), that all of the
  283. % bitmap files in the directory have the expected |mode_def| name.
  284.  
  285. def mode_special_ (suffix $) =
  286.   string s, d;
  287.   s := str $;
  288.   d := decimal scantokens s;
  289.   special s & "=" & d;
  290. enddef;
  291.  
  292. def mode_output_specials_ =
  293.   begingroup
  294.     save d, s, p, p_p_i;
  295.     string p;
  296.  
  297.     interim warningcheck := 0; % In case |pixels_per_inch>4096|.
  298.  
  299.     % We need the old |pixels_per_inch| to compute the true device
  300.     % resolution.
  301.     p_p_i = pixels_per_inch / mag;
  302.  
  303.     % But now we want to change |pixels_per_inch|, so we |save| the
  304.     % old value.
  305.     save pixels_per_inch;
  306.     pixels_per_inch := p_p_i;
  307.  
  308.     special jobname;
  309.     mode_special_ (mag);
  310.  
  311.     p := if string mode:
  312.            mode
  313.          else:
  314.            substring (0, length (mode_name[mode]) - 1) of mode_name[mode]
  315.          fi;
  316.     special "mode=" & p & ";";
  317.  
  318.     mode_special_ (pixels_per_inch);
  319.     if aspect_ratio <> 1:
  320.       mode_special_ (aspect_ratio);
  321.     fi;
  322.     mode_special_ (blacker);
  323.     mode_special_ (fillin);
  324.     mode_special_ (o_correction);
  325.   endgroup
  326. enddef;
  327.  
  328.  
  329. % Here are macros for Xerox-world font info, which can be useful even
  330. % if you never use a Xerox printer.  For instance, {\tt crudetype} uses
  331. % the |coding_scheme| and it is nice to have the font family on record.
  332. % This goes into both the TFM file (as |headerbyte| information), and
  333. % into the GF file (as a |special|).
  334.  
  335. % Make the string |s| be |n| bytes long.
  336. def BCPL_string (expr s, n) =
  337.   for l := if length (s) >= n: n-1 else: length (s) fi: l
  338.     for k := 1 upto l: , substring (k - 1, k) of s endfor
  339.     for k := l + 2 upto n: , 0 endfor
  340.   endfor
  341. enddef;
  342.  
  343. % The string |s| names the encoding scheme, e.g., {\tt TeX text}.
  344. def coding_scheme expr s =
  345.   headerbyte 9: BCPL_string (s, 40);
  346.   special "codingscheme " & s
  347. enddef;
  348.  
  349. % The string |s| names the font family, e.g., {\tt CMR}.
  350. def font_family expr s =
  351.   headerbyte 49: BCPL_string (s, 20);
  352.   special "identifier " & s
  353. enddef;
  354.  
  355. % The integer |x| gives the family member number, which should be
  356. % between 0 and 255.
  357. def font_face_byte expr x =
  358.   headerbyte 72: x;
  359.   special "fontfacebyte";
  360.   numspecial x
  361. enddef;
  362.  
  363. % So users can say |if known Xerox_world: $\ldots$ fi|
  364. Xerox_world := 1;
  365.  
  366.  
  367. % Redefine |end| to put the extra information above in the GF and TFM
  368. % files.  This code is based on that on page 321.
  369. inner end;
  370. let primitive_end_ = end;
  371. def end =
  372.   if fontmaking > 0:
  373.     font_family font_identifier_;
  374.     coding_scheme font_coding_scheme_;
  375.     font_face_byte max (0, 254 - round 2designsize);
  376.     mode_output_specials_;
  377.   fi;
  378.   primitive_end_.
  379. enddef;
  380.  
  381. % The {\sl \MF book} gives |bye| two different definitions (on pages 278
  382. % and 321). The first is used in {\tt plain.mf} and is merely a synoynym
  383. % for the primitive |end|.  The second, which is not part of {\tt
  384. % plain.mf}, is similar to the code given above. We want the extra
  385. % information to get into the output files regardless of whether the
  386. % \MF\ source used |end| or |bye|.  The above changed |end|; now we have
  387. % to redefine |bye| again (as on page 278).
  388. outer end, primitive_end_;
  389. let bye = end;
  390.  
  391.  
  392. % Here are macros to handle write-white printers.
  393. %
  394. % The basic correction for write-white fonts occurs in the definition of
  395. % |font_setup|.  This can be used to extend or change the write-black
  396. % definition in Computer Modern's {\tt cmbase.mf} or other base files
  397. % based on CM, such as {\tt dxbase.mf}.
  398. %
  399. def mode_write_white_setup_ =
  400.   begingroup
  401.     let black_setup = font_setup;
  402.     def font_setup =
  403.       black_setup;
  404.       min_Vround:=max(fine.breadth,crisp.breadth,tiny.breadth,2);
  405.       if min_Vround<vround min_Vround: min_Vround:=vround min_Vround; fi
  406.       if flare<vround flare: flare:=vround flare; fi
  407.       forsuffixes $=vair,bar,slab,cap_bar,cap_band,vair',vstem,cap_vstem,bold:
  408.         if $<min_Vround: $:=min_Vround; fi endfor
  409.       forsuffixes $=thin_join,hair,curve,flare,dot_size,cap_hair,cap_curve,
  410.        vair,bar,slab,cap_bar,cap_band,stem',cap_stem',vair',fudged.hair,
  411.        fudged.stem,fudged.cap_stem: $:=max($,2); endfor
  412.     enddef;
  413.   endgroup;
  414.   % Only do the above once, in case a font file (unnecessarily) calls
  415.   % |mode_setup| more than once.
  416.   let mode_write_white_setup_ = relax
  417. enddef;
  418.  
  419.  
  420. % Here are the modes, given in alphabetical order (without regard to case).
  421.  
  422. % From {\tt cudat@cu.warwick.ac.uk}.
  423. mode_def AgfaFourZeroZero =             % AGFA 400PS
  424.   mode_param (pixels_per_inch, 406);
  425.   mode_param (blacker, .2);
  426.   mode_param (fillin, 0);
  427.   mode_param (o_correction, .6);
  428.   mode_common_setup_;
  429. enddef;
  430.  
  431. % From {\tt rokicki@neon.stanford.edu}.
  432. mode_def amiga =                        % Commodore Amiga
  433.   mode_param (pixels_per_inch, 100);
  434.   mode_param (blacker, 0);
  435.   mode_param (fillin, 0);
  436.   mode_param (o_correction, .2);
  437.   mode_common_setup_;
  438. enddef;
  439.  
  440. % From {\tt W.Spit@fys.ruu.nl}.  {\tt N.Poppelier@elsevier.nl} says that
  441. % different previewers use different resolutions (95 dpi, 96 dpi, or 101
  442. % dpi), but no one seems to know what the real resolution is.
  443. mode_def AtariNineFive =                % Atari 95dpi previewer
  444.   mode_param (pixels_per_inch, 95);
  445.   mode_param (blacker, 0);
  446.   mode_param (fillin, 0);
  447.   mode_param (o_correction, 0.1);
  448.   mode_common_setup_;
  449. enddef;
  450.  
  451. mode_def AtariNineSix =                 % Atari 96x96 previewer
  452.   mode_param (pixels_per_inch, 96);
  453.   mode_param (blacker, 0);
  454.   mode_param (fillin, 0);
  455.   mode_param (o_correction, 0.1);
  456.   mode_common_setup_;
  457. enddef;
  458.  
  459. % From {\tt ee@dacth51.bitnet}.
  460. mode_def AtariSLMEightZeroFour =        % Atari ST SLM 804 printer
  461.   mode_param (pixels_per_inch, 300);
  462.   mode_param (blacker, -.25);
  463.   mode_param (fillin, .5);
  464.   mode_param (o_correction, 0);
  465.   mode_common_setup_;
  466.   mode_write_white_setup_;
  467. enddef;
  468.  
  469. % From {\tt ee@dacth51.bitnet}.
  470. mode_def AtariSMOneTwoFour =            % Atari ST SM 124 screen
  471.   mode_param (pixels_per_inch, 101);
  472.   mode_param (blacker, 0);
  473.   mode_param (fillin, 0);
  474.   mode_param (o_correction, .4);
  475.   mode_common_setup_;
  476. enddef;
  477.  
  478. mode_def aps =                          % Autologic APS-Micro5
  479.   mode_param (pixels_per_inch, 722.909);
  480.   mode_param (blacker, .2);
  481.   mode_param (fillin, .2);
  482.   mode_param (o_correction, 1);
  483.   mode_common_setup_;
  484. enddef;
  485.  
  486. % From {\tt rocky@watson.ibm.com}.  Tested on the single APS-6 at IBM
  487. % Research.
  488. mode_def ApsSixHi =                     % Autologic APS-Micro6
  489.   mode_param (pixels_per_inch, 1016);
  490.   mode_param (blacker, 0);
  491.   mode_param (fillin, 0);
  492.   mode_param (o_correction, 1);
  493.   mode_common_setup_;
  494. enddef;
  495.  
  496. mode_def bitgraph =                     % BBN Bitgraph at 118dpi
  497.   mode_param (pixels_per_inch, 118);
  498.   mode_param (blacker, .55);
  499.   mode_param (fillin, .1);
  500.   mode_param (o_correction, .3);
  501.   mode_common_setup_;
  502. enddef;
  503.  
  504. mode_def boise =                        % HP 2680A
  505.   mode_param (pixels_per_inch, 180);
  506.   mode_param (blacker, .55);
  507.   mode_param (fillin, .1);
  508.   mode_param (o_correction, .3);
  509.   mode_common_setup_;
  510. enddef;
  511.  
  512. % This applies to the LaserWriter Plus, HP Laserjet, HP Laserjet Plus,
  513. % and also the Canon LBP-LX engine, in the Laserjet IIP, QMS 410, and
  514. % Apple Personal LaserWriter, and also to the CanonSX engine, in the
  515. % LaserWriter II family.
  516. mode_def CanonCX =                      % Canon CX, SX, LBP-LX
  517.   mode_param (pixels_per_inch, 300);
  518.   mode_param (blacker, 0);
  519.   mode_param (fillin, .2);
  520.   mode_param (o_correction, .6);
  521.   mode_common_setup_;
  522. enddef;
  523. cx := CanonCX;
  524. corona := CanonCX;
  525. dp := CanonCX; % some kind of DataProducts
  526. hplaser := CanonCX;
  527. imagen := CanonCX;
  528. kyocera := CanonCX;
  529. laserwriter := CanonCX;
  530. % I have seen a |mode_def| that claimed the LaserJet II was the Canon SX
  531. % write-white engine, but I don't think that's right.
  532. laserjethi := CanonCX;
  533. laserjet := CanonCX;
  534. % {\tt ogawa@orion.arc.nasa.gov} says that this is definitely not a
  535. % write-white engine, despite earlier versions of this file claiming the
  536. % contrary.  Thus, probably the same parameters as |CanonCX| will do.
  537. CanonSX := CanonCX;
  538. CanonLBPLX := CanonCX;
  539.  
  540. mode_def CanonLBPTen =                  % e.g., Symbolics LGP-10
  541.   mode_param (pixels_per_inch, 240);
  542.   mode_param (blacker, .2);
  543.   mode_param (fillin, .2);
  544.   mode_param (o_correction, .4);
  545.   mode_common_setup_;
  546. enddef;
  547.  
  548.  
  549. % The Chelgraph IBX is the machine introduced to North American \TeX\
  550. % users by Type~2000 in Mill Valley, California; telephone
  551. % (415)~388-8873.  Since the machine's stated output resolution is only
  552. % 2000\thinspace dpi this truly spectacular 9600\thinspace dpi must be
  553. % used for translation to an outline font description.  This
  554. % |mode_def| has been tested and used in a publication of the University
  555. % of Washington Press.  These values from Pierre MacKay, based on Lance
  556. % Carnes' crs values, at magstep~1.8.
  557. mode_def ChelgraphIBX =                 % Chelgraph IBX
  558.   mode_param (pixels_per_inch, 4000 + 4000 + 1600);
  559.   mode_param (blacker, 4);
  560.   mode_param (fillin, 0);
  561.   mode_param (o_correction, 1);
  562.   mode_common_setup_;
  563. enddef;
  564.  
  565. % From {\tt rokicki@cs.umb.edu}.
  566. mode_def CItohThreeOneZero =            % CItoh 310
  567.   mode_param (pixels_per_inch, 240);
  568.   mode_param (aspect_ratio, 144 / pixels_per_inch);
  569.   mode_param (blacker, 0);
  570.   mode_param (fillin, 0);
  571.   mode_param (o_correction, .2);
  572.   mode_common_setup_;
  573. enddef;
  574. cthreeten := CItohThreeOneZero;
  575.  
  576. % From {\tt local.mf} via {\tt cudat@cu.warwick.ac.uk}.
  577. mode_def CItohEightFiveOneZero =        % CItoh 8510A
  578.   mode_param (pixels_per_inch, 160);
  579.   mode_param (aspect_ratio, 144 / pixels_per_inch);
  580.   mode_param (blacker, 0);
  581.   mode_param (fillin, 0);
  582.   mode_param (o_correction, .1);
  583.   mode_common_setup_;
  584. enddef;
  585. itoh := CItohEightFiveOneZero;
  586.  
  587. mode_def CompugraphicEightSixZeroZero = % Compugraphic 8600
  588.   mode_param (pixels_per_inch, 1301.5);
  589.   mode_param (aspect_ratio, 1569 / pixels_per_inch);
  590.   mode_param (blacker, .2);
  591.   mode_param (fillin, .2);
  592.   mode_param (o_correction, 1);
  593.   mode_common_setup_;
  594. enddef;
  595. cg := CompugraphicEightSixZeroZero;
  596.  
  597. % These values from Linotype Linotronic [13]00 modified to 1200dpi.
  598. % From {\tt wagman\%muse.hepnet@Csa2.LBL.Gov}.
  599. mode_def CompugraphicNineSixZeroZero =  % Compugraphic 9600
  600.   mode_param (pixels_per_inch, 1200);
  601.   mode_param (blacker, .65);
  602.   mode_param (fillin, -.1);
  603.   mode_param (o_correction, .5);
  604.   mode_common_setup_;
  605.   mode_write_white_setup_;
  606. enddef;
  607.  
  608. % This has a resolution of |5333 + 1/3| pixels per inch.
  609. mode_def crs =                          % Alphatype CRS
  610.   mode_param (pixels_per_inch, 4000 + 4000/3);
  611.   mode_param (blacker, 4);
  612.   mode_param (fillin, 0);
  613.   mode_param (o_correction, 1);
  614.   mode_common_setup_;
  615. enddef;
  616.  
  617. % At least magstep 2 is recommended at this low resolution.
  618. mode_def DataDisc =                     % DataDisc
  619.   mode_param (pixels_per_inch, 70);
  620.   mode_param (blacker, 0);
  621.   mode_param (fillin, 0);
  622.   mode_param (o_correction, .2);
  623.   mode_common_setup_;
  624. enddef;
  625. DD := DataDisc;
  626.  
  627. mode_def DataDiscNew =                  % DataDisc with special aspect ratio
  628.   mode_param (aspect_ratio, 4/3);
  629.   DataDisc_;
  630. enddef;
  631. newDD := DataDiscNew;
  632.  
  633. mode_def dover =                        % Xerox Dover
  634.   mode_param (pixels_per_inch, 384);
  635.   mode_param (blacker, 1.2);
  636.   mode_param (fillin, 0);
  637.   mode_param (o_correction, .6);
  638.   mode_common_setup_;
  639. enddef;
  640.  
  641. % Perhaps this should be 120 horizontally and 216 vertically, if it is
  642. % for the MX-80.
  643. mode_def epsonlo =                      % Epson at 120dpi
  644.   mode_param (pixels_per_inch, 120);
  645.   mode_param (aspect_ratio, 144 / pixels_per_inch);
  646.   EpsonMXFX_;
  647. enddef;
  648. epslo := epsonlo;
  649.  
  650. % This and |EpsonLQFiveZeroZeroLo| also work for a Mannesmann 300 (from
  651. % {\tt cudat@csv.warwick.ac.uk}, 4 September 1991).  The $360\times360$
  652. % modes for these printers fails for {\tt cudat}, however.
  653. mode_def EpsonLQFiveZeroZeroMed =       % Epson LQ-500, 360x180dpi
  654.   mode_param (pixels_per_inch, 360);
  655.   mode_param (aspect_ratio, 180 / pixels_per_inch);
  656.   mode_param (blacker, 0); % 0.3 avoids `holes'.
  657.   mode_param (fillin, 0);
  658.   mode_param (o_correction, .1);
  659.   mode_common_setup_;
  660. enddef;
  661. lqmedres := EpsonLQFiveZeroZeroMed;
  662.  
  663. mode_def EpsonLQFiveZeroZeroLo =        % Epson LQ-500, 180x180dpi
  664.   mode_param (pixels_per_inch, 180);
  665.   mode_param (blacker, 0);
  666.   mode_param (fillin, 0);
  667.   mode_param (o_correction, .1);
  668.   mode_common_setup_;
  669. enddef;
  670. lqlores := EpsonLQFiveZeroZeroLo;
  671.  
  672. % These values from Charles Karney, {\sl TUGboat} 8(2), page 133.  This
  673. % is for the Epson MX/FX family (-85, -286), which are 9-pin printers.
  674. % The 24-pin LQ family have higher resolutions; no one has sent me
  675. % |mode_def|s for them yet.  Ditto for Epson's laser printer.  (Thanks
  676. % to {\tt cargo@escargot.cray.com} for all this information.)
  677. mode_def EpsonMXFX =                    % 9-pin Epson MX/FX family
  678.   mode_param (pixels_per_inch, 240);
  679.   mode_param (aspect_ratio, 216 / pixels_per_inch);
  680.   mode_param (blacker, 0);
  681.   mode_param (fillin, 0);
  682.   mode_param (o_correction, .2);
  683.   mode_common_setup_;
  684. enddef;
  685. epson := EpsonMXFX;
  686. epshi := EpsonMXFX;
  687. epsonfx := EpsonMXFX;
  688.  
  689. % From {\tt drstrip@intvax.uucp}.
  690. mode_def GThreefax =                    % 200 x 100dpi G3fax
  691.   mode_param (pixels_per_inch, 200);
  692.   mode_param (aspect_ratio, 100 / pixels_per_inch);
  693.   mode_param (blacker, 0);
  694.   mode_param (fillin, .2);
  695.   mode_param (o_correction, .2);
  696.   mode_common_setup_;
  697. enddef;
  698.  
  699. % From {\tt fieberjr@whitman.bitnet}.
  700. mode_def HPDeskJet =                    % HP DeskJet 500
  701.   mode_param (pixels_per_inch, 300);
  702.   mode_param (blacker, 0);
  703.   mode_param (fillin, 0);
  704.   mode_param (o_correction, .6);
  705.   mode_common_setup_;
  706. enddef;
  707.  
  708. % Here are some general comments on the IBM printers, courtesy of {\tt
  709. % rocky@watson.ibm.com}.
  710. %
  711. % IBM 3820's, 3825's, 3827's and 3835's have some sort of corner imaging
  712. % or shading that the IBM 3812's and 3816's don't.  The latter two
  713. % models may get this feature in the future.
  714. %
  715. % The IBM 3827 is made by Kodak, the rest are IBM engines.
  716. %
  717. % Some of the other printers have a knob that allows a service engineer
  718. % to set one of up to ten levels of darkness.  At IBM Research, we run
  719. % very black.  The service engineer sets the level by running a
  720. % completely black page and then two completely blank ones. The black
  721. % page must be black and the following two must be completely white.
  722. %
  723. % Thanks to Jim Hafner ({\tt hafner@ibm.com}) for experimenting with
  724. % |blacker|, and Paul Dantzig for information about these printers.
  725.  
  726. % From {\tt ARNALDO@RIOSC.bitnet}.  This is for the 3820, but can be
  727. % used for 3812, 3816, 3825, 3837 3800 and 3827 printers (these are all
  728. % 240 pels IBM printers that use the same font format when driven by
  729. % PSF/VM).
  730. mode_def ibm_a =                        % IBM 38xx (\#1)
  731.   mode_param (pixels_per_inch, 240);
  732.   mode_param (blacker, .35);
  733.   mode_param (fillin, -.2);
  734.   mode_param (o_correction, .2);
  735.   mode_common_setup_;
  736. enddef;
  737.  
  738. % From {\tt rocky@watson.ibm.com}.  For the typewriter, slanted, and
  739. % italic fonts, |blacker=0| makes the `M's and `W's more legible.  But
  740. % then the weight of the font does not match the others.
  741. mode_def IBMD =                         % IBM 38xx (\#2)
  742.   mode_param (pixels_per_inch, 240);
  743.   mode_param (blacker, .3);
  744.   mode_param (fillin, .4);
  745.   mode_param (o_correction, .75);
  746.   mode_common_setup_;
  747. enddef;
  748.  
  749. % From {\tt vumalki\%weizmann.weizmann.ac.il@taunivm.tau.ac.il} and {\tt
  750. % plotkin@theory.stanford.edu}.
  751. mode_def IBMFourZeroTwoNine =           % IBM 4029-30, 4250
  752.   mode_param (pixels_per_inch, 600);
  753.   mode_param (blacker, .05);
  754.   mode_param (fillin, 0);
  755.   mode_param (o_correction, .75);
  756.   mode_common_setup_;
  757. enddef;
  758. IBMFourTwoThreeZero := IBMFourZeroTwoNine;
  759. IBMFourTwoFiveZero := IBMFourZeroTwoNine;
  760.  
  761. % From {\tt Martin.Ward@durham.ac.uk}.  Apparently the engine is
  762. % different from the Ricoh 4080.  With a larger value of |blacker|,
  763. % characters like the `e' in {\tt cmtt8} look bad.
  764. mode_def IBMFourTwoOneSix =             % IBM 4216
  765.   mode_param (pixels_per_inch, 300);
  766.   mode_param (blacker, .2);
  767.   mode_param (fillin, 0);
  768.   mode_param (o_correction, .75);
  769.   mode_common_setup_;
  770.   mode_write_white_setup_;
  771. enddef;
  772. RicohA := IBMFourTwoOneSix;
  773.  
  774. % From Rick Simpson via {\tt erikjan@icce.rug.nl}.
  775. mode_def IBMProPrinter =                % IBM ProPrinter
  776.   mode_param (pixels_per_inch, 240);
  777.   mode_param (aspect_ratio, 216 / pixels_per_inch);
  778.   mode_param (blacker, 0);
  779.   mode_param (fillin, .2);
  780.   mode_param (o_correction, 1);
  781.   mode_common_setup_;
  782. enddef;
  783. proprinter := IBMProPrinter;
  784.  
  785. % From Rick Simpson via {\tt erikjan@icce.rug.nl}.  Also gave values of
  786. % zero for |blacker|, |fillin|, and |o_correction|.
  787. mode_def IBMSixOneFiveFour =            % IBM 6154 display
  788.   mode_param (pixels_per_inch, 118);
  789.   mode_param (blacker, .8);
  790.   mode_param (fillin, .2);
  791.   mode_param (o_correction, 1);
  792.   mode_common_setup_;
  793. enddef;
  794.  
  795. % From {\tt rocky@watson.ibm.com}.  This is an old, untested definition.
  796. mode_def IBMSixSixSevenZero =           % IBM 6670 (Sherpa)
  797.   mode_param (pixels_per_inch, 240);
  798.   mode_param (blacker, 1);
  799.   mode_param (fillin, 1);
  800.   mode_param (o_correction, .5);
  801.   mode_common_setup_;
  802.   mode_write_white_setup_;
  803. enddef;
  804. Sherpa := IBMSixSixSevenZero;
  805.  
  806. % From {\tt x92@vm.urz-uni-heidelberg.de} via {\tt schoepf@sc.zib-berlin.de}.
  807. mode_def IBMThreeOneSevenNine =         % IBM 3179 screen
  808.   mode_param (pixels_per_inch, 87);
  809.   mode_param (aspect_ratio, 0.75);
  810.   mode_param (blacker, 0);
  811.   mode_param (fillin, 0);
  812.   mode_param (o_correction, 0);
  813.   mode_common_setup_;
  814. enddef;
  815.  
  816. % From {\tt x92@vm.urz-uni-heidelberg.de} via {\tt schoepf@sc.zib-berlin.de}.
  817. mode_def IBMThreeOneNineThree =         % IBM 3193 screen
  818.   mode_param (pixels_per_inch, 100);
  819.   mode_param (blacker, 0);
  820.   mode_param (fillin, 0);
  821.   mode_param (o_correction, 0);
  822.   mode_common_setup_;
  823. enddef;
  824.  
  825. % From {\tt vumalki\%weizmann.weizmann.ac.il@taunivm.tau.ac.il}.
  826. mode_def IBMThreeEightOneTwo =          % IBM 3812
  827.   mode_param (pixels_per_inch, 240);
  828.   mode_param (blacker, .6);
  829.   mode_param (fillin, .4);
  830.   mode_param (o_correction, 0);
  831.   mode_common_setup_;
  832.   mode_write_white_setup_;
  833. enddef;
  834. IBMUlfHolleberg := IBMThreeEightOneTwo;
  835.  
  836. % These values from {\tt d\_webb@chcc.harwell.aea-technology.uk}.
  837. mode_def IBMThreeEightTwoZero =         % IBM 3820
  838.   mode_param (pixels_per_inch, 240);
  839.   mode_param (blacker, .78);
  840.   mode_param (fillin, .25);
  841.   mode_param (o_correction, .5);
  842.   mode_common_setup_;
  843. enddef;
  844.  
  845. % These values from {\tt melvin@math.psu.edu}.
  846. mode_def IBMEGA =                       % IBM EGA monitor
  847.   mode_param (pixels_per_inch, 96);
  848.   mode_param (aspect_ratio, .841);
  849.   mode_param (blacker, .3);
  850.   mode_param (fillin, 0);
  851.   mode_param (o_correction, 0);
  852.   mode_common_setup_;
  853. enddef;
  854.  
  855. % These values from {\tt d\_webb@chcc.harwell.aea-technology.uk}.
  856. % {\tt melvin@math.psu.edu} thinks |pixels_per_inch=96| might be better.
  857. mode_def IBMVGA =                       % IBM VGA monitor
  858.   mode_param (pixels_per_inch, 110);
  859.   mode_param (blacker, .3);
  860.   mode_param (fillin, 0);
  861.   mode_param (o_correction, 0);
  862.   mode_common_setup_;
  863. enddef;
  864.  
  865. % Perhaps the value for |fillin| should be 0.
  866. mode_def imagewriter =                  % Apple ImageWriter
  867.   mode_param (pixels_per_inch, 144);
  868.   mode_param (blacker, 0);
  869.   mode_param (fillin, 0.3);
  870.   mode_param (o_correction, .2);
  871.   mode_common_setup_;
  872. enddef;
  873. iw := imagewriter;
  874.  
  875. % From {\tt ST-TeX.MF} via {\tt braams@pttrnl.nl}.  (The 300dpi LaserJet
  876. % is another |CanonCX|.)
  877. mode_def laserjetlo =                   % HP LaserJet at 150dpi
  878.   mode_param (pixels_per_inch, 150);
  879.   mode_param (blacker, 0);
  880.   mode_param (fillin, .1);
  881.   mode_param (o_correction, 1);
  882.   mode_common_setup_;
  883. enddef;
  884.  
  885. % From John Sauter.
  886. mode_def LASevenFive =                  % DEC LA75
  887.   mode_param (pixels_per_inch, 144);
  888.   mode_param (blacker, .3);
  889.   mode_param (fillin, -.1);
  890.   mode_param (o_correction, 0);
  891.   mode_common_setup_;
  892. enddef;
  893.  
  894. mode_def LinotypeOneZeroZeroLo =        % Linotype Linotronic [13]00 at 635dpi
  895.   mode_param (pixels_per_inch, 635);
  896.   LinotypeOneZeroZero_;
  897. enddef;
  898. linolo := LinotypeOneZeroZeroLo;
  899. linohalf := LinotypeOneZeroZeroLo;
  900.  
  901. % These values from {\tt d\_webb@chcc.harwell.aea-technology.uk}.  The
  902. % `a' in {\tt cmr5} looks better with |blacker=.3|.  Values of .2 for
  903. % both |blacker| and |fillin| have also been used.
  904. mode_def LinotypeOneZeroZero =          % Linotype Linotronic [13]00 at 1270dpi
  905.   mode_param (pixels_per_inch, 1270);
  906.   mode_param (blacker, .65);
  907.   mode_param (o_correction, 1);
  908.   mode_param (fillin, -.1);
  909.   mode_common_setup_;
  910.   mode_write_white_setup_;
  911. enddef;
  912. linoone := LinotypeOneZeroZero;
  913. linohi := LinotypeOneZeroZero;
  914. linothreelo := LinotypeOneZeroZero;
  915.  
  916. % These values from {\tt d\_webb@chcc.harwell.aea-technology.uk}.
  917. mode_def LinotypeThreeZeroZeroHi =      % Linotype Linotronic 300 at 2540dpi
  918.   mode_param (pixels_per_inch, 2540);
  919.   mode_param (blacker, .2);                % Copied from |aps|---conjectural.
  920.   mode_param (fillin, .2);                 % (ditto)
  921.   mode_param (o_correction, 1);            % (ditto)
  922.   mode_common_setup_;
  923. enddef;
  924. linothree := LinotypeThreeZeroZeroHi;
  925. linosuper := LinotypeThreeZeroZeroHi;
  926.  
  927. % From Richard Watson at the Queensland Institute of Technology.  This
  928. % printer is said to have some kind of Xerox engine, but I don't know
  929. % which.
  930. mode_def LNZeroOne =                    % DEC LN01
  931.   mode_param (pixels_per_inch, 300);
  932.   mode_param (blacker, .9);
  933.   mode_param (fillin, 0);
  934.   mode_param (o_correction, .5);
  935.   mode_common_setup_;
  936.   mode_write_white_setup_;
  937. enddef;
  938.  
  939. % From {\tt oxtex@vax.oxford.ac.uk}.
  940. mode_def LPSFourZero =                  % DEC LPS40
  941.   mode_write_white_setup_;
  942.   LNZeroOne_;
  943. enddef;
  944. LPS := LPSFourZero;
  945.  
  946. % These values from {\tt karl@cs.umb.edu}.  |blacker = .8| or more
  947. % thickens dots, to their detriment.  |blacker = .6| produces two-pixel
  948. % stems, which looks pretty good for {\tt cmr}, but it's a little dark
  949. % for {\tt cmti}, and {\tt cmbx} and {\tt cmr} then turn out the same.
  950. % |o_correction = 1| made no difference.  |fillin = 1| made no
  951. % difference.
  952. mode_def lview =                        % Sigma L-View monitor
  953.   mode_param (pixels_per_inch, 118.06);
  954.   mode_param (aspect_ratio, 109.25 / pixels_per_inch);
  955.   mode_param (blacker, 0);
  956.   mode_param (fillin, 0);
  957.   mode_param (o_correction, 0);
  958.   mode_common_setup_;
  959. enddef;
  960.  
  961. % This |mode_def| is untested.
  962. mode_def MacMagnified =                 % Mac screens at magstep 1
  963.   mode_param (pixels_per_inch, 86.4);
  964.   mode_param (blacker, .35);
  965.   mode_param (fillin, .1);
  966.   mode_param (o_correction, .3);
  967.   mode_common_setup_;
  968. enddef;
  969. bettermac := MacMagnified;
  970.  
  971. % From the VMS distribution tape (except {\tt karl@cs.umb.edu} changed
  972. % the |o_correction| to zero).
  973. mode_def MacTrueSize =                  % Mac screens at 72dpi
  974.   mode_param (pixels_per_inch, 72);
  975.   mode_param (blacker, .0);
  976.   mode_param (fillin, 0);
  977.   mode_param (o_correction, 0);
  978.   mode_common_setup_;
  979. enddef;
  980. truemac := MacTrueSize;
  981.  
  982. % From {\tt rokicki@neon.stanford.edu}.
  983. mode_def NEC =                          % NEC
  984.   mode_param (pixels_per_inch, 180);
  985.   mode_param (blacker, 0);
  986.   mode_param (fillin, 0);
  987.   mode_param (o_correction, .2);
  988.   mode_common_setup_;
  989. enddef;
  990.  
  991. % This is the same as |CanonCX|, except for the resolution.
  992. mode_def NEChi =                        % NEC-P6 at 360x360dpi
  993.   mode_param (pixels_per_inch, 360);
  994.   CanonCX_;
  995. enddef;
  996. lqhires := NEChi;
  997.  
  998. % From {\tt lambert@silver.cs.umanitoba.ca}.
  999. mode_def Newgen =                       % Newgen 400dpi
  1000.   mode_param (pixels_per_inch, 400);
  1001.   CanonCX_;
  1002. enddef;
  1003.  
  1004. % From {\tt rokicki@neon.stanford.edu}.
  1005. mode_def NeXTprinter =                  % NeXT 400dpi
  1006.   mode_param (pixels_per_inch, 400);
  1007.   CanonCX_;
  1008. enddef;
  1009. nexthi := NeXTprinter;
  1010.  
  1011. % From {\tt rokicki@neon.stanford.edu}.
  1012. mode_def NeXTscreen =                   % 100dpi NeXT monitor
  1013.   mode_param (pixels_per_inch, 100);
  1014.   mode_param (blacker, 0);
  1015.   mode_param (fillin, 0);
  1016.   mode_param (o_correction, 0);
  1017.   mode_common_setup_;
  1018. enddef;
  1019. nextscreen := NeXTscreen;
  1020.  
  1021. % From {\tt deby@cs.utwente.nl} and {\tt issue@vax.oxford.ac.uk}.
  1022. mode_def OCESixSevenFiveZeroPS =        % OCE 6750-PS
  1023.   mode_param (pixels_per_inch, 508);
  1024.   mode_param (blacker, 0);
  1025.   mode_param (fillin, 0);
  1026.   mode_param (o_correction, .7);
  1027.   mode_common_setup_;
  1028. enddef;
  1029.  
  1030. % From {\tt rokicki@neon.stanford.edu}.
  1031. mode_def okidata =                      % Okidata
  1032.   mode_param (pixels_per_inch, 240);
  1033.   mode_param (aspect_ratio, 288 / pixels_per_inch);
  1034.   mode_param (blacker, 0);
  1035.   mode_param (fillin, 0);
  1036.   mode_param (o_correction, .2);
  1037.   mode_common_setup_;
  1038. enddef;
  1039. okihi := okidata;
  1040.  
  1041. % {\tt AMSmodes.def} defines |pcscreen| to be essentially this, but with
  1042. % a resolution of 118.  I figured |pcscreen| was such a general name
  1043. % that I could change the definition slightly.
  1044. mode_def OneTwoZero =                   % e.g., high-resolution Suns
  1045.   mode_param (pixels_per_inch, 120);
  1046.   mode_param (blacker, .35);
  1047.   mode_param (fillin, .1);
  1048.   mode_param (o_correction, .3);
  1049.   mode_common_setup_;
  1050. enddef;
  1051. pcscreen := OneTwoZero;
  1052.  
  1053. % This is a write-white PostScript laser-setter, made by a Xerox
  1054. % subsidiary.  It has a bizarre nonsquare aspect ratio of 1/2, but {\tt
  1055. % mis@apsedoff.bitnet} says that the printer hides this, and PostScript
  1056. % programs should treat it as having a square aspect ratio.
  1057. % Headquarters in Minnesota; telephone: (612) 456-1400.  At this
  1058. % resolution, the write-white correction may not matter, but it is safer
  1059. % to turn it on anyway.  This |mode_def| not yet tested in production.
  1060. mode_def PrintwareSevenTwoZeroIQ =      % Printware 720IQ
  1061.   mode_param (pixels_per_inch, 1200);
  1062.   mode_param (blacker, 0);
  1063.   mode_param (fillin, 0);
  1064.   mode_param (o_correction, 1);
  1065.   mode_common_setup_;
  1066.   mode_write_white_setup_;
  1067. enddef;
  1068.  
  1069. % From John Gourlay.  See {\sl TUGboat} 8(2), page 133.
  1070. mode_def qms =                          % QMS (Xerox engine)
  1071.   mode_param (pixels_per_inch, 300);
  1072.   mode_param (blacker, .6);
  1073.   mode_param (fillin, -.3);
  1074.   mode_param (o_correction, .6);
  1075.   mode_common_setup_;
  1076.   mode_write_white_setup_;
  1077. enddef;
  1078.  
  1079. % These values from Stan Osborne, {\sl TUGboat} 8(2), page 134.
  1080. mode_def RicohFourZeroEightZero =       % e.g., the TI Omnilaser
  1081.   mode_param (pixels_per_inch, 300);
  1082.   mode_param (blacker, .2);
  1083.   mode_param (fillin, -.2);
  1084.   mode_param (o_correction, .5);
  1085.   mode_common_setup_;
  1086.   mode_write_white_setup_;
  1087. enddef;
  1088. ricoh := RicohFourZeroEightZero;
  1089. RicohFortyEighty := RicohFourZeroEightZero;
  1090.  
  1091. % From John Sauter.
  1092. mode_def RicohLP =                      % e.g., the DEC LN03
  1093.   mode_param (pixels_per_inch, 300);
  1094.   mode_param (blacker, .65);
  1095.   mode_param (fillin, -.2);
  1096.   mode_param (o_correction, .5);
  1097.   mode_common_setup_;
  1098.   mode_write_white_setup_;
  1099. enddef;
  1100. LNOthree := RicohLP;
  1101. LNZeroThree := RicohLP;
  1102.  
  1103. % From {\tt dickson@eeserv.ee.umanitoba.ca}.  {\tt gil.cc.gatech.edu}
  1104. % has different values.  Corrected by {\tt andy@vlsi.cs.caltech.edu}, 28
  1105. % August 1991.
  1106. mode_def SparcPrinterBlack =            % Sun SPARCprinter -- write/black
  1107.   mode_param (pixels_per_inch, 400);
  1108.   mode_param (blacker, .25);
  1109.   mode_param (fillin, .2);
  1110.   mode_param (o_correction, .6);
  1111.   mode_common_setup_;
  1112. enddef;
  1113.  
  1114. % From {\tt dmjones@theory.lcs.mit.edu}.  I guess some SPARCprinters are
  1115. % write-white, and some are write-black.  Hmph.
  1116. mode_def SparcPrinterWhite =            % Sun SPARCprinter -- write/white
  1117.   mode_param (pixels_per_inch, 400);
  1118.   mode_param (blacker, .35);
  1119.   mode_param (fillin, .2);
  1120.   mode_param (o_correction, .6);
  1121.   mode_common_setup_;
  1122.   mode_write_white_setup_;
  1123. enddef;
  1124.  
  1125. % From {\tt ee@dacth51.bitnet}.
  1126. mode_def StarNLOneZero =                % Star NL-10
  1127.   mode_param (pixels_per_inch, 240);
  1128.   mode_param (aspect_ratio, 216 / pixels_per_inch);
  1129.   mode_param (blacker, -.6);
  1130.   mode_param (fillin, .2);
  1131.   mode_param (o_correction, .4);
  1132.   mode_common_setup_;
  1133. enddef;
  1134.  
  1135. % From {\tt grunwald@foobar.colorado.edu}.  Sun monitors have several
  1136. % different resolutions, but this seems the best choice of the lot.
  1137. mode_def sun =                          % Sun and BBN Bitgraph at 85dpi
  1138.   mode_param (pixels_per_inch, 85);
  1139.   mode_param (blacker, .35);
  1140.   mode_param (fillin, .1);
  1141.   mode_param (o_correction, .3);
  1142.   mode_common_setup_;
  1143. enddef;
  1144.  
  1145. mode_def supre =                        % Ultre*setter at 2400dpi
  1146.   mode_param (pixels_per_inch, 2400);
  1147.   mode_param (blacker, 0);
  1148.   mode_param (fillin, 0);
  1149.   mode_param (o_correction, 1);
  1150.   mode_common_setup_;
  1151. enddef;
  1152.  
  1153. mode_def toshiba =                      % Toshiba 13XX, EpsonLQ
  1154.   mode_param (pixels_per_inch, 180);
  1155.   mode_param (blacker, 0);
  1156.   mode_param (fillin, 0);
  1157.   mode_param (o_correction, .2);
  1158.   mode_common_setup_;
  1159. enddef;
  1160. epsonlq := toshiba;
  1161.  
  1162. mode_def ultre =                        % Ultre*setter at 1200dpi
  1163.   mode_param (pixels_per_inch, 1200);
  1164.   mode_param (blacker, 0);
  1165.   mode_param (fillin, 0);
  1166.   mode_param (o_correction, 1);
  1167.   mode_common_setup_;
  1168. enddef;
  1169. Prism := ultre;
  1170.  
  1171. % From {\tt rocky@watson.ibm.com}.  This can also be used for the
  1172. % Autologic's APS6 cut sheet dry process printer.  For that printer,
  1173. % perhaps |blacker=0.8| is better. For the Varityper, though, at
  1174. % |blacker=0.8| the dots of the umlaut start to fill in.  For
  1175. % |blacker<0.6|, the tops and bottoms of lowercase g's and s's in {\tt
  1176. % cmr5} drop out.
  1177. mode_def VarityperFiveZeroSixZeroW =    % Varitype 5060W
  1178.   mode_param (pixels_per_inch, 600);
  1179.   mode_param (blacker, .7);
  1180.   mode_param (fillin, 0);
  1181.   mode_param (o_correction, 1);
  1182.   mode_common_setup_;
  1183. enddef;
  1184. APSSixMed := VarityperFiveZeroSixZeroW;
  1185.  
  1186. % From {\tt mjm@as.arizona.edu}, 26 February 1992.  Untested.
  1187. mode_def VarityperFourThreeZeroZeroLo = % Varityper 4300P at 1200dpi
  1188.   mode_param (pixels_per_inch, 1200);
  1189.   mode_param (blacker, 0);
  1190.   mode_param (fillin, 0);
  1191.   mode_param (o_correction, 1);
  1192.   mode_common_setup_;
  1193. enddef;
  1194. VTfthlo := VarityperFourThreeZeroZeroLo;
  1195.  
  1196. % From {\tt mjm@as.arizona.edu}, 26 February 1992.
  1197. mode_def VarityperFourThreeZeroZeroHi = % Varityper 4300P at 2400dpi
  1198.   mode_param (pixels_per_inch, 2400);
  1199.   mode_param (blacker, 0);
  1200.   mode_param (fillin, 0);
  1201.   mode_param (o_correction, 1);
  1202.   mode_common_setup_;
  1203. enddef;
  1204. VTfthhi := VarityperFourThreeZeroZeroHi;
  1205.  
  1206. % From {\tt erikjan@icce.rug.nl}, 23 August 1991.
  1207. mode_def VarityperFourTwoZeroZero =     % Varityper 4200 B-P
  1208.   mode_param (pixels_per_inch, 1800);
  1209.   mode_param (blacker, 0);
  1210.   mode_param (fillin, 0);
  1211.   mode_param (o_correction, 1);
  1212.   mode_common_setup_;
  1213. enddef;
  1214.  
  1215. % The worst problem is toner irregularity.  This may be the same printer
  1216. % as the IBM 4250.
  1217. mode_def VarityperSixZeroZero =         % Varityper Laser 600
  1218.   mode_param (pixels_per_inch, 600);
  1219.   mode_param (blacker, 0);
  1220.   mode_param (fillin, 0);
  1221.   mode_param (o_correction, 1);
  1222.   mode_common_setup_;
  1223. enddef;
  1224. varityper := VarityperSixZeroZero;
  1225. VTSix := VarityperSixZeroZero;
  1226.  
  1227. % From {\tt Martin.Ward@durham.ac.uk}.
  1228. mode_def VAXstation =                   % VAXstation monitor
  1229.   mode_param (pixels_per_inch, 78);
  1230.   mode_param (blacker, 0);
  1231.   mode_param (fillin, 0);
  1232.   mode_param (o_correction, 0);
  1233.   mode_common_setup_;
  1234. enddef;
  1235. vs := VAXstation;
  1236. gpx := VAXstation;
  1237.  
  1238. % Here is some general information about the Xerox printers, from {\tt
  1239. % siemsen@barnard.usc.edu}:
  1240. % The Docutech system and the 4135 have the same engine.
  1241. % The 4050, 4075 and 4090 have the same engine.
  1242. % The 4650 has a unique engine.
  1243. % The 4850 has a unique engine.
  1244.  
  1245. % From {\tt u12570@uicvm.uic.edu}.  These values are mostly guesses.
  1246. mode_def XeroxEightSevenNineZero =      % Xerox 8790 or 4045
  1247.   mode_param (pixels_per_inch, 300);
  1248.   mode_param (blacker, 0.4);
  1249.   mode_param (fillin, 0);
  1250.   mode_param (o_correction, 0.2);
  1251.   mode_common_setup_;
  1252.   mode_write_white_setup_;
  1253. enddef;
  1254.  
  1255. % From {\tt u12570@uicvm.uic.edu}.  Many variations for different fonts
  1256. % here.
  1257. mode_def XeroxFourZeroFiveZero =        % Xerox 4050
  1258.   mode_param (pixels_per_inch, 300);
  1259.   mode_param (blacker, .7);
  1260.   mode_param (fillin, 0);
  1261.   mode_param (o_correction, .5);
  1262.   mode_common_setup_;
  1263. enddef;
  1264.  
  1265. % From {\tt u12570@uicvm.uic.edu}.  He sent many variations of this,
  1266. % for different fonts.  I don't know a reasonable way to put them in
  1267. % yet, so this is just the basic entry.
  1268. mode_def XeroxNineSevenZeroZero =       % Xerox 9700
  1269.   mode_param (pixels_per_inch, 300);
  1270.   mode_param (blacker, .7);
  1271.   mode_param (fillin, 0);
  1272.   mode_param (o_correction, .5);
  1273.   mode_common_setup_;
  1274. enddef;
  1275.  
  1276. % From {\tt lee@sq.com}.  These values may be improvable.
  1277. mode_def XeroxThreeSevenZeroZero =      % Xerox 3700
  1278.   mode_param (pixels_per_inch, 300);
  1279.   mode_param (blacker, .85);
  1280.   mode_param (fillin, -.1);
  1281.   mode_param (o_correction, .5);
  1282.   mode_common_setup_;
  1283.   mode_write_white_setup_;
  1284. enddef;
  1285.  
  1286. mode_def help =                         % What modes are defined?
  1287.  for i = 1 upto number_of_modes:
  1288.    message mode_name[i];
  1289.  endfor;
  1290.  % Doesn't make sense to be able to do this twice, so forget this
  1291.  % definition after it's been used.
  1292.  save ?;
  1293. enddef;
  1294.  
  1295. let ? = help_;
  1296.  
  1297. % These variables determine the size of \MF's (window system) window for
  1298. % online output.  These numbers should match whatever the window system
  1299. % is told, or bizarre positioning of the output in the window results.
  1300. % Properly implemented online device drivers will use these values as
  1301. % the default size.
  1302. screen_cols := 400;
  1303. screen_rows := 600;
  1304.  
  1305. % The mode most commonly used to make fonts here.
  1306. localfont := CanonCX;
  1307.  
  1308. %%\bye
  1309. %%%% Local variables:
  1310. %%%% page-delimiter: "^% here are"
  1311. %%%% End:
  1312.