summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2d.mf
blob: 8fe9f9bfb5f8002b1af8985fb3a0e5149ff89699 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
%%%%
%%%% 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.