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.
|
