%%%%
%%%% This file belongs to the MFTOEPS package.
%%%%
% ---
% SAMPLE1A.MF
% ---
input polygons; % the definition of the |regular_polygon| function
input mftoeps;
eps_mode_setup;
beginchar(0,2cm#,2cm#,0);
 path P[ ]; % ,,room'' for polygons
 N:=25;     % the number of polygons
% preparing:
 for i:=1 upto N:
  P[i]:=regular_polygon(7)
   scaled ((i/N)**2*w) rotated (i/N*360) shifted (.5w,.5h);
 endfor;
% exporting:
 find_BB for i:=1 upto N-1: P[i], endfor P[N];
 write_preamble jobname;
 draw_C for i:=1 upto N-1: P[i], endfor P[N];
 write_postamble;
endchar;
end.