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