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