mf/feta.mp

   1 % feta.mp
   2
   3 batchmode;
   4
   5 mode_def ljfour =
   6  proofing:=0;                   % no, we're not making proofs
   7  fontmaking:=1;                 % yes, we are making a font
   8  tracingtitles:=0;              % no, don't show titles at all
   9  pixels_per_inch:=600;          % that's the meaning of lowres
  10  blacker:=.25;                  % make pens a bit blacker
  11  fillin:=.0;                    % compensate for diagonal fillin
  12  o_correction:=1;               % but don't overshoot as much
  13  enddef;
  14
  15 if false:
  16 def mode_param (suffix v) (expr e) =
  17   if unknown mode_guard_.v:
  18     v := e;
  19     mode_guard_.v := 1;
  20   fi
  21 enddef;
  22
  23 % This macro is invoked by all the modes, after |pixels_per_inch|
  24 % has been defined, thus saving some space and time.
  25 def mode_common_setup_ =
  26   mode_param (proofing, 0);
  27   mode_param (fontmaking, 1);
  28   mode_param (tracingtitles, if pixels_per_inch > 700: 1 else: 0 fi);
  29 enddef;
  30
  31 % Works for a 600$\,$dpi Accel-a-Writer {\tt mackay@cs.washington.edu},
  32 % 16 August 95.
  33 mode_def ljfour =                   %\[ HP LaserJet 4 (600dpi)
  34   mode_param (pixels_per_inch, 600);
  35   mode_param (blacker, .25);
  36   mode_param (fillin, 0);
  37   mode_param (o_correction, 1);
  38   mode_common_setup_;
  39 enddef;
  40
  41 laserjetfour := ljfour;
  42 fi
  43
  44 mode=ljfour;
  45 mag=100.0;
  46
  47 input feta20.mf
  48