git.oblomov.eu Git - ohcount/blob - test/expected_dir/metafont.mf

   1 metafont        comment % The (not really) first 20 or so lines from the plain METAFONT base
   2 metafont        blank
   3 metafont        comment % Unlimited copying and redistribution of this file are permitted as long
   4 metafont        comment % as this file is not modified. Modifications are permitted, but only if
   5 metafont        comment % the resulting file is not named plain.mf.
   6 metafont        blank
   7 metafont        code    string base_name, base_version; base_name="plain"; base_version="2.71";
   8 metafont        blank
   9 metafont        code    message "Preloading the plain base, version "&base_version&": preliminaries,";
  10 metafont        blank
  11 metafont        code    delimiters ();  % this makes parentheses behave like parentheses
  12 metafont        code    def upto = step 1 until enddef; % syntactic sugar
  13 metafont        code    def downto = step -1 until enddef;
  14 metafont        code    def exitunless expr c = exitif not c enddef;
  15 metafont        code    let relax = \;  % ignore the word `relax', as in TeX
  16 metafont        code    let \\ = \; % double relaxation is like single
  17 metafont        code    def ]] = ] ] enddef; % right brackets should be loners
  18 metafont        code    def -- = {curl 1}..{curl 1} enddef;
  19 metafont        code    def --- = .. tension infinity .. enddef;
  20 metafont        code    def ... = .. tension atleast 1 .. enddef;
  21 metafont        blank
  22 metafont        code    def gobble primary g = enddef; def killtext text t = enddef;