regenerate tfm as part of knuth-lib, where the mf sources are; also move a variety of other knuth files into knuth-lib

git-svn-id: svn://tug.org/texlive/trunk@35820 c570f23f-e606-0410-a88d-b1316a301751

9 files changed, 0 insertions, 362 deletions

diff --git a/Master/texmf-dist/metafont/base/expr.mf b/Master/texmf-dist/metafont/base/expr.mf
deleted file mode 100644
index fe05a01322f..00000000000
--- a/Master/texmf-dist/metafont/base/expr.mf
+++ /dev/null
@@ -1,5 +0,0 @@
-string s[]; s1="abra";
-path p[]; p1=(0,0)..(3,3); p2=(0,0)..(3,3)..cycle;
-tracingonline:=1; scrollmode;
-forever: message "gimme an expr: "; s0:=readstring;
-show scantokens s0; endfor
diff --git a/Master/texmf-dist/metafont/base/io.mf b/Master/texmf-dist/metafont/base/io.mf
deleted file mode 100644
index 58a8be68db2..00000000000
--- a/Master/texmf-dist/metafont/base/io.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-mode_setup;
- em#:=10pt#; cap#:=7pt#;
- thin#:=1/3pt#; thick#:=5/6pt#;
- o#:=1/5pt#;
-define_pixels(em,cap);
-define_blacker_pixels(thin,thick);
-define_corrected_pixels(o);
- curve_sidebar=round 1/18em;
-beginchar("O",0.8em#,cap#,0); "The letter O";
- penpos1(thick,10); penpos2(.1[thin,thick],90-10);
- penpos3(thick,180+10); penpos4(thin,270-10);
- x1l=w-x3l=curve_sidebar; x2=x4=.5w;
- y1=.49h; y2l=-o; y3=.51h; y4l=h+o;
- penstroke z1e{down}..z2e{right}
-            ..z3e{up}..z4e{left}..cycle;
- penlabels(1,2,3,4); endchar;
-def test_I(expr code,trial_stem,trial_width) =
- stem#:=trial_stem*pt#; define_blacker_pixels(stem);
- beginchar(code,trial_width*em#,cap#,0); "The letter I";
-  penpos1(stem,15); penpos2(.9stem,12); penpos3(stem,10);
-  x1=x2=x3=.5w; y1=h; y2=.55h; y3=0; x2l:=1/6[x2l,x2];
-  penstroke z1e..z2e{down}..z3e;
-  penlabels(1,2,3); endchar; enddef;
diff --git a/Master/texmf-dist/metafont/base/null.mf b/Master/texmf-dist/metafont/base/null.mf
deleted file mode 100644
index 9828fbb16f7..00000000000
--- a/Master/texmf-dist/metafont/base/null.mf
+++ /dev/null
@@ -1,3 +0,0 @@
-% This is an empty METAFONT source file. Why do you want it? Because if
-% mf says `Please type another input file name:' and if you don't have one
-% in mind, you can just say `null' and METAFONT will get out of its loop.
diff --git a/Master/texmf-dist/metafont/misc/3test.mf b/Master/texmf-dist/metafont/misc/3test.mf
deleted file mode 100644
index 8a62fb1fdd3..00000000000
--- a/Master/texmf-dist/metafont/misc/3test.mf
+++ /dev/null
@@ -1,53 +0,0 @@
-% This tries all characters on TEST.MF using three different sets of parameters
-% (appropriate for italic styles)
-if unknown cmbase: input cmbase fi % omit if CMMF can be assumed
-mag=.5;
-mode_setup; let mode_setup=\;
-
-boolean running;
-def abort = hide(scrollmode; running:=false) enddef;
-def pause=stop "done with char "&decimal charcode&". " enddef;
-let iff=always_iff;
-def ligtable text t=enddef;
-def charlist text t=enddef;
-def extensible text t=enddef;
-
-string currenttitle;
-let semi=;; let echar=endchar; let endchar=enddef;
-def cmchar expr s = currenttitle:=s;
- let;=testchar semi quote def chartext=enddef;
-def testchar = semi let;=semi;
- % now `chartext echar' will generate the character to be tested
- running:=true; errorstopmode;
- for k=1 upto 6:
-  if running: if known params[k]: scantokens params[k]; font_setup;
-    currentwindow:=k;
-    currenttitle & ", " & fontname[k];
-    chartext echar; fi fi endfor
- pause; enddef;
-
-string params[],fontname[];
-params[1]="ital_params"; fontname[1]="cmti10";
-params[2]="bold_ital_params"; fontname[2]="cmbxti10";
-params[3]="tt_params"; fontname[3]="cmmi10";
-
-w_rows=floor 1/2 screen_rows; w_cols=floor 1/3 screen_cols;
-def open(expr k,i,j)=
- openwindow k from ((i-1)*w_rows,(j-1)*w_cols) to (i*w_rows,j*w_cols)
- at (-10,140) enddef;
-def openit =
- open(1,1,1); open(2,1,2); open(3,1,3);
- open(4,2,1); open(5,2,2); open(6,2,3); enddef;
-
-begingroup delimiters begintext generate;
- def makedef(expr s)(text t) =
-  expandafter def scantokens s = t enddef; flushtext enddef;
- def flushtext suffix t = enddef;
- for k=1 upto 6: if known params[k]:
- makedef(params[k])
-  expandafter expandafter expandafter begintext
-  scantokens ("input "&fontname[k]); fi endfor
-endgroup;
-
-input test
-end
diff --git a/Master/texmf-dist/metafont/misc/6test.mf b/Master/texmf-dist/metafont/misc/6test.mf
deleted file mode 100644
index 9c66d556fd7..00000000000
--- a/Master/texmf-dist/metafont/misc/6test.mf
+++ /dev/null
@@ -1,55 +0,0 @@
-% This tries all characters on TEST.MF using six different sets of parameters
-if unknown cmbase: input cmbase fi % omit if CMMF can be assumed
-mag=.5;
-mode_setup; let mode_setup=\;
-
-boolean running;
-def abort = hide(scrollmode; running:=false) enddef;
-def pause=stop "done with char "&decimal charcode&". " enddef;
-let iff=always_iff;
-def ligtable text t=enddef;
-def charlist text t=enddef;
-def extensible text t=enddef;
-
-string currenttitle;
-let semi=;; let echar=endchar; let endchar=enddef;
-def cmchar expr s = currenttitle:=s;
- let;=testchar semi quote def chartext=enddef;
-def testchar = semi let;=semi;
- % now `chartext echar' will generate the character to be tested
- running:=true; errorstopmode;
- for k=1 upto 6:
-  if running: if known params[k]: scantokens params[k]; font_setup;
-    currentwindow:=k;
-    currenttitle & ", " & fontname[k];
-    chartext echar; fi fi endfor
- pause; enddef;
-
-string params[],fontname[];
-params[1]="roman_params"; fontname[1]="cmr10";
-params[2]="sans_params"; fontname[2]="cmssbx10";
-params[3]="tt_params"; fontname[3]="cmtt10";
-params[4]="bold_params"; fontname[4]="cmb10";
-params[5]="quote_params"; fontname[5]="cmssqi8";
-params[6]="ital_params"; fontname[6]="cmti10";
-
-w_rows=floor 1/2 screen_rows; w_cols=floor 1/3 screen_cols;
-def open(expr k,i,j)=
- openwindow k from ((i-1)*w_rows,(j-1)*w_cols) to (i*w_rows,j*w_cols)
- at (-10,140) enddef;
-def openit =
- open(1,1,1); open(2,1,2); open(3,1,3);
- open(4,2,1); open(5,2,2); open(6,2,3); enddef;
-
-begingroup delimiters begintext generate;
- def makedef(expr s)(text t) =
-  expandafter def scantokens s = t enddef; flushtext enddef;
- def flushtext suffix t = enddef;
- for k=1 upto 6: if known params[k]:
- makedef(params[k])
-  expandafter expandafter expandafter begintext
-  scantokens ("input "&fontname[k]); fi endfor
-endgroup;
-
-input test;
-bye
diff --git a/Master/texmf-dist/metafont/misc/rtest.mf b/Master/texmf-dist/metafont/misc/rtest.mf
deleted file mode 100644
index f5e449aa7db..00000000000
--- a/Master/texmf-dist/metafont/misc/rtest.mf
+++ /dev/null
@@ -1,13 +0,0 @@
-% try all characters on TEST.MF using the parameters of cmr10
-if unknown cmbase: input cmbase fi % omit if CMMF can be assumed
-mode_setup;
-
-def generate suffix t= enddef;
-input cmr10; font_setup;
-
-let echar=endchar;
-def endchar= echar; stop "done with char "&decimal charcode&". " enddef;
-let iff=always_iff;
-
-input test;
-end
diff --git a/Master/texmf-dist/metafont/misc/test.mf b/Master/texmf-dist/metafont/misc/test.mf
deleted file mode 100644
index c2d81f03023..00000000000
--- a/Master/texmf-dist/metafont/misc/test.mf
+++ /dev/null
@@ -1,29 +0,0 @@
-
-cmchar "Lowercase thorn";
-beginchar(oct"015",10u#+serif_fit#,asc_height#,desc_depth#);
-italcorr .5x_height#*slant+min(.5curve#-.85u#,-.1u#);
-adjust_fit(serif_fit#,0);
-pickup tiny.nib; pos1(stem',0); pos2(stem,0);
-pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2;
-lft x1l=hround(2.5u-.5stem'); top y1=h;
-numeric edge; edge=rt x2r;
-pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180);
-pos4(vair',90); pos5(curve,0); pos6(vair,-90);
-rt x3l=1/3[rt x2,edge]; y3=1/8[bar_height,x_height];
-x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo;
-rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height;
-x6=x3; bot y6r=-oo;
-(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x5r,x4]);
-filldraw stroke z3e{up}...{right}z4e&super_arc.e(4,5)
- &z5e{down}...{5(x6-x5),y6-y5}z6e;  % bowl
-y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l));
-pickup tiny.nib; bot y2=-d;
-filldraw stroke z1e--z0'e--z0e--z2e;  % stem
-pickup crisp.nib; pos8(hair,0); pos7'(stem,0);
-z7'=z2; x8l=x7'l; bot y8=0;
-filldraw stroke z7'e--z8e;  % point
-if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop);  % upper serif
- dish_serif(2,0,b,1/3,jut,c,1/3,0); fi  % lower serif
-penlabels(0,1,2,3,4,5,6,8); endchar;
-
-
diff --git a/Master/texmf-dist/metafont/misc/waits.mf b/Master/texmf-dist/metafont/misc/waits.mf
deleted file mode 100644
index 4d23e0a00d5..00000000000
--- a/Master/texmf-dist/metafont/misc/waits.mf
+++ /dev/null
@@ -1,168 +0,0 @@
-% This file can be loaded after PLAIN.MF.
-% It introduces conventions that are commonly used at WAITS.
-base_version:=base_version&"/WAITS";
-
-% The WAITS implementation allows an extended character set;
-% characters :=, <=, <>, and >= are put into the class with <, =, >, :, and |;
-% character ^^L (form feed) is in a class by itself, and is like an "outer" \.
-% Files containing these special characters should not be expected to work
-% elsewhere unless the following replacements are made:
-  let <= = <=;
-  let <> = <>;
-  let >= = >=;
-  let := = :=;
-
-% Say "boise_proof" on the command line, to get proofmode on boise
-def boise_proof = lcode_:=" /";
- extra_setup:=extra_setup&"grayfont grbois;" enddef;
-
-screen_rows:=400; screen_cols:=480;
-
-% Here are conventions for local output devices:
-
-mode_def dover =  % dover mode: for the Xerox Dover
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=384;
- blacker:=1.2;      % make pens somewhat blacker
- fillin:=0;      % no compensation for fillin
- o_correction:=.6;    % but don't overshoot as much
- enddef;
-
-mode_def imagen =  % imagen mode: for the Imagen 8/300 (Canon engine)
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=300;
- blacker:=0;      % Canon engine is black enough
- fillin:=.2;      % and it tends to fill in diagonals
- o_correction:=.6;    %
- enddef;
-
-mode_def qms =    % qms mode: for the QMS (Xerox engine)
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=300;
- blacker:=.75;      % (this value is conjectural)
- fillin:=0;      % (ditto)
- o_correction:=.5;    % (ditto)
- enddef;
-
-mode_def aps =    % aps mode: for the Autologic APS-Micro5
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=1;      % yes, show titles online
- pixels_per_inch:=722.909;    % that's roughly 10 per pt
- blacker:=.2;      % make pens a teeny bit blacker
- fillin:=.2;      % but compensate for diagonal fillin
- o_correction:=1;      % and keep the full overshoot
- enddef;
-
-mode_def crs =    % crs mode: for the Alphatype CRS
-  proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=1;      % yes, show titles online
- begingroup interim warningcheck:=0;  % (we need to go past 4096)
-  pixels_per_inch:=4000+4000/3 endgroup;  % HIGH res
- blacker:=4;      % make pens a lot blacker
- fillin:=0;      % but don't compensate for fillin
- o_correction:=1;      % and keep the full overshoot
- enddef;
-
-mode_def boise =  % boise mode: for the HP 2680A
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=180;
- blacker:=.55;      % make pens a bit blacker
- fillin:=.1;      % and compensate for diagonal fillin
- o_correction:=.3;    % but don't overshoot much
- enddef;
-
-mode_def DD =  % DD mode: for the DataDisc (usually with mag=magstep 2=1.44)
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;      % no, don't show titles in the log
- pixels_per_inch:=70;    % really lowres
- blacker:=0;      % don't make the pens any blacker
- fillin:=0;        % and don't compensate for fillin
- o_correction:=.2;      % but suppress most overshoots
- enddef;
-
-mode_def canon =  % canon mode: for the old Imagen (Canon LBP10)
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=240;
- blacker:=.2;      % make pens a wee bit blacker
- fillin:=.2;      % and compensate for fillin
- o_correction:=.4;    % but don't overshoot as much
- enddef;
-
-mode_def newDD =  % newDD mode: for DataDisc with special aspect ratio
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=70;    % really lowres
- blacker:=0;      % don't make the pens any blacker
- fillin:=0;      % and don't compensate for fillin
- o_correction:=.2;    % but suppress most overshoots
- aspect_ratio:=4/3;    % this is the new feature...
- enddef;
-
-mode_def cg =    % cg mode: for the Compugraphic 8600
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=1;      % yes, show titles online
- pixels_per_inch:=1301.5;    % a bit less than 20 per pt
- blacker:=.2;      % make pens a teeny bit blacker
- fillin:=.2;      % but compensate for diagonal fillin
- o_correction:=1;      % and keep the full overshoot
- aspect_ratio:=1569/1301.5;    % strange, no?
- enddef;
-
-mode_def epson =  % Epson
- proofing:=0;      % no, we're not making proofs
- fontmaking:=1;      % yes, we are making a font
- tracingtitles:=0;    % no, don't show titles in the log
- pixels_per_inch:=240;    % lowres
- blacker:=0;      % don't make the pens any blacker
- fillin:=0;      % and don't compensate for fillin
- o_correction:=.2;    % but suppress most overshoots
- aspect_ratio:=9/10;    % 216 dots/inch vertical
- enddef;
-
-
-localfont:=imagen;
-
-% Finally, here are macros for Xerox-world font info:
-
-def font_family expr s =  % string s names the font family, e.g., "CMR"
- headerbyte 49: BCPL_string(s,20);
- special "identifier "&s enddef;
-def coding_scheme expr s = % string s names the scheme, e.g. "TEX TEXT"
- headerbyte 9: BCPL_string(s,40);
- special "codingscheme "&s enddef;
-def font_face_byte expr x = % integer x gives the family member number,
- headerbyte 72: x;          % which should be between 0 and 255
- special "fontfacebyte"; numspecial x enddef;
-
-def BCPL_string(expr s,n)= % string s becomes an n-byte BCPL string
- for l:=if length(s)>=n: n-1 else: length(s) fi: l
-  for k:=1 upto l: , substring (k-1,k) of s endfor
-  for k:=l+2 upto n: , 0 endfor endfor enddef;
-
-Xerox_world:=1;    % users can say `if known Xerox_world:...fi'
-
-inner end;
-def bye=
- if fontmaking>0: font_family font_identifier_;
-  coding_scheme font_coding_scheme_;
-  font_face_byte max(0,254-round 2designsize); fi
- tracingstats:=1;  % at least for now we want this
- end
- enddef;
-
-outer bye,end;
diff --git a/Master/texmf-dist/metafont/misc/ztest.mf b/Master/texmf-dist/metafont/misc/ztest.mf
deleted file mode 100644
index 35d1489e275..00000000000
--- a/Master/texmf-dist/metafont/misc/ztest.mf
+++ /dev/null
@@ -1,13 +0,0 @@
-% try all characters on TEST.MF using the parameters of an unknown font
-if unknown cmbase: input cmbase fi % omit if CMMF can be assumed
-mode_setup;
-
-def generate suffix t= enddef;
-input z; font_setup;
-
-let echar=endchar;
-def endchar= echar; stop "done with char "&decimal charcode&". " enddef;
-let iff=always_iff;
-
-input test;
-end