rm incomplete mftoeps, full version at mirror.ctan.org/graphics/MF-PS (luecking et al., 13 Mar 2012 15:17:40)

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

21 files changed, 0 insertions, 805 deletions

diff --git a/Master/texmf-dist/source/metafont/mftoeps/0mftoeps.doc b/Master/texmf-dist/source/metafont/mftoeps/0mftoeps.doc
deleted file mode 100644
index 4edfd06cd3a..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/0mftoeps.doc
+++ /dev/null
@@ -1,218 +0,0 @@
-This file belongs to the MFTOEPS package.
-
------------------------------------------------------------------------------
-
-OVERVIEW
-
-The package MFTOEPS belongs to the public domain. You are entitled to do with
-the files of which it consists whatever you wish. If you alter a file,
-however, please remove the line containing the comment
-
-              `This file belongs to the MFTOEPS package.'
-
-in order to avoid a mess.
-
-The kernel of this little package is the METAFONT program MFTOEPS.MF written
-by Bogus\l{}aw Jackowski, Piotr Pianowski and Marek Ry\'cko. The aim of the
-program is to produce EPS (encapsulated PostScript) files readable by
-CorelDRAW!(R), Adobe Illustrator(TM) and Fontographer(R).
-
-The user of the package is supposed to be familiar a bit with METAFONT and
-PostScript. Donald E. Knuth's ``The METAFONTbook'' and Adobe's ``PostScript
-Language Reference Manual'' (both by Addison-Wesley Publishing Company, Inc.)
-should be consulted in the case of doubts.
-
-There is a bunch of simple examples in the subdirectory M2ESAMP. The
-directory ../PROGS contains DOS batch files and other programs which,
-possibly after some adjustments, can be used to generate EPS files.
-
-Roughly, the machinery works as follows: the resulting PostScript code
-is written by METAFONT to a LOG file; the LOG file is then processed
-either by AWK or by TeX (see the PROGS subdirectory) in order to extract
-the PostScript code. The idea seems straightforward; however, even
-a partial conciliation of the worlds of CorelDRAW! and Adobe Illustrator
-was not so much straightforward.
-
------------------------------------------------------------------------------
-
-In addition to the main MFTOEPS package, there are two ``bonus'' packages in
-directories ../EPSTOMF and ../ROEX. EPSTOMF converts ``canonical'' EPS files,
-i.e., files conforming the structure of the files generated by the MFTOEPS
-package, into the METAFONT lingo; ROEX is a set of METAFONT macros
-accomplishing the task of removing overlaps and expanding strokes (for
-details see there).
-
------------------------------------------------------------------------------
-
-INTERFACE SYNOPSIS
-
-Conventions: In the following we shall use words `number,' `pair,' `string,'
-and `path' as an abbreviation for `numeric expression,' `pair expression,'
-`string expression,' and `path expression,' respectively. The signs `less'
-and `greater,' used for marking parameters of macros, are
-``meta-characters,'' i.e., they do not belong to the METAFONT code.
-
-There are fifteen interface macros defined in the MFTOEPS.MF file:
-          eps_mode_setup
-          write_preamble
-          write_postamble
-          set_BB
-          find_BB
-          reset_BB
-          fill_C
-          draw_C
-          clip_C
-          fix_line_width
-          fix_line_join
-          fix_line_cap
-          fix_line_miter_limit
-          fix_fill_cmyk
-          fix_draw_cmyk
-
-COMMAND   eps_mode_setup
-USAGE     eps_mode_setup <an optional number (0 or 1)>;
-REMARKS   This command should be used instead of the usual |mode_setup|
-          command. The forms |EPS_mode_setup| and |EPS_mode_setup 1|
-          are equivalent. One of them (preferably the former one) should
-          be used for normal processing. Invoking |EPS_mode_setup 0|
-          is meant primariliy for testing purposes and is supposed
-          to be used by experienced programmers who know what they are doing.
-          There are two predefined constants in MFTOEPS.MF to be used in this
-          context, namely, |no_export_level=0| and |compatibility_level=1|.
-          It is advisable to use the names of the constants rather than
-          bare numbers.
-
-COMMAND   write_preamble
-USAGE     write_preamble <string>;
-REMARKS   This command initialises the process of writing of the PostScript
-          code. The string expression is the name (without extension)
-          of the resulting EPS file; the extension is always |.EPS|.
-          METAFONT is switched to the |batchmode| in order to avoid
-          slowing down the process by writing mess(ages) to the terminal.
-          The inspection of the log file is thus highly recommended.
-
-COMMAND   write_postamble
-USAGE     write_postamble;
-REMARKS   This command ends writing of the PostScript code, switches METAFONT
-          back to the |errorstopmode|, and performs neccessary ``last minute''
-          actions (see below).
-
-COMMANDS  set_BB find_BB reset_BB
-USAGE     set_BB <four numbers or two pairs separated by commas>;
-          find_BB <a list of paths separated by commas>;
-          reset_BB;
-REMARKS   Commands |set_BB| or |find_BB| should be invoked prior to
-          invoking |write_preamble|. |set_BB| sets the coordinates of
-          the corners of the bounding box of a graphic object; it is
-          useful when the bounding box of a graphic object is
-          known in advance or if it is required to force an artificial
-          bounding box. |find_BB| computes the respective bounding box
-          for a list of paths; if several |find_BB| statements are
-          used, the common bounding box is calculated for all paths
-          that appeared in the arguments. The result is stored in the
-          variables |xl_crd|, |yl_crd|, |xh_crd|, and |yh_crd|.  There
-          are two functions, |llxy| and |urxy|, returning pairs
-          |(xl_crd,yl_crd)| and |(xh_crd,yh_crd)|, respectively. The
-          last command, |reset_BB|, makes |xl_crd|, |yl_crd|,
-          |xh_crd|, and |yh_crd| undefined (the initial situation);
-          |reset_BB| is performed by the |write_postamble| macro,
-          which is convenient in the case of generating several
-          several EPS files in a single METAFONT run.
-
-COMMANDS  fill_C draw_C
-USAGE     fill_C <a list of paths separated by commas>;
-          draw_C <a list of paths separated by commas>;
-REMARKS   These commands are to be used instead of the usual
-          METAFONT |fill| and |draw| ones. They cause that a list of paths
-          followed by the PostScript operation |eofill| (|fill_C|) or |stroke|
-          (|draw_C|) is translated to a PostScript code. The list of paths
-          constitutes a single curve in the sense of PostScript.
-
-COMMAND   clip_C
-USAGE     clip_C <a list of paths separated by commas, possibly empty>;
-REMARKS   The macro |clip_C| with a non-empty parameter works similarly to
-          the |fill_C| command, except that the |eoclip| operator is issued
-          instead of |eofill|. This causes an appropriate change of
-          the current clipping area. According to PostScript's principles,
-          the resulting area is a set product of the current clipping
-          area and the area specified in the argument of the |eoclip|
-          command. The empty parameter marks the end of the scope
-          of the most recent |clip_C| command with a non-empty parameter.
-          In other words, nested |clip_C| commands form a ``stack'' structure.
-          If needed, the appropriate number of parameterless |clip_C|
-          commands is issued by the |write_postamble| macro, thus
-          the user needs not to care about it.
-          WARNING: files produced with the use of |clip_C| are
-          interpreted properly by Adobe Illustrator (provided paths
-          directions are defined properly) but not by CorelDRAW! (ver. 3.0).
-
-COMMANDS  fix_line_width fix_line_join fix_line_cap fix_miter_limit fix_dash
-USAGE     fix_line_width <a non-negative number (dimension)>;
-          fix_line_join <a number (0, 1 or 2)>;
-          fix_line_cap <a number (0, 1 or 2)>;
-          fix_miter_limit <a number greater or equal 1>;
-          fix_dash (<a list of numbers (dimensions), possibly empty>)
-                   <number (dimension)>;
-REMARKS   These command are to be used in connection with the |draw_C|
-          command. |fix_line_width| fixes the thickness of the outline.
-          The other three commands correspond to PostScript operations
-          |setlinejoin|, |setlinecap|, |setmiterlimit|, and |setdash| (see
-          ``PostScript Language Reference Journal'' for details).
-
-          All commands should be used after |write_preamble|, as
-          |write_preamble| sets the default thickness (0.4pt), default
-          line join (0), default line cap (0), default miter limit (10),
-          and a solid line as a default for stroking (|fix_dash () 0|).
-
-COMMANDS  fix_fill_cmyk fix_draw_cmyk
-USAGE     fix_fill_cmyk <four numbers separated by commas>;
-          fix_draw_cmyk <four numbers separated by commas>;
-REMARKS   These commands define the colours of the interiors of graphic
-          objects (|fix_fill_cmyk|) and colours of outlines (|fix_draw_cmyk|)
-          using cyan-magenta-yellow-black model (basic model). They should
-          be used after |write_preamble| (because |write_preamble| defines
-          the black colour as a default for both macros) and prior to invoking
-          the corresponding |fill_C| and |draw_C| commands, respectively.
-          There are also (just in case) macros |fix_fill_rgb| and
-          |fix_draw_rgb| using red-green-blue model; the argument to both
-          macros is a triple of numbers. (The user can control the process
-          of conversion from RGB to CMYK by the redefinition of macros
-          |under_color_removal| and |black_generation|.) The numbers
-          forming the arguments of the macros are supposed to belong to
-          the interval [0..1].
-
-ADDITIONAL FUNCTIONS pos_turn neg_turn
-USAGE     pos_turn <primary path expression>
-          neg_turn <primary path expression>
-REMARKS   Each function returns the path passed as the argument,
-          except that the orientation of the path is changed, if
-          necessary: |pos_turn| returns paths oriented anti-clockwise,
-          |neg_turn|---oriented clockwise. This may be
-          usefull for creation pictures which are to be processed
-          further by Adobe Illustrator, because this program is
-          sensitive to the orientation of paths.
-
-CONTROL VARIABLES yeseps yesEPS YESEPS
-REMARKS   No EPS file will be generated unless one variable among
-          |yeseps| or |yesEPS| or |YESEPS| is assigned a definite value.
-          It is advisable to set this variable in a command line
-          (see M2E.BAT and M2E-ALT.BAT in the PROGS directory).
-          In fact, using |yeseps| is reccomended. Aliases |yesEPS|
-          and |YESEPS| were introduced for ``historical'' reasons.
-
-CONTROL VARIABLE testing
-REMARKS   If the variable |testing| is assigned a definite value, the whole
-          PostScript code is flushed to the terminal, thus slowing
-          down significantly the process of generation of an EPS file
-          (cf. the description of the |write_preamble| command).
-
------------------------------------------------------------------------------
-
-ENCOURAGEMENT
-
-The inspection of the source code of the MFTOEPS.MF program may reveal
-a few more useful macros.
-
------------------------------------------------------------------------------
-
-END OF THE 0MFTOEPS.DOC FILE
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/0m2esamp.doc b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/0m2esamp.doc
deleted file mode 100644
index fd27e761c4a..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/0m2esamp.doc
+++ /dev/null
@@ -1,35 +0,0 @@
-This file belongs to the MFTOEPS package.
-
-The directory M2ESAMP contains the following files:
- 0M2ESAMP.DOC  this file
- CLIPCIR.MF    a bogus application of clipping: a variation of CLIPSQR.MF
- CLIPSQR.MF    a bogus application of clipping: Sierpi\'nski's carpet
- HOLECLIP.MF   a nearly trivial example
- HOLECLIP.TEX  an example of using HOLECLIP.EPS
- HOLEFILL.MF   a nearly trivial example
- POLYGONS.MF   input for SAMPLE*.MF files
- RECTAN.MF     a truly trivial example
- RECTAN_.BAT   DOS batch file for RECTAN.MF (generates RECTAN.EPS)
- SAMPLE1A.MF   less trivial example
- SAMPLE1B.MF   modification of SAMPLE1A.MF
- SAMPLE2A.MF   regular polygon with circumscribed ``flex'' polygon
- SAMPLE2B.MF   ditto---a variation
- SAMPLE2C.MF   ditto---a variation
- SAMPLE2D.MF   ditto---a variation
- SAMPLE2E.MF   ditto---a variation
- SAMPLE3.MF    four pictures (``flowers'')
- SAMPLE4.MF    four pictures (``galaxies'')
- SAMPLE5.MF    four pictures (``shells'')
- STEREO.MF     two pictures that can be used for
-               constructing a simple stereogram
-
-You are entitled to do with these files whatever you wish. If you alter
-a file, however, please remove the comment line:
-
-     `This file belongs to the MFTOEPS package.'
-
-in order to avoid mess.
-
------------------------------------------------------------------------------
-
-END OF THE 0M2ESAMP.DOC FILE
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipcir.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipcir.mf
deleted file mode 100644
index 50cf091764a..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipcir.mf
+++ /dev/null
@@ -1,39 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% CLIPCIR.MF
-% ---
-input mftoeps; eps_mode_setup;
-% ---
-def ^ = ** enddef; % syntactic sugar
-primarydef i // n = % ditto
- (if n=0: 0 else: i/n fi)
-% why not to divide by 0?
-enddef;
-def shifted_accordingly(expr i,j,n,D)=
- shifted ((i//n)[1/2D,w-1/2D],(j//n)[1/2D,w-1/2D])
-enddef;
-% ---
-w#=16mm#; h#=16mm#; define_pixels(w,h);
-for N:=1,2,3,4: % 5, 6, ..., infinity
- set_BB 0,0,w,h;
- write_preamble jobname & decimal(N);
- D:=2w;
- for n:=0 for q:=1 upto N-1: , 2^q-1 endfor:
-% i.e., |for n:=0, 2^1-1, 2^2-1, ..., 2^(N-1)-1:|
-  path p[], q[]; D:=1/2D; k:=-1;
-  for i:=0 upto n: for j:=0 upto n:
-   k:=k+1;
-   p[k]=fullcircle scaled D
-    shifted_accordingly(i,j,n,D);
-   q[k]=reverse fullcircle scaled 1/3D
-    shifted_accordingly(i,j,n,D);
-  endfor; endfor;
-  clip_C p0, q0 for i:=1 upto k: , p[i], q[i] endfor;
- endfor;
- fill_C unitsquare scaled w;
- write_postamble;
-endfor;
-% ---
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipsqu.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipsqu.mf
deleted file mode 100644
index 266ec217ae8..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/clipsqu.mf
+++ /dev/null
@@ -1,39 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% CLIPSQU.MF (Sierpi\'nski's carpet)
-% ---
-input mftoeps; eps_mode_setup;
-% ---
-def ^ = ** enddef; % syntactic sugar
-primarydef i // n = % ditto
- (if n=0: 0 else: i/n fi)
-% why not to divide by 0?
-enddef;
-def shifted_accordingly(expr i,j,n,D)=
- shifted ((i//n)[0,w-D],(j//n)[0,w-D])
-enddef;
-% ---
-w#=16mm#; h#=16mm#; define_pixels(w,h);
-for N:=1,2,3: % 4, 5, 6, ..., infinity
- set_BB 0,0,w,h;
- write_preamble jobname & decimal(N);
- D:=3w;
- for n:=0 for q:=1 upto N-1: , 3^q-1 endfor:
-% i.e., |for n:=0, 3^1-1, 3^2-1, ..., 3^(N-1)-1:|
-  path p[], q[]; D:=1/3D; k:=-1;
-  for i:=0 upto n: for j:=0 upto n:
-   k:=k+1;
-   p[k]=unitsquare scaled D
-    shifted_accordingly(i,j,n,D);
-   q[k]=reverse unitsquare scaled 1/3D
-    shifted (1/3D,1/3D) shifted_accordingly(i,j,n,D);
-  endfor; endfor;
-  clip_C p0, q0 for i:=1 upto k: , p[i], q[i] endfor;
- endfor;
- fill_C unitsquare scaled w;
- write_postamble;
-endfor;
-% ---
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.mf
deleted file mode 100644
index 0b5850a8892..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.mf
+++ /dev/null
@@ -1,20 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% HOLECLIP.MF---a nearly trivial example
-% ---
-input mftoeps; eps_mode_setup;
-w#=4cm#; h#=2cm#; define_pixels(w,h);
-set_BB origin, (w,h);
-write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- for oper:="draw_C", "clip_C":
-  scantokens oper
-% outer edge:
-  fullcircle xscaled w yscaled h shifted (.5w,.5h),
-% inner edge:
-  reverse fullcircle xscaled .7w yscaled .7h shifted (.5w,.5h);
- endfor
-write_postamble;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.tex b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.tex
deleted file mode 100644
index 8f314a6ba89..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holeclip.tex
+++ /dev/null
@@ -1,22 +0,0 @@
-\input epsf
-
-\centerline{
-\setbox0\vbox{
- \hbox{It is a clipped text.}\hbox{It is a clipped text.}
- \hbox{It is a clipped text.}\hbox{It is a clipped text.}
- \vss % no depth
-}%
-\special{ps:
- /mftoeps_save save def % the snapshoot of a current stage
- /mftoeps_bhook {/q {} def /Q {} def} def
- /CM matrix currentmatrix def
- currentpoint /cy exch def /cx exch def
- /ori@endspecial /@endspecial load def
- /@endspecial {} def % neutralize /@endspecial locally
-}
-\hbox to\wd0{\hss\epsfysize\ht0\epsffile{holeclip.eps}\hss}% perform clipping
-\special{ps:cx cy moveto CM setmatrix}\llap{\copy0}% set the text
-\special{ps:ori@endspecial mftoeps_save restore}% restore a previous stage
-}
-
-\end
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holefill.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holefill.mf
deleted file mode 100644
index 7478df585de..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/holefill.mf
+++ /dev/null
@@ -1,21 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% HOLEFILL.MF---a nearly trivial example
-% ---
-input mftoeps; eps_mode_setup;
-w#=4cm#; h#=2cm#; define_pixels(w,h);
-set_BB origin, (w,h);
-write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- for oper:="draw_C", "fill_C":
- scantokens oper
-% outer edge:
-  fullcircle xscaled w yscaled h shifted (.5w,.5h),
-% inner edge:
-  reverse fullcircle xscaled .7w yscaled .7h shifted (.5w,.5h);
- endfor
-write_postamble;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/polygons.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/polygons.mf
deleted file mode 100644
index 29d370d8ee6..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/polygons.mf
+++ /dev/null
@@ -1,32 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% POLYGONS.MF
-% ---
-vardef regular_polygon(expr n) =
-% |n| is the number of vertices; the diameter of the circumscribed circle
-% is equal to 1, its center is in the origin
- (up                           % first vertex
-  for i:=1 upto n-1:
-   -- (up rotated (i*(360/n))) % next vertices
-  endfor
-  -- cycle) scaled .5
-enddef;
-vardef flex_polygon(expr n,a,b) =
-% |n| is the number of vertices, |a|, |b| are the angles (at vertices)
-% between a tangent to a ``flex side'' and the corresponding secant
- save zz; pair zz[ ]; % array of vertices
- for i:=0 upto n-1:
-  zz[i]:=up rotated (i*(360/n));
- endfor
- (zz[0] {(zz[1]-zz[0]) rotated a}
-  for i:=1 upto n-1:
-   .. {(zz[i]-zz[i-1]) rotated b}
-   zz[i]
-   {(zz[(i+1) mod n]-zz[i]) rotated a}
-  endfor
-  .. {(zz[0]-zz[n-1]) rotated b} cycle)
- scaled .5
-enddef;
-endinput
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan.mf
deleted file mode 100644
index 63802ab54d0..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan.mf
+++ /dev/null
@@ -1,19 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% RECTAN.MF---a trivial example
-% ---
-input mftoeps;
-EPS_mode_setup;
-beginchar(48, % ASCII code (unimportant)
- 2cm#, % width
- 1cm#, % height
- 0cm#  % depth
- );
- set_BB 0,-d,w,h; % coordinates of the corners of the bounding box
- write_preamble "rectan";
- fill_C unitsquare xscaled w yscaled h;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan_.bat b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan_.bat
deleted file mode 100644
index b344676ca6e..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/rectan_.bat
+++ /dev/null
@@ -1,4 +0,0 @@
-::

-:: This file belongs to the MFTOEPS package.

-::

-call m2e rectan

diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1a.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1a.mf
deleted file mode 100644
index cd34bd33077..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1a.mf
+++ /dev/null
@@ -1,24 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE1A.MF
-% ---
-input polygons; % the definition of the |regular_polygon| function
-input mftoeps;
-eps_mode_setup;
-beginchar(0,2cm#,2cm#,0);
- path P[ ]; % ,,room'' for polygons
- N:=25;     % the number of polygons
-% preparing:
- for i:=1 upto N:
-  P[i]:=regular_polygon(7)
-   scaled ((i/N)**2*w) rotated (i/N*360) shifted (.5w,.5h);
- endfor;
-% exporting:
- find_BB for i:=1 upto N-1: P[i], endfor P[N];
- write_preamble jobname;
- draw_C for i:=1 upto N-1: P[i], endfor P[N];
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1b.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1b.mf
deleted file mode 100644
index 499650af1fa..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample1b.mf
+++ /dev/null
@@ -1,28 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE1B.MF
-% ---
-input polygons; % the definition of the |regular_polygon| function
-input mftoeps;
-eps_mode_setup;
-beginchar(0,2cm#,2cm#,0);
- path P[ ]; % ,,room'' for polygons
- N:=25;     % the number of polygons
-% preparing:
- for i:=1 upto N:
-  P[i]:=regular_polygon(7)
-   scaled ((i/N)**2*w) rotated (i/N*360) shifted (.5w,.5h);
- endfor;
-% exporting:
- find_BB for i:=1 upto N-1: P[i], endfor P[N];
- write_preamble jobname;
-% Adobe Illustrator likes to control the orientation of paths
- fill_C
-  for i:=1 upto N-1:
-   if odd(N-i+1): pos_turn else: neg_turn fi P[i],
-  endfor pos_turn P[N];
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2a.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2a.mf
deleted file mode 100644
index ef34b34ea84..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2a.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE2A.MF
-% ---
-input polygons;
-input mftoeps;
-eps_mode_setup;
-beginchar(0,16mm#,16mm#,0);
- path P[ ]; % ``room'' for two polygons
-% preparing:
- P[1]:=regular_polygon(7) scaled w shifted (.5w,.5h);
- P[2]:=flex_polygon(7,0,0) scaled w shifted (.5w,.5h);
-% exporting:
- find_BB P[1], P[2];
- write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- fill_C P1; draw_C P2;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2b.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2b.mf
deleted file mode 100644
index e6d82b3175e..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2b.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE2B.MF
-% ---
-input polygons;
-input mftoeps;
-eps_mode_setup;
-beginchar(0,16mm#,16mm#,0);
- path P[ ]; % ``room'' for two polygons
-% preparing:
- P[1]:=regular_polygon(7) scaled w shifted (.5w,.5h);
- P[2]:=flex_polygon(7,-180/7,180/7) scaled w shifted (.5w,.5h);
-% exporting:
- find_BB P[1], P[2];
- write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- fill_C P1; draw_C P2;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2c.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2c.mf
deleted file mode 100644
index 2a2ebffb4fb..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2c.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE2C.MF
-% ---
-input polygons;
-input mftoeps;
-eps_mode_setup;
-beginchar(0,16mm#,16mm#,0);
- path P[ ]; % ``room'' for two polygons
-% preparing:
- P[1]:=regular_polygon(7) scaled w shifted (.5w,.5h);
- P[2]:=flex_polygon(7,45,45) scaled w shifted (.5w,.5h);
-% exporting:
- find_BB P[1], P[2];
- write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- fill_C P1; draw_C P2;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2d.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2d.mf
deleted file mode 100644
index 8fe9f9bfb5f..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2d.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE2D.MF
-% ---
-input polygons;
-input mftoeps;
-eps_mode_setup;
-beginchar(0,16mm#,16mm#,0);
- path P[ ]; % ``room'' for two polygons
-% preparing:
- P[1]:=regular_polygon(7) scaled w shifted (.5w,.5h);
- P[2]:=flex_polygon(7,-45,45) scaled w shifted (.5w,.5h);
-% exporting:
- find_BB P[1], P[2];
- write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- fill_C P1; draw_C P2;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2e.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2e.mf
deleted file mode 100644
index 9411c1db405..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2e.mf
+++ /dev/null
@@ -1,23 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE2E.MF
-% ---
-input polygons;
-input mftoeps;
-eps_mode_setup;
-beginchar(0,16mm#,16mm#,0);
- path P[ ]; % ``room'' for two polygons
-% preparing:
- P[1]:=regular_polygon(7) scaled w shifted (.5w,.5h);
- P[2]:=flex_polygon(7,45,-45) scaled w shifted (.5w,.5h);
-% exporting:
- find_BB P[1], P[2];
- write_preamble jobname;
- fix_fill_cmyk 0,0,0,.25; % 25 percent of black
- fix_line_width 1pt;
- fill_C P1; draw_C P2;
- write_postamble;
-endchar;
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample3.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample3.mf
deleted file mode 100644
index c58756e37a6..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample3.mf
+++ /dev/null
@@ -1,53 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE3.MF
-% ---
-input mftoeps;
-input polygons;
-eps_mode_setup;
-% unpercent the following line if the coloured version is needed
-% coloured:=1; 
-% ---
-def write_paths(expr name) =
- find_BB elem_path1;
- write_preamble name;
- for i:=1 upto objects:
-  coeff:=
-   if objects=1: 0 else: .5(1-cosd(((i-1)/(objects-1))[alpha1,alpha2])) fi;
-  fix_fill_cmyk forsuffixes $:=cyan, magenta, yellow: coeff[$1,$2], endfor
-   coeff[black1,black2];
-  fill_C elem_path[i];
- endfor;
- write_postamble;
-enddef;
-% ---
-ch_max:=3;
-% ---
-for ch:=0 upto ch_max:
- beginchar(char(ASCII("a")+ch), 1in#, 1in#, 0);
-  path elem_path[\\];
-  objects:=100; transitions:=3;
-  sca1:=w; sca2:=.02w;
-  rot1:=0; rot2:=(ch/ch_max)[25,180];
-  skew1:=45; skew2:=0;
-  alpha1:=0; alpha2:=transitions*360;
-  if known coloured:
-   cyan1:=0; magenta1:=0; yellow1:=1; black1:=0;
-   cyan2:=0.35294; magenta2:=0.8353; yellow2:=0.8353; black2:=0; % brown
-  else:
-   cyan1:=0; magenta1:=0; yellow1:=0; black1:=0.7;
-   cyan2:=0; magenta2:=0; yellow2:=0; black2:=0.15;
-  fi
-  for i:=1 upto objects:
-    coeff:=if objects=1: 0 else: (i-1)/(objects-1) fi;
-    elem_path[i]:=flex_polygon(5,coeff[skew1,skew2],coeff[skew1,skew2])
-      scaled (coeff[sca1,sca2])
-    rotated (coeff[rot1,rot2]) shifted (.5w,.5h);
-  endfor
-  write_paths(jobname & char(ASCII("a")+ch));
- endchar;
-endfor
-% ---
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample4.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample4.mf
deleted file mode 100644
index 37acefb4d05..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample4.mf
+++ /dev/null
@@ -1,45 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE4.MF
-% ---
-input mftoeps;
-input polygons;
-eps_mode_setup;
-% ---
-def write_paths(expr name) =
-  find_BB elem_path1;
-  write_preamble name;
-  for i:=1 upto objects:
-   coeff:=
-    if objects=1: 0 else: .5(1-cosd(((i-1)/(objects-1))[alpha1,alpha2])) fi;
-   fix_fill_cmyk forsuffixes $:=cyan, magenta, yellow: coeff[$1,$2], endfor
-    coeff[black1,black2];
-   fill_C elem_path[i];
-  endfor;
-  write_postamble;
-enddef;
-% ---
-ch_max:=3;
-% ---
-for ch:=0 upto ch_max:
- beginchar(char(ASCII("a")+ch), 1in#, 1in#, 0);
-  path elem_path[\\];
-  objects:=100; transitions:=.5; % regular 2
-  sca1:=w; sca2:=.05w;
-  rot1:=0; rot2:=(ch/ch_max)[0,-360];
-  alpha1:=0; alpha2:=transitions*360;
-  cyan1:=0; magenta1:=0; yellow1:=0; black1:=0.05;
-  cyan2:=0; magenta2:=0; yellow2:=0; black2:=0.9;
-  for i:=1 upto objects:
-   coeff:=if objects=1: 0 else: (i-1)/(objects-1) fi;
-   elem_path[i]:= flex_polygon(6,(coeff**.1)[-30,0],(coeff**.1)[30,0])
-    scaled (coeff[sca1,sca2])
-    rotated (coeff[rot1,rot2]+30) shifted (.5w,.5h);
-  endfor
-  write_paths(jobname & char(ASCII("a")+ch));
- endchar;
-endfor
-% ---
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample5.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample5.mf
deleted file mode 100644
index c7e0c7742b3..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample5.mf
+++ /dev/null
@@ -1,38 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% SAMPLE5.MF
-% ---
-input mftoeps;
-input polygons;
-eps_mode_setup;
-% ---
-def soft_polygon (expr n,a) = flex_polygon(n,a-180/n,a+180/n) enddef;
-% ---
-def write_paths(expr name) =
- find_BB for i:=1 upto objects: elem_path[i], endfor elem_path[objects];
- write_preamble name;
- fix_line_width .2pt; for i:=1 upto objects: draw_C elem_path[i]; endfor;
- write_postamble;
-enddef;
-% ---
-ch_max:=3;
-% ---
-for ch:=0 upto ch_max:
- beginchar(char(ASCII("a")+ch), 1in#, 1in#, 0);
-  path elem_path[\\];
-  objects:=17;
-  sca1:=.85w; sca2:=.02w;
-  rot1:=0; rot2:=(ch/ch_max)[5,120];
-  skew1:=(ch/ch_max)[60,30]; skew2:=0;
-  for i:=1 upto objects:
-   coeff:=if objects=1: 0 else: (i-1)/(objects-1) fi;
-   elem_path[i]:= soft_polygon(7,coeff[skew1,skew2])
-    scaled (coeff[sca1,sca2]) rotated (coeff[rot1,rot2]+30) shifted (.5w,.5h);
-  endfor
-  write_paths(jobname & char(ASCII("a")+ch));
- endchar;
-endfor
-% ---
-end.
diff --git a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/stereo.mf b/Master/texmf-dist/source/metafont/mftoeps/m2esamp/stereo.mf
deleted file mode 100644
index c3e85ec53fe..00000000000
--- a/Master/texmf-dist/source/metafont/mftoeps/m2esamp/stereo.mf
+++ /dev/null
@@ -1,53 +0,0 @@
-%%%%
-%%%% This file belongs to the MFTOEPS package.
-%%%%
-% ---
-% STEREO.MF
-% ---
-input mftoeps;
-input polygons;
-eps_mode_setup;
-% ---
-def soft_polygon (expr n,a) = flex_polygon(n,a-180/n,a+180/n) enddef;
-% ---
-def write_paths(expr name) =
-  find_BB for i:=1 upto objects: elem_path[i], endfor elem_path[objects];
-  write_preamble name;
-  for i:=1 upto objects:
-   coeff:=
-    if objects=1: 0 else: .5(1-cosd(((i-1)/(objects-1))[alpha1,alpha2])) fi;
-   coeff:=if coeff>.5: 1 else: 0 fi;
-   fix_fill_cmyk forsuffixes $:=cyan, magenta, yellow: coeff[$1,$2], endfor
-    coeff[black1,black2];
-   fill_C elem_path[i];
-  endfor;
-  write_postamble;
-enddef;
-% ---
-for ch:=0,1:
- beginchar("0",117pt#, 117pt#, 0);
-  path elem_path[\\];
-  objects:=100; transitions:=7;
-  pair cent[\\];
-  sca1:=.5w; sca2:=.01w;
-  skew1:=60; skew2:=0;
-  alpha1:=0; alpha2:=transitions*360;
-  cshift0:=-.02w; cshift1:=-cshift0;
-  cent1:=(.5w,.5h);
-  rot1:=0; rot2:=rot1+60;
-  cent2:=(.5w+cshift[ch],.49h);
-  cyan1:=0; magenta1:=0; yellow1:=0; black1:=1;
-  cyan2:=0; magenta2:=0; yellow2:=0; black2:=0;
-  for i:=1 upto objects:
-   if objects=1: coeff:=0; else: coeff:=(i-1)/(objects-1); fi
-   elem_path[i]:= soft_polygon(4,coeff[skew1,skew2])
-    scaled (coeff[sca1,sca2])
-    rotated (coeff[rot1,rot2]+30)
-    shifted (coeff[cent1,cent2]);
-  endfor
-  write_paths(jobname & decimal(ch));
-endchar;
-
-endfor
-
-end.