summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/metafont/mftoeps/m2esamp/sample2a.mf
blob: ef34b34ea8403ee7a0808f4d509f59d072bf94a8 (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.
%%%%
% ---
% 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.