diff options
Diffstat (limited to 'Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample3.mf')
-rw-r--r-- | Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample3.mf | 53 |
1 files changed, 0 insertions, 53 deletions
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. |