mf/feta.mp

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